33 COMMON /tpvmr_init1/ tpvmr
36 DATA (tpvmr(1,i),i=1,81)/
38 & 0.0, 1.013e+03, 299.700, 2.593e+04,
39 & 1.0, 9.040e+02, 293.700, 1.949e+04,
40 & 2.0, 8.050e+02, 287.700, 1.534e+04,
41 & 3.0, 7.150e+02, 283.700, 8.600e+03,
42 & 4.0, 6.330e+02, 277.000, 4.441e+03,
43 & 5.0, 5.590e+02, 270.300, 3.346e+03,
44 & 6.0, 4.920e+02, 263.600, 2.101e+03,
45 & 7.0, 4.320e+02, 257.000, 1.289e+03,
46 & 8.0, 3.780e+02, 250.300, 7.637e+02,
47 & 10.0, 2.860e+02, 237.000, 1.912e+02,
48 & 12.0, 2.130e+02, 223.600, 2.905e+01,
49 & 14.0, 1.560e+02, 210.300, 6.220e+00,
50 & 17.0, 9.370e+01, 194.800, 2.900e+00,
51 & 20.0, 5.650e+01, 206.700, 2.600e+00,
52 & 25.0, 2.570e+01, 221.400, 3.250e+00,
53 & 30.0, 1.220e+01, 232.300, 4.000e+00,
54 & 40.0, 3.050e+00, 254.000, 5.200e+00,
55 & 50.0, 8.540e-01, 270.200, 6.000e+00,
56 & 70.0, 5.800e-02, 218.900, 4.500e+00,
57 & 100.0, 2.890e-04, 190.700, 4.000e-01/
61 DATA (tpvmr(2,i),i=1,81)/
63 & 0.0, 1.013e+03, 294.200, 1.876e+04,
64 & 1.0, 9.020e+02, 289.700, 1.378e+04,
65 & 2.0, 8.020e+02, 285.200, 9.680e+03,
66 & 3.0, 7.100e+02, 279.200, 5.984e+03,
67 & 4.0, 6.280e+02, 273.200, 3.813e+03,
68 & 5.0, 5.540e+02, 267.200, 2.225e+03,
69 & 6.0, 4.870e+02, 261.200, 1.510e+03,
70 & 7.0, 4.260e+02, 254.700, 1.020e+03,
71 & 8.0, 3.720e+02, 248.200, 6.464e+02,
72 & 10.0, 2.810e+02, 235.300, 2.472e+02,
73 & 12.0, 2.090e+02, 222.300, 2.944e+01,
74 & 14.0, 1.530e+02, 215.700, 5.000e+00,
75 & 17.0, 9.500e+01, 215.700, 3.200e+00,
76 & 20.0, 5.950e+01, 219.200, 3.300e+00,
77 & 25.0, 2.770e+01, 225.100, 4.200e+00,
78 & 30.0, 1.320e+01, 233.700, 4.700e+00,
79 & 40.0, 3.330e+00, 257.500, 5.100e+00,
80 & 50.0, 9.510e-01, 275.700, 5.500e+00,
81 & 70.0, 6.700e-02, 218.100, 3.700e+00,
82 & 100.0, 2.580e-04, 190.500, 4.000e-01/
86 DATA (tpvmr(3,i),i=1,81)/
88 & 0.0, 1.018e+03, 272.200, 4.316e+03,
89 & 1.0, 8.973e+02, 268.700, 3.454e+03,
90 & 2.0, 7.897e+02, 265.200, 2.788e+03,
91 & 3.0, 6.938e+02, 261.700, 2.088e+03,
92 & 4.0, 6.081e+02, 255.700, 1.280e+03,
93 & 5.0, 5.313e+02, 249.700, 8.241e+02,
94 & 6.0, 4.627e+02, 243.700, 5.103e+02,
95 & 7.0, 4.016e+02, 237.700, 2.321e+02,
96 & 8.0, 3.473e+02, 231.700, 1.077e+02,
97 & 10.0, 2.568e+02, 219.700, 2.960e+01,
98 & 12.0, 1.882e+02, 218.700, 6.000e+00,
99 & 14.0, 1.378e+02, 217.700, 4.800e+00,
100 & 17.0, 8.610e+01, 216.200, 4.500e+00,
101 & 20.0, 5.370e+01, 215.200, 4.500e+00,
102 & 25.0, 2.440e+01, 215.200, 4.650e+00,
103 & 30.0, 1.110e+01, 217.400, 4.750e+00,
104 & 40.0, 2.530e+00, 243.200, 4.950e+00,
105 & 50.0, 6.830e-01, 265.700, 4.950e+00,
106 & 70.0, 4.700e-02, 230.700, 3.300e+00,
107 & 100.0, 4.074e-04, 218.600, 4.000e-01/
111 DATA (tpvmr(4,i),i=1,81)/
113 & 0.0, 1.010e+03, 287.200, 1.194e+04,
114 & 1.0, 8.960e+02, 281.700, 8.701e+03,
115 & 2.0, 7.929e+02, 276.300, 6.750e+03,
116 & 3.0, 7.000e+02, 270.900, 4.820e+03,
117 & 4.0, 6.160e+02, 265.500, 3.380e+03,
118 & 5.0, 5.410e+02, 260.100, 2.218e+03,
119 & 6.0, 4.740e+02, 253.100, 1.330e+03,
120 & 7.0, 4.130e+02, 246.100, 7.971e+02,
121 & 8.0, 3.590e+02, 239.200, 3.996e+02,
122 & 10.0, 2.677e+02, 225.200, 4.240e+01,
123 & 12.0, 1.977e+02, 225.200, 6.000e+00,
124 & 14.0, 1.460e+02, 225.200, 4.000e+00,
125 & 17.0, 9.280e+01, 225.200, 4.050e+00,
126 & 20.0, 5.900e+01, 225.200, 4.600e+00,
127 & 25.0, 2.780e+01, 228.100, 4.900e+00,
128 & 30.0, 1.340e+01, 235.100, 5.000e+00,
129 & 40.0, 3.400e+00, 262.100, 5.000e+00,
130 & 50.0, 9.870e-01, 277.200, 4.950e+00,
131 & 70.0, 7.100e-02, 216.600, 3.300e+00,
132 & 100.0, 2.480e-04, 190.400, 4.000e-01/
136 DATA (tpvmr(5,i),i=1,81)/
138 & 0.0, 1.013e+03, 257.200, 1.405e+03,
139 & 1.0, 8.878e+02, 259.100, 1.615e+03,
140 & 2.0, 7.775e+02, 255.900, 1.427e+03,
141 & 3.0, 6.798e+02, 252.700, 1.166e+03,
142 & 4.0, 5.932e+02, 247.700, 7.898e+02,
143 & 5.0, 5.158e+02, 240.900, 4.309e+02,
144 & 6.0, 4.467e+02, 234.100, 2.369e+02,
145 & 7.0, 3.853e+02, 227.300, 1.470e+02,
146 & 8.0, 3.308e+02, 220.600, 3.384e+01,
147 & 10.0, 2.418e+02, 217.200, 2.000e+01,
148 & 12.0, 1.766e+02, 217.200, 6.000e+00,
149 & 14.0, 1.291e+02, 217.200, 4.500e+00,
150 & 17.0, 8.058e+01, 216.000, 4.650e+00,
151 & 20.0, 5.014e+01, 214.200, 4.800e+00,
152 & 25.0, 2.256e+01, 211.200, 5.000e+00,
153 & 30.0, 1.020e+01, 216.000, 5.000e+00,
154 & 40.0, 2.243e+00, 234.700, 5.000e+00,
155 & 50.0, 5.719e-01, 259.300, 4.950e+00,
156 & 70.0, 4.000e-02, 245.400, 3.300e+00,
157 & 100.0, 4.230e-04, 218.500, 4.000e-01/
161 DATA (tpvmr(6,i),i=1,81)/
163 & 0.0, 1.013e+03, 288.200, 7.745e+03,
164 & 1.0, 8.986e+02, 281.700, 6.071e+03,
165 & 2.0, 7.950e+02, 275.200, 4.631e+03,
166 & 3.0, 7.012e+02, 268.700, 3.182e+03,
167 & 4.0, 6.166e+02, 262.200, 2.158e+03,
168 & 5.0, 5.405e+02, 255.700, 1.397e+03,
169 & 6.0, 4.722e+02, 249.200, 9.254e+02,
170 & 7.0, 4.111e+02, 242.700, 5.720e+02,
171 & 8.0, 3.565e+02, 236.200, 3.667e+02,
172 & 10.0, 2.650e+02, 223.300, 6.996e+01,
173 & 12.0, 1.940e+02, 216.700, 1.906e+01,
174 & 14.0, 1.417e+02, 216.700, 5.927e+00,
175 & 17.0, 8.850e+01, 216.700, 3.850e+00,
176 & 20.0, 5.529e+01, 216.700, 3.900e+00,
177 & 25.0, 2.549e+01, 221.600, 4.425e+00,
178 & 30.0, 1.197e+01, 226.500, 4.725e+00,
179 & 40.0, 2.871e+00, 250.400, 5.025e+00,
180 & 50.0, 7.978e-01, 270.700, 5.225e+00,
181 & 70.0, 5.520e-02, 219.600, 3.500e+00,
182 & 100.0, 3.200e-04, 195.100, 4.000e-01/
191 DATA (tpvmr(7,i),i=1,81)/
193 & 0.0, 1.013e+03, 288.200, 7.745e+03,
194 & 1.0, 8.986e+02, 281.700, 6.071e+03,
195 & 2.0, 7.950e+02, 275.200, 4.631e+03,
196 & 3.0, 7.012e+02, 268.700, 3.182e+03,
197 & 4.0, 6.166e+02, 262.200, 2.158e+03,
198 & 5.0, 5.405e+02, 255.700, 1.397e+03,
199 & 6.0, 4.722e+02, 249.200, 9.254e+02,
200 & 7.0, 4.111e+02, 242.700, 5.720e+02,
201 & 8.0, 3.565e+02, 236.200, 3.667e+02,
202 & 10.0, 2.650e+02, 223.300, 6.996e+01,
203 & 12.0, 1.940e+02, 216.700, 1.906e+01,
204 & 14.0, 1.417e+02, 216.700, 5.927e+00,
205 & 17.0, 8.850e+01, 216.700, 3.850e+00,
206 & 20.0, 5.529e+01, 216.700, 3.900e+00,
207 & 25.0, 2.549e+01, 221.600, 4.425e+00,
208 & 30.0, 1.197e+01, 226.500, 4.725e+00,
209 & 40.0, 2.871e+00, 250.400, 5.025e+00,
210 & 50.0, 7.978e-01, 270.700, 5.225e+00,
211 & 70.0, 5.520e-02, 219.600, 3.500e+00,
212 & 100.0, 3.200e-04, 195.100, 4.000e-01/