SUBROUTINE ERROR (RESULT) C C Output message and exit if I/O error returned from C Form Driver. This is the only error expected in a C debugged application. C IMPLICIT INTEGER (A-Z) C IF (RESULT .GT. 0) RETURN CALL FPUTL ('Fatal I/O Error') CALL EXIT END