IF<1Z. Eg. 29. )WW-B*R/.
106
IF
O’/..
Lli. 2» ) WW- B*R .012*2/A(I
У.)
1F(WW. ОТ. IS.)W W -15.
IF(12. EQ 29.) VR-5 . 5*<I.9/EXP(WW))
[F(IZ. LE. 28. )VR-&, 5»<i. -1.2/EXP(\V\V))
О Л РЛ -V R +1.I3*Q* VEXP(Y)-SN
YY-R
1F(YY. GT. 15. )YY= IS.
IF(1Z. Eg. 29)GAM(IZj —3 .0 -1 .4/EXP(YY)
F0-D(K)’B*’ALF(i2)/R**GAM <lZ)
FR-H I* (ity(R + R0» **GAPA
F-A(1Z)/Z*FR/B/1000.
RETURN
END
BLOCK DATA
DIMENSION W50(120), W60(I20), W70(120>. W80(96)
COMMON/SUNSP.M <456)
CCMMON/PART/A(29), D(29>. ALF<29). GAM(29». TO. AM
EQUIVALENCES( I), W 50|l)). (W<121>, \V60(I)), |W<24I). W70<1)>
EQUIVALENCES (363). \V80(]))
DATA W50/
*101.6. 94.8. 109.7. 113.4. 106.2. 83.6. 91.0. 85.2. 51.3. 61-4. 54.8. 54 I.
*59.9. 59.9, 56 9. 92.9, 108.5. 100-6. 61. 5 . 61.0. 83.1.51.6. 52.4. 45.8.
•40.7. 22.7. 22.0. 29.1. 23.4. 36.4. 39.3. 54 9. 28.2, 23.8.22.1.54 3.
*26.5. 3.9. 10.0. 27.8. 12.5. 21.8. 8.6. 23.5. 19 3. 8 2. 1.6. 2.5.
■0 2. 0.5. 10.9. 1.8. 0 8. 0 2. 4.8. 8.4. 1.5. 7.0, 9.2. 7.6.
•23.1. 20. Я. 4.9, 11.3. 28.9. 31.7. 26 7. 40.7. 42 7, 58.4. «9.2.76.9.
*73 9. 124 0. 118.4, 110 7. 136.5. 115.6, 129.1, 169.6. 173.2, 155.3. 201.3.
*192. I.
•165 0 170.2. 157.4. 175.2. 164.6, 200.7, 187.2, 159.0, 235.8. 253.8. 210 9.
*239. 4.
•202.5. 1S4.9. 190.7, 196.0. 175.3. 171.5, 191.4. 200.2. 201 2. 181 5. 152.3.
*187.6.
*217.4. 143.1. 185.7. 163 3, 172.0. 168.7. 149.6. 199 6. 145.2, 111 4 124 0
•125.0/
DATA WW146.3.
♦106.0. 102.2. 122.0, 119.6, 110.2. 121.7. [34.1. 127.2, 82.8. 89.6,85.6
*57.9. 46. I. 53.0 61 4. 51.0. 77.4. 70 2. 55.9. 63.6. 37. 7. 32. G. 39 9.
*38 7, 50.3.45.6, 46.4. 43.7. 42.0, 21.fi. 21.8. 51.3. 39.5. 26.9. 23.2.
•19.8. 24.4.17.1. 29.3. 43.0, 35.9. 19.6. 33.2, 38.8. 35.3. 23.4, 14.9.
•15.3, 17 7.16.5. 8.6. 9.5. 9-1. 3.1. 9.3. 4.7. 6.1. 7.4. 15.1.
*17.5. 14.2. 11.7. 6 8. 24. 1. 15.9. 11.9. 8 9. t6.8. 20 I. 15.8. |7.0.
♦28.2. 24.4, 25.3. 48-7. 45.3, 47.7. 55.7. 51.2. 50 2. 57.2.57 2.70 4.
*110.9. 93.6. Ill 8. 69.5. 86.5. 67.3. 91.5. 107.2. 76.8. 88.2. 94.3. 126.4.
*121.8. Ill 9. 92. 2. 81.2, 127.2. 110.3. 96.1. 109.3, 117.2. 107.7,86.0.
*109 8.
♦104 4. 120.5. 135.8. 106.8. 120 . 106. . 96.8. 98. . 913. 95.7. 93.5. 97 <T
DATA W 70III.5.
*127.8. 102.9. 109.5, 127.5, 106.8. 112.5, 93-0. 99.5, 86.6. 95.2. 83.5.
*91.3. 79.0. 60.7. 7] 8. 57.5. 49.8. 81.0. SI.4. 50.2, 51 7. 63.2. 82.2.
•61.5. tefi.4. 80.1. 63.2. 80 5. 88.0 76.5. 76.8. 64 0. 61.3. 41.6. 45.3.
*43.4. 42.9. 46.0. 57.7. 42.4. 39 5. 23 1. 25. 6, 59.3. 30 7. 23.9. 23.3.
*27.6. 26 0. 21.3. 40 X 39 5. 35.0. 55.8, 33.6. 10.2, 47. I, 25.0. 20.5.
*18.9, 11.5. 11.5, 5.1. 9.0. 11.4. 28.2. 39.7, 13.9. 9.1. 19 4. 7.8.
*8 I. 4.3. 21.9. I8.«. 12.4. 12 2, 1.9. 16.4. 13 5. 20.6. 5.2. 15.3.
*16.4. 23.1. 8.7. 12. 9. :S.«. 38 5. 21.4. 30.1, 44.0, 43 8. 29.1. 43 2.
•51.9. 93.6. 76.5. 99.7. 82 7. 95.1. 70.4. 58.1. 138 2. 125. j. 97.9. 122.7.
•166.6. 137.5. 133.0, 101.5. 134.4. 149.5. 159.4. H2 2. 188.4, 186.2. 183.3.
•176.3
DATA W80/159.6. 155.0. 126.2.
*164.1. 179 9. 157.3. 136 3. F15.4. 155.0, НИ. 7. 147.9, 174.4. 111.0,
♦141 3. 135.5. 156.4 127.5. 90.9, 143.8. 158.7. 167.3. 162.4. 137.5. ISO. I.
•III.2.
*163 6. 153.8. 122.0. 82.2. 130.4. 105.1. :07.G. 118.8. 94.7.98.1. 127.0.
•84.3. 51.0.66 5. 80.7. 99 2. 91 I. 82.2. 71 8. 53 3. 55 8. 33 3, 33.4.
*57.0, 85.4.83 5. 69.7. 76. 4.
46
.
1
. 37.4. 25.5. 15.7. 12.6. 22 4. 18-2.
*16 5. 15.9.17.2. 18. I. 27.4. 21.2. 30 7. Ц |, 3.9. 18- 5. 16.6. 17.3.
*2.5, 23.5. 13.1. 18.5. 13.7, |. 1. 18. I. 7.4. 3.8. 33.4. 15.2. 6-8.
“10 4. 2. 4. 14 7. 39.6. 33.0. 17.1. 33-0. 38.6. 33. 5. 01. |, 40,9. 55 0/
DATA TO’1978.3’
DATA A/I. .4 . 6. 9. 9 . 10.8. 12.14. . 15. . 19 , 20 2.
*23, . 24 3. 27. . 28. 1. 31. . 32. I. 35.4. 39.9. 39. 1. 40.1, 44.9. 47.9,
•50 9. 52.9. .54 9. .55.8. 58.9. 58.7. I /
DATA D/2.0EO4. 3.5E03. I 70-01. I.6E+01. 5 1E+0I. 9 6E+01.
3
5E+0I.
•8.4E+01. 36EOO. 1.5E + 0I. 4.2EOO. l.8E-i-0t. 3 9EOO. J.2E+01. 1.0K00,
•2.7EOO. I.2E00. 2.3EOO. 1.8EOO. 2 6E00. 6.9F-01. 2 5E00, 1.13EOO.
*2,1EOO, I 40E00, 9- 2EOO. 8 7E-02. 4.5E-01. 1.7Е02/
DATA ALF.3. . 3. . 3.4. 4.5. 3.9. 3.1, 3 6. 3.0, 3.8. 3 1 . 3.4, 3.0. 3.2.