Newsgroups: comp.sys.apollo
Path: utzoo!utgpu!news-server.csri.toronto.edu!helios.physics.utoronto.ca!alchemy.chem.utoronto.ca!mroussel
From: mroussel@alchemy.chem.utoronto.ca (Marc Roussel)
Subject: Fortran error trapping
Message-ID: <1990Nov20.012125.26502@alchemy.chem.utoronto.ca>
Keywords: FORTRAN, error, trap, Apollo
Sender: mroussel@alchemy.chem.utoronto.ca (Marc Roussel)
Organization: Department of Chemistry, University of Toronto
Date: Tue, 20 Nov 90 01:21:25 GMT

     I've read the man page on fpp_$set_trap_enables and I've written a
little program that sets the trap and then does something horrible to
verify that it works.  So far so good... the program terminates normally
after doing something that should have caused an exception.
Unfortunately, I need to be able to figure when a program has tripped
the trap so to speak and I can't figure out how to do this.  The
following pseudo-code should demonstate what I want to do:

      call fpp_$set_trap_enables
      do some math
      if result is not a number then
	execute some error recovery code and loop back
      end if

Does anyone know how to decide if the result of the math is somehow
invalid?

                                Thanks,

				Marc R. Roussel
                                mroussel@alchemy.chem.utoronto.ca
