SUBROUTINE NUMERR (IER,NAME) INCLUDE 'STATUS' INTEGER IER CHARACTER NAME*6,FORMT*55 DATA FORMT/'(23H0*** ERROR MESSAGE IER=,I3,14H FROM ROUTINE ,A)'/ CALL LINCHK(2) WRITE(UNIT=SYSOUT,FMT=FORMT) IER,NAME RETURN END