1C*GRMSG -- issue message to user
2C+
3      SUBROUTINE GRMSG (TEXT)
4      CHARACTER*(*) TEXT
5C
6C Display a message on standard output.
7C
8C Argument:
9C  TEXT (input): text of message to be printed (the string
10C      may not be blank).
11C--
12C  8-Nov-1994 [TJP].
13C-----------------------------------------------------------------------
14      INTEGER   GRTRIM
15C
16      IF (TEXT.NE.' ') THEN
17          WRITE (*, '(1X,A)') TEXT(1:GRTRIM(TEXT))
18      END IF
19      END
20