%N grtt05 %F $MIR/opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_science_miriad/miriad/work/miriad-4.3.8/borrow/pgplot/drivers/ttdriv.f
%D PGPLOT Tektronix 4100 driver, encode integer
%B
      SUBROUTINE GRTT05(I, C, NC)
      INTEGER I
      CHARACTER*(*) C
      INTEGER NC

 Encode integer in host syntax. Input integer I; output encoded string
 C, containing NC characters (1, 2, or 3).  This version encodes
 integers up to 1023, which fit in two characters.
