EXTERNALROUTINE  SETREC (ROUTINE  USERS ERROR ROUTINE)
!
!
!
!     THIS IS A LIBRARY ROUTINE WHICH IS CALLED BY A FORTRAN USER
!
!           WHO WISHES TO NOMINATE AN ERROR HANDLING ROUTINE.
!
!
!
SYSTEMROUTINESPEC  SET ERROR RECOVERY (ROUTINE  USERS ERROR ROUTINE)
                   !
                   SET ERROR RECOVERY (USERS ERROR ROUTINE)
                             !make a call on the FIO module
                             !
!Note this indirection permits a user to have his own SETREC which
!         (probably) will have nothing to do with error recovery.
END ; !OF SETREC
ENDOFFILE