%N grlgtr %F $MIR/opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_science_miriad/miriad/work/miriad-4.3.8/borrow/pgplot/sys/grlgtr.f
%D Translate logical name (dummy version)
%B
      SUBROUTINE GRLGTR (NAME)
      CHARACTER*(*) NAME

 Recursive translation of a logical name.
 This is used in the parsing of device specifications in the
 VMS implementation of PGPLOT. In other implementations, it may
 be replaced by a null routine.

 Argument:
  NAME (input/output): initially contains the name to be
       inspected.  If an equivalence is found it will be replaced
       with the new name. If not, the old name will be left there.
