NAME
ierror - catch Fortran errors
SYNOPSIS
if ( ierror ( errno ) .ne. 0 ) goto label
DESCRIPTION
Ierror provides a way of detecting errors during the running
of a Fortran program. Its argument is a run-time error num-
ber such as enumerated in fc (I).
When ierror is called, it returns a 0 value; thus the goto
statement in the synopsis is not executed. However, the
routine stores inside itself the call point and invocation
level. If and when the indicated error occurs, a return is
simulated from ierror with a non-zero value; thus the goto
(or other statement) is executed. It is a ghastly error to
call ierror from a subroutine which has already returned
when the error occurs.
This routine is essentially tailored to catching end-of-file
situations. Typically it is called just before the start of
the loop which reads the input file, and the goto jumps to a
graceful termination of the program.
There is a limit of 5 on the number of different error num-
bers which can be caught.
SEE ALSO
fc (I)
BUGS
There is no way to ignore errors.
1