C================================TU.FOR=================================
C For sum strange reason vars defined with a DATA statement cannot be 
c passed directly.  So games are played.  Maybe use the EQUIVALENCE 
c statement.                                    /DEE 1-89
      SUBROUTINE TUNIT (B,C)
      CHARACTER*423 B
      INTEGER C(120), D(120)
       B ='/a/A/acre/arcmin/arcs/atm/au/Aø/b/bar/bbl/Bq/Btu/bu/c/C/cal/c
     +d/chain/Ci/ct/cu/d/dyn/erg/eV/F/fath/fbm/fc/Fdy/fermi/flam/ft/ftUS
     +/g/ga/gal/galC/galUK/gf/grad/grain/Gy/h/H/hp/Hz/in/inHg/inH2O/J/ki
     +p/knot/kph/l/lam/lb/lbf/lbt/lm/lx/lyr/m/mho/mi/mil/min/miUS/mmHg/m
     +ol/mph/N/nmi/ohm/oz/ozfl/ozt/ozUK/P/Pa/pc/pdl/ph/pk/psi/pt/qt/r/R/
     +rad/rd/rem/s/S/sb/slug/sr/st/St/Sv/t/T/tbsp/therm/ton/tonUK/torr/t
     +sp/u/V/W/Wb/yd/yr/ø/øC/øF/øK/øR/'
      DATA D / 1,3,5,10,17,22,26,29,32,34,38,42,45,49,52,54,56,60,63,69,
     +72,75,78,80,84,88,91,93,98,102,105,109,115,120,123,128,130,133,137
     +,142,148,151,156,162,165,167,169,172,175,178,183,189,191,195,200,2
     +04,206,210,213,217,221,224,227,231,233,237,240,244,248,253,258,262
     +,266,268,272,276,279,284,288,293,295,298,301,305,308,311,315,318,3
     +21,323,325,329,332,336,338,340,343,348,351,354,357,360,362,364,369
     +,375,379,385,390,394,396,398,400,403,406,409,411,414,417,420 /
      DO 10, J=1,120
      C(J)=D(J)
 10   CONTINUE
      RETURN
      END