Page 1 Source Listing TABLE 2025-03-12 18:23 /tmp/ifortmuYJuz.i 1 # 1 "TABLE.F" 2 SUBROUTINE TABLE 3 # 1 "./sp.h" 1 4 # 4 5 6 # 3 "TABLE.F" 2 7 C SUBROUTINE TABLE COMPUTES TABLE ENTRIES USED IN THE LONGWAVE RADIA 8 C PROGRAM. ALSO CALCULATED ARE INDICES USED IN STRIP-MINING AND FOR 9 C SOME PRE-COMPUTABLE FUNCTIONS. 10 C INPUTS: 11 C OUTPUTS: 12 C EM1,EM1WDE,TABLE1,TABLE2,TABLE3 TABCOM 13 C EM3,SOURCE,DSRCE,IND,INDX2,KMAXV TABCOM 14 C KMAXVM, TABCOM 15 C AO3RND,BO3RND,AB15 BANDTA 16 C AB15WD,SKC1R,SKO3R,SKO2D BDWIDE 17 C 18 COMMON/PHYCON/AMOLWT,CSUBP,DIFFCTR,G,GRAVDR,O3DIFCTR,P0, 19 * P0XZP2,P0XZP8,P0X2,RADCON,RGAS,RGASSP,SECPDA 20 COMMON/PHYCON/RATCO2MW,RATH2OMW 21 COMMON/PHYCON/RADCON1 22 COMMON/PHYCON/GINV,P0INV,GP0INV 23 24 save /PHYCON/ 25 COMMON/HCON/HUNDRED,HNINETY,SIXTY,FIFTY,TEN,EIGHT,FIVE, 26 * FOUR,THREE,TWO,ONE,HAF,QUARTR,ZERO 27 COMMON/HCON/H83E26,H71E26,H1E15,H1E13,H1E11,H1E8,H4E5, 28 * H165E5,H5725E4,H488E4,H1E4,H24E3,H20788E3, 29 * H2075E3,H1224E3,H5E2,H3082E2,H3E2,H2945E2, 30 * H23E2,H15E2,H35E1,H3P6,H181E1,H18E1,H2P9,H2P8, 31 * H2P5,H1P8,H1P4387,H1P4,H1P25892,HP8,HP518, 32 * HP369,HP1 33 COMMON/HCON/H44871M2,H559M3,H1M3,H987M4,H285M4,H1M4, 34 * H6938M5,H394M5,H37412M5,H1439M5,H128M5,H1M5, 35 * H7M6,H4999M6,H25452M6,H1M6,H391M7,H1174M7, 36 * H8725M8,H327M8,H257M8,H1M8,H23M10,H14M10, 37 * H11M10,H1M10,H83M11,H82M11,H8M11,H77M11, 38 * H72M11,H53M11,H48M11,H44M11,H42M11,H37M11, 39 * H35M11,H32M11,H3M11,H28M11,H24M11,H23M11, 40 * H2M11,H18M11,H15M11,H14M11,H114M11,H11M11, 41 * H1M11,H96M12,H93M12,H77M12,H74M12,H65M12, 42 * H62M12,H6M12,H45M12,H44M12,H4M12,H38M12, 43 * H37M12,H3M12,H29M12,H28M12,H24M12,H21M12, 44 * H16M12,H14M12,H12M12,H8M13,H46M13,H36M13, 45 * H135M13,H12M13,H1M13,H3M14,H15M14,H14M14, 46 * H1M17,H1M18,H1M19,H1M20,H1M21,H1M22,H1M23, 47 * H1M24,H26M30,H14M30,H25M31,H21M31,H12M31, 48 * H9M32,H55M32,H45M32,H4M33,H62M34,H1M60 49 COMMON/HCON/HMP575,HM13EZ,HM19EZ,HM1E1,HM181E1,HM1E2 50 COMMON/HCON/H1E6,H2E6,H1M2,HMP66667,HM6666M2,HP166666, 51 * H41666M2,HMP5,HM2M2,H29316E2,H1226E1,H3116E1, 52 * H9P94,HP6,H625M2,HP228,HP60241,HM1797E1, 53 * H8121E1,H2E2,HM1EZ,H26E2,H44194M2,H1P41819 54 COMMON/HCON/HP219,HP144,HP816,H69766E5,H235M3,HP26, 55 * H129M2,H75826M4,H1P082,HP805,H1386E2, 56 * H658M2,H1036E2,H2118M2,H42M2,H323M4, 57 * H67390E2,HP3795,HP5048,H102M5,H451M6 Page 2 Source Listing TABLE 2025-03-12 18:23 TABLE.F 58 COMMON/HCON/H16E1,HM161E1,H161E1,H3M3,H101M16, 59 * HM1597E1,H25E2,HP118666,H15M5,H3P5,H18E3, 60 * H6P08108,HMP805,HP602409,HP526315, 61 * H28571M2,H1M16 62 COMMON/HCON/H3M4 63 COMMON/HCON/HM8E1 64 COMMON/HCON/H28E1 65 save /HCON/ 66 C----------------------------------------------------------------------- 67 INCLUDE "parmeta" 91 INCLUDE "mpp.h" 92 C----------------------------------------------------------------------- 93 C PARAMETER SETTINGS FOR THE LONGWAVE AND SHORTWAVE RADIATION CODE: 94 C IMAX = NO. POINTS ALONG THE LAT. CIRCLE USED IN CALCS. 95 C L = NO. VERTICAL LEVELS (ALSO LAYERS) IN MODEL 96 C***NOTE: THE USER NORMALLY WILL MODIFY ONLY THE IMAX AND L PARAMETERS 97 C NBLW = NO. FREQ. BANDS FOR APPROX COMPUTATIONS. SEE 98 C BANDTA FOR DEFINITION 99 C NBLX = NO. FREQ BANDS FOR APPROX CTS COMPUTATIONS 100 C NBLY = NO. FREQ. BANDS FOR EXACT CTS COMPUTATIONS. SEE 101 C BDCOMB FOR DEFINITION 102 C INLTE = NO. LEVELS USED FOR NLTE CALCS. 103 C NNLTE = INDEX NO. OF FREQ. BAND IN NLTE CALCS. 104 C NB,KO2 ARE SHORTWAVE PARAMETERS; OTHER QUANTITIES ARE DERIVED 105 C FROM THE ABOVE PARAMETERS. 164 PARAMETER (L=LM) 165 PARAMETER (IMAX=IM,NCOL=IMAX) 166 PARAMETER (NBLW=163,NBLX=47,NBLY=15) 167 PARAMETER (NBLM=NBLY-1) 168 PARAMETER (LP1=L+1,LP2=L+2,LP3=L+3) 169 PARAMETER (LM1=L-1,LM2=L-2,LM3=L-3) 170 PARAMETER (LL=2*L,LLP1=LL+1,LLP2=LL+2,LLP3=LL+3) 171 PARAMETER (LLM1=LL-1,LLM2=LL-2,LLM3=LL-3) 172 PARAMETER (LP1M=LP1*LP1,LP1M1=LP1M-1) 173 PARAMETER (LP1V=LP1*(1+2*L/2)) 174 PARAMETER (LP121=LP1*NBLY) 175 PARAMETER (LL3P=3*L+2) 176 PARAMETER (NB=12) 177 PARAMETER (INLTE=3,INLTEP=INLTE+1,NNLTE=56) 178 PARAMETER (LP1I=IMAX*LP1,LLP1I=IMAX*LLP1,LL3PI=IMAX*LL3P) 179 PARAMETER (NB1=NB-1) 180 PARAMETER (KO2=12) 181 PARAMETER (KO21=KO2+1,KO2M=KO2-1) 182 C PARAMETER SETTINGS FOR THE LONGWAVE AND SHORTWAVE RADIATION CODE: 183 C IMAX = NO. POINTS SENT TO RADFS 184 C L = NO. VERTICAL LEVELS (ALSO LAYERS) IN MODEL 185 C***NOTE: THE USER NORMALLY WILL MODIFY ONLY THE IMAX AND L PARAMETERS 186 C NBLW = NO. FREQ. BANDS FOR APPROX COMPUTATIONS. SEE 187 C BANDTA FOR DEFINITION 188 C NBLX = NO. FREQ BANDS FOR APPROX CTS COMPUTATIONS 189 C NBLY = NO. FREQ. BANDS FOR EXACT CTS COMPUTATIONS. SEE 190 C BDCOMB FOR DEFINITION 191 C INLTE = NO. LEVELS USED FOR NLTE CALCS. 192 C NNLTE = INDEX NO. OF FREQ. BAND IN NLTE CALCS. 193 C NB,KO2 ARE SHORTWAVE PARAMETERS; OTHER QUANTITIES ARE DERIVED 194 C FROM THE ABOVE PARAMETERS. 195 C COMMON BLOCK BANDTA CONTAINS RANDOM BAND PARAMETERS FOR THE LW Page 3 Source Listing TABLE 2025-03-12 18:23 TABLE.F 196 C CALCULATIONS USING 10 CM-1 WIDE BANDS.THE 15 UM CO2 COMPLEX 197 C IS 2 BANDS,560-670 AND 670-800 CM-1. OZONE COEFFICIENTS ARE 198 C IN 3 BANDS,670-800 (14.1 UM),990-1070 AND 1070-1200 (9.6 UM). 199 C THE (NBLW) BANDS NOW INCLUDE: 200 C 56 BANDS, 10 CM-1 WIDE 0 - 560 CM-1 201 C 2 BANDS, 15 UM COMPLEX 560 - 670 CM-1 202 C 670 - 800 CM-1 203 C 3 "CONTINUUM" BANDS 800 - 900 CM-1 204 C 900 - 990 CM-1 205 C 1070 - 1200 CM-1 206 C 1 BAND FOR 9.6 UM BAND 990 - 1070 CM-1 207 C 100 BANDS, 10 CM-1 WIDE 1200 - 2200 CM-1 208 C 1 BAND FOR 4.3 UM SRC 2270 - 2380 CM-1 209 C THUS NBLW PRESENTLY EQUALS 163 210 C ALL BANDS ARE ARRANGED IN ORDER OF INCREASING WAVENUMBER 211 C 212 C ARNDM = RANDOM "A" PARAMETER FOR (NBLW) BANDS 213 C BRNDM = RANDOM "B" PARAMETER FOR (NBLW) BANDS 214 C BETAD = CONTINUUM COEFFICIENTS FOR (NBLW) BANDS 215 C AP,BP = CAPPHI COEFFICIENTS FOR (NBLW) BANDS 216 C ATP,BTP = CAPPSI COEFFICIENTS FOR (NBLW) BANDS 217 C BANDLO = LOWEST FREQUENCY IN EACH OF (NBLW) FREQ. BANDS 218 C BANDHI = HIGHEST FREQUENCY IN EACH OF (NBLW) FREQ. BANDS 219 C AO3RND = RANDOM "A" PARAMETER FOR OZONE IN (3) OZONE 220 C BANDS 221 C BO3RND = RANDOM "B" PARAMETER FOR OZONE IN (3) OZONE 222 C BANDS 223 C AB15 = THE PRODUCT ARNDM*BRNDM FOR THE TWO BANDS 224 C REPRESENTING THE 15 UM BAND COMPLEX OF CO2 225 C DATA FOR ARNDM,BRNDM,AP,BP,ATP,BTP,AO3RND,BO3RND ARE OBTAINED BY 226 C USING THE AFGL 1982 CATALOG. CONTINUUM COEFFICIENTS ARE FROM 227 C ROBERTS (1976). 228 COMMON / BANDTA / ARNDM(NBLW),BRNDM(NBLW),BETAD(NBLW),AP(NBLW), 229 1 BP(NBLW),ATP(NBLW),BTP(NBLW),BANDLO(NBLW), 230 2 BANDHI(NBLW),AO3RND(3),BO3RND(3),AB15(2) 231 C 232 C COMMON BLOCK BDWIDE CONTAINS RANDOM BAND PARAMETERS FOR SPECIFIC 233 C WIDE BANDS. AT PRESENT,THE INFORMATION CONSISTS OF 1) RANDOM 234 C MODEL PARAMETERS FOR THE 15 UM BAND,560-800 CM-1; 2) THE 235 C CONTINUUM COEFFICIENT FOR THE 800-990,1070-1200 CM-1 BAND 236 C SPECIFICALLY: 237 C AWIDE = RANDOM "A" PARAMETER FOR BAND 238 C BWIDE = RANDOM "B" PARAMETER FOR BAND 239 C BETAWD = CONTINUUM COEFFICIENTS FOR BAND 240 C APWD,BPWD = CAPPHI COEFFICIENTS FOR BAND 241 C ATPWD,BTPWD = CAPPSI COEFFICIENTS FOR BAND 242 C BDLOWD = LOWEST FREQUENCY IN EACH FREQ BAND 243 C BDHIWD = HIGHEST FREQUENCY IN EACH FREQ BAND 244 C AB15WD = THE PRODUCT ARNDM*BRNDM FOR THE ONE BAND 245 C REPRESENTING THE 15 UM BAND COMPLEX OF CO2 246 C BETINW = CONT.COEFFICIENT FOR A SPECIFIED WIDE 247 C FREQ.BAND (800-990 AND 1070-1200 CM-1). 248 C SKO2D = 1./BETINW, USED IN SPA88 FOR CONT. COEFFS 249 C SKC1R = BETAWD/BETINW, USED FOR CONT. COEFF. FOR 250 C 15 UM BAND IN FST88 251 C SKO3R = RATIO OF CONT. COEFF. FOR 9.9 UM BAND TO 252 C BETINW, USED FOR 9.6 UM CONT COEFF IN FST88 Page 4 Source Listing TABLE 2025-03-12 18:23 TABLE.F 253 C DATA FOR AWIDE,BWIDE,APWD,BPWD,ATPWD,BTPWD,AO3WD,BO3WD ARE 254 C OBTAINED BY USING THE AFGL 1982 CATALOG. CONTINUUM COEFFICIENTS 255 C ARE FROM ROBERTS (1976). 256 COMMON / BDWIDE / AWIDE,BWIDE,BETAWD, 257 1 APWD,BPWD,ATPWD,BTPWD, 258 2 BDLOWD,BDHIWD,BETINW, 259 3 AB15WD,SKO2D,SKC1R,SKO3R 260 C 261 C COMMON BLOCK BDCOMB CONTAINS RANDOM BAND PARAMETERS FOR THE LW 262 C CALCULATIONS USING COMBINED WIDE FREQUENCY BANDS BETWEEN 160 AND 263 C 1200 CM-1,AS WELL AS THE 2270-2380 BAND FOR SOURCE CALC. 264 C BANDS 1-8: COMBINED WIDE FREQUENCY BANDS FOR 160-560 CM-1 265 C BANDS 9-14: FREQUENCY BANDS,AS IN BANDTA (NARROW BANDS) 266 C FOR 560-1200 CM-1 267 C BAND 15: FREQUENCY BAND 2270-2380 CM-1,USED FOR SOURCE 268 C CALCULATION ONLY 269 C THUS NBLY PRESENTLY EQUALS 15 270 C 271 C BANDS ARE ARRANGED IN ORDER OF INCREASING WAVENUMBER 272 C ACOMB = RANDOM "A" PARAMETER FOR (NBLY) BANDS 273 C BCOMB = RANDOM "B" PARAMETER FOR (NBLY) BANDS 274 C BETACM = CONTINUUM COEFFICIENTS FOR (NBLY) BANDS 275 C APCM,BPCM = CAPPHI COEFFICIENTS FOR (NBLY) BANDS 276 C ATPCM,BTPCM = CAPPSI COEFFICIENTS FOR (NBLY) BANDS 277 C BDLOCM = LOWEST FREQUENCY IN EACH OF (NBLY) FREQ. BANDS 278 C BDHICM = HIGHEST FREQUENCY IN EACH OF (NBLY) FREQ. BANDS 279 C AO3CM = RANDOM "A" PARAMETER FOR OZONE IN (3) OZONE 280 C BANDS 281 C BO3CM = RANDOM "B" PARAMETER FOR OZONE IN (3) OZONE 282 C BANDS 283 C AB15CM = THE PRODUCT ARNDM*BRNDM FOR THE TWO BANDS 284 C REPRESENTING THE 15 UM BAND COMPLEX OF CO2 285 C BETINC = CONT.COEFFICIENT FOR A SPECIFIED WIDE 286 C FREQ.BAND (800-990 AND 1070-1200 CM-1). 287 C IBAND = INDEX NO OF THE 40 WIDE BANDS USED IN 288 C COMBINED WIDE BAND CALCULATIONS. IN OTHER 289 C WORDS,INDEX TELLING WHICH OF THE 40 WIDE 290 C BANDS BETWEEN 160-560 CM-1 ARE INCLUDED IN 291 C EACH OF THE FIRST 8 COMBINED WIDE BANDS 292 C DATA FOR ACOMB,BCOMB,APCM,BPCM,ATPCM,BTPCM,AO3CM,BO3CM ARE 293 C OBTAINED BY USING THE AFGL 1982 CATALOG. CONTINUUM COEFFICIENTS 294 C ARE FROM ROBERTS (1976). IBAND INDEX VALUES ARE OBTAINED BY 295 C EXPERIMENTATION. 296 COMMON / BDCOMB / IBAND(40),ACOMB(NBLY),BCOMB(NBLY), 297 1 BETACM(NBLY),APCM(NBLY),BPCM(NBLY),ATPCM(NBLY), 298 2 BTPCM(NBLY),BDLOCM(NBLY),BDHICM(NBLY),BETINC, 299 3 AO3CM(3),BO3CM(3),AB15CM(2) 300 C 301 C COMMON BLOCK TABCOM CONTAINS QUANTITIES PRECOMPUTED IN SUBROUTINE 302 C TABLE FOR USE IN THE LONGWAVE RADIATION PROGRAM: 303 C EM1 = E1 FUNCTION, EVALUATED OVER THE 0-560 AND 304 C 1200-2200 CM-1 INTERVALS 305 C EM1WDE = E1 FUNCTION, EVALUATED OVER THE 160-560 CM-1 306 C INTERVAL 307 C TABLE1 = E2 FUNCTION, EVALUATED OVER THE 0-560 AND 308 C 1200-2200 CM-1 INTERVALS 309 C TABLE2 = TEMPERATURE DERIVATIVE OF TABLE1 Page 5 Source Listing TABLE 2025-03-12 18:23 TABLE.F 310 C TABLE3 = MASS DERIVATIVE OF TABLE1 311 C EM3 = E3 FUNCTION, EVALUATED OVER THE 0-560 AND 312 C 1200-2200 CM-1 INTERVALS 313 C SOURCE = PLANCK FUNCTION, EVALUATED AT SPECIFIED TEMPS. FOR 314 C BANDS USED IN CTS CALCULATIONS 315 C DSRCE = TEMPERATURE DERIVATIVE OF SOURCE 316 C IND = INDEX, WITH VALUE IND(I)=I. USED IN FST88 317 C INDX2 = INDEX VALUES USED IN OBTAINING "LOWER TRIANGLE" 318 C ELEMENTS OF AVEPHI,ETC.,IN FST88 319 C KMAXV = INDEX VALUES USED IN OBTAINING "UPPER TRIANGLE" 320 C ELEMENTS OF AVEPHI,ETC.,IN FST88 321 C KMAXVM = KMAXV(L),USED FOR DO LOOP INDICES 322 C 323 COMMON / TABCOM / IND(IMAX),INDX2(LP1V),KMAXV(LP1), 324 1 KMAXVM 325 COMMON/TABCOM/EM1(28,180),EM1WDE(28,180),TABLE1(28,180), 326 1 TABLE2(28,180),TABLE3(28,180),EM3(28,180),SOURCE(28,NBLY), 327 2 DSRCE(28,NBLY) 328 C 329 C% #NPADL = #PAGE*#NPAGE - 4*28*180 - 2*181 - 7*28 - 180 ; 330 C% #NPADL = #NPADL - 11*28 - 2*180 - 2*30 ; 331 C PARAMETER (NPADL = #NPADL - 28*NBLX - 2*28*NBLW - 7*NBLW) 332 COMMON /SCRTCH/ SUM(28,180),PERTSM(28,180),SUM3(28,180), 333 1 SUMWDE(28,180),SRCWD(28,NBLX),SRC1NB(28,NBLW),DBDTNB(28,NBLW) 334 COMMON /SCRTCH/ ZMASS(181),ZROOT(181),SC(28),DSC(28),XTEMV(28), 335 1 TFOUR(28),FORTCU(28),X(28),X1(28),X2(180),SRCS(28), 336 2 SUM4(28),SUM6(28),SUM7(28),SUM8(28),SUM4WD(28), 337 3 R1(28),R2(28),S2(28),T3(28),R1WD(28) 338 COMMON /SCRTCH/ EXPO(180),FAC(180) 339 COMMON/SCRTCH/CNUSB(30),DNUSB(30) 340 COMMON/SCRTCH/ALFANB(NBLW),AROTNB(NBLW) 341 COMMON/SCRTCH/ANB(NBLW),BNB(NBLW),CENTNB(NBLW),DELNB(NBLW), 342 1 BETANB(NBLW) 343 C COMMON/SCRTCH/PADLOC(NPADL) 344 COMMON/TBLTMP/ DELCM(NBLY) 345 C**************************************** 346 C***COMPUTE LOCAL QUANTITIES AND AO3,BO3,AB15 347 C....FOR NARROW-BANDS... 348 DO 101 N=1,NBLW 349 ANB(N)=ARNDM(N) 350 BNB(N)=BRNDM(N) 351 CENTNB(N)=HAF*(BANDLO(N)+BANDHI(N)) 352 DELNB(N)=BANDHI(N)-BANDLO(N) 353 BETANB(N)=BETAD(N) 354 101 CONTINUE 355 AB15(1)=ANB(57)*BNB(57) 356 AB15(2)=ANB(58)*BNB(58) 357 C....FOR WIDE BANDS... 358 AB15WD=AWIDE*BWIDE 359 C 360 C***COMPUTE INDICES: IND,INDX2,KMAXV 361 DO 111 I=1,IMAX 362 IND(I)=I 363 111 CONTINUE 364 ICNT=0 365 DO 113 I1=1,L 366 I2E=LP1-I1 Page 6 Source Listing TABLE 2025-03-12 18:23 TABLE.F 367 DO 115 I2=1,I2E 368 ICNT=ICNT+1 369 INDX2(ICNT)=LP1*(I2-1)+LP2*I1 370 115 CONTINUE 371 113 CONTINUE 372 KMAXV(1)=1 373 DO 117 I=2,L 374 KMAXV(I)=KMAXV(I-1)+(LP2-I) 375 117 CONTINUE 376 KMAXVM=KMAXV(L) 377 C***COMPUTE RATIOS OF CONT. COEFFS 378 SKC1R=BETAWD/BETINW 379 SKO3R=BETAD(61)/BETINW 380 SKO2D=ONE/BETINW 381 C 382 C****BEGIN TABLE COMPUTATIONS HERE*** 383 C***COMPUTE TEMPS, MASSES FOR TABLE ENTRIES 384 C---NOTE: THE DIMENSIONING AND INITIALIZATION OF XTEMV AND OTHER ARRAYS 385 C WITH DIMENSION OF 28 IMPLY A RESTRICTION OF MODEL TEMPERATURES FROM 386 C 100K TO 370K. 387 C---THE DIMENSIONING OF ZMASS,ZROOT AND OTHER ARRAYS WITH DIMENSION OF 388 C 180 IMPLY A RESTRICTION OF MODEL H2O AMOUNTS SUCH THAT OPTICAL PATHS 389 C ARE BETWEEN 10**-16 AND 10**2, IN CGS UNITS. 390 ZMASS(1)=H1M16 391 DO 201 J=1,180 392 JP=J+1 393 ZROOT(J)=SQRT(ZMASS(J)) 394 ZMASS(JP)=ZMASS(J)*H1P25892 395 201 CONTINUE 396 DO 203 I=1,28 397 XTEMV(I)=HNINETY+TEN*I 398 TFOUR(I)=XTEMV(I)*XTEMV(I)*XTEMV(I)*XTEMV(I) 399 FORTCU(I)=FOUR*XTEMV(I)*XTEMV(I)*XTEMV(I) 400 203 CONTINUE 401 C******THE COMPUTATION OF SOURCE,DSRCE IS NEEDED ONLY 402 C FOR THE COMBINED WIDE-BAND CASE.TO OBTAIN THEM,THE SOURCE 403 C MUST BE COMPUTED FOR EACH OF THE (NBLX) WIDE BANDS(=SRCWD) 404 C THEN COMBINED (USING IBAND) INTO SOURCE. 405 DO 205 N=1,NBLY 406 DO 205 I=1,28 407 SOURCE(I,N)=ZERO 408 205 CONTINUE 409 DO 207 N=1,NBLX 410 DO 207 I=1,28 411 SRCWD(I,N)=ZERO 412 207 CONTINUE 413 C---BEGIN FREQ. LOOP (ON N) 414 DO 211 N=1,NBLX 415 IF (N.LE.46) THEN 416 C***THE 160-1200 BAND CASES 417 CENT=CENTNB(N+16) 418 DEL=DELNB(N+16) 419 BDLO=BANDLO(N+16) 420 BDHI=BANDHI(N+16) 421 ENDIF 422 IF (N.EQ.NBLX) THEN 423 C***THE 2270-2380 BAND CASE Page 7 Source Listing TABLE 2025-03-12 18:23 TABLE.F 424 CENT=CENTNB(NBLW) 425 DEL=DELNB(NBLW) 426 BDLO=BANDLO(NBLW) 427 BDHI=BANDHI(NBLW) 428 ENDIF 429 C***FOR PURPOSES OF ACCURACY, ALL EVALUATIONS OF PLANCK FCTNS ARE MADE 430 C ON 10 CM-1 INTERVALS, THEN SUMMED INTO THE (NBLX) WIDE BANDS. 431 NSUBDS=(DEL-H1M3)/10+1 432 DO 213 NSB=1,NSUBDS 433 IF (NSB.NE.NSUBDS) THEN 434 CNUSB(NSB)=TEN*(NSB-1)+BDLO+FIVE 435 DNUSB(NSB)=TEN 436 ELSE 437 CNUSB(NSB)=HAF*(TEN*(NSB-1)+BDLO+BDHI) 438 DNUSB(NSB)=BDHI-(TEN*(NSB-1)+BDLO) 439 ENDIF 440 C1=(H37412M5)*CNUSB(NSB)**3 441 C---BEGIN TEMP. LOOP (ON I) 442 DO 215 I=1,28 443 X(I)=H1P4387*CNUSB(NSB)/XTEMV(I) 444 X1(I)=EXP(X(I)) 445 SRCS(I)=C1/(X1(I)-ONE) 446 SRCWD(I,N)=SRCWD(I,N)+SRCS(I)*DNUSB(NSB) 447 215 CONTINUE 448 213 CONTINUE 449 211 CONTINUE 450 C***THE FOLLOWING LOOPS CREATE THE COMBINED WIDE BAND QUANTITIES SOURCE 451 C AND DSRCE 452 DO 221 N=1,40 453 DO 221 I=1,28 454 SOURCE(I,IBAND(N))=SOURCE(I,IBAND(N))+SRCWD(I,N) 455 221 CONTINUE 456 DO 223 N=9,NBLY 457 DO 223 I=1,28 458 SOURCE(I,N)=SRCWD(I,N+32) 459 223 CONTINUE 460 DO 225 N=1,NBLY 461 DO 225 I=1,27 462 DSRCE(I,N)=(SOURCE(I+1,N)-SOURCE(I,N))*HP1 463 225 CONTINUE 464 DO 231 N=1,NBLW 465 ALFANB(N)=BNB(N)*ANB(N) 466 AROTNB(N)=SQRT(ALFANB(N)) 467 231 CONTINUE 468 C***FIRST COMPUTE PLANCK FCTNS (SRC1NB) AND DERIVATIVES (DBDTNB) FOR 469 C USE IN TABLE EVALUATIONS. THESE ARE DIFFERENT FROM SOURCE,DSRCE 470 C BECAUSE DIFFERENT FREQUENCY PTS ARE USED IN EVALUATION, THE FREQ. 471 C RANGES ARE DIFFERENT, AND THE DERIVATIVE ALGORITHM IS DIFFERENT. 472 C 473 DO 301 N=1,NBLW 474 CENT=CENTNB(N) 475 DEL=DELNB(N) 476 C---NOTE: AT PRESENT, THE IA LOOP IS ONLY USED FOR IA=2. THE LOOP STRUCT 477 C IS KEPT SO THAT IN THE FUTURE, WE MAY USE A QUADRATURE SCHEME FOR 478 C THE PLANCK FCTN EVALUATION, RATHER THAN USE THE MID-BAND FREQUENCY. 479 DO 303 IA=1,3 480 ANU=CENT+HAF*(IA-2)*DEL Page 8 Source Listing TABLE 2025-03-12 18:23 TABLE.F 481 C1=(H37412M5)*ANU*ANU*ANU+H1M20 482 C---TEMPERATURE LOOP--- 483 DO 305 I=1,28 484 X(I)=H1P4387*ANU/XTEMV(I) 485 X1(I)=EXP(X(I)) 486 SC(I)=C1/((X1(I)-ONE)+H1M20) 487 DSC(I)=SC(I)*SC(I)*X(I)*X1(I)/(XTEMV(I)*C1) 488 305 CONTINUE 489 IF (IA.EQ.2) THEN 490 DO 307 I=1,28 491 SRC1NB(I,N)=DEL*SC(I) 492 DBDTNB(I,N)=DEL*DSC(I) 493 307 CONTINUE 494 ENDIF 495 303 CONTINUE 496 301 CONTINUE 497 C***NEXT COMPUTE R1,R2,S2,AND T3- COEFFICIENTS USED FOR E3 FUNCTION 498 C WHEN THE OPTICAL PATH IS LESS THAN 10-4. IN THIS CASE, WE ASSUME A 499 C DIFFERENT DEPENDENCE ON (ZMASS). 500 C---ALSO OBTAIN R1WD, WHICH IS R1 SUMMED OVER THE 160-560 CM-1 RANGE 501 DO 311 I=1,28 502 SUM4(I)=ZERO 503 SUM6(I)=ZERO 504 SUM7(I)=ZERO 505 SUM8(I)=ZERO 506 SUM4WD(I)=ZERO 507 311 CONTINUE 508 DO 313 N=1,NBLW 509 CENT=CENTNB(N) 510 C***PERFORM SUMMATIONS FOR FREQ. RANGES OF 0-560,1200-2200 CM-1 FOR SUM4 511 C SUM6,SUM7,SUM8 512 IF (CENT.LT.560. .OR. CENT.GT.1200..AND.CENT.LE.2200.) THEN 513 DO 315 I=1,28 514 SUM4(I)=SUM4(I)+SRC1NB(I,N) 515 SUM6(I)=SUM6(I)+DBDTNB(I,N) 516 SUM7(I)=SUM7(I)+DBDTNB(I,N)*AROTNB(N) 517 SUM8(I)=SUM8(I)+DBDTNB(I,N)*ALFANB(N) 518 315 CONTINUE 519 ENDIF 520 C***PERFORM SUMMATIONS OVER 160-560 CM-1 FREQ RANGE FOR E1 CALCS (SUM4WD 521 IF (CENT.GT.160. .AND. CENT.LT.560.) THEN 522 DO 316 I=1,28 523 SUM4WD(I)=SUM4WD(I)+SRC1NB(I,N) 524 316 CONTINUE 525 ENDIF 526 313 CONTINUE 527 DO 317 I=1,28 528 R1(I)=SUM4(I)/TFOUR(I) 529 R2(I)=SUM6(I)/FORTCU(I) 530 S2(I)=SUM7(I)/FORTCU(I) 531 T3(I)=SUM8(I)/FORTCU(I) 532 R1WD(I)=SUM4WD(I)/TFOUR(I) 533 317 CONTINUE 534 DO 401 J=1,180 535 DO 401 I=1,28 536 SUM(I,J)=ZERO 537 PERTSM(I,J)=ZERO Page 9 Source Listing TABLE 2025-03-12 18:23 TABLE.F 538 SUM3(I,J)=ZERO 539 SUMWDE(I,J)=ZERO 540 401 CONTINUE 541 C---FREQUENCY LOOP BEGINS--- 542 DO 411 N=1,NBLW 543 CENT=CENTNB(N) 544 C***PERFORM CALCULATIONS FOR FREQ. RANGES OF 0-560,1200-2200 CM-1 545 IF (CENT.LT.560. .OR. CENT.GT.1200..AND.CENT.LE.2200.) THEN 546 DO 413 J=1,180 547 X2(J)=AROTNB(N)*ZROOT(J) 548 EXPO(J)=EXP(-X2(J)) 549 413 CONTINUE 550 DO 415 J=1,180 551 IF (X2(J).GE.HUNDRED) THEN 552 EXPO(J)=ZERO 553 ENDIF 554 415 CONTINUE 555 DO 417 J=121,180 556 FAC(J)=ZMASS(J)*(ONE-(ONE+X2(J))*EXPO(J))/(X2(J)*X2(J)) 557 417 CONTINUE 558 DO 419 J=1,180 559 DO 419 I=1,28 560 SUM(I,J)=SUM(I,J)+SRC1NB(I,N)*EXPO(J) 561 PERTSM(I,J)=PERTSM(I,J)+DBDTNB(I,N)*EXPO(J) 562 419 CONTINUE 563 DO 421 J=121,180 564 DO 421 I=1,28 565 SUM3(I,J)=SUM3(I,J)+DBDTNB(I,N)*FAC(J) 566 421 CONTINUE 567 ENDIF 568 C---COMPUTE SUM OVER 160-560 CM-1 RANGE FOR USE IN E1 CALCS (SUMWDE) 569 IF (CENT.GT.160. .AND. CENT.LT.560.) THEN 570 DO 420 J=1,180 571 DO 420 I=1,28 572 SUMWDE(I,J)=SUMWDE(I,J)+SRC1NB(I,N)*EXPO(J) 573 420 CONTINUE 574 ENDIF 575 411 CONTINUE 576 DO 431 J=1,180 577 DO 431 I=1,28 578 EM1(I,J)=SUM(I,J)/TFOUR(I) 579 TABLE1(I,J)=PERTSM(I,J)/FORTCU(I) 580 431 CONTINUE 581 DO 433 J=121,180 582 DO 433 I=1,28 583 EM3(I,J)=SUM3(I,J)/FORTCU(I) 584 433 CONTINUE 585 DO 441 J=1,179 586 DO 441 I=1,28 587 TABLE2(I,J)=(TABLE1(I,J+1)-TABLE1(I,J))*TEN 588 441 CONTINUE 589 DO 443 J=1,180 590 DO 443 I=1,27 591 TABLE3(I,J)=(TABLE1(I+1,J)-TABLE1(I,J))*HP1 592 443 CONTINUE 593 DO 445 I=1,28 594 TABLE2(I,180)=ZERO Page 10 Source Listing TABLE 2025-03-12 18:23 TABLE.F 595 445 CONTINUE 596 DO 447 J=1,180 597 TABLE3(28,J)=ZERO 598 447 CONTINUE 599 DO 449 J=1,2 600 DO 449 I=1,28 601 EM1(I,J)=R1(I) 602 449 CONTINUE 603 DO 451 J=1,120 604 DO 451 I=1,28 605 EM3(I,J)=R2(I)/TWO-S2(I)*SQRT(ZMASS(J))/THREE+T3(I)*ZMASS(J)/EIGHT 606 451 CONTINUE 607 DO 453 J=121,180 608 DO 453 I=1,28 609 EM3(I,J)=EM3(I,J)/ZMASS(J) 610 453 CONTINUE 611 C***NOW COMPUTE E1 TABLES FOR 160-560 CM-1 BANDS ONLY. 612 C WE USE R1WD AND SUMWDE OBTAINED ABOVE. 613 DO 501 J=1,180 614 DO 501 I=1,28 615 EM1WDE(I,J)=SUMWDE(I,J)/TFOUR(I) 616 501 CONTINUE 617 DO 503 J=1,2 618 DO 503 I=1,28 619 EM1WDE(I,J)=R1WD(I) 620 503 CONTINUE 621 RETURN 622 END Page 11 Source Listing TABLE 2025-03-12 18:23 Entry Points TABLE.F ENTRY POINTS Name table_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 101 Label 354 348 111 Label 363 361 113 Label 371 365 115 Label 370 367 117 Label 375 373 201 Label 395 391 203 Label 400 396 205 Label 408 405,406 207 Label 412 409,410 211 Label 449 414 213 Label 448 432 215 Label 447 442 221 Label 455 452,453 223 Label 459 456,457 225 Label 463 460,461 231 Label 467 464 301 Label 496 473 303 Label 495 479 305 Label 488 483 307 Label 493 490 311 Label 507 501 313 Label 526 508 315 Label 518 513 316 Label 524 522 317 Label 533 527 401 Label 540 534,535 411 Label 575 542 413 Label 549 546 415 Label 554 550 417 Label 557 555 419 Label 562 558,559 420 Label 573 570,571 421 Label 566 563,564 431 Label 580 576,577 433 Label 584 581,582 441 Label 588 585,586 443 Label 592 589,590 445 Label 595 593 447 Label 598 596 449 Label 602 599,600 451 Label 606 603,604 453 Label 610 607,608 501 Label 616 613,614 503 Label 620 617,618 Page 12 Source Listing TABLE 2025-03-12 18:23 Symbol Table TABLE.F Name Object Declared Type Bytes Dimen Elements Attributes References ANU Local 480 R(4) 4 scalar 480,481,484 BANDTA Common 228 5900 BDCOMB Common 296 736 BDHI Local 420 R(4) 4 scalar 420,427,437,438 BDLO Local 419 R(4) 4 scalar 419,426,434,437,438 BDWIDE Common 256 56 C1 Local 440 R(4) 4 scalar 440,445,481,486,487 CENT Local 417 R(4) 4 scalar 417,424,474,480,509,512,521,543,54 5,569 DEL Local 418 R(4) 4 scalar 418,425,431,475,480,491,492 EXP Func 444 scalar 444,485,548 GLB_TABLE Common 142 336 SAVE HCON Common 25 872 SAVE I Local 361 I(4) 4 scalar 361,362,373,374,396,397,398,399,40 6,407,410,411,442,443,444,445,446, 453,454,457,458,461,462,483,484,48 5,486,487,490,491,492,501,502,503, 504,505,506,513,514,515,516,517,52 2,523,527,528,529,530,531,532,535, 536,537,538,539,559,560,561,564,56 5,571,572,577,578,579,582,583,586, 587,590,591,593,594,600,601,604,60 5,608,609,614,615,618,619 I1 Local 365 I(4) 4 scalar 365,366,369 I2 Local 367 I(4) 4 scalar 367,369 I2E Local 366 I(4) 4 scalar 366,367 IA Local 479 I(4) 4 scalar 479,480,489 ICNT Local 364 I(4) 4 scalar 364,368,369 IDIM1 Param 87 I(4) 4 scalar IDIM2 Param 87 I(4) 4 scalar IGSTL Param 82 I(4) 4 scalar 87 IGSTR Param 82 I(4) 4 scalar 87 IM Param 70 I(4) 4 scalar 84,87,148,149,150,151,152,156,157, 162,165 IMAX Param 165 I(4) 4 scalar 165,178,323,361 INLTE Param 177 I(4) 4 scalar 177 INLTEP Param 177 I(4) 4 scalar INPES Param 79 I(4) 4 scalar 84,87,132,133,134,143,144 ITAIL Param 84 I(4) 4 scalar J Local 391 I(4) 4 scalar 391,392,393,394,534,536,537,538,53 9,546,547,548,550,551,552,555,556, 558,560,561,563,565,570,572,576,57 8,579,581,583,585,587,589,591,596, 597,599,601,603,605,607,609,613,61 5,617,619 JDIM1 Param 88 I(4) 4 scalar JDIM2 Param 88 I(4) 4 scalar JGSTL Param 83 I(4) 4 scalar 88 JGSTR Param 83 I(4) 4 scalar 88 JM Param 70 I(4) 4 scalar 85,88,148,149,150,151,152,156,157, 162 JNPES Param 79 I(4) 4 scalar 85,88,132,133,134,143,144 JP Local 392 I(4) 4 scalar 392,394 JTAIL Param 85 I(4) 4 scalar KO2 Param 180 I(4) 4 scalar 181 Page 13 Source Listing TABLE 2025-03-12 18:23 Symbol Table TABLE.F Name Object Declared Type Bytes Dimen Elements Attributes References KO21 Param 181 I(4) 4 scalar KO2M Param 181 I(4) 4 scalar L Param 164 I(4) 4 scalar 168,169,170,173,175,365,373,376 LL Param 170 I(4) 4 scalar 170,171 LL3P Param 175 I(4) 4 scalar 178 LL3PI Param 178 I(4) 4 scalar LLM1 Param 171 I(4) 4 scalar LLM2 Param 171 I(4) 4 scalar LLM3 Param 171 I(4) 4 scalar LLP1 Param 170 I(4) 4 scalar 178 LLP1I Param 178 I(4) 4 scalar LLP2 Param 170 I(4) 4 scalar LLP3 Param 170 I(4) 4 scalar LM Param 70 I(4) 4 scalar 157,164 LM1 Param 169 I(4) 4 scalar LM2 Param 169 I(4) 4 scalar LM3 Param 169 I(4) 4 scalar LP1 Param 168 I(4) 4 scalar 172,173,174,178,323,366,369 LP121 Param 174 I(4) 4 scalar LP1I Param 178 I(4) 4 scalar LP1M Param 172 I(4) 4 scalar 172 LP1M1 Param 172 I(4) 4 scalar LP1V Param 173 I(4) 4 scalar 323 LP2 Param 168 I(4) 4 scalar 369,374 LP3 Param 168 I(4) 4 scalar LSM Param 70 I(4) 4 scalar MAPPINGS Common 161 5024 SAVE MPPCOM Common 106 1724 SAVE N Local 348 I(4) 4 scalar 348,349,350,351,352,353,405,407,40 9,411,414,415,417,418,419,420,422, 446,452,454,456,458,460,462,464,46 5,466,473,474,475,491,492,508,509, 514,515,516,517,523,542,543,547,56 0,561,565,572 NB Param 176 I(4) 4 scalar 179 NB1 Param 179 I(4) 4 scalar NBLM Param 167 I(4) 4 scalar NBLW Param 166 I(4) 4 scalar 228,229,230,333,340,341,342,348,42 4,425,426,427,464,473,508,542 NBLX Param 166 I(4) 4 scalar 333,409,414,422 NBLY Param 166 I(4) 4 scalar 167,174,296,297,298,326,327,344,40 5,456,460 NCOL Param 165 I(4) 4 scalar NNLTE Param 177 I(4) 4 scalar NSB Local 432 I(4) 4 scalar 432,433,434,435,437,438,440,443,44 6 NSUBDS Local 431 I(4) 4 scalar 431,432,433 PHYCON Common 18 80 SAVE SCRTCH Common 332 132844 SQRT Func 393 scalar 393,466,605 TABCOM Common 323 133920 TABLE Subr 2 TBLTMP Common 344 60 TEMPCOM Common 147 6603768 SAVE TOPO Common 155 17478548 SAVE Page 14 Source Listing TABLE 2025-03-12 18:23 Symbol Table TABLE.F TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References AB15 R(4) 4 5892 1 2 COM 355,356 AB15CM R(4) 4 728 1 2 COM AB15WD R(4) 4 40 scalar COM 358 ACOMB R(4) 4 160 1 15 COM ALFANB R(4) 4 128280 1 163 COM 465,466,517 AMOLWT R(4) 4 0 scalar COM ANB R(4) 4 129584 1 163 COM 349,355,356,465 AO3CM R(4) 4 704 1 3 COM AO3RND R(4) 4 5868 1 3 COM AP R(4) 4 1956 1 163 COM APCM R(4) 4 340 1 15 COM APWD R(4) 4 12 scalar COM ARNDM R(4) 4 0 1 163 COM 349 AROTNB R(4) 4 128932 1 163 COM 466,516,547 ATP R(4) 4 3260 1 163 COM ATPCM R(4) 4 460 1 15 COM ATPWD R(4) 4 20 scalar COM AWIDE R(4) 4 0 scalar COM 358 BANDHI R(4) 4 5216 1 163 COM 351,352,420,427 BANDLO R(4) 4 4564 1 163 COM 351,352,419,426 BCOMB R(4) 4 220 1 15 COM BDHICM R(4) 4 640 1 15 COM BDHIWD R(4) 4 32 scalar COM BDLOCM R(4) 4 580 1 15 COM BDLOWD R(4) 4 28 scalar COM BETACM R(4) 4 280 1 15 COM BETAD R(4) 4 1304 1 163 COM 353,379 BETANB R(4) 4 132192 1 163 COM 353 BETAWD R(4) 4 8 scalar COM 378 BETINC R(4) 4 700 scalar COM BETINW R(4) 4 36 scalar COM 378,379,380 BNB R(4) 4 130236 1 163 COM 350,355,356,465 BO3CM R(4) 4 716 1 3 COM BO3RND R(4) 4 5880 1 3 COM BP R(4) 4 2608 1 163 COM BPCM R(4) 4 400 1 15 COM BPWD R(4) 4 16 scalar COM BRNDM R(4) 4 652 1 163 COM 350 BTP R(4) 4 3912 1 163 COM BTPCM R(4) 4 520 1 15 COM BTPWD R(4) 4 24 scalar COM BWIDE R(4) 4 4 scalar COM 358 CENTNB R(4) 4 130888 1 163 COM 351,417,424,474,509,543 CNUSB R(4) 4 128040 1 30 COM 434,437,440,443 CSUBP R(4) 4 4 scalar COM DBDTNB R(4) 4 104160 2 4564 COM 492,515,516,517,561,565 DELCM R(4) 4 0 1 15 COM DELNB R(4) 4 131540 1 163 COM 352,418,425,475 DIFFCTR R(4) 4 8 scalar COM DNUSB R(4) 4 128160 1 30 COM 435,438,446 DSC R(4) 4 123976 1 28 COM 487,492 Page 15 Source Listing TABLE 2025-03-12 18:23 Symbol Table TABLE.F Name Type Bytes Offset Dimen Elements Attributes References DSRCE R(4) 4 132240 2 420 COM 462 EIGHT R(4) 4 20 scalar COM 605 EM1 R(4) 4 9600 2 5040 COM 578,601 EM1WDE R(4) 4 29760 2 5040 COM 615,619 EM3 R(4) 4 110400 2 5040 COM 583,605,609 EXPO R(4) 4 126600 1 180 COM 548,552,556,560,561,572 FAC R(4) 4 127320 1 180 COM 556,565 FIFTY R(4) 4 12 scalar COM FIVE R(4) 4 24 scalar COM 434 FORTCU R(4) 4 124312 1 28 COM 399,529,530,531,579,583 FOUR R(4) 4 28 scalar COM 399 G R(4) 4 12 scalar COM G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM GINV R(4) 4 68 scalar COM GP0INV R(4) 4 76 scalar COM GRAVDR R(4) 4 16 scalar COM H101M16 R(4) 4 808 scalar COM H102M5 R(4) 4 784 scalar COM H1036E2 R(4) 4 756 scalar COM H114M11 R(4) 4 384 scalar COM H1174M7 R(4) 4 268 scalar COM H11M10 R(4) 4 296 scalar COM H11M11 R(4) 4 388 scalar COM H1224E3 R(4) 4 112 scalar COM H1226E1 R(4) 4 652 scalar COM H128M5 R(4) 4 240 scalar COM H129M2 R(4) 4 732 scalar COM H12M12 R(4) 4 472 scalar COM H12M13 R(4) 4 492 scalar COM H12M31 R(4) 4 560 scalar COM H135M13 R(4) 4 488 scalar COM H1386E2 R(4) 4 748 scalar COM H1439M5 R(4) 4 236 scalar COM H14M10 R(4) 4 292 scalar COM H14M11 R(4) 4 380 scalar COM H14M12 R(4) 4 468 scalar COM H14M14 R(4) 4 508 scalar COM H14M30 R(4) 4 548 scalar COM H15E2 R(4) 4 136 scalar COM H15M11 R(4) 4 376 scalar COM H15M14 R(4) 4 504 scalar COM H15M5 R(4) 4 824 scalar COM H161E1 R(4) 4 800 scalar COM H165E5 R(4) 4 84 scalar COM H16E1 R(4) 4 792 scalar COM H16M12 R(4) 4 464 scalar COM H181E1 R(4) 4 148 scalar COM H18E1 R(4) 4 152 scalar COM H18E3 R(4) 4 832 scalar COM H18M11 R(4) 4 372 scalar COM H1E11 R(4) 4 72 scalar COM H1E13 R(4) 4 68 scalar COM H1E15 R(4) 4 64 scalar COM H1E4 R(4) 4 96 scalar COM Page 16 Source Listing TABLE 2025-03-12 18:23 Symbol Table TABLE.F Name Type Bytes Offset Dimen Elements Attributes References H1E6 R(4) 4 612 scalar COM H1E8 R(4) 4 76 scalar COM H1M10 R(4) 4 300 scalar COM H1M11 R(4) 4 392 scalar COM H1M13 R(4) 4 496 scalar COM H1M16 R(4) 4 856 scalar COM 390 H1M17 R(4) 4 512 scalar COM H1M18 R(4) 4 516 scalar COM H1M19 R(4) 4 520 scalar COM H1M2 R(4) 4 620 scalar COM H1M20 R(4) 4 524 scalar COM 481,486 H1M21 R(4) 4 528 scalar COM H1M22 R(4) 4 532 scalar COM H1M23 R(4) 4 536 scalar COM H1M24 R(4) 4 540 scalar COM H1M3 R(4) 4 208 scalar COM 431 H1M4 R(4) 4 220 scalar COM H1M5 R(4) 4 244 scalar COM H1M6 R(4) 4 260 scalar COM H1M60 R(4) 4 584 scalar COM H1M8 R(4) 4 284 scalar COM H1P082 R(4) 4 740 scalar COM H1P25892 R(4) 4 180 scalar COM 394 H1P4 R(4) 4 176 scalar COM H1P41819 R(4) 4 704 scalar COM H1P4387 R(4) 4 172 scalar COM 443,484 H1P8 R(4) 4 168 scalar COM H2075E3 R(4) 4 108 scalar COM H20788E3 R(4) 4 104 scalar COM H2118M2 R(4) 4 760 scalar COM H21M12 R(4) 4 460 scalar COM H21M31 R(4) 4 556 scalar COM H235M3 R(4) 4 724 scalar COM H23E2 R(4) 4 132 scalar COM H23M10 R(4) 4 288 scalar COM H23M11 R(4) 4 364 scalar COM H24E3 R(4) 4 100 scalar COM H24M11 R(4) 4 360 scalar COM H24M12 R(4) 4 456 scalar COM H25452M6 R(4) 4 256 scalar COM H257M8 R(4) 4 280 scalar COM H25E2 R(4) 4 816 scalar COM H25M31 R(4) 4 552 scalar COM H26E2 R(4) 4 696 scalar COM H26M30 R(4) 4 544 scalar COM H28571M2 R(4) 4 852 scalar COM H285M4 R(4) 4 216 scalar COM H28E1 R(4) 4 868 scalar COM H28M11 R(4) 4 356 scalar COM H28M12 R(4) 4 452 scalar COM H29316E2 R(4) 4 648 scalar COM H2945E2 R(4) 4 128 scalar COM H29M12 R(4) 4 448 scalar COM H2E2 R(4) 4 688 scalar COM H2E6 R(4) 4 616 scalar COM Page 17 Source Listing TABLE 2025-03-12 18:23 Symbol Table TABLE.F Name Type Bytes Offset Dimen Elements Attributes References H2M11 R(4) 4 368 scalar COM H2P5 R(4) 4 164 scalar COM H2P8 R(4) 4 160 scalar COM H2P9 R(4) 4 156 scalar COM H3082E2 R(4) 4 120 scalar COM H3116E1 R(4) 4 656 scalar COM H323M4 R(4) 4 768 scalar COM H327M8 R(4) 4 276 scalar COM H32M11 R(4) 4 348 scalar COM H35E1 R(4) 4 140 scalar COM H35M11 R(4) 4 344 scalar COM H36M13 R(4) 4 484 scalar COM H37412M5 R(4) 4 232 scalar COM 440,481 H37M11 R(4) 4 340 scalar COM H37M12 R(4) 4 440 scalar COM H38M12 R(4) 4 436 scalar COM H391M7 R(4) 4 264 scalar COM H394M5 R(4) 4 228 scalar COM H3E2 R(4) 4 124 scalar COM H3M11 R(4) 4 352 scalar COM H3M12 R(4) 4 444 scalar COM H3M14 R(4) 4 500 scalar COM H3M3 R(4) 4 804 scalar COM H3M4 R(4) 4 860 scalar COM H3P5 R(4) 4 828 scalar COM H3P6 R(4) 4 144 scalar COM H41666M2 R(4) 4 636 scalar COM H42M11 R(4) 4 336 scalar COM H42M2 R(4) 4 764 scalar COM H44194M2 R(4) 4 700 scalar COM H44871M2 R(4) 4 200 scalar COM H44M11 R(4) 4 332 scalar COM H44M12 R(4) 4 428 scalar COM H451M6 R(4) 4 788 scalar COM H45M12 R(4) 4 424 scalar COM H45M32 R(4) 4 572 scalar COM H46M13 R(4) 4 480 scalar COM H488E4 R(4) 4 92 scalar COM H48M11 R(4) 4 328 scalar COM H4999M6 R(4) 4 252 scalar COM H4E5 R(4) 4 80 scalar COM H4M12 R(4) 4 432 scalar COM H4M33 R(4) 4 576 scalar COM H53M11 R(4) 4 324 scalar COM H559M3 R(4) 4 204 scalar COM H55M32 R(4) 4 568 scalar COM H5725E4 R(4) 4 88 scalar COM H5E2 R(4) 4 116 scalar COM H625M2 R(4) 4 668 scalar COM H62M12 R(4) 4 416 scalar COM H62M34 R(4) 4 580 scalar COM H658M2 R(4) 4 752 scalar COM H65M12 R(4) 4 412 scalar COM H67390E2 R(4) 4 772 scalar COM H6938M5 R(4) 4 224 scalar COM Page 18 Source Listing TABLE 2025-03-12 18:23 Symbol Table TABLE.F Name Type Bytes Offset Dimen Elements Attributes References H69766E5 R(4) 4 720 scalar COM H6M12 R(4) 4 420 scalar COM H6P08108 R(4) 4 836 scalar COM H71E26 R(4) 4 60 scalar COM H72M11 R(4) 4 320 scalar COM H74M12 R(4) 4 408 scalar COM H75826M4 R(4) 4 736 scalar COM H77M11 R(4) 4 316 scalar COM H77M12 R(4) 4 404 scalar COM H7M6 R(4) 4 248 scalar COM H8121E1 R(4) 4 684 scalar COM H82M11 R(4) 4 308 scalar COM H83E26 R(4) 4 56 scalar COM H83M11 R(4) 4 304 scalar COM H8725M8 R(4) 4 272 scalar COM H8M11 R(4) 4 312 scalar COM H8M13 R(4) 4 476 scalar COM H93M12 R(4) 4 400 scalar COM H96M12 R(4) 4 396 scalar COM H987M4 R(4) 4 212 scalar COM H9M32 R(4) 4 564 scalar COM H9P94 R(4) 4 660 scalar COM HAF R(4) 4 44 scalar COM 351,437,480 HM13EZ R(4) 4 592 scalar COM HM1597E1 R(4) 4 812 scalar COM HM161E1 R(4) 4 796 scalar COM HM1797E1 R(4) 4 680 scalar COM HM181E1 R(4) 4 604 scalar COM HM19EZ R(4) 4 596 scalar COM HM1E1 R(4) 4 600 scalar COM HM1E2 R(4) 4 608 scalar COM HM1EZ R(4) 4 692 scalar COM HM2M2 R(4) 4 644 scalar COM HM6666M2 R(4) 4 628 scalar COM HM8E1 R(4) 4 864 scalar COM HMP5 R(4) 4 640 scalar COM HMP575 R(4) 4 588 scalar COM HMP66667 R(4) 4 624 scalar COM HMP805 R(4) 4 840 scalar COM HNINETY R(4) 4 4 scalar COM 397 HP1 R(4) 4 196 scalar COM 462,591 HP118666 R(4) 4 820 scalar COM HP144 R(4) 4 712 scalar COM HP166666 R(4) 4 632 scalar COM HP219 R(4) 4 708 scalar COM HP228 R(4) 4 672 scalar COM HP26 R(4) 4 728 scalar COM HP369 R(4) 4 192 scalar COM HP3795 R(4) 4 776 scalar COM HP5048 R(4) 4 780 scalar COM HP518 R(4) 4 188 scalar COM HP526315 R(4) 4 848 scalar COM HP6 R(4) 4 664 scalar COM HP602409 R(4) 4 844 scalar COM HP60241 R(4) 4 676 scalar COM Page 19 Source Listing TABLE 2025-03-12 18:23 Symbol Table TABLE.F Name Type Bytes Offset Dimen Elements Attributes References HP8 R(4) 4 184 scalar COM HP805 R(4) 4 744 scalar COM HP816 R(4) 4 716 scalar COM HTMG R(4) 4 743768 3 4183695 COM HUNDRED R(4) 4 0 scalar COM 551 IBAND I(4) 4 0 1 40 COM 454 IBROW I(4) 4 404 scalar COM ICHUNKTAB I(4) 4 828 1 21 COM IE_GLB_TABLE I(4) 4 84 1 21 COM IE_LOC_TABLE I(4) 4 660 1 21 COM ILCOL I(4) 4 396 scalar COM ILPAD1 I(4) 4 412 scalar COM ILPAD2 I(4) 4 416 scalar COM ILPAD3 I(4) 4 420 scalar COM ILPAD4 I(4) 4 424 scalar COM ILPAD5 I(4) 4 428 scalar COM IND I(4) 4 0 1 237 COM 362 INDX2 I(4) 4 948 1 2116 COM 369 INUMQ I(4) 4 1324 1 100 COM IQUILT_GROUP I(4) 4 1320 scalar COM IRCOL I(4) 4 400 scalar COM IRPAD1 I(4) 4 432 scalar COM IRPAD2 I(4) 4 436 scalar COM IRPAD3 I(4) 4 440 scalar COM IRPAD4 I(4) 4 444 scalar COM IRPAD5 I(4) 4 448 scalar COM IS_GLB_TABLE I(4) 4 0 1 21 COM IS_LOC_TABLE I(4) 4 492 1 21 COM ITEMP I(4) 4 5870016 2 91719 COM ITEMP2 I(4) 4 6236892 2 91719 COM ITROW I(4) 4 408 scalar COM JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM JS_GLB_TABLE I(4) 4 168 1 21 COM JS_LOC_TABLE I(4) 4 576 1 21 COM JTPAD1 I(4) 4 472 scalar COM JTPAD2 I(4) 4 476 scalar COM JTPAD3 I(4) 4 480 scalar COM JTPAD4 I(4) 4 484 scalar COM JTPAD5 I(4) 4 488 scalar COM KMAXV I(4) 4 9412 1 46 COM 372,374,376 KMAXVM I(4) 4 9596 scalar COM 376 L2GI I(4) 4 956 1 239 COM L2GJ I(4) 4 3468 1 389 COM MPI_COMM_COMP I(4) 4 912 scalar COM MPI_COMM_INTER I(4) 4 916 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 920 1 100 COM MYIE I(4) 4 52 scalar COM MYIE1 I(4) 4 56 scalar COM MYIE1_P1 I(4) 4 120 scalar COM Page 20 Source Listing TABLE 2025-03-12 18:23 Symbol Table TABLE.F Name Type Bytes Offset Dimen Elements Attributes References MYIE1_P2 I(4) 4 124 scalar COM MYIE1_P3 I(4) 4 128 scalar COM MYIE1_P4 I(4) 4 132 scalar COM MYIE2 I(4) 4 60 scalar COM MYIE2_P1 I(4) 4 136 scalar COM MYIE_P1 I(4) 4 100 scalar COM MYIE_P2 I(4) 4 104 scalar COM MYIE_P3 I(4) 4 108 scalar COM MYIE_P4 I(4) 4 112 scalar COM MYIE_P5 I(4) 4 116 scalar COM MYIS I(4) 4 40 scalar COM MYIS1 I(4) 4 44 scalar COM MYIS1_P1 I(4) 4 84 scalar COM MYIS1_P2 I(4) 4 88 scalar COM MYIS1_P3 I(4) 4 92 scalar COM MYIS1_P4 I(4) 4 96 scalar COM MYIS2 I(4) 4 48 scalar COM MYIS_P1 I(4) 4 64 scalar COM MYIS_P2 I(4) 4 68 scalar COM MYIS_P3 I(4) 4 72 scalar COM MYIS_P4 I(4) 4 76 scalar COM MYIS_P5 I(4) 4 80 scalar COM MYJE I(4) 4 236 scalar COM MYJE1 I(4) 4 240 scalar COM MYJE1_P1 I(4) 4 280 scalar COM MYJE1_P2 I(4) 4 284 scalar COM MYJE1_P3 I(4) 4 288 scalar COM MYJE1_P4 I(4) 4 292 scalar COM MYJE2 I(4) 4 244 scalar COM MYJE2_P1 I(4) 4 296 scalar COM MYJE2_P2 I(4) 4 300 scalar COM MYJE2_P3 I(4) 4 304 scalar COM MYJE2_P4 I(4) 4 308 scalar COM MYJE3 I(4) 4 248 scalar COM MYJE3_P4 I(4) 4 312 scalar COM MYJE4 I(4) 4 252 scalar COM MYJE4_P1 I(4) 4 316 scalar COM MYJE4_P4 I(4) 4 320 scalar COM MYJE5 I(4) 4 256 scalar COM MYJE5_P1 I(4) 4 324 scalar COM MYJE5_P2 I(4) 4 328 scalar COM MYJE_P1 I(4) 4 260 scalar COM MYJE_P2 I(4) 4 264 scalar COM MYJE_P3 I(4) 4 268 scalar COM MYJE_P4 I(4) 4 272 scalar COM MYJE_P5 I(4) 4 276 scalar COM MYJS I(4) 4 140 scalar COM MYJS1 I(4) 4 144 scalar COM MYJS1_P1 I(4) 4 184 scalar COM MYJS1_P2 I(4) 4 188 scalar COM MYJS1_P3 I(4) 4 192 scalar COM MYJS1_P4 I(4) 4 196 scalar COM MYJS2 I(4) 4 148 scalar COM MYJS2_P1 I(4) 4 200 scalar COM MYJS2_P2 I(4) 4 204 scalar COM Page 21 Source Listing TABLE 2025-03-12 18:23 Symbol Table TABLE.F Name Type Bytes Offset Dimen Elements Attributes References MYJS2_P3 I(4) 4 208 scalar COM MYJS2_P4 I(4) 4 212 scalar COM MYJS3 I(4) 4 152 scalar COM MYJS3_P4 I(4) 4 216 scalar COM MYJS4 I(4) 4 156 scalar COM MYJS4_P1 I(4) 4 220 scalar COM MYJS4_P4 I(4) 4 224 scalar COM MYJS5 I(4) 4 160 scalar COM MYJS5_P1 I(4) 4 228 scalar COM MYJS5_P2 I(4) 4 232 scalar COM MYJS_P1 I(4) 4 164 scalar COM MYJS_P2 I(4) 4 168 scalar COM MYJS_P3 I(4) 4 172 scalar COM MYJS_P4 I(4) 4 176 scalar COM MYJS_P5 I(4) 4 180 scalar COM MYPE I(4) 4 0 scalar COM MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM MY_JS_LOC I(4) 4 32 scalar COM MY_N I(4) 4 332 scalar COM MY_NE I(4) 4 348 scalar COM MY_NEB I(4) 4 364 1 8 COM MY_NW I(4) 4 360 scalar COM MY_S I(4) 4 340 scalar COM MY_SE I(4) 4 352 scalar COM MY_SW I(4) 4 356 scalar COM MY_W I(4) 4 344 scalar COM NPES I(4) 4 4 scalar COM O3DIFCTR R(4) 4 20 scalar COM ONE R(4) 4 40 scalar COM 380,445,486,556 P0 R(4) 4 24 scalar COM P0INV R(4) 4 72 scalar COM P0X2 R(4) 4 36 scalar COM P0XZP2 R(4) 4 28 scalar COM P0XZP8 R(4) 4 32 scalar COM PERTSM R(4) 4 20160 2 5040 COM 537,561,579 QUARTR R(4) 4 48 scalar COM R1 R(4) 4 126040 1 28 COM 528,601 R1WD R(4) 4 126488 1 28 COM 532,619 R2 R(4) 4 126152 1 28 COM 529,605 RADCON R(4) 4 40 scalar COM RADCON1 R(4) 4 64 scalar COM RATCO2MW R(4) 4 56 scalar COM RATH2OMW R(4) 4 60 scalar COM RGAS R(4) 4 44 scalar COM RGASSP R(4) 4 48 scalar COM S2 R(4) 4 126264 1 28 COM 530,605 SC R(4) 4 123864 1 28 COM 486,487,491 SECPDA R(4) 4 52 scalar COM Page 22 Source Listing TABLE 2025-03-12 18:23 Symbol Table TABLE.F Name Type Bytes Offset Dimen Elements Attributes References SIXTY R(4) 4 8 scalar COM SKC1R R(4) 4 48 scalar COM 378 SKO2D R(4) 4 44 scalar COM 380 SKO3R R(4) 4 52 scalar COM 379 SOURCE R(4) 4 130560 2 420 COM 407,454,458,462 SRC1NB R(4) 4 85904 2 4564 COM 491,514,523,560,572 SRCS R(4) 4 125368 1 28 COM 445,446 SRCWD R(4) 4 80640 2 1316 COM 411,446,454,458 SUM R(4) 4 0 2 5040 COM 536,560,578 SUM3 R(4) 4 40320 2 5040 COM 538,565,583 SUM4 R(4) 4 125480 1 28 COM 502,514,528 SUM4WD R(4) 4 125928 1 28 COM 506,523,532 SUM6 R(4) 4 125592 1 28 COM 503,515,529 SUM7 R(4) 4 125704 1 28 COM 504,516,530 SUM8 R(4) 4 125816 1 28 COM 505,517,531 SUMWDE R(4) 4 60480 2 5040 COM 539,572,615 T3 R(4) 4 126376 1 28 COM 531,605 TABLE1 R(4) 4 49920 2 5040 COM 579,587,591 TABLE2 R(4) 4 70080 2 5040 COM 587,594 TABLE3 R(4) 4 90240 2 5040 COM 591,597 TEMP1 R(4) 4 0 2 91719 COM TEMP10 R(4) 4 3301884 2 91719 COM TEMP11 R(4) 4 3668760 2 91719 COM TEMP12 R(4) 4 4035636 2 91719 COM TEMP13 R(4) 4 4402512 2 91719 COM TEMP14 R(4) 4 4769388 2 91719 COM TEMP15 R(4) 4 5136264 2 91719 COM TEMP16 R(4) 4 5503140 2 91719 COM TEMP2 R(4) 4 366876 2 91719 COM TEMP2X R(4) 4 0 2 92971 COM TEMP3 R(4) 4 733752 2 91719 COM TEMP4 R(4) 4 1100628 2 91719 COM TEMP5 R(4) 4 1467504 2 91719 COM TEMP6 R(4) 4 1834380 2 91719 COM TEMP7 R(4) 4 2201256 2 91719 COM TEMP8 R(4) 4 2568132 2 91719 COM TEMP9 R(4) 4 2935008 2 91719 COM TEN R(4) 4 16 scalar COM 397,434,435,437,438,587 TFOUR R(4) 4 124200 1 28 COM 398,528,532,578,615 THREE R(4) 4 32 scalar COM 605 TTVG R(4) 4 371884 2 92971 COM TWO R(4) 4 36 scalar COM 605 X R(4) 4 124424 1 28 COM 443,444,484,485,487 X1 R(4) 4 124536 1 28 COM 444,445,485,486,487 X2 R(4) 4 124648 1 180 COM 547,548,551,556 XTEMV R(4) 4 124088 1 28 COM 397,398,399,443,484,487 ZERO R(4) 4 52 scalar COM 407,411,502,503,504,505,506,536,53 7,538,539,552,594,597 ZMASS R(4) 4 122416 1 181 COM 390,393,394,556,605,609 ZROOT R(4) 4 123140 1 181 COM 393,547 Page 23 Source Listing TABLE 2025-03-12 18:23 Subprograms/Common Blocks TABLE.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References BANDTA Common 228 5900 BDCOMB Common 296 736 BDWIDE Common 256 56 GLB_TABLE Common 142 336 SAVE HCON Common 25 872 SAVE MAPPINGS Common 161 5024 SAVE MPPCOM Common 106 1724 SAVE PHYCON Common 18 80 SAVE SCRTCH Common 332 132844 TABCOM Common 323 133920 TABLE Subr 2 TBLTMP Common 344 60 TEMPCOM Common 147 6603768 SAVE TOPO Common 155 17478548 SAVE COMPILER OPTIONS BEING USED -align noall -align nonone -align nocommons -align nodcommons -align noqcommons -align nozcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -align norec32byte -align norec64byte -align noarray8byte -align noarray16byte -align noarray32byte -align noarray64byte -align noarray128byte -align noarray256byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume nobuffered_stdout -assume byterecl -assume nocontiguous_assumed_shape -assume nocontiguous_pointer -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_complex_align -assume old_unit_star -assume old_inquire_recl -assume old_ldout_format -assume old_ldout_zero -assume noold_logical_assign -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume noprotect_allocates -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume std_minus0_rounding -assume nostd_mod_proc_name -assume std_value -assume realloc_lhs -assume underscore -assume no2underscores -assume norecursion no -auto -auto_scalar no -bintext -ccdefault default -check noarg_temp_created -check noassume -check nobounds -check nocontiguous -check noformat -check nooutput_conversion Page 24 Source Listing TABLE 2025-03-12 18:23 TABLE.F -check nooverflow -check nopointers -check noshape -check nostack -check nouninitialized -check noudio_iostat -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1910 -D __INTEL_COMPILER_UPDATE=3 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D __amd64 -D __amd64__ -D __INTEL_COMPILER_BUILD_DATE=20200925 -D __INTEL_OFFLOAD -D __MMX__ -D __SSE__ -D __SSE_MATH__ -D __SSE2__ -D __SSE2_MATH__ -D __SSE3__ -D __SSSE3__ -D __SSE4_1__ -D __SSE4_2__ -D __POPCNT__ -D __PCLMUL__ -D __AES__ -D __AVX__ -D __F16C__ -D __AVX_I__ -D __RDRND__ -D __FMA__ -D __FP_FAST_FMA -D __FP_FAST_FMAF -D __BMI__ -D __LZCNT__ -D __AVX2__ -D __haswell -D __haswell__ -D __tune_haswell__ -D __core_avx2 -D __core_avx2__ -D __tune_core_avx2__ -D __CRAY_X86_ROME -D __CRAYXT_COMPUTE_LINUX_TARGET -double_size 64 no -d_lines no -Qdyncom -error_limit 30 no -f66 no -f77rtl no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals -fixed no -fpconstant -fpe3 -fprm nearest no -ftz -fp_model precise -fp_model nofast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -fp_modbits nofp_contract -fp_modbits nono_fp_contract -fp_modbits nofenv_access -fp_modbits nono_fenv_access -fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range -fp_modbits noprec_div -fp_modbits nono_prec_div -fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt -fp_modbits noftz -fp_modbits no_ftz -fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range -fp_modbits notrunc_compares -fp_modbits nono_trunc_compares -fp_modbits noieee_nan_compares -fp_modbits nono_ieee_nan_compares -fp_modbits nohonor_f32_conversion -fp_modbits nono_honor_f32_conversion -fp_modbits nohonor_f64_conversion -fp_modbits nono_honor_f64_conversion -fp_modbits nono_x87_copy -fp_modbits nono_no_x87_copy -fp_modbits noexception_semantics -fp_modbits nono_exception_semantics -fp_modbits noprecise_libm_functions -fp_modbits nono_precise_libm_functions -heap_arrays 0 no -threadprivate_compat -g2 -iface nomixed_str_len_arg Page 25 Source Listing TABLE 2025-03-12 18:23 TABLE.F -iface nono_mixed_str_len_arg -init noarrays -init nohuge -init noinfinity -init nominus_huge -init nominus_infinity -init nominus_tiny -init nonan -init nosnan -init notiny -init nozero no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude no -o -offload-build=host -openmp-simd -O2 no -pad_source -real_size 32 no -recursive -reentrancy threaded -vec=simd -show nofullpath -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w nodeclarations -w noexternals -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w noshape -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage no -wrap-margins -includepath : /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/, .f90,./.f90,/opt/cray/pe/mpich/8.1.12/ofi/intel/19.0/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/ipp/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/mkl/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/stdlib/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/tbb/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/intel64/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/icc/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/.f90,/usr/lib64/gcc/x86_64-suse-linux/7/include/.f90, /usr/lib64/gcc/x86_64-suse-linux/7/include-fixed/.f90,/usr/include/.f90,/usr/include/.f90,/usr/include/.f90 -list filename : TABLE.lst no -o COMPILER: Intel(R) Fortran 19.1-1655