SUBROUTINE WARN(ERRMSG) INCLUDE 'status' CHARACTER ERRMSG*(*) CALL LINCHK(2) WRITE(UNIT=SYSOUT,FMT='(/1X,A,A)') '* * WARNING * * ', 1 ERRMSG RETURN END