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 with a short self written APL function c I converted the numbers to the format seen here. /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