%N grtrml %F $MIR/opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_science_miriad/miriad/work/miriad-4.3.8/borrow/pgplot/sys/grtrml.f
%D Get name of user's terminal (UNIX)
%B
      SUBROUTINE GRTRML(STRING, L)
      CHARACTER*(*) STRING
      INTEGER L

 Return the device name of the user's terminal, if any. In Sun/Convex-UNIX,
 the name of the terminal is always /dev/tty.

 Arguments:
  STRING : receives the terminal name, truncated or extended with
           blanks as necessary.
  L      : receives the number of characters in STRING, excluding
           trailing blanks. If there is not attached terminal, 
           zero is returned.
