%N grgmsg %F $MIR/opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_science_miriad/miriad/work/miriad-4.3.8/borrow/pgplot/sys/grgmsg.f
%D Print system message (Sun/Convex-UNIX)
%B
      SUBROUTINE GRGMSG (STATUS)
      INTEGER STATUS

 This routine obtains the text of the VMS system message corresponding
 to code STATUS, and displays it using routine GRWARN. On non-VMS
 systems, it just displays the error number.

 Argument:
  STATUS (input): 32-bit system message code.
