home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / man / man3 / ierror.3 < prev    next >
Encoding:
Text File  |  1975-06-26  |  1.1 KB  |  53 lines
  1. .th IERROR III 10/29/73
  2. .sh NAME
  3. ierror \*- catch Fortran errors
  4. .sh SYNOPSIS
  5. .ft B
  6. if ( ierror ( \fIerrno\fB ) .ne. 0 ) goto \fIlabel\fR
  7. .sh DESCRIPTION
  8. .it Ierror
  9. provides a way of detecting errors during the running of a Fortran
  10. program.
  11. Its argument is a run-time error number
  12. such as enumerated in
  13. .it fc
  14. (I).
  15. .s3
  16. When
  17. .it ierror
  18. is called,
  19. it returns a 0 value; thus the
  20. .bd goto
  21. statement in the synopsis is not executed.
  22. However, the routine stores inside itself the
  23. call point and invocation level.
  24. If and when the indicated error occurs,
  25. a
  26. .bd return
  27. is simulated from
  28. .it ierror
  29. with a non-zero value;
  30. thus the
  31. .bd goto
  32. (or other statement)
  33. is executed.
  34. It is a ghastly error to call
  35. .it ierror
  36. from a subroutine which
  37. has already returned when the error occurs.
  38. .s3
  39. This routine is essentially tailored to
  40. catching end-of-file situations.
  41. Typically it is called just before the start
  42. of the loop which reads the input file,
  43. and the
  44. .bd goto
  45. jumps to a graceful termination of the program.
  46. .s3
  47. There is a limit of 5 on the number
  48. of different error numbers which can be caught.
  49. .sh "SEE ALSO"
  50. fc (I)
  51. .sh BUGS
  52. There is no way to ignore errors.
  53.