C==============================TV.FOR===================================
c
C  No I did NOT type all this in!  Using APL, I typed in the conversion 
c  factors using a single column format identical to that shown in the
c  HP-28S reference manual.  Then I converted the numbers to the format
c  seen here using a small APL function.       /DEE 1-89

      SUBROUTINE TVAL(B)
      REAL*8 B(120)
      REAL*8 Q(120)
C------------------TABLE OF CONVERSION VALUES
      DATA Q  / 1.000000000000000D0002,1.000000000000000D0000,4.0468726
     +09870000D0003,4.629629629630000D-005,7.716049382720000D-007,1.013
     +250000000000D0005,1.495979000000000D0011,1.000000000000000D-010,1
     +.000000000000000D-028,1.000000000000000D0005,1.589872949280000D-0
     +01,1.000000000000000D0000,1.055055852620000D0003,3.52390700000000
     +0D-002,2.997924580000000D0008,1.000000000000000D0000,4.1868000000
     +00000D0000,1.000000000000000D0000,2.011684023370000D0001,3.700000
     +000000000D0010,2.000000000000000D-004,2.365882365000000D-004,8.64
     +0000000000000D0004,1.000000000000000D-005,1.000000000000000D-007,
     +1.602190000000000D-019,1.000000000000000D0000,1.828803657610000D0
     +000,2.359737216000000D-003,8.565647749090000D-001,9.6487000000000
     +00D0004,1.000000000000000D-015,3.426259099640000D0000,3.048000000
     +000000D-001,3.048006096010000D-001,1.000000000000000D-003,9.80665
     +0000000000D0000,3.785411784000000D-003,4.546090000000000D-003,4.5
     +46092000000000D-003,9.806650000000000D-003,2.500000000000000D-003
     +,6.479891000000000D-005,1.000000000000000D0000,3.600000000000000D
     +0003,1.000000000000000D0000,7.456998715820000D0002,1.000000000000
     +000D0000,2.540000000000000D-002,3.386388157890000D0003,2.48840000
     +0000000D0002,1.000000000000000D0000,4.448221615260000D0003,5.1444
     +44444444000D-001,2.777777777777778D-001,1.000000000000000D-003,3.
     +183098861840000D0003,4.535923700000000D-001,4.448221615260000D000
     +0,3.732417000000000D-001,7.957747154590000D-002,7.957747154590000
     +D-002,9.460528404880000D0015,1.000000000000000D0000,1.00000000000
     +0000D0000,1.609344000000000D0003,2.540000000000000D-005,6.0000000
     +00000000D0001,1.609347218690000D0003,1.333223684210000D0002,1.000
     +000000000000D0000,4.470400000000000D-001,1.000000000000000D0000,1
     +.852000000000000D0003,1.000000000000000D0000,2.834952312500000D-0
     +02,2.957352956250000D-005,3.110347500000000D-002,2.84130750000000
     +0D-005,1.000000000000000D-001,1.000000000000000D0000,3.0856781858
     +50000D0016,1.382549543760000D-001,7.957747154590000D0002,8.809767
     +500000000D-003,6.894757293170000D0003,4.731766473000000D-004,9.46
     +3529460000000D-004,1.591549430920000D-001,2.580000000000000D-004,
     +1.000000000000000D-002,5.029210058420000D0000,1.000000000000000D-
     +002,1.000000000000000D0000,1.000000000000000D0000,1.0000000000000
     +00D0004,1.459390293720000D0001,7.957747154590000D-002,1.000000000
     +000000D0000,1.000000000000000D-004,1.000000000000000D0000,1.00000
     +0000000000D0003,1.000000000000000D0000,1.478676478130000D-005,1.0
     +55060000000000D0008,9.071847400000000D0002,1.016046908800000D0003
     +,1.333223684210000D0002,4.928921593750000D-006,1.660570000000000D
     +-027,1.000000000000000D0000,1.000000000000000D0000,1.000000000000
     +000D0000,9.144000000000000D-001,3.155692597470000D0007,2.77777777
     +7777778D-003,1.000000000000000D0000,5.555555555555556D-001,1.0000
     +00000000000D0000,5.555555555555556D-001 /
      DO 10 I=1,120
      B(I)=Q(I)
 10   CONTINUE
      RETURN
      END
