xermsg.f

Go to the documentation of this file.

      SUBROUTINE xermsg(LIBNAME, SUBNAME, ERRMSG, ERRCODE, RETCODE)
      CHARACTER*(*) LIBNAME, SUBNAME, ERRMSG
      INTEGER       ERRCODE, RETCODE
C
C     only print fatal errors
C
      IF (retcode .GT. 0) THEN
          WRITE(*, fmt='(1X, A, '':'', A, '':'', 1X, A)') libname,
     +          subname, errmsg
          WRITE(*, fmt='(1X, ''ERRORCODE = '', I)') errcode
          WRITE(*, fmt='(1X, ''RETCODE   = '', I)') retcode
      ENDIF
C
      END