Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

sulw.F90 @ 5445

Last change on this file since 5445 was 2160, checked in by Laurent Fairhead, 10 years ago
Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand
File size: 43.3 KB

Line
1	SUBROUTINE SULW
2
3	!**** SULW - INITIALIZE COMMON YOELW
4
5	! PURPOSE.
6	! --------
7	! INITIALIZE YOELW, THE COMMON THAT CONTAINS COEFFICIENTS
8	! NEEDED TO RUN THE ECMWF LONGWAVE RADIATION ROUTINES
9
10	!** INTERFACE.
11	! ----------
12	! CALL *SULW
13
14	! EXPLICIT ARGUMENTS :
15	! --------------------
16	! NONE
17
18	! IMPLICIT ARGUMENTS :
19	! --------------------
20	! COMMON YOELW
21
22	! METHOD.
23	! -------
24	! SEE DOCUMENTATION
25
26	! EXTERNALS.
27	! ----------
28
29	! REFERENCE.
30	! ----------
31	! ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
32
33	! AUTHOR.
34	! -------
35	! JEAN-JACQUES MORCRETTE ECMWF
36
37	! MODIFICATIONS.
38	! --------------
39	! ORIGINAL : 88-12-15
40	! J.-J. Morcrette ECMWF 951215: Pseudo-Voigt Line Profiles
41	! ------------------------------------------------------------------
42
43	#include "tsmbkind.h"
44
45	USE YOELW , ONLY : MXIXT ,NSIL ,NIPD ,NIPD2 ,&
46	&NTR ,NTRA ,NUA ,NG1 ,NG1P1 ,&
47	&ALWT ,BLWT ,RNTNU ,PDGA ,PDGB ,&
48	&RO3T ,RO1H ,RO2H ,RPIALF0 ,RT1 ,&
49	&TINTP ,TREF ,TSTAND ,TSTP ,WG1 ,&
50	&XP ,RVGCO2 ,RVGH2O ,RVGO3
51
52
53	IMPLICIT NONE
54
55
56	! ----------------------------------------------------------------
57
58	!* 1. SET VALUES.
59	! -----------
60
61	NG1=2
62	NG1P1=NG1+1
63	NSIL=6
64	NIPD=8
65	NIPD2=2*NIPD
66	NTR=11
67	NTRA=15
68	NUA=24
69
70
71	!-- COEFFICIENTS FOR THE PSEUDO-VOIGT LINE PROFILE (PA)
72
73	RVGCO2= 60._JPRB
74	RVGH2O= 30._JPRB
75	RVGO3 =400._JPRB
76
77
78
79
80
81	!-- REFERENCE TEMPERATURES FOR THE PLANCK FUNCTIONS ----- TSTAND
82	! TEMPERATURE DEPENDENCE OF THE ABSORPTION ----- TREF
83	TSTAND = 250.0_JPRB
84	TREF = 250.0_JPRB
85
86	!-- ROOTS AND WEIGHTS FOR THE 2-POINT GAUSSIAN QUADRATURE
87	RT1 = (/ -0.577350269_JPRB, +0.577350269_JPRB /)
88	WG1 = (/ _ONE_ , _ONE_ /)
89
90	!-- TEMPERATURE STEP AND MAXIMUM INDEX FOR THE TRANSMISSIVITIES
91	TSTP = 12.5_JPRB
92	MXIXT= 10
93
94	!-- REFERENCE TEMPERATURE FOR THE TRANSMISSIVITIES
95	TINTP = (/ 187.5_JPRB, 200._JPRB, 212.5_JPRB, 225._JPRB, 237.5_JPRB, &
96	&250._JPRB,&
97	&262.5_JPRB, 275._JPRB, 287.5_JPRB, 300._JPRB, 312.5_JPRB /)
98
99	!-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE PLANCK FUNCTIONS
100
101	XP( :, 1) = (/&
102	&0.46430621E+02_JPRB, 0.12928299E+03_JPRB, 0.20732648E+03_JPRB,&
103	&0.31398411E+03_JPRB, 0.18373177E+03_JPRB,-0.11412303E+03_JPRB/)
104	XP( :, 2) = (/&
105	&0.73604774E+02_JPRB, 0.27887914E+03_JPRB, 0.27076947E+03_JPRB,&
106	&-0.57322111E+02_JPRB,-0.64742459E+02_JPRB, 0.87238280E+02_JPRB/)
107	XP( :, 3) = (/&
108	&0.37050866E+02_JPRB, 0.20498759E+03_JPRB, 0.37558029E+03_JPRB,&
109	&0.17401171E+03_JPRB,-0.13350302E+03_JPRB,-0.37651795E+02_JPRB/)
110	XP( :, 4) = (/&
111	&0.14930141E+02_JPRB, 0.89161160E+02_JPRB, 0.17793062E+03_JPRB,&
112	&0.93433860E+02_JPRB,-0.70646020E+02_JPRB,-0.26373150E+02_JPRB/)
113	XP( :, 5) = (/&
114	&0.40386780E+02_JPRB, 0.10855270E+03_JPRB, 0.50755010E+02_JPRB,&
115	&-0.31496190E+02_JPRB, 0.12791300E+00_JPRB, 0.18017770E+01_JPRB/)
116	XP( :, 6) = (/&
117	&0.90811926E+01_JPRB, 0.75073923E+02_JPRB, 0.24654438E+03_JPRB,&
118	&0.39332612E+03_JPRB, 0.29385281E+03_JPRB, 0.89107921E+02_JPRB/)
119
120	!-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE TEMPERATURE DEPENDENCE OF
121	! THE ABSORPTION
122	ALWT(1,:) = (/0.298199E-02_JPRB,-.394023E-03_JPRB,0.319566E-04_JPRB /)
123	BLWT(1,:) = (/-0.106432E-04_JPRB,0.660324E-06_JPRB,0.174356E-06_JPRB /)
124	ALWT(2,:) = (/0.143676E-01_JPRB,0.366501E-02_JPRB,-.160822E-02_JPRB /)
125	BLWT(2,:) = (/-0.553979E-04_JPRB,-.101701E-04_JPRB,0.920868E-05_JPRB /)
126	ALWT(3,:) = (/0.197861E-01_JPRB,0.315541E-02_JPRB,-.174547E-02_JPRB /)
127	BLWT(3,:) = (/-0.877012E-04_JPRB,0.513302E-04_JPRB,0.523138E-06_JPRB /)
128	ALWT(4,:) = (/0.289560E-01_JPRB,-.208807E-02_JPRB,-.121943E-02_JPRB /)
129	BLWT(4,:) = (/-0.165960E-03_JPRB,0.157704E-03_JPRB,-.146427E-04_JPRB /)
130	ALWT(5,:) = (/0.103800E-01_JPRB,0.436296E-02_JPRB,-.161431E-02_JPRB /)
131	BLWT(5,:) = (/-.276744E-04_JPRB,-.327381E-04_JPRB,0.127646E-04_JPRB /)
132	ALWT(6,:) = (/0.868859E-02_JPRB,-.972752E-03_JPRB,0.000000E-00_JPRB /)
133	BLWT(6,:) = (/-.278412E-04_JPRB,-.713940E-06_JPRB,0.117469E-05_JPRB /)
134	ALWT(7,:) = (/0.250073E-03_JPRB,0.455875E-03_JPRB,0.109242E-03_JPRB /)
135	BLWT(7,:) = (/0.199846E-05_JPRB,-.216313E-05_JPRB,0.175991E-06_JPRB /)
136	ALWT(8,:) = (/0.307423E-01_JPRB,0.110879E-02_JPRB,-.322172E-03_JPRB /)
137	BLWT(8,:) = (/-0.108482E-03_JPRB,0.258096E-05_JPRB,-.814575E-06_JPRB /)
138
139	!-- COEFFICIENTS FOR OZONE ABSORPTION
140	RO1H = 2230._JPRB
141	RO2H = 100._JPRB
142	RPIALF0 = 2._JPRB
143	RO3T(:) = (/-.326E-03_JPRB, -.102E-05_JPRB, .137E-02_JPRB, -.535E-05_JPRB /)
144
145	!-- COEFFICIENTS FOR H2O E-TYPE CONTINUUM ABSORPTION
146
147	RNTNU(:) = (/ 70.0_JPRB, 26.77_JPRB, 8.45_JPRB, 5.78_JPRB /)
148
149	!-----------------------------------------------------------------------
150	! PADE APPROXIMANTS FOR THE TRANSMISSIVITIES
151	! ==========================================
152	!-----------------------------------------------------------------------
153	!-- WATER VAPOR -- INT.1 -- 0- 500 CM-1 -- FROM ABS225 ----------------
154
155
156
157
158	!-- R.D. -- G = - 0.2 SLA
159
160
161	!----- INTERVAL = 1 ----- T = 187.5
162
163	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
164	PDGA( 1, 1,:) = (/&
165	&0.63499072E-02_JPRB,-0.99506586E-03_JPRB, 0.00000000E+00_JPRB/)
166	PDGB( 1, 1,:) = (/&
167	&0.63499072E-02_JPRB, 0.97222852E-01_JPRB, 0.10000000E+01_JPRB/)
168	PDGA( 1, 2,:) = (/&
169	&0.77266491E-02_JPRB,-0.11661515E-02_JPRB, 0.00000000E+00_JPRB/)
170	PDGB( 1, 2,:) = (/&
171	&0.77266491E-02_JPRB, 0.10681591E+00_JPRB, 0.10000000E+01_JPRB/)
172
173	!----- INTERVAL = 1 ----- T = 200.0
174
175	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
176	PDGA( 2, 1,:) = (/&
177	&0.65566348E-02_JPRB,-0.10184169E-02_JPRB, 0.00000000E+00_JPRB/)
178	PDGB( 2, 1,:) = (/&
179	&0.65566348E-02_JPRB, 0.98862238E-01_JPRB, 0.10000000E+01_JPRB/)
180	PDGA( 2, 2,:) = (/&
181	&0.81323287E-02_JPRB,-0.11886130E-02_JPRB, 0.00000000E+00_JPRB/)
182	PDGB( 2, 2,:) = (/&
183	&0.81323287E-02_JPRB, 0.10921298E+00_JPRB, 0.10000000E+01_JPRB/)
184
185	!----- INTERVAL = 1 ----- T = 212.5
186
187	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
188	PDGA( 3, 1,:) = (/&
189	&0.67849730E-02_JPRB,-0.10404730E-02_JPRB, 0.00000000E+00_JPRB/)
190	PDGB( 3, 1,:) = (/&
191	&0.67849730E-02_JPRB, 0.10061504E+00_JPRB, 0.10000000E+01_JPRB/)
192	PDGA( 3, 2,:) = (/&
193	&0.86507620E-02_JPRB,-0.12139929E-02_JPRB, 0.00000000E+00_JPRB/)
194	PDGB( 3, 2,:) = (/&
195	&0.86507620E-02_JPRB, 0.11198225E+00_JPRB, 0.10000000E+01_JPRB/)
196
197	!----- INTERVAL = 1 ----- T = 225.0
198
199	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
200	PDGA( 4, 1,:) = (/&
201	&0.70481947E-02_JPRB,-0.10621792E-02_JPRB, 0.00000000E+00_JPRB/)
202	PDGB( 4, 1,:) = (/&
203	&0.70481947E-02_JPRB, 0.10256222E+00_JPRB, 0.10000000E+01_JPRB/)
204	PDGA( 4, 2,:) = (/&
205	&0.92776391E-02_JPRB,-0.12445811E-02_JPRB, 0.00000000E+00_JPRB/)
206	PDGB( 4, 2,:) = (/&
207	&0.92776391E-02_JPRB, 0.11487826E+00_JPRB, 0.10000000E+01_JPRB/)
208
209	!----- INTERVAL = 1 ----- T = 237.5
210
211	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
212	PDGA( 5, 1,:) = (/&
213	&0.73585943E-02_JPRB,-0.10847662E-02_JPRB, 0.00000000E+00_JPRB/)
214	PDGB( 5, 1,:) = (/&
215	&0.73585943E-02_JPRB, 0.10475952E+00_JPRB, 0.10000000E+01_JPRB/)
216	PDGA( 5, 2,:) = (/&
217	&0.99806312E-02_JPRB,-0.12807672E-02_JPRB, 0.00000000E+00_JPRB/)
218	PDGB( 5, 2,:) = (/&
219	&0.99806312E-02_JPRB, 0.11751113E+00_JPRB, 0.10000000E+01_JPRB/)
220
221	!----- INTERVAL = 1 ----- T = 250.0
222
223	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
224	PDGA( 6, 1,:) = (/&
225	&0.77242818E-02_JPRB,-0.11094726E-02_JPRB, 0.00000000E+00_JPRB/)
226	PDGB( 6, 1,:) = (/&
227	&0.77242818E-02_JPRB, 0.10720986E+00_JPRB, 0.10000000E+01_JPRB/)
228	PDGA( 6, 2,:) = (/&
229	&0.10709803E-01_JPRB,-0.13208251E-02_JPRB, 0.00000000E+00_JPRB/)
230	PDGB( 6, 2,:) = (/&
231	&0.10709803E-01_JPRB, 0.11951535E+00_JPRB, 0.10000000E+01_JPRB/)
232
233	!----- INTERVAL = 1 ----- T = 262.5
234
235	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
236	PDGA( 7, 1,:) = (/&
237	&0.81472693E-02_JPRB,-0.11372949E-02_JPRB, 0.00000000E+00_JPRB/)
238	PDGB( 7, 1,:) = (/&
239	&0.81472693E-02_JPRB, 0.10985370E+00_JPRB, 0.10000000E+01_JPRB/)
240	PDGA( 7, 2,:) = (/&
241	&0.11414739E-01_JPRB,-0.13619034E-02_JPRB, 0.00000000E+00_JPRB/)
242	PDGB( 7, 2,:) = (/&
243	&0.11414739E-01_JPRB, 0.12069945E+00_JPRB, 0.10000000E+01_JPRB/)
244
245	!----- INTERVAL = 1 ----- T = 275.0
246
247	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
248	PDGA( 8, 1,:) = (/&
249	&0.86227527E-02_JPRB,-0.11687683E-02_JPRB, 0.00000000E+00_JPRB/)
250	PDGB( 8, 1,:) = (/&
251	&0.86227527E-02_JPRB, 0.11257633E+00_JPRB, 0.10000000E+01_JPRB/)
252	PDGA( 8, 2,:) = (/&
253	&0.12058772E-01_JPRB,-0.14014165E-02_JPRB, 0.00000000E+00_JPRB/)
254	PDGB( 8, 2,:) = (/&
255	&0.12058772E-01_JPRB, 0.12108524E+00_JPRB, 0.10000000E+01_JPRB/)
256
257	!----- INTERVAL = 1 ----- T = 287.5
258
259	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
260	PDGA( 9, 1,:) = (/&
261	&0.91396814E-02_JPRB,-0.12038314E-02_JPRB, 0.00000000E+00_JPRB/)
262	PDGB( 9, 1,:) = (/&
263	&0.91396814E-02_JPRB, 0.11522980E+00_JPRB, 0.10000000E+01_JPRB/)
264	PDGA( 9, 2,:) = (/&
265	&0.12623992E-01_JPRB,-0.14378639E-02_JPRB, 0.00000000E+00_JPRB/)
266	PDGB( 9, 2,:) = (/&
267	&0.12623992E-01_JPRB, 0.12084229E+00_JPRB, 0.10000000E+01_JPRB/)
268
269	!----- INTERVAL = 1 ----- T = 300.0
270
271	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
272	PDGA(10, 1,:) = (/&
273	&0.96825438E-02_JPRB,-0.12418367E-02_JPRB, 0.00000000E+00_JPRB/)
274	PDGB(10, 1,:) = (/&
275	&0.96825438E-02_JPRB, 0.11766343E+00_JPRB, 0.10000000E+01_JPRB/)
276	PDGA(10, 2,:) = (/&
277	&0.13108146E-01_JPRB,-0.14708488E-02_JPRB, 0.00000000E+00_JPRB/)
278	PDGB(10, 2,:) = (/&
279	&0.13108146E-01_JPRB, 0.12019005E+00_JPRB, 0.10000000E+01_JPRB/)
280
281	!----- INTERVAL = 1 ----- T = 312.5
282
283	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
284	PDGA(11, 1,:) = (/&
285	&0.10233955E-01_JPRB,-0.12817135E-02_JPRB, 0.00000000E+00_JPRB/)
286	PDGB(11, 1,:) = (/&
287	&0.10233955E-01_JPRB, 0.11975320E+00_JPRB, 0.10000000E+01_JPRB/)
288	PDGA(11, 2,:) = (/&
289	&0.13518390E-01_JPRB,-0.15006791E-02_JPRB, 0.00000000E+00_JPRB/)
290	PDGB(11, 2,:) = (/&
291	&0.13518390E-01_JPRB, 0.11932684E+00_JPRB, 0.10000000E+01_JPRB/)
292
293
294
295	!--- WATER VAPOR --- INTERVAL 2 -- 500-800 CM-1--- FROM ABS225 ---------
296
297
298
299
300	!--- R.D. --- G = 0.02 + 0.50 / ( 1 + 4.5 U )
301
302
303	!----- INTERVAL = 2 ----- T = 187.5
304
305	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
306	PDGA( 1, 3,:) = (/&
307	&0.11644593E+01_JPRB, 0.41243390E+00_JPRB, 0.00000000E+00_JPRB/)
308	PDGB( 1, 3,:) = (/&
309	&0.11644593E+01_JPRB, 0.10346097E+01_JPRB, 0.10000000E+01_JPRB/)
310	PDGA( 1, 4,:) = (/&
311	&0.12006968E+01_JPRB, 0.48318936E+00_JPRB, 0.00000000E+00_JPRB/)
312	PDGB( 1, 4,:) = (/&
313	&0.12006968E+01_JPRB, 0.10626130E+01_JPRB, 0.10000000E+01_JPRB/)
314
315	!----- INTERVAL = 2 ----- T = 200.0
316
317	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
318	PDGA( 2, 3,:) = (/&
319	&0.11747203E+01_JPRB, 0.43407282E+00_JPRB, 0.00000000E+00_JPRB/)
320	PDGB( 2, 3,:) = (/&
321	&0.11747203E+01_JPRB, 0.10433655E+01_JPRB, 0.10000000E+01_JPRB/)
322	PDGA( 2, 4,:) = (/&
323	&0.12108196E+01_JPRB, 0.50501827E+00_JPRB, 0.00000000E+00_JPRB/)
324	PDGB( 2, 4,:) = (/&
325	&0.12108196E+01_JPRB, 0.10716026E+01_JPRB, 0.10000000E+01_JPRB/)
326
327	!----- INTERVAL = 2 ----- T = 212.5
328
329	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
330	PDGA( 3, 3,:) = (/&
331	&0.11837872E+01_JPRB, 0.45331413E+00_JPRB, 0.00000000E+00_JPRB/)
332	PDGB( 3, 3,:) = (/&
333	&0.11837872E+01_JPRB, 0.10511933E+01_JPRB, 0.10000000E+01_JPRB/)
334	PDGA( 3, 4,:) = (/&
335	&0.12196717E+01_JPRB, 0.52409502E+00_JPRB, 0.00000000E+00_JPRB/)
336	PDGB( 3, 4,:) = (/&
337	&0.12196717E+01_JPRB, 0.10795108E+01_JPRB, 0.10000000E+01_JPRB/)
338
339	!----- INTERVAL = 2 ----- T = 225.0
340
341	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
342	PDGA( 4, 3,:) = (/&
343	&0.11918561E+01_JPRB, 0.47048604E+00_JPRB, 0.00000000E+00_JPRB/)
344	PDGB( 4, 3,:) = (/&
345	&0.11918561E+01_JPRB, 0.10582150E+01_JPRB, 0.10000000E+01_JPRB/)
346	PDGA( 4, 4,:) = (/&
347	&0.12274493E+01_JPRB, 0.54085277E+00_JPRB, 0.00000000E+00_JPRB/)
348	PDGB( 4, 4,:) = (/&
349	&0.12274493E+01_JPRB, 0.10865006E+01_JPRB, 0.10000000E+01_JPRB/)
350
351	!----- INTERVAL = 2 ----- T = 237.5
352
353	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
354	PDGA( 5, 3,:) = (/&
355	&0.11990757E+01_JPRB, 0.48586286E+00_JPRB, 0.00000000E+00_JPRB/)
356	PDGB( 5, 3,:) = (/&
357	&0.11990757E+01_JPRB, 0.10645317E+01_JPRB, 0.10000000E+01_JPRB/)
358	PDGA( 5, 4,:) = (/&
359	&0.12343189E+01_JPRB, 0.55565422E+00_JPRB, 0.00000000E+00_JPRB/)
360	PDGB( 5, 4,:) = (/&
361	&0.12343189E+01_JPRB, 0.10927103E+01_JPRB, 0.10000000E+01_JPRB/)
362
363	!----- INTERVAL = 2 ----- T = 250.0
364
365	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
366	PDGA( 6, 3,:) = (/&
367	&0.12055643E+01_JPRB, 0.49968044E+00_JPRB, 0.00000000E+00_JPRB/)
368	PDGB( 6, 3,:) = (/&
369	&0.12055643E+01_JPRB, 0.10702313E+01_JPRB, 0.10000000E+01_JPRB/)
370	PDGA( 6, 4,:) = (/&
371	&0.12404147E+01_JPRB, 0.56878618E+00_JPRB, 0.00000000E+00_JPRB/)
372	PDGB( 6, 4,:) = (/&
373	&0.12404147E+01_JPRB, 0.10982489E+01_JPRB, 0.10000000E+01_JPRB/)
374
375	!----- INTERVAL = 2 ----- T = 262.5
376
377	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
378	PDGA( 7, 3,:) = (/&
379	&0.12114186E+01_JPRB, 0.51214132E+00_JPRB, 0.00000000E+00_JPRB/)
380	PDGB( 7, 3,:) = (/&
381	&0.12114186E+01_JPRB, 0.10753907E+01_JPRB, 0.10000000E+01_JPRB/)
382	PDGA( 7, 4,:) = (/&
383	&0.12458431E+01_JPRB, 0.58047395E+00_JPRB, 0.00000000E+00_JPRB/)
384	PDGB( 7, 4,:) = (/&
385	&0.12458431E+01_JPRB, 0.11032019E+01_JPRB, 0.10000000E+01_JPRB/)
386
387	!----- INTERVAL = 2 ----- T = 275.0
388
389	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
390	PDGA( 8, 3,:) = (/&
391	&0.12167192E+01_JPRB, 0.52341830E+00_JPRB, 0.00000000E+00_JPRB/)
392	PDGB( 8, 3,:) = (/&
393	&0.12167192E+01_JPRB, 0.10800762E+01_JPRB, 0.10000000E+01_JPRB/)
394	PDGA( 8, 4,:) = (/&
395	&0.12506907E+01_JPRB, 0.59089894E+00_JPRB, 0.00000000E+00_JPRB/)
396	PDGB( 8, 4,:) = (/&
397	&0.12506907E+01_JPRB, 0.11076379E+01_JPRB, 0.10000000E+01_JPRB/)
398
399	!----- INTERVAL = 2 ----- T = 287.5
400
401	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
402	PDGA( 9, 3,:) = (/&
403	&0.12215344E+01_JPRB, 0.53365803E+00_JPRB, 0.00000000E+00_JPRB/)
404	PDGB( 9, 3,:) = (/&
405	&0.12215344E+01_JPRB, 0.10843446E+01_JPRB, 0.10000000E+01_JPRB/)
406	PDGA( 9, 4,:) = (/&
407	&0.12550299E+01_JPRB, 0.60021475E+00_JPRB, 0.00000000E+00_JPRB/)
408	PDGB( 9, 4,:) = (/&
409	&0.12550299E+01_JPRB, 0.11116160E+01_JPRB, 0.10000000E+01_JPRB/)
410
411	!----- INTERVAL = 2 ----- T = 300.0
412
413	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
414	PDGA(10, 3,:) = (/&
415	&0.12259226E+01_JPRB, 0.54298448E+00_JPRB, 0.00000000E+00_JPRB/)
416	PDGB(10, 3,:) = (/&
417	&0.12259226E+01_JPRB, 0.10882439E+01_JPRB, 0.10000000E+01_JPRB/)
418	PDGA(10, 4,:) = (/&
419	&0.12589256E+01_JPRB, 0.60856112E+00_JPRB, 0.00000000E+00_JPRB/)
420	PDGB(10, 4,:) = (/&
421	&0.12589256E+01_JPRB, 0.11151910E+01_JPRB, 0.10000000E+01_JPRB/)
422
423	!----- INTERVAL = 2 ----- T = 312.5
424
425	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
426	PDGA(11, 3,:) = (/&
427	&0.12299344E+01_JPRB, 0.55150227E+00_JPRB, 0.00000000E+00_JPRB/)
428	PDGB(11, 3,:) = (/&
429	&0.12299344E+01_JPRB, 0.10918144E+01_JPRB, 0.10000000E+01_JPRB/)
430	PDGA(11, 4,:) = (/&
431	&0.12624402E+01_JPRB, 0.61607594E+00_JPRB, 0.00000000E+00_JPRB/)
432	PDGB(11, 4,:) = (/&
433	&0.12624402E+01_JPRB, 0.11184188E+01_JPRB, 0.10000000E+01_JPRB/)
434
435
436
437
438
439
440	!- WATER VAPOR - INT. 3 -- 800-970 + 1110-1250 CM-1 -- FIT FROM 215 IS -
441
442
443	!-- WATER VAPOR LINES IN THE WINDOW REGION (800-1250 CM-1)
444
445
446
447	!--- G = 3.875E-03 ---------------
448
449	!----- INTERVAL = 3 ----- T = 187.5
450
451	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
452	PDGA( 1, 7,:) = (/&
453	&0.10192131E+02_JPRB, 0.80737799E+01_JPRB, 0.00000000E+00_JPRB/)
454	PDGB( 1, 7,:) = (/&
455	&0.10192131E+02_JPRB, 0.82623280E+01_JPRB, 0.10000000E+01_JPRB/)
456	PDGA( 1, 8,:) = (/&
457	&0.92439050E+01_JPRB, 0.77425778E+01_JPRB, 0.00000000E+00_JPRB/)
458	PDGB( 1, 8,:) = (/&
459	&0.92439050E+01_JPRB, 0.79342219E+01_JPRB, 0.10000000E+01_JPRB/)
460
461	!----- INTERVAL = 3 ----- T = 200.0
462
463	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
464	PDGA( 2, 7,:) = (/&
465	&0.97258602E+01_JPRB, 0.79171158E+01_JPRB, 0.00000000E+00_JPRB/)
466	PDGB( 2, 7,:) = (/&
467	&0.97258602E+01_JPRB, 0.81072291E+01_JPRB, 0.10000000E+01_JPRB/)
468	PDGA( 2, 8,:) = (/&
469	&0.87567422E+01_JPRB, 0.75443460E+01_JPRB, 0.00000000E+00_JPRB/)
470	PDGB( 2, 8,:) = (/&
471	&0.87567422E+01_JPRB, 0.77373458E+01_JPRB, 0.10000000E+01_JPRB/)
472
473	!----- INTERVAL = 3 ----- T = 212.5
474
475	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
476	PDGA( 3, 7,:) = (/&
477	&0.92992890E+01_JPRB, 0.77609605E+01_JPRB, 0.00000000E+00_JPRB/)
478	PDGB( 3, 7,:) = (/&
479	&0.92992890E+01_JPRB, 0.79523834E+01_JPRB, 0.10000000E+01_JPRB/)
480	PDGA( 3, 8,:) = (/&
481	&0.83270144E+01_JPRB, 0.73526151E+01_JPRB, 0.00000000E+00_JPRB/)
482	PDGB( 3, 8,:) = (/&
483	&0.83270144E+01_JPRB, 0.75467334E+01_JPRB, 0.10000000E+01_JPRB/)
484
485	!----- INTERVAL = 3 ----- T = 225.0
486
487	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
488	PDGA( 4, 7,:) = (/&
489	&0.89154021E+01_JPRB, 0.76087371E+01_JPRB, 0.00000000E+00_JPRB/)
490	PDGB( 4, 7,:) = (/&
491	&0.89154021E+01_JPRB, 0.78012527E+01_JPRB, 0.10000000E+01_JPRB/)
492	PDGA( 4, 8,:) = (/&
493	&0.79528337E+01_JPRB, 0.71711188E+01_JPRB, 0.00000000E+00_JPRB/)
494	PDGB( 4, 8,:) = (/&
495	&0.79528337E+01_JPRB, 0.73661786E+01_JPRB, 0.10000000E+01_JPRB/)
496
497	!----- INTERVAL = 3 ----- T = 237.5
498
499	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
500	PDGA( 5, 7,:) = (/&
501	&0.85730084E+01_JPRB, 0.74627112E+01_JPRB, 0.00000000E+00_JPRB/)
502	PDGB( 5, 7,:) = (/&
503	&0.85730084E+01_JPRB, 0.76561458E+01_JPRB, 0.10000000E+01_JPRB/)
504	PDGA( 5, 8,:) = (/&
505	&0.76286839E+01_JPRB, 0.70015571E+01_JPRB, 0.00000000E+00_JPRB/)
506	PDGB( 5, 8,:) = (/&
507	&0.76286839E+01_JPRB, 0.71974319E+01_JPRB, 0.10000000E+01_JPRB/)
508
509	!----- INTERVAL = 3 ----- T = 250.0
510
511	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
512	PDGA( 6, 7,:) = (/&
513	&0.82685838E+01_JPRB, 0.73239981E+01_JPRB, 0.00000000E+00_JPRB/)
514	PDGB( 6, 7,:) = (/&
515	&0.82685838E+01_JPRB, 0.75182174E+01_JPRB, 0.10000000E+01_JPRB/)
516	PDGA( 6, 8,:) = (/&
517	&0.73477879E+01_JPRB, 0.68442532E+01_JPRB, 0.00000000E+00_JPRB/)
518	PDGB( 6, 8,:) = (/&
519	&0.73477879E+01_JPRB, 0.70408543E+01_JPRB, 0.10000000E+01_JPRB/)
520
521	!----- INTERVAL = 3 ----- T = 262.5
522
523	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
524	PDGA( 7, 7,:) = (/&
525	&0.79978921E+01_JPRB, 0.71929934E+01_JPRB, 0.00000000E+00_JPRB/)
526	PDGB( 7, 7,:) = (/&
527	&0.79978921E+01_JPRB, 0.73878952E+01_JPRB, 0.10000000E+01_JPRB/)
528	PDGA( 7, 8,:) = (/&
529	&0.71035818E+01_JPRB, 0.66987996E+01_JPRB, 0.00000000E+00_JPRB/)
530	PDGB( 7, 8,:) = (/&
531	&0.71035818E+01_JPRB, 0.68960649E+01_JPRB, 0.10000000E+01_JPRB/)
532
533	!----- INTERVAL = 3 ----- T = 275.0
534
535	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
536	PDGA( 8, 7,:) = (/&
537	&0.77568055E+01_JPRB, 0.70697065E+01_JPRB, 0.00000000E+00_JPRB/)
538	PDGB( 8, 7,:) = (/&
539	&0.77568055E+01_JPRB, 0.72652133E+01_JPRB, 0.10000000E+01_JPRB/)
540	PDGA( 8, 8,:) = (/&
541	&0.68903312E+01_JPRB, 0.65644820E+01_JPRB, 0.00000000E+00_JPRB/)
542	PDGB( 8, 8,:) = (/&
543	&0.68903312E+01_JPRB, 0.67623672E+01_JPRB, 0.10000000E+01_JPRB/)
544
545	!----- INTERVAL = 3 ----- T = 287.5
546
547	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
548	PDGA( 9, 7,:) = (/&
549	&0.75416266E+01_JPRB, 0.69539626E+01_JPRB, 0.00000000E+00_JPRB/)
550	PDGB( 9, 7,:) = (/&
551	&0.75416266E+01_JPRB, 0.71500151E+01_JPRB, 0.10000000E+01_JPRB/)
552	PDGA( 9, 8,:) = (/&
553	&0.67032875E+01_JPRB, 0.64405267E+01_JPRB, 0.00000000E+00_JPRB/)
554	PDGB( 9, 8,:) = (/&
555	&0.67032875E+01_JPRB, 0.66389989E+01_JPRB, 0.10000000E+01_JPRB/)
556
557	!----- INTERVAL = 3 ----- T = 300.0
558
559	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
560	PDGA(10, 7,:) = (/&
561	&0.73491694E+01_JPRB, 0.68455144E+01_JPRB, 0.00000000E+00_JPRB/)
562	PDGB(10, 7,:) = (/&
563	&0.73491694E+01_JPRB, 0.70420667E+01_JPRB, 0.10000000E+01_JPRB/)
564	PDGA(10, 8,:) = (/&
565	&0.65386461E+01_JPRB, 0.63262376E+01_JPRB, 0.00000000E+00_JPRB/)
566	PDGB(10, 8,:) = (/&
567	&0.65386461E+01_JPRB, 0.65252707E+01_JPRB, 0.10000000E+01_JPRB/)
568
569	!----- INTERVAL = 3 ----- T = 312.5
570
571	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
572	PDGA(11, 7,:) = (/&
573	&0.71767400E+01_JPRB, 0.67441020E+01_JPRB, 0.00000000E+00_JPRB/)
574	PDGB(11, 7,:) = (/&
575	&0.71767400E+01_JPRB, 0.69411177E+01_JPRB, 0.10000000E+01_JPRB/)
576	PDGA(11, 8,:) = (/&
577	&0.63934377E+01_JPRB, 0.62210701E+01_JPRB, 0.00000000E+00_JPRB/)
578	PDGB(11, 8,:) = (/&
579	&0.63934377E+01_JPRB, 0.64206412E+01_JPRB, 0.10000000E+01_JPRB/)
580
581
582	!-- WATER VAPOR -- 970-1110 CM-1 ----------------------------------------
583
584	!-- G = 3.6E-03
585
586	!----- INTERVAL = 4 ----- T = 187.5
587
588	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
589	PDGA( 1, 9,:) = (/&
590	&0.24870635E+02_JPRB, 0.10542131E+02_JPRB, 0.00000000E+00_JPRB/)
591	PDGB( 1, 9,:) = (/&
592	&0.24870635E+02_JPRB, 0.10656640E+02_JPRB, 0.10000000E+01_JPRB/)
593	PDGA( 1,10,:) = (/&
594	&0.24586283E+02_JPRB, 0.10490353E+02_JPRB, 0.00000000E+00_JPRB/)
595	PDGB( 1,10,:) = (/&
596	&0.24586283E+02_JPRB, 0.10605856E+02_JPRB, 0.10000000E+01_JPRB/)
597
598	!----- INTERVAL = 4 ----- T = 200.0
599
600	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
601	PDGA( 2, 9,:) = (/&
602	&0.24725591E+02_JPRB, 0.10515895E+02_JPRB, 0.00000000E+00_JPRB/)
603	PDGB( 2, 9,:) = (/&
604	&0.24725591E+02_JPRB, 0.10630910E+02_JPRB, 0.10000000E+01_JPRB/)
605	PDGA( 2,10,:) = (/&
606	&0.24441465E+02_JPRB, 0.10463512E+02_JPRB, 0.00000000E+00_JPRB/)
607	PDGB( 2,10,:) = (/&
608	&0.24441465E+02_JPRB, 0.10579514E+02_JPRB, 0.10000000E+01_JPRB/)
609
610	!----- INTERVAL = 4 ----- T = 212.5
611
612	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
613	PDGA( 3, 9,:) = (/&
614	&0.24600320E+02_JPRB, 0.10492949E+02_JPRB, 0.00000000E+00_JPRB/)
615	PDGB( 3, 9,:) = (/&
616	&0.24600320E+02_JPRB, 0.10608399E+02_JPRB, 0.10000000E+01_JPRB/)
617	PDGA( 3,10,:) = (/&
618	&0.24311657E+02_JPRB, 0.10439183E+02_JPRB, 0.00000000E+00_JPRB/)
619	PDGB( 3,10,:) = (/&
620	&0.24311657E+02_JPRB, 0.10555632E+02_JPRB, 0.10000000E+01_JPRB/)
621
622	!----- INTERVAL = 4 ----- T = 225.0
623
624	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
625	PDGA( 4, 9,:) = (/&
626	&0.24487300E+02_JPRB, 0.10472049E+02_JPRB, 0.00000000E+00_JPRB/)
627	PDGB( 4, 9,:) = (/&
628	&0.24487300E+02_JPRB, 0.10587891E+02_JPRB, 0.10000000E+01_JPRB/)
629	PDGA( 4,10,:) = (/&
630	&0.24196167E+02_JPRB, 0.10417324E+02_JPRB, 0.00000000E+00_JPRB/)
631	PDGB( 4,10,:) = (/&
632	&0.24196167E+02_JPRB, 0.10534169E+02_JPRB, 0.10000000E+01_JPRB/)
633
634	!----- INTERVAL = 4 ----- T = 237.5
635
636	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
637	PDGA( 5, 9,:) = (/&
638	&0.24384935E+02_JPRB, 0.10452961E+02_JPRB, 0.00000000E+00_JPRB/)
639	PDGB( 5, 9,:) = (/&
640	&0.24384935E+02_JPRB, 0.10569156E+02_JPRB, 0.10000000E+01_JPRB/)
641	PDGA( 5,10,:) = (/&
642	&0.24093406E+02_JPRB, 0.10397704E+02_JPRB, 0.00000000E+00_JPRB/)
643	PDGB( 5,10,:) = (/&
644	&0.24093406E+02_JPRB, 0.10514900E+02_JPRB, 0.10000000E+01_JPRB/)
645
646	!----- INTERVAL = 4 ----- T = 250.0
647
648	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
649	PDGA( 6, 9,:) = (/&
650	&0.24292341E+02_JPRB, 0.10435562E+02_JPRB, 0.00000000E+00_JPRB/)
651	PDGB( 6, 9,:) = (/&
652	&0.24292341E+02_JPRB, 0.10552075E+02_JPRB, 0.10000000E+01_JPRB/)
653	PDGA( 6,10,:) = (/&
654	&0.24001597E+02_JPRB, 0.10380038E+02_JPRB, 0.00000000E+00_JPRB/)
655	PDGB( 6,10,:) = (/&
656	&0.24001597E+02_JPRB, 0.10497547E+02_JPRB, 0.10000000E+01_JPRB/)
657
658	!----- INTERVAL = 4 ----- T = 262.5
659
660	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
661	PDGA( 7, 9,:) = (/&
662	&0.24208572E+02_JPRB, 0.10419710E+02_JPRB, 0.00000000E+00_JPRB/)
663	PDGB( 7, 9,:) = (/&
664	&0.24208572E+02_JPRB, 0.10536510E+02_JPRB, 0.10000000E+01_JPRB/)
665	PDGA( 7,10,:) = (/&
666	&0.23919098E+02_JPRB, 0.10364052E+02_JPRB, 0.00000000E+00_JPRB/)
667	PDGB( 7,10,:) = (/&
668	&0.23919098E+02_JPRB, 0.10481842E+02_JPRB, 0.10000000E+01_JPRB/)
669
670	!----- INTERVAL = 4 ----- T = 275.0
671
672	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
673	PDGA( 8, 9,:) = (/&
674	&0.24132642E+02_JPRB, 0.10405247E+02_JPRB, 0.00000000E+00_JPRB/)
675	PDGB( 8, 9,:) = (/&
676	&0.24132642E+02_JPRB, 0.10522307E+02_JPRB, 0.10000000E+01_JPRB/)
677	PDGA( 8,10,:) = (/&
678	&0.23844511E+02_JPRB, 0.10349509E+02_JPRB, 0.00000000E+00_JPRB/)
679	PDGB( 8,10,:) = (/&
680	&0.23844511E+02_JPRB, 0.10467553E+02_JPRB, 0.10000000E+01_JPRB/)
681
682	!----- INTERVAL = 4 ----- T = 287.5
683
684	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
685	PDGA( 9, 9,:) = (/&
686	&0.24063614E+02_JPRB, 0.10392022E+02_JPRB, 0.00000000E+00_JPRB/)
687	PDGB( 9, 9,:) = (/&
688	&0.24063614E+02_JPRB, 0.10509317E+02_JPRB, 0.10000000E+01_JPRB/)
689	PDGA( 9,10,:) = (/&
690	&0.23776708E+02_JPRB, 0.10336215E+02_JPRB, 0.00000000E+00_JPRB/)
691	PDGB( 9,10,:) = (/&
692	&0.23776708E+02_JPRB, 0.10454488E+02_JPRB, 0.10000000E+01_JPRB/)
693
694	!----- INTERVAL = 4 ----- T = 300.0
695
696	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
697	PDGA(10, 9,:) = (/&
698	&0.24000649E+02_JPRB, 0.10379892E+02_JPRB, 0.00000000E+00_JPRB/)
699	PDGB(10, 9,:) = (/&
700	&0.24000649E+02_JPRB, 0.10497402E+02_JPRB, 0.10000000E+01_JPRB/)
701	PDGA(10,10,:) = (/&
702	&0.23714816E+02_JPRB, 0.10324018E+02_JPRB, 0.00000000E+00_JPRB/)
703	PDGB(10,10,:) = (/&
704	&0.23714816E+02_JPRB, 0.10442501E+02_JPRB, 0.10000000E+01_JPRB/)
705
706	!----- INTERVAL = 4 ----- T = 312.5
707
708	!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
709	PDGA(11, 9,:) = (/&
710	&0.23943021E+02_JPRB, 0.10368736E+02_JPRB, 0.00000000E+00_JPRB/)
711	PDGB(11, 9,:) = (/&
712	&0.23943021E+02_JPRB, 0.10486443E+02_JPRB, 0.10000000E+01_JPRB/)
713	PDGA(11,10,:) = (/&
714	&0.23658197E+02_JPRB, 0.10312808E+02_JPRB, 0.00000000E+00_JPRB/)
715	PDGB(11,10,:) = (/&
716	&0.23658197E+02_JPRB, 0.10431483E+02_JPRB, 0.10000000E+01_JPRB/)
717
718
719
720	!-- H2O -- WEAKER PARTS OF THE STRONG BANDS -- FROM ABS225 ----
721
722	!-- WATER VAPOR --- 350 - 500 CM-1
723
724	!-- G = - 0.2*SLA, 0.0 +0.5/(1+0.5U)
725
726	!----- INTERVAL = 5 ----- T = 187.5
727
728	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
729	PDGA( 1, 5,:) = (/&
730	&0.15750172E+00_JPRB,-0.22159303E-01_JPRB, 0.00000000E+00_JPRB/)
731	PDGB( 1, 5,:) = (/&
732	&0.15750172E+00_JPRB, 0.38103212E+00_JPRB, 0.10000000E+01_JPRB/)
733	PDGA( 1, 6,:) = (/&
734	&0.17770551E+00_JPRB,-0.24972399E-01_JPRB, 0.00000000E+00_JPRB/)
735	PDGB( 1, 6,:) = (/&
736	&0.17770551E+00_JPRB, 0.41646579E+00_JPRB, 0.10000000E+01_JPRB/)
737
738	!----- INTERVAL = 5 ----- T = 200.0
739
740	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
741	PDGA( 2, 5,:) = (/&
742	&0.16174076E+00_JPRB,-0.22748917E-01_JPRB, 0.00000000E+00_JPRB/)
743	PDGB( 2, 5,:) = (/&
744	&0.16174076E+00_JPRB, 0.38913800E+00_JPRB, 0.10000000E+01_JPRB/)
745	PDGA( 2, 6,:) = (/&
746	&0.18176757E+00_JPRB,-0.25537247E-01_JPRB, 0.00000000E+00_JPRB/)
747	PDGB( 2, 6,:) = (/&
748	&0.18176757E+00_JPRB, 0.42345095E+00_JPRB, 0.10000000E+01_JPRB/)
749
750	!----- INTERVAL = 5 ----- T = 212.5
751
752	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
753	PDGA( 3, 5,:) = (/&
754	&0.16548628E+00_JPRB,-0.23269898E-01_JPRB, 0.00000000E+00_JPRB/)
755	PDGB( 3, 5,:) = (/&
756	&0.16548628E+00_JPRB, 0.39613651E+00_JPRB, 0.10000000E+01_JPRB/)
757	PDGA( 3, 6,:) = (/&
758	&0.18527967E+00_JPRB,-0.26025624E-01_JPRB, 0.00000000E+00_JPRB/)
759	PDGB( 3, 6,:) = (/&
760	&0.18527967E+00_JPRB, 0.42937476E+00_JPRB, 0.10000000E+01_JPRB/)
761
762	!----- INTERVAL = 5 ----- T = 225.0
763
764	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
765	PDGA( 4, 5,:) = (/&
766	&0.16881124E+00_JPRB,-0.23732392E-01_JPRB, 0.00000000E+00_JPRB/)
767	PDGB( 4, 5,:) = (/&
768	&0.16881124E+00_JPRB, 0.40222421E+00_JPRB, 0.10000000E+01_JPRB/)
769	PDGA( 4, 6,:) = (/&
770	&0.18833348E+00_JPRB,-0.26450280E-01_JPRB, 0.00000000E+00_JPRB/)
771	PDGB( 4, 6,:) = (/&
772	&0.18833348E+00_JPRB, 0.43444062E+00_JPRB, 0.10000000E+01_JPRB/)
773
774	!----- INTERVAL = 5 ----- T = 237.5
775
776	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
777	PDGA( 5, 5,:) = (/&
778	&0.17177839E+00_JPRB,-0.24145123E-01_JPRB, 0.00000000E+00_JPRB/)
779	PDGB( 5, 5,:) = (/&
780	&0.17177839E+00_JPRB, 0.40756010E+00_JPRB, 0.10000000E+01_JPRB/)
781	PDGA( 5, 6,:) = (/&
782	&0.19100108E+00_JPRB,-0.26821236E-01_JPRB, 0.00000000E+00_JPRB/)
783	PDGB( 5, 6,:) = (/&
784	&0.19100108E+00_JPRB, 0.43880316E+00_JPRB, 0.10000000E+01_JPRB/)
785
786	!----- INTERVAL = 5 ----- T = 250.0
787
788	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
789	PDGA( 6, 5,:) = (/&
790	&0.17443933E+00_JPRB,-0.24515269E-01_JPRB, 0.00000000E+00_JPRB/)
791	PDGB( 6, 5,:) = (/&
792	&0.17443933E+00_JPRB, 0.41226954E+00_JPRB, 0.10000000E+01_JPRB/)
793	PDGA( 6, 6,:) = (/&
794	&0.19334122E+00_JPRB,-0.27146657E-01_JPRB, 0.00000000E+00_JPRB/)
795	PDGB( 6, 6,:) = (/&
796	&0.19334122E+00_JPRB, 0.44258354E+00_JPRB, 0.10000000E+01_JPRB/)
797
798	!----- INTERVAL = 5 ----- T = 262.5
799
800	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
801	PDGA( 7, 5,:) = (/&
802	&0.17683622E+00_JPRB,-0.24848690E-01_JPRB, 0.00000000E+00_JPRB/)
803	PDGB( 7, 5,:) = (/&
804	&0.17683622E+00_JPRB, 0.41645142E+00_JPRB, 0.10000000E+01_JPRB/)
805	PDGA( 7, 6,:) = (/&
806	&0.19540288E+00_JPRB,-0.27433354E-01_JPRB, 0.00000000E+00_JPRB/)
807	PDGB( 7, 6,:) = (/&
808	&0.19540288E+00_JPRB, 0.44587882E+00_JPRB, 0.10000000E+01_JPRB/)
809
810	!----- INTERVAL = 5 ----- T = 275.0
811
812	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
813	PDGA( 8, 5,:) = (/&
814	&0.17900375E+00_JPRB,-0.25150210E-01_JPRB, 0.00000000E+00_JPRB/)
815	PDGB( 8, 5,:) = (/&
816	&0.17900375E+00_JPRB, 0.42018474E+00_JPRB, 0.10000000E+01_JPRB/)
817	PDGA( 8, 6,:) = (/&
818	&0.19722732E+00_JPRB,-0.27687065E-01_JPRB, 0.00000000E+00_JPRB/)
819	PDGB( 8, 6,:) = (/&
820	&0.19722732E+00_JPRB, 0.44876776E+00_JPRB, 0.10000000E+01_JPRB/)
821
822	!----- INTERVAL = 5 ----- T = 287.5
823
824	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
825	PDGA( 9, 5,:) = (/&
826	&0.18097099E+00_JPRB,-0.25423873E-01_JPRB, 0.00000000E+00_JPRB/)
827	PDGB( 9, 5,:) = (/&
828	&0.18097099E+00_JPRB, 0.42353379E+00_JPRB, 0.10000000E+01_JPRB/)
829	PDGA( 9, 6,:) = (/&
830	&0.19884918E+00_JPRB,-0.27912608E-01_JPRB, 0.00000000E+00_JPRB/)
831	PDGB( 9, 6,:) = (/&
832	&0.19884918E+00_JPRB, 0.45131451E+00_JPRB, 0.10000000E+01_JPRB/)
833
834	!----- INTERVAL = 5 ----- T = 300.0
835
836	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
837	PDGA(10, 5,:) = (/&
838	&0.18276283E+00_JPRB,-0.25673139E-01_JPRB, 0.00000000E+00_JPRB/)
839	PDGB(10, 5,:) = (/&
840	&0.18276283E+00_JPRB, 0.42655211E+00_JPRB, 0.10000000E+01_JPRB/)
841	PDGA(10, 6,:) = (/&
842	&0.20029696E+00_JPRB,-0.28113944E-01_JPRB, 0.00000000E+00_JPRB/)
843	PDGB(10, 6,:) = (/&
844	&0.20029696E+00_JPRB, 0.45357095E+00_JPRB, 0.10000000E+01_JPRB/)
845
846	!----- INTERVAL = 5 ----- T = 312.5
847
848	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
849	PDGA(11, 5,:) = (/&
850	&0.18440117E+00_JPRB,-0.25901055E-01_JPRB, 0.00000000E+00_JPRB/)
851	PDGB(11, 5,:) = (/&
852	&0.18440117E+00_JPRB, 0.42928533E+00_JPRB, 0.10000000E+01_JPRB/)
853	PDGA(11, 6,:) = (/&
854	&0.20159300E+00_JPRB,-0.28294180E-01_JPRB, 0.00000000E+00_JPRB/)
855	PDGB(11, 6,:) = (/&
856	&0.20159300E+00_JPRB, 0.45557797E+00_JPRB, 0.10000000E+01_JPRB/)
857
858
859
860
861	!- WATER VAPOR - WINGS OF VIBRATION-ROTATION BAND - 1250-1450+1880-2820 -
862	!--- G = 0.0
863
864
865	!----- INTERVAL = 6 ----- T = 187.5
866
867	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
868	PDGA( 1,11,:) = (/&
869	&0.11990218E+02_JPRB,-0.12823142E+01_JPRB, 0.00000000E+00_JPRB/)
870	PDGB( 1,11,:) = (/&
871	&0.11990218E+02_JPRB, 0.26681588E+02_JPRB, 0.10000000E+01_JPRB/)
872	PDGA( 1,12,:) = (/&
873	&0.79709806E+01_JPRB,-0.74805226E+00_JPRB, 0.00000000E+00_JPRB/)
874	PDGB( 1,12,:) = (/&
875	&0.79709806E+01_JPRB, 0.18377807E+02_JPRB, 0.10000000E+01_JPRB/)
876
877	!----- INTERVAL = 6 ----- T = 200.0
878
879	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
880	PDGA( 2,11,:) = (/&
881	&0.10904073E+02_JPRB,-0.10571588E+01_JPRB, 0.00000000E+00_JPRB/)
882	PDGB( 2,11,:) = (/&
883	&0.10904073E+02_JPRB, 0.24728346E+02_JPRB, 0.10000000E+01_JPRB/)
884	PDGA( 2,12,:) = (/&
885	&0.75400737E+01_JPRB,-0.56252739E+00_JPRB, 0.00000000E+00_JPRB/)
886	PDGB( 2,12,:) = (/&
887	&0.75400737E+01_JPRB, 0.17643148E+02_JPRB, 0.10000000E+01_JPRB/)
888
889	!----- INTERVAL = 6 ----- T = 212.5
890
891	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
892	PDGA( 3,11,:) = (/&
893	&0.89126838E+01_JPRB,-0.74864953E+00_JPRB, 0.00000000E+00_JPRB/)
894	PDGB( 3,11,:) = (/&
895	&0.89126838E+01_JPRB, 0.20551342E+02_JPRB, 0.10000000E+01_JPRB/)
896	PDGA( 3,12,:) = (/&
897	&0.81804377E+01_JPRB,-0.46188072E+00_JPRB, 0.00000000E+00_JPRB/)
898	PDGB( 3,12,:) = (/&
899	&0.81804377E+01_JPRB, 0.19296161E+02_JPRB, 0.10000000E+01_JPRB/)
900
901	!----- INTERVAL = 6 ----- T = 225.0
902
903	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
904	PDGA( 4,11,:) = (/&
905	&0.85622405E+01_JPRB,-0.58705980E+00_JPRB, 0.00000000E+00_JPRB/)
906	PDGB( 4,11,:) = (/&
907	&0.85622405E+01_JPRB, 0.19955244E+02_JPRB, 0.10000000E+01_JPRB/)
908	PDGA( 4,12,:) = (/&
909	&0.10564339E+02_JPRB,-0.40712065E+00_JPRB, 0.00000000E+00_JPRB/)
910	PDGB( 4,12,:) = (/&
911	&0.10564339E+02_JPRB, 0.24951120E+02_JPRB, 0.10000000E+01_JPRB/)
912
913	!----- INTERVAL = 6 ----- T = 237.5
914
915	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
916	PDGA( 5,11,:) = (/&
917	&0.94892164E+01_JPRB,-0.49305772E+00_JPRB, 0.00000000E+00_JPRB/)
918	PDGB( 5,11,:) = (/&
919	&0.94892164E+01_JPRB, 0.22227100E+02_JPRB, 0.10000000E+01_JPRB/)
920	PDGA( 5,12,:) = (/&
921	&0.46896789E+02_JPRB,-0.15295996E+01_JPRB, 0.00000000E+00_JPRB/)
922	PDGB( 5,12,:) = (/&
923	&0.46896789E+02_JPRB, 0.10957372E+03_JPRB, 0.10000000E+01_JPRB/)
924
925	!----- INTERVAL = 6 ----- T = 250.0
926
927	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
928	PDGA( 6,11,:) = (/&
929	&0.13580937E+02_JPRB,-0.51461431E+00_JPRB, 0.00000000E+00_JPRB/)
930	PDGB( 6,11,:) = (/&
931	&0.13580937E+02_JPRB, 0.31770288E+02_JPRB, 0.10000000E+01_JPRB/)
932	PDGA( 6,12,:) = (/&
933	&-0.30926524E+01_JPRB, 0.43555255E+00_JPRB, 0.00000000E+00_JPRB/)
934	PDGB( 6,12,:) = (/&
935	&-0.30926524E+01_JPRB,-0.67432659E+01_JPRB, 0.10000000E+01_JPRB/)
936
937	!----- INTERVAL = 6 ----- T = 262.5
938
939	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
940	PDGA( 7,11,:) = (/&
941	&-0.32050918E+03_JPRB, 0.12373350E+02_JPRB, 0.00000000E+00_JPRB/)
942	PDGB( 7,11,:) = (/&
943	&-0.32050918E+03_JPRB,-0.74061287E+03_JPRB, 0.10000000E+01_JPRB/)
944	PDGA( 7,12,:) = (/&
945	&0.85742941E+00_JPRB, 0.50380874E+00_JPRB, 0.00000000E+00_JPRB/)
946	PDGB( 7,12,:) = (/&
947	&0.85742941E+00_JPRB, 0.24550746E+01_JPRB, 0.10000000E+01_JPRB/)
948
949	!----- INTERVAL = 6 ----- T = 275.0
950
951	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
952	PDGA( 8,11,:) = (/&
953	&-0.37133165E+01_JPRB, 0.44809588E+00_JPRB, 0.00000000E+00_JPRB/)
954	PDGB( 8,11,:) = (/&
955	&-0.37133165E+01_JPRB,-0.81329826E+01_JPRB, 0.10000000E+01_JPRB/)
956	PDGA( 8,12,:) = (/&
957	&0.19164038E+01_JPRB, 0.68537352E+00_JPRB, 0.00000000E+00_JPRB/)
958	PDGB( 8,12,:) = (/&
959	&0.19164038E+01_JPRB, 0.49089917E+01_JPRB, 0.10000000E+01_JPRB/)
960
961	!----- INTERVAL = 6 ----- T = 287.5
962
963	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
964	PDGA( 9,11,:) = (/&
965	&0.18890836E+00_JPRB, 0.46548918E+00_JPRB, 0.00000000E+00_JPRB/)
966	PDGB( 9,11,:) = (/&
967	&0.18890836E+00_JPRB, 0.90279822E+00_JPRB, 0.10000000E+01_JPRB/)
968	PDGA( 9,12,:) = (/&
969	&0.23513199E+01_JPRB, 0.89437630E+00_JPRB, 0.00000000E+00_JPRB/)
970	PDGB( 9,12,:) = (/&
971	&0.23513199E+01_JPRB, 0.59008712E+01_JPRB, 0.10000000E+01_JPRB/)
972
973	!----- INTERVAL = 6 ----- T = 300.0
974
975	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
976	PDGA(10,11,:) = (/&
977	&0.14209226E+01_JPRB, 0.59121475E+00_JPRB, 0.00000000E+00_JPRB/)
978	PDGB(10,11,:) = (/&
979	&0.14209226E+01_JPRB, 0.37532746E+01_JPRB, 0.10000000E+01_JPRB/)
980	PDGA(10,12,:) = (/&
981	&0.25566644E+01_JPRB, 0.11127003E+01_JPRB, 0.00000000E+00_JPRB/)
982	PDGB(10,12,:) = (/&
983	&0.25566644E+01_JPRB, 0.63532616E+01_JPRB, 0.10000000E+01_JPRB/)
984
985	!----- INTERVAL = 6 ----- T = 312.5
986
987	!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
988	PDGA(11,11,:) = (/&
989	&0.19817679E+01_JPRB, 0.74676119E+00_JPRB, 0.00000000E+00_JPRB/)
990	PDGB(11,11,:) = (/&
991	&0.19817679E+01_JPRB, 0.50437916E+01_JPRB, 0.10000000E+01_JPRB/)
992	PDGA(11,12,:) = (/&
993	&0.26555181E+01_JPRB, 0.13329782E+01_JPRB, 0.00000000E+00_JPRB/)
994	PDGB(11,12,:) = (/&
995	&0.26555181E+01_JPRB, 0.65558627E+01_JPRB, 0.10000000E+01_JPRB/)
996
997
998
999
1000
1001	!-- END WATER VAPOR
1002
1003
1004	!-- CO2 -- INT.2 -- 500-800 CM-1 --- FROM ABS225 ----------------------
1005
1006
1007
1008	!-- FIU = 0.8 + MAX(0.35,(7-IU)*0.9) , X/T, 9
1009
1010	!----- INTERVAL = 2 ----- T = 187.5
1011
1012	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
1013	PDGA( 1,13,:) = (/&
1014	&0.87668459E-01_JPRB, 0.13845511E+01_JPRB, 0.00000000E+00_JPRB/)
1015	PDGB( 1,13,:) = (/&
1016	&0.87668459E-01_JPRB, 0.23203798E+01_JPRB, 0.10000000E+01_JPRB/)
1017	PDGA( 1,14,:) = (/&
1018	&0.74878820E-01_JPRB, 0.11718758E+01_JPRB, 0.00000000E+00_JPRB/)
1019	PDGB( 1,14,:) = (/&
1020	&0.74878820E-01_JPRB, 0.20206726E+01_JPRB, 0.10000000E+01_JPRB/)
1021
1022	!----- INTERVAL = 2 ----- T = 200.0
1023
1024	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
1025	PDGA( 2,13,:) = (/&
1026	&0.83754276E-01_JPRB, 0.13187042E+01_JPRB, 0.00000000E+00_JPRB/)
1027	PDGB( 2,13,:) = (/&
1028	&0.83754276E-01_JPRB, 0.22288925E+01_JPRB, 0.10000000E+01_JPRB/)
1029	PDGA( 2,14,:) = (/&
1030	&0.71650966E-01_JPRB, 0.11216131E+01_JPRB, 0.00000000E+00_JPRB/)
1031	PDGB( 2,14,:) = (/&
1032	&0.71650966E-01_JPRB, 0.19441824E+01_JPRB, 0.10000000E+01_JPRB/)
1033
1034	!----- INTERVAL = 2 ----- T = 212.5
1035
1036	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
1037	PDGA( 3,13,:) = (/&
1038	&0.80460283E-01_JPRB, 0.12644396E+01_JPRB, 0.00000000E+00_JPRB/)
1039	PDGB( 3,13,:) = (/&
1040	&0.80460283E-01_JPRB, 0.21515593E+01_JPRB, 0.10000000E+01_JPRB/)
1041	PDGA( 3,14,:) = (/&
1042	&0.68979615E-01_JPRB, 0.10809473E+01_JPRB, 0.00000000E+00_JPRB/)
1043	PDGB( 3,14,:) = (/&
1044	&0.68979615E-01_JPRB, 0.18807257E+01_JPRB, 0.10000000E+01_JPRB/)
1045
1046	!----- INTERVAL = 2 ----- T = 225.0
1047
1048	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
1049	PDGA( 4,13,:) = (/&
1050	&0.77659686E-01_JPRB, 0.12191543E+01_JPRB, 0.00000000E+00_JPRB/)
1051	PDGB( 4,13,:) = (/&
1052	&0.77659686E-01_JPRB, 0.20855896E+01_JPRB, 0.10000000E+01_JPRB/)
1053	PDGA( 4,14,:) = (/&
1054	&0.66745345E-01_JPRB, 0.10476396E+01_JPRB, 0.00000000E+00_JPRB/)
1055	PDGB( 4,14,:) = (/&
1056	&0.66745345E-01_JPRB, 0.18275618E+01_JPRB, 0.10000000E+01_JPRB/)
1057
1058	!----- INTERVAL = 2 ----- T = 237.5
1059
1060	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
1061	PDGA( 5,13,:) = (/&
1062	&0.75257056E-01_JPRB, 0.11809511E+01_JPRB, 0.00000000E+00_JPRB/)
1063	PDGB( 5,13,:) = (/&
1064	&0.75257056E-01_JPRB, 0.20288489E+01_JPRB, 0.10000000E+01_JPRB/)
1065	PDGA( 5,14,:) = (/&
1066	&0.64857571E-01_JPRB, 0.10200373E+01_JPRB, 0.00000000E+00_JPRB/)
1067	PDGB( 5,14,:) = (/&
1068	&0.64857571E-01_JPRB, 0.17825910E+01_JPRB, 0.10000000E+01_JPRB/)
1069
1070	!----- INTERVAL = 2 ----- T = 250.0
1071
1072	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
1073	PDGA( 6,13,:) = (/&
1074	&0.73179175E-01_JPRB, 0.11484154E+01_JPRB, 0.00000000E+00_JPRB/)
1075	PDGB( 6,13,:) = (/&
1076	&0.73179175E-01_JPRB, 0.19796791E+01_JPRB, 0.10000000E+01_JPRB/)
1077	PDGA( 6,14,:) = (/&
1078	&0.63248495E-01_JPRB, 0.99692726E+00_JPRB, 0.00000000E+00_JPRB/)
1079	PDGB( 6,14,:) = (/&
1080	&0.63248495E-01_JPRB, 0.17442308E+01_JPRB, 0.10000000E+01_JPRB/)
1081
1082	!----- INTERVAL = 2 ----- T = 262.5
1083
1084	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
1085	PDGA( 7,13,:) = (/&
1086	&0.71369063E-01_JPRB, 0.11204723E+01_JPRB, 0.00000000E+00_JPRB/)
1087	PDGB( 7,13,:) = (/&
1088	&0.71369063E-01_JPRB, 0.19367778E+01_JPRB, 0.10000000E+01_JPRB/)
1089	PDGA( 7,14,:) = (/&
1090	&0.61866970E-01_JPRB, 0.97740923E+00_JPRB, 0.00000000E+00_JPRB/)
1091	PDGB( 7,14,:) = (/&
1092	&0.61866970E-01_JPRB, 0.17112809E+01_JPRB, 0.10000000E+01_JPRB/)
1093
1094	!----- INTERVAL = 2 ----- T = 275.0
1095
1096	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
1097	PDGA( 8,13,:) = (/&
1098	&0.69781812E-01_JPRB, 0.10962918E+01_JPRB, 0.00000000E+00_JPRB/)
1099	PDGB( 8,13,:) = (/&
1100	&0.69781812E-01_JPRB, 0.18991112E+01_JPRB, 0.10000000E+01_JPRB/)
1101	PDGA( 8,14,:) = (/&
1102	&0.60673632E-01_JPRB, 0.96080188E+00_JPRB, 0.00000000E+00_JPRB/)
1103	PDGB( 8,14,:) = (/&
1104	&0.60673632E-01_JPRB, 0.16828137E+01_JPRB, 0.10000000E+01_JPRB/)
1105
1106	!----- INTERVAL = 2 ----- T = 287.5
1107
1108	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
1109	PDGA( 9,13,:) = (/&
1110	&0.68381606E-01_JPRB, 0.10752229E+01_JPRB, 0.00000000E+00_JPRB/)
1111	PDGB( 9,13,:) = (/&
1112	&0.68381606E-01_JPRB, 0.18658501E+01_JPRB, 0.10000000E+01_JPRB/)
1113	PDGA( 9,14,:) = (/&
1114	&0.59637277E-01_JPRB, 0.94657562E+00_JPRB, 0.00000000E+00_JPRB/)
1115	PDGB( 9,14,:) = (/&
1116	&0.59637277E-01_JPRB, 0.16580908E+01_JPRB, 0.10000000E+01_JPRB/)
1117
1118	!----- INTERVAL = 2 ----- T = 300.0
1119
1120	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
1121	PDGA(10,13,:) = (/&
1122	&0.67139539E-01_JPRB, 0.10567474E+01_JPRB, 0.00000000E+00_JPRB/)
1123	PDGB(10,13,:) = (/&
1124	&0.67139539E-01_JPRB, 0.18363226E+01_JPRB, 0.10000000E+01_JPRB/)
1125	PDGA(10,14,:) = (/&
1126	&0.58732178E-01_JPRB, 0.93430511E+00_JPRB, 0.00000000E+00_JPRB/)
1127	PDGB(10,14,:) = (/&
1128	&0.58732178E-01_JPRB, 0.16365014E+01_JPRB, 0.10000000E+01_JPRB/)
1129
1130	!----- INTERVAL = 2 ----- T = 312.5
1131
1132	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
1133	PDGA(11,13,:) = (/&
1134	&0.66032012E-01_JPRB, 0.10404465E+01_JPRB, 0.00000000E+00_JPRB/)
1135	PDGB(11,13,:) = (/&
1136	&0.66032012E-01_JPRB, 0.18099779E+01_JPRB, 0.10000000E+01_JPRB/)
1137	PDGA(11,14,:) = (/&
1138	&0.57936092E-01_JPRB, 0.92363528E+00_JPRB, 0.00000000E+00_JPRB/)
1139	PDGB(11,14,:) = (/&
1140	&0.57936092E-01_JPRB, 0.16175164E+01_JPRB, 0.10000000E+01_JPRB/)
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151	!-- CARBON DIOXIDE LINES IN THE WINDOW REGION (800-1250 CM-1)
1152
1153
1154	!-- G = 0.0
1155
1156
1157	!----- INTERVAL = 4 ----- T = 187.5
1158
1159	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1160	PDGA( 1,15,:) = (/&
1161	&0.13230067E+02_JPRB, 0.22042132E+02_JPRB, 0.00000000E+00_JPRB/)
1162	PDGB( 1,15,:) = (/&
1163	&0.13230067E+02_JPRB, 0.22051750E+02_JPRB, 0.10000000E+01_JPRB/)
1164	PDGA( 1,16,:) = (/&
1165	&0.13183816E+02_JPRB, 0.22169501E+02_JPRB, 0.00000000E+00_JPRB/)
1166	PDGB( 1,16,:) = (/&
1167	&0.13183816E+02_JPRB, 0.22178972E+02_JPRB, 0.10000000E+01_JPRB/)
1168
1169	!----- INTERVAL = 4 ----- T = 200.0
1170
1171	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1172	PDGA( 2,15,:) = (/&
1173	&0.13213564E+02_JPRB, 0.22107298E+02_JPRB, 0.00000000E+00_JPRB/)
1174	PDGB( 2,15,:) = (/&
1175	&0.13213564E+02_JPRB, 0.22116850E+02_JPRB, 0.10000000E+01_JPRB/)
1176	PDGA( 2,16,:) = (/&
1177	&0.13189991E+02_JPRB, 0.22270075E+02_JPRB, 0.00000000E+00_JPRB/)
1178	PDGB( 2,16,:) = (/&
1179	&0.13189991E+02_JPRB, 0.22279484E+02_JPRB, 0.10000000E+01_JPRB/)
1180
1181	!----- INTERVAL = 4 ----- T = 212.5
1182
1183	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1184	PDGA( 3,15,:) = (/&
1185	&0.13209140E+02_JPRB, 0.22180915E+02_JPRB, 0.00000000E+00_JPRB/)
1186	PDGB( 3,15,:) = (/&
1187	&0.13209140E+02_JPRB, 0.22190410E+02_JPRB, 0.10000000E+01_JPRB/)
1188	PDGA( 3,16,:) = (/&
1189	&0.13209485E+02_JPRB, 0.22379193E+02_JPRB, 0.00000000E+00_JPRB/)
1190	PDGB( 3,16,:) = (/&
1191	&0.13209485E+02_JPRB, 0.22388551E+02_JPRB, 0.10000000E+01_JPRB/)
1192
1193	!----- INTERVAL = 4 ----- T = 225.0
1194
1195	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1196	PDGA( 4,15,:) = (/&
1197	&0.13213894E+02_JPRB, 0.22259478E+02_JPRB, 0.00000000E+00_JPRB/)
1198	PDGB( 4,15,:) = (/&
1199	&0.13213894E+02_JPRB, 0.22268925E+02_JPRB, 0.10000000E+01_JPRB/)
1200	PDGA( 4,16,:) = (/&
1201	&0.13238789E+02_JPRB, 0.22492992E+02_JPRB, 0.00000000E+00_JPRB/)
1202	PDGB( 4,16,:) = (/&
1203	&0.13238789E+02_JPRB, 0.22502309E+02_JPRB, 0.10000000E+01_JPRB/)
1204
1205	!----- INTERVAL = 4 ----- T = 237.5
1206
1207	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1208	PDGA( 5,15,:) = (/&
1209	&0.13225963E+02_JPRB, 0.22341039E+02_JPRB, 0.00000000E+00_JPRB/)
1210	PDGB( 5,15,:) = (/&
1211	&0.13225963E+02_JPRB, 0.22350445E+02_JPRB, 0.10000000E+01_JPRB/)
1212	PDGA( 5,16,:) = (/&
1213	&0.13275017E+02_JPRB, 0.22608508E+02_JPRB, 0.00000000E+00_JPRB/)
1214	PDGB( 5,16,:) = (/&
1215	&0.13275017E+02_JPRB, 0.22617792E+02_JPRB, 0.10000000E+01_JPRB/)
1216
1217	!----- INTERVAL = 4 ----- T = 250.0
1218
1219	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1220	PDGA( 6,15,:) = (/&
1221	&0.13243806E+02_JPRB, 0.22424247E+02_JPRB, 0.00000000E+00_JPRB/)
1222	PDGB( 6,15,:) = (/&
1223	&0.13243806E+02_JPRB, 0.22433617E+02_JPRB, 0.10000000E+01_JPRB/)
1224	PDGA( 6,16,:) = (/&
1225	&0.13316096E+02_JPRB, 0.22723843E+02_JPRB, 0.00000000E+00_JPRB/)
1226	PDGB( 6,16,:) = (/&
1227	&0.13316096E+02_JPRB, 0.22733099E+02_JPRB, 0.10000000E+01_JPRB/)
1228
1229	!----- INTERVAL = 4 ----- T = 262.5
1230
1231	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1232	PDGA( 7,15,:) = (/&
1233	&0.13266104E+02_JPRB, 0.22508089E+02_JPRB, 0.00000000E+00_JPRB/)
1234	PDGB( 7,15,:) = (/&
1235	&0.13266104E+02_JPRB, 0.22517429E+02_JPRB, 0.10000000E+01_JPRB/)
1236	PDGA( 7,16,:) = (/&
1237	&0.13360555E+02_JPRB, 0.22837837E+02_JPRB, 0.00000000E+00_JPRB/)
1238	PDGB( 7,16,:) = (/&
1239	&0.13360555E+02_JPRB, 0.22847071E+02_JPRB, 0.10000000E+01_JPRB/)
1240
1241	!----- INTERVAL = 4 ----- T = 275.0
1242
1243	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1244	PDGA( 8,15,:) = (/&
1245	&0.13291782E+02_JPRB, 0.22591771E+02_JPRB, 0.00000000E+00_JPRB/)
1246	PDGB( 8,15,:) = (/&
1247	&0.13291782E+02_JPRB, 0.22601086E+02_JPRB, 0.10000000E+01_JPRB/)
1248	PDGA( 8,16,:) = (/&
1249	&0.13407324E+02_JPRB, 0.22949751E+02_JPRB, 0.00000000E+00_JPRB/)
1250	PDGB( 8,16,:) = (/&
1251	&0.13407324E+02_JPRB, 0.22958967E+02_JPRB, 0.10000000E+01_JPRB/)
1252
1253	!----- INTERVAL = 4 ----- T = 287.5
1254
1255	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1256	PDGA( 9,15,:) = (/&
1257	&0.13319961E+02_JPRB, 0.22674661E+02_JPRB, 0.00000000E+00_JPRB/)
1258	PDGB( 9,15,:) = (/&
1259	&0.13319961E+02_JPRB, 0.22683956E+02_JPRB, 0.10000000E+01_JPRB/)
1260	PDGA( 9,16,:) = (/&
1261	&0.13455544E+02_JPRB, 0.23059032E+02_JPRB, 0.00000000E+00_JPRB/)
1262	PDGB( 9,16,:) = (/&
1263	&0.13455544E+02_JPRB, 0.23068234E+02_JPRB, 0.10000000E+01_JPRB/)
1264
1265	!----- INTERVAL = 4 ----- T = 300.0
1266
1267	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1268	PDGA(10,15,:) = (/&
1269	&0.13349927E+02_JPRB, 0.22756246E+02_JPRB, 0.00000000E+00_JPRB/)
1270	PDGB(10,15,:) = (/&
1271	&0.13349927E+02_JPRB, 0.22765522E+02_JPRB, 0.10000000E+01_JPRB/)
1272	PDGA(10,16,:) = (/&
1273	&0.13504450E+02_JPRB, 0.23165146E+02_JPRB, 0.00000000E+00_JPRB/)
1274	PDGB(10,16,:) = (/&
1275	&0.13504450E+02_JPRB, 0.23174336E+02_JPRB, 0.10000000E+01_JPRB/)
1276
1277	!----- INTERVAL = 4 ----- T = 312.5
1278
1279	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1280	PDGA(11,15,:) = (/&
1281	&0.13381108E+02_JPRB, 0.22836093E+02_JPRB, 0.00000000E+00_JPRB/)
1282	PDGB(11,15,:) = (/&
1283	&0.13381108E+02_JPRB, 0.22845354E+02_JPRB, 0.10000000E+01_JPRB/)
1284	PDGA(11,16,:) = (/&
1285	&0.13553282E+02_JPRB, 0.23267456E+02_JPRB, 0.00000000E+00_JPRB/)
1286	PDGB(11,16,:) = (/&
1287	&0.13553282E+02_JPRB, 0.23276638E+02_JPRB, 0.10000000E+01_JPRB/)
1288	RETURN
1289	END SUBROUTINE SULW

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format