ungrib/src/ngl/w3/errmsg.f

   1 C-----------------------------------------------------------------------
   2       SUBROUTINE ERRMSG(CMSG)
   3 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
   4 C
   5 C SUBPROGRAM: ERRMSG         WRITE A MESSAGE TO STDERR
   6 C   PRGMMR: IREDELL          ORG: W/NMC23     DATE: 95-10-31
   7 C
   8 C ABSTRACT: WRITE A MESSAGE TO STDERR.
   9 C
  10 C PROGRAM HISTORY LOG:
  11 C   95-10-31  IREDELL
  12 C
  13 C USAGE:    CALL ERRMSG(CMSG)
  14 C   INPUT ARGUMENTS:
  15 C     CMSG         CHARACTER*(*) MESSAGE TO WRITE
  16 C
  17 C REMARKS: THIS IS A MACHINE-DEPENDENT SUBPROGRAM.
  18 C
  19 C ATTRIBUTES:
  20 C   LANGUAGE: FORTRAN
  21 C   MACHINE:  CRAY
  22 C
  23 C$$$
  24       CHARACTER*(*) CMSG
  25 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  26       WRITE(0,'(A)') CMSG
  27 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  28       RETURN
  29       END