%N pglen %F $MIR/src/pglen.f
%D Find length of a string in a variety of units
%B
      SUBROUTINE PGLEN (UNITS, STRING, XL, YL)
      REAL XL, YL
      INTEGER UNITS
      CHARACTER*(*) STRING

 Work out length of a string in x and y directions 

 Input
  UNITS    :  0 => answer in normalized device coordinates
              1 => answer in inches
              2 => answer in mm
              3 => answer in absolute device coordinates (dots)
              4 => answer in world coordinates
              5 => answer as a fraction of the current viewport size

  STRING   :  String of interest
 Output
  XL       :  Length of string in x direction
  YL       :  Length of string in y direction
