NCEPLIBS-w3emc  2.11.0
errmsg.f
Go to the documentation of this file.
1 C> @file
2 C> @brief Write a message to stderr.
3 C> @author Mark Iredell @date 1995-10-31
4 
5 C> Write a message to stderr.
6 C>
7 C> Program history log:
8 C> - 1995-10-31 Mark Iredell
9 C>
10 C> @param[in] CMSG character*(*) message to write.
11 C>
12 C> @note This is a machine-dependent subprogram for Cray.
13 C>
14 C> @author Mark Iredell @date 1995-10-31
15 C-----------------------------------------------------------------------
16  SUBROUTINE errmsg(CMSG)
17  CHARACTER*(*) CMSG
18 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
19  WRITE(0,'(A)') cmsg
20 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
21  RETURN
22  END
errmsg
subroutine errmsg(CMSG)
Write a message to stderr.
Definition: errmsg.f:17