Page 1 Source Listing TABLE 2014-12-17 20:47 /tmpnwprd/ifortqkCLeU.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 2014-12-17 20:47 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" 90 INCLUDE "mpp.h" 91 C----------------------------------------------------------------------- 92 C PARAMETER SETTINGS FOR THE LONGWAVE AND SHORTWAVE RADIATION CODE: 93 C IMAX = NO. POINTS ALONG THE LAT. CIRCLE USED IN CALCS. 94 C L = NO. VERTICAL LEVELS (ALSO LAYERS) IN MODEL 95 C***NOTE: THE USER NORMALLY WILL MODIFY ONLY THE IMAX AND L PARAMETERS 96 C NBLW = NO. FREQ. BANDS FOR APPROX COMPUTATIONS. SEE 97 C BANDTA FOR DEFINITION 98 C NBLX = NO. FREQ BANDS FOR APPROX CTS COMPUTATIONS 99 C NBLY = NO. FREQ. BANDS FOR EXACT CTS COMPUTATIONS. SEE 100 C BDCOMB FOR DEFINITION 101 C INLTE = NO. LEVELS USED FOR NLTE CALCS. 102 C NNLTE = INDEX NO. OF FREQ. BAND IN NLTE CALCS. 103 C NB,KO2 ARE SHORTWAVE PARAMETERS; OTHER QUANTITIES ARE DERIVED 104 C FROM THE ABOVE PARAMETERS. 163 PARAMETER (L=LM) 164 PARAMETER (IMAX=IM,NCOL=IMAX) 165 PARAMETER (NBLW=163,NBLX=47,NBLY=15) 166 PARAMETER (NBLM=NBLY-1) 167 PARAMETER (LP1=L+1,LP2=L+2,LP3=L+3) 168 PARAMETER (LM1=L-1,LM2=L-2,LM3=L-3) 169 PARAMETER (LL=2*L,LLP1=LL+1,LLP2=LL+2,LLP3=LL+3) 170 PARAMETER (LLM1=LL-1,LLM2=LL-2,LLM3=LL-3) 171 PARAMETER (LP1M=LP1*LP1,LP1M1=LP1M-1) 172 PARAMETER (LP1V=LP1*(1+2*L/2)) 173 PARAMETER (LP121=LP1*NBLY) 174 PARAMETER (LL3P=3*L+2) 175 PARAMETER (NB=12) 176 PARAMETER (INLTE=3,INLTEP=INLTE+1,NNLTE=56) 177 PARAMETER (LP1I=IMAX*LP1,LLP1I=IMAX*LLP1,LL3PI=IMAX*LL3P) 178 PARAMETER (NB1=NB-1) 179 PARAMETER (KO2=12) 180 PARAMETER (KO21=KO2+1,KO2M=KO2-1) 181 C PARAMETER SETTINGS FOR THE LONGWAVE AND SHORTWAVE RADIATION CODE: 182 C IMAX = NO. POINTS SENT TO RADFS 183 C L = NO. VERTICAL LEVELS (ALSO LAYERS) IN MODEL 184 C***NOTE: THE USER NORMALLY WILL MODIFY ONLY THE IMAX AND L PARAMETERS 185 C NBLW = NO. FREQ. BANDS FOR APPROX COMPUTATIONS. SEE 186 C BANDTA FOR DEFINITION 187 C NBLX = NO. FREQ BANDS FOR APPROX CTS COMPUTATIONS 188 C NBLY = NO. FREQ. BANDS FOR EXACT CTS COMPUTATIONS. SEE 189 C BDCOMB FOR DEFINITION 190 C INLTE = NO. LEVELS USED FOR NLTE CALCS. 191 C NNLTE = INDEX NO. OF FREQ. BAND IN NLTE CALCS. 192 C NB,KO2 ARE SHORTWAVE PARAMETERS; OTHER QUANTITIES ARE DERIVED 193 C FROM THE ABOVE PARAMETERS. 194 C COMMON BLOCK BANDTA CONTAINS RANDOM BAND PARAMETERS FOR THE LW Page 3 Source Listing TABLE 2014-12-17 20:47 TABLE.F 195 C CALCULATIONS USING 10 CM-1 WIDE BANDS.THE 15 UM CO2 COMPLEX 196 C IS 2 BANDS,560-670 AND 670-800 CM-1. OZONE COEFFICIENTS ARE 197 C IN 3 BANDS,670-800 (14.1 UM),990-1070 AND 1070-1200 (9.6 UM). 198 C THE (NBLW) BANDS NOW INCLUDE: 199 C 56 BANDS, 10 CM-1 WIDE 0 - 560 CM-1 200 C 2 BANDS, 15 UM COMPLEX 560 - 670 CM-1 201 C 670 - 800 CM-1 202 C 3 "CONTINUUM" BANDS 800 - 900 CM-1 203 C 900 - 990 CM-1 204 C 1070 - 1200 CM-1 205 C 1 BAND FOR 9.6 UM BAND 990 - 1070 CM-1 206 C 100 BANDS, 10 CM-1 WIDE 1200 - 2200 CM-1 207 C 1 BAND FOR 4.3 UM SRC 2270 - 2380 CM-1 208 C THUS NBLW PRESENTLY EQUALS 163 209 C ALL BANDS ARE ARRANGED IN ORDER OF INCREASING WAVENUMBER 210 C 211 C ARNDM = RANDOM "A" PARAMETER FOR (NBLW) BANDS 212 C BRNDM = RANDOM "B" PARAMETER FOR (NBLW) BANDS 213 C BETAD = CONTINUUM COEFFICIENTS FOR (NBLW) BANDS 214 C AP,BP = CAPPHI COEFFICIENTS FOR (NBLW) BANDS 215 C ATP,BTP = CAPPSI COEFFICIENTS FOR (NBLW) BANDS 216 C BANDLO = LOWEST FREQUENCY IN EACH OF (NBLW) FREQ. BANDS 217 C BANDHI = HIGHEST FREQUENCY IN EACH OF (NBLW) FREQ. BANDS 218 C AO3RND = RANDOM "A" PARAMETER FOR OZONE IN (3) OZONE 219 C BANDS 220 C BO3RND = RANDOM "B" PARAMETER FOR OZONE IN (3) OZONE 221 C BANDS 222 C AB15 = THE PRODUCT ARNDM*BRNDM FOR THE TWO BANDS 223 C REPRESENTING THE 15 UM BAND COMPLEX OF CO2 224 C DATA FOR ARNDM,BRNDM,AP,BP,ATP,BTP,AO3RND,BO3RND ARE OBTAINED BY 225 C USING THE AFGL 1982 CATALOG. CONTINUUM COEFFICIENTS ARE FROM 226 C ROBERTS (1976). 227 COMMON / BANDTA / ARNDM(NBLW),BRNDM(NBLW),BETAD(NBLW),AP(NBLW), 228 1 BP(NBLW),ATP(NBLW),BTP(NBLW),BANDLO(NBLW), 229 2 BANDHI(NBLW),AO3RND(3),BO3RND(3),AB15(2) 230 C 231 C COMMON BLOCK BDWIDE CONTAINS RANDOM BAND PARAMETERS FOR SPECIFIC 232 C WIDE BANDS. AT PRESENT,THE INFORMATION CONSISTS OF 1) RANDOM 233 C MODEL PARAMETERS FOR THE 15 UM BAND,560-800 CM-1; 2) THE 234 C CONTINUUM COEFFICIENT FOR THE 800-990,1070-1200 CM-1 BAND 235 C SPECIFICALLY: 236 C AWIDE = RANDOM "A" PARAMETER FOR BAND 237 C BWIDE = RANDOM "B" PARAMETER FOR BAND 238 C BETAWD = CONTINUUM COEFFICIENTS FOR BAND 239 C APWD,BPWD = CAPPHI COEFFICIENTS FOR BAND 240 C ATPWD,BTPWD = CAPPSI COEFFICIENTS FOR BAND 241 C BDLOWD = LOWEST FREQUENCY IN EACH FREQ BAND 242 C BDHIWD = HIGHEST FREQUENCY IN EACH FREQ BAND 243 C AB15WD = THE PRODUCT ARNDM*BRNDM FOR THE ONE BAND 244 C REPRESENTING THE 15 UM BAND COMPLEX OF CO2 245 C BETINW = CONT.COEFFICIENT FOR A SPECIFIED WIDE 246 C FREQ.BAND (800-990 AND 1070-1200 CM-1). 247 C SKO2D = 1./BETINW, USED IN SPA88 FOR CONT. COEFFS 248 C SKC1R = BETAWD/BETINW, USED FOR CONT. COEFF. FOR 249 C 15 UM BAND IN FST88 250 C SKO3R = RATIO OF CONT. COEFF. FOR 9.9 UM BAND TO 251 C BETINW, USED FOR 9.6 UM CONT COEFF IN FST88 Page 4 Source Listing TABLE 2014-12-17 20:47 TABLE.F 252 C DATA FOR AWIDE,BWIDE,APWD,BPWD,ATPWD,BTPWD,AO3WD,BO3WD ARE 253 C OBTAINED BY USING THE AFGL 1982 CATALOG. CONTINUUM COEFFICIENTS 254 C ARE FROM ROBERTS (1976). 255 COMMON / BDWIDE / AWIDE,BWIDE,BETAWD, 256 1 APWD,BPWD,ATPWD,BTPWD, 257 2 BDLOWD,BDHIWD,BETINW, 258 3 AB15WD,SKO2D,SKC1R,SKO3R 259 C 260 C COMMON BLOCK BDCOMB CONTAINS RANDOM BAND PARAMETERS FOR THE LW 261 C CALCULATIONS USING COMBINED WIDE FREQUENCY BANDS BETWEEN 160 AND 262 C 1200 CM-1,AS WELL AS THE 2270-2380 BAND FOR SOURCE CALC. 263 C BANDS 1-8: COMBINED WIDE FREQUENCY BANDS FOR 160-560 CM-1 264 C BANDS 9-14: FREQUENCY BANDS,AS IN BANDTA (NARROW BANDS) 265 C FOR 560-1200 CM-1 266 C BAND 15: FREQUENCY BAND 2270-2380 CM-1,USED FOR SOURCE 267 C CALCULATION ONLY 268 C THUS NBLY PRESENTLY EQUALS 15 269 C 270 C BANDS ARE ARRANGED IN ORDER OF INCREASING WAVENUMBER 271 C ACOMB = RANDOM "A" PARAMETER FOR (NBLY) BANDS 272 C BCOMB = RANDOM "B" PARAMETER FOR (NBLY) BANDS 273 C BETACM = CONTINUUM COEFFICIENTS FOR (NBLY) BANDS 274 C APCM,BPCM = CAPPHI COEFFICIENTS FOR (NBLY) BANDS 275 C ATPCM,BTPCM = CAPPSI COEFFICIENTS FOR (NBLY) BANDS 276 C BDLOCM = LOWEST FREQUENCY IN EACH OF (NBLY) FREQ. BANDS 277 C BDHICM = HIGHEST FREQUENCY IN EACH OF (NBLY) FREQ. BANDS 278 C AO3CM = RANDOM "A" PARAMETER FOR OZONE IN (3) OZONE 279 C BANDS 280 C BO3CM = RANDOM "B" PARAMETER FOR OZONE IN (3) OZONE 281 C BANDS 282 C AB15CM = THE PRODUCT ARNDM*BRNDM FOR THE TWO BANDS 283 C REPRESENTING THE 15 UM BAND COMPLEX OF CO2 284 C BETINC = CONT.COEFFICIENT FOR A SPECIFIED WIDE 285 C FREQ.BAND (800-990 AND 1070-1200 CM-1). 286 C IBAND = INDEX NO OF THE 40 WIDE BANDS USED IN 287 C COMBINED WIDE BAND CALCULATIONS. IN OTHER 288 C WORDS,INDEX TELLING WHICH OF THE 40 WIDE 289 C BANDS BETWEEN 160-560 CM-1 ARE INCLUDED IN 290 C EACH OF THE FIRST 8 COMBINED WIDE BANDS 291 C DATA FOR ACOMB,BCOMB,APCM,BPCM,ATPCM,BTPCM,AO3CM,BO3CM ARE 292 C OBTAINED BY USING THE AFGL 1982 CATALOG. CONTINUUM COEFFICIENTS 293 C ARE FROM ROBERTS (1976). IBAND INDEX VALUES ARE OBTAINED BY 294 C EXPERIMENTATION. 295 COMMON / BDCOMB / IBAND(40),ACOMB(NBLY),BCOMB(NBLY), 296 1 BETACM(NBLY),APCM(NBLY),BPCM(NBLY),ATPCM(NBLY), 297 2 BTPCM(NBLY),BDLOCM(NBLY),BDHICM(NBLY),BETINC, 298 3 AO3CM(3),BO3CM(3),AB15CM(2) 299 C 300 C COMMON BLOCK TABCOM CONTAINS QUANTITIES PRECOMPUTED IN SUBROUTINE 301 C TABLE FOR USE IN THE LONGWAVE RADIATION PROGRAM: 302 C EM1 = E1 FUNCTION, EVALUATED OVER THE 0-560 AND 303 C 1200-2200 CM-1 INTERVALS 304 C EM1WDE = E1 FUNCTION, EVALUATED OVER THE 160-560 CM-1 305 C INTERVAL 306 C TABLE1 = E2 FUNCTION, EVALUATED OVER THE 0-560 AND 307 C 1200-2200 CM-1 INTERVALS 308 C TABLE2 = TEMPERATURE DERIVATIVE OF TABLE1 Page 5 Source Listing TABLE 2014-12-17 20:47 TABLE.F 309 C TABLE3 = MASS DERIVATIVE OF TABLE1 310 C EM3 = E3 FUNCTION, EVALUATED OVER THE 0-560 AND 311 C 1200-2200 CM-1 INTERVALS 312 C SOURCE = PLANCK FUNCTION, EVALUATED AT SPECIFIED TEMPS. FOR 313 C BANDS USED IN CTS CALCULATIONS 314 C DSRCE = TEMPERATURE DERIVATIVE OF SOURCE 315 C IND = INDEX, WITH VALUE IND(I)=I. USED IN FST88 316 C INDX2 = INDEX VALUES USED IN OBTAINING "LOWER TRIANGLE" 317 C ELEMENTS OF AVEPHI,ETC.,IN FST88 318 C KMAXV = INDEX VALUES USED IN OBTAINING "UPPER TRIANGLE" 319 C ELEMENTS OF AVEPHI,ETC.,IN FST88 320 C KMAXVM = KMAXV(L),USED FOR DO LOOP INDICES 321 C 322 COMMON / TABCOM / IND(IMAX),INDX2(LP1V),KMAXV(LP1), 323 1 KMAXVM 324 COMMON/TABCOM/EM1(28,180),EM1WDE(28,180),TABLE1(28,180), 325 1 TABLE2(28,180),TABLE3(28,180),EM3(28,180),SOURCE(28,NBLY), 326 2 DSRCE(28,NBLY) 327 C 328 C% #NPADL = #PAGE*#NPAGE - 4*28*180 - 2*181 - 7*28 - 180 ; 329 C% #NPADL = #NPADL - 11*28 - 2*180 - 2*30 ; 330 C PARAMETER (NPADL = #NPADL - 28*NBLX - 2*28*NBLW - 7*NBLW) 331 COMMON /SCRTCH/ SUM(28,180),PERTSM(28,180),SUM3(28,180), 332 1 SUMWDE(28,180),SRCWD(28,NBLX),SRC1NB(28,NBLW),DBDTNB(28,NBLW) 333 COMMON /SCRTCH/ ZMASS(181),ZROOT(181),SC(28),DSC(28),XTEMV(28), 334 1 TFOUR(28),FORTCU(28),X(28),X1(28),X2(180),SRCS(28), 335 2 SUM4(28),SUM6(28),SUM7(28),SUM8(28),SUM4WD(28), 336 3 R1(28),R2(28),S2(28),T3(28),R1WD(28) 337 COMMON /SCRTCH/ EXPO(180),FAC(180) 338 COMMON/SCRTCH/CNUSB(30),DNUSB(30) 339 COMMON/SCRTCH/ALFANB(NBLW),AROTNB(NBLW) 340 COMMON/SCRTCH/ANB(NBLW),BNB(NBLW),CENTNB(NBLW),DELNB(NBLW), 341 1 BETANB(NBLW) 342 C COMMON/SCRTCH/PADLOC(NPADL) 343 COMMON/TBLTMP/ DELCM(NBLY) 344 C**************************************** 345 C***COMPUTE LOCAL QUANTITIES AND AO3,BO3,AB15 346 C....FOR NARROW-BANDS... 347 DO 101 N=1,NBLW 348 ANB(N)=ARNDM(N) 349 BNB(N)=BRNDM(N) 350 CENTNB(N)=HAF*(BANDLO(N)+BANDHI(N)) 351 DELNB(N)=BANDHI(N)-BANDLO(N) 352 BETANB(N)=BETAD(N) 353 101 CONTINUE 354 AB15(1)=ANB(57)*BNB(57) 355 AB15(2)=ANB(58)*BNB(58) 356 C....FOR WIDE BANDS... 357 AB15WD=AWIDE*BWIDE 358 C 359 C***COMPUTE INDICES: IND,INDX2,KMAXV 360 DO 111 I=1,IMAX 361 IND(I)=I 362 111 CONTINUE 363 ICNT=0 364 DO 113 I1=1,L 365 I2E=LP1-I1 Page 6 Source Listing TABLE 2014-12-17 20:47 TABLE.F 366 DO 115 I2=1,I2E 367 ICNT=ICNT+1 368 INDX2(ICNT)=LP1*(I2-1)+LP2*I1 369 115 CONTINUE 370 113 CONTINUE 371 KMAXV(1)=1 372 DO 117 I=2,L 373 KMAXV(I)=KMAXV(I-1)+(LP2-I) 374 117 CONTINUE 375 KMAXVM=KMAXV(L) 376 C***COMPUTE RATIOS OF CONT. COEFFS 377 SKC1R=BETAWD/BETINW 378 SKO3R=BETAD(61)/BETINW 379 SKO2D=ONE/BETINW 380 C 381 C****BEGIN TABLE COMPUTATIONS HERE*** 382 C***COMPUTE TEMPS, MASSES FOR TABLE ENTRIES 383 C---NOTE: THE DIMENSIONING AND INITIALIZATION OF XTEMV AND OTHER ARRAYS 384 C WITH DIMENSION OF 28 IMPLY A RESTRICTION OF MODEL TEMPERATURES FROM 385 C 100K TO 370K. 386 C---THE DIMENSIONING OF ZMASS,ZROOT AND OTHER ARRAYS WITH DIMENSION OF 387 C 180 IMPLY A RESTRICTION OF MODEL H2O AMOUNTS SUCH THAT OPTICAL PATHS 388 C ARE BETWEEN 10**-16 AND 10**2, IN CGS UNITS. 389 ZMASS(1)=H1M16 390 DO 201 J=1,180 391 JP=J+1 392 ZROOT(J)=SQRT(ZMASS(J)) 393 ZMASS(JP)=ZMASS(J)*H1P25892 394 201 CONTINUE 395 DO 203 I=1,28 396 XTEMV(I)=HNINETY+TEN*I 397 TFOUR(I)=XTEMV(I)*XTEMV(I)*XTEMV(I)*XTEMV(I) 398 FORTCU(I)=FOUR*XTEMV(I)*XTEMV(I)*XTEMV(I) 399 203 CONTINUE 400 C******THE COMPUTATION OF SOURCE,DSRCE IS NEEDED ONLY 401 C FOR THE COMBINED WIDE-BAND CASE.TO OBTAIN THEM,THE SOURCE 402 C MUST BE COMPUTED FOR EACH OF THE (NBLX) WIDE BANDS(=SRCWD) 403 C THEN COMBINED (USING IBAND) INTO SOURCE. 404 DO 205 N=1,NBLY 405 DO 205 I=1,28 406 SOURCE(I,N)=ZERO 407 205 CONTINUE 408 DO 207 N=1,NBLX 409 DO 207 I=1,28 410 SRCWD(I,N)=ZERO 411 207 CONTINUE 412 C---BEGIN FREQ. LOOP (ON N) 413 DO 211 N=1,NBLX 414 IF (N.LE.46) THEN 415 C***THE 160-1200 BAND CASES 416 CENT=CENTNB(N+16) 417 DEL=DELNB(N+16) 418 BDLO=BANDLO(N+16) 419 BDHI=BANDHI(N+16) 420 ENDIF 421 IF (N.EQ.NBLX) THEN 422 C***THE 2270-2380 BAND CASE Page 7 Source Listing TABLE 2014-12-17 20:47 TABLE.F 423 CENT=CENTNB(NBLW) 424 DEL=DELNB(NBLW) 425 BDLO=BANDLO(NBLW) 426 BDHI=BANDHI(NBLW) 427 ENDIF 428 C***FOR PURPOSES OF ACCURACY, ALL EVALUATIONS OF PLANCK FCTNS ARE MADE 429 C ON 10 CM-1 INTERVALS, THEN SUMMED INTO THE (NBLX) WIDE BANDS. 430 NSUBDS=(DEL-H1M3)/10+1 431 DO 213 NSB=1,NSUBDS 432 IF (NSB.NE.NSUBDS) THEN 433 CNUSB(NSB)=TEN*(NSB-1)+BDLO+FIVE 434 DNUSB(NSB)=TEN 435 ELSE 436 CNUSB(NSB)=HAF*(TEN*(NSB-1)+BDLO+BDHI) 437 DNUSB(NSB)=BDHI-(TEN*(NSB-1)+BDLO) 438 ENDIF 439 C1=(H37412M5)*CNUSB(NSB)**3 440 C---BEGIN TEMP. LOOP (ON I) 441 DO 215 I=1,28 442 X(I)=H1P4387*CNUSB(NSB)/XTEMV(I) 443 X1(I)=EXP(X(I)) 444 SRCS(I)=C1/(X1(I)-ONE) 445 SRCWD(I,N)=SRCWD(I,N)+SRCS(I)*DNUSB(NSB) 446 215 CONTINUE 447 213 CONTINUE 448 211 CONTINUE 449 C***THE FOLLOWING LOOPS CREATE THE COMBINED WIDE BAND QUANTITIES SOURCE 450 C AND DSRCE 451 DO 221 N=1,40 452 DO 221 I=1,28 453 SOURCE(I,IBAND(N))=SOURCE(I,IBAND(N))+SRCWD(I,N) 454 221 CONTINUE 455 DO 223 N=9,NBLY 456 DO 223 I=1,28 457 SOURCE(I,N)=SRCWD(I,N+32) 458 223 CONTINUE 459 DO 225 N=1,NBLY 460 DO 225 I=1,27 461 DSRCE(I,N)=(SOURCE(I+1,N)-SOURCE(I,N))*HP1 462 225 CONTINUE 463 DO 231 N=1,NBLW 464 ALFANB(N)=BNB(N)*ANB(N) 465 AROTNB(N)=SQRT(ALFANB(N)) 466 231 CONTINUE 467 C***FIRST COMPUTE PLANCK FCTNS (SRC1NB) AND DERIVATIVES (DBDTNB) FOR 468 C USE IN TABLE EVALUATIONS. THESE ARE DIFFERENT FROM SOURCE,DSRCE 469 C BECAUSE DIFFERENT FREQUENCY PTS ARE USED IN EVALUATION, THE FREQ. 470 C RANGES ARE DIFFERENT, AND THE DERIVATIVE ALGORITHM IS DIFFERENT. 471 C 472 DO 301 N=1,NBLW 473 CENT=CENTNB(N) 474 DEL=DELNB(N) 475 C---NOTE: AT PRESENT, THE IA LOOP IS ONLY USED FOR IA=2. THE LOOP STRUCT 476 C IS KEPT SO THAT IN THE FUTURE, WE MAY USE A QUADRATURE SCHEME FOR 477 C THE PLANCK FCTN EVALUATION, RATHER THAN USE THE MID-BAND FREQUENCY. 478 DO 303 IA=1,3 479 ANU=CENT+HAF*(IA-2)*DEL Page 8 Source Listing TABLE 2014-12-17 20:47 TABLE.F 480 C1=(H37412M5)*ANU*ANU*ANU+H1M20 481 C---TEMPERATURE LOOP--- 482 DO 305 I=1,28 483 X(I)=H1P4387*ANU/XTEMV(I) 484 X1(I)=EXP(X(I)) 485 SC(I)=C1/((X1(I)-ONE)+H1M20) 486 DSC(I)=SC(I)*SC(I)*X(I)*X1(I)/(XTEMV(I)*C1) 487 305 CONTINUE 488 IF (IA.EQ.2) THEN 489 DO 307 I=1,28 490 SRC1NB(I,N)=DEL*SC(I) 491 DBDTNB(I,N)=DEL*DSC(I) 492 307 CONTINUE 493 ENDIF 494 303 CONTINUE 495 301 CONTINUE 496 C***NEXT COMPUTE R1,R2,S2,AND T3- COEFFICIENTS USED FOR E3 FUNCTION 497 C WHEN THE OPTICAL PATH IS LESS THAN 10-4. IN THIS CASE, WE ASSUME A 498 C DIFFERENT DEPENDENCE ON (ZMASS). 499 C---ALSO OBTAIN R1WD, WHICH IS R1 SUMMED OVER THE 160-560 CM-1 RANGE 500 DO 311 I=1,28 501 SUM4(I)=ZERO 502 SUM6(I)=ZERO 503 SUM7(I)=ZERO 504 SUM8(I)=ZERO 505 SUM4WD(I)=ZERO 506 311 CONTINUE 507 DO 313 N=1,NBLW 508 CENT=CENTNB(N) 509 C***PERFORM SUMMATIONS FOR FREQ. RANGES OF 0-560,1200-2200 CM-1 FOR SUM4 510 C SUM6,SUM7,SUM8 511 IF (CENT.LT.560. .OR. CENT.GT.1200..AND.CENT.LE.2200.) THEN 512 DO 315 I=1,28 513 SUM4(I)=SUM4(I)+SRC1NB(I,N) 514 SUM6(I)=SUM6(I)+DBDTNB(I,N) 515 SUM7(I)=SUM7(I)+DBDTNB(I,N)*AROTNB(N) 516 SUM8(I)=SUM8(I)+DBDTNB(I,N)*ALFANB(N) 517 315 CONTINUE 518 ENDIF 519 C***PERFORM SUMMATIONS OVER 160-560 CM-1 FREQ RANGE FOR E1 CALCS (SUM4WD 520 IF (CENT.GT.160. .AND. CENT.LT.560.) THEN 521 DO 316 I=1,28 522 SUM4WD(I)=SUM4WD(I)+SRC1NB(I,N) 523 316 CONTINUE 524 ENDIF 525 313 CONTINUE 526 DO 317 I=1,28 527 R1(I)=SUM4(I)/TFOUR(I) 528 R2(I)=SUM6(I)/FORTCU(I) 529 S2(I)=SUM7(I)/FORTCU(I) 530 T3(I)=SUM8(I)/FORTCU(I) 531 R1WD(I)=SUM4WD(I)/TFOUR(I) 532 317 CONTINUE 533 DO 401 J=1,180 534 DO 401 I=1,28 535 SUM(I,J)=ZERO 536 PERTSM(I,J)=ZERO Page 9 Source Listing TABLE 2014-12-17 20:47 TABLE.F 537 SUM3(I,J)=ZERO 538 SUMWDE(I,J)=ZERO 539 401 CONTINUE 540 C---FREQUENCY LOOP BEGINS--- 541 DO 411 N=1,NBLW 542 CENT=CENTNB(N) 543 C***PERFORM CALCULATIONS FOR FREQ. RANGES OF 0-560,1200-2200 CM-1 544 IF (CENT.LT.560. .OR. CENT.GT.1200..AND.CENT.LE.2200.) THEN 545 DO 413 J=1,180 546 X2(J)=AROTNB(N)*ZROOT(J) 547 EXPO(J)=EXP(-X2(J)) 548 413 CONTINUE 549 DO 415 J=1,180 550 IF (X2(J).GE.HUNDRED) THEN 551 EXPO(J)=ZERO 552 ENDIF 553 415 CONTINUE 554 DO 417 J=121,180 555 FAC(J)=ZMASS(J)*(ONE-(ONE+X2(J))*EXPO(J))/(X2(J)*X2(J)) 556 417 CONTINUE 557 DO 419 J=1,180 558 DO 419 I=1,28 559 SUM(I,J)=SUM(I,J)+SRC1NB(I,N)*EXPO(J) 560 PERTSM(I,J)=PERTSM(I,J)+DBDTNB(I,N)*EXPO(J) 561 419 CONTINUE 562 DO 421 J=121,180 563 DO 421 I=1,28 564 SUM3(I,J)=SUM3(I,J)+DBDTNB(I,N)*FAC(J) 565 421 CONTINUE 566 ENDIF 567 C---COMPUTE SUM OVER 160-560 CM-1 RANGE FOR USE IN E1 CALCS (SUMWDE) 568 IF (CENT.GT.160. .AND. CENT.LT.560.) THEN 569 DO 420 J=1,180 570 DO 420 I=1,28 571 SUMWDE(I,J)=SUMWDE(I,J)+SRC1NB(I,N)*EXPO(J) 572 420 CONTINUE 573 ENDIF 574 411 CONTINUE 575 DO 431 J=1,180 576 DO 431 I=1,28 577 EM1(I,J)=SUM(I,J)/TFOUR(I) 578 TABLE1(I,J)=PERTSM(I,J)/FORTCU(I) 579 431 CONTINUE 580 DO 433 J=121,180 581 DO 433 I=1,28 582 EM3(I,J)=SUM3(I,J)/FORTCU(I) 583 433 CONTINUE 584 DO 441 J=1,179 585 DO 441 I=1,28 586 TABLE2(I,J)=(TABLE1(I,J+1)-TABLE1(I,J))*TEN 587 441 CONTINUE 588 DO 443 J=1,180 589 DO 443 I=1,27 590 TABLE3(I,J)=(TABLE1(I+1,J)-TABLE1(I,J))*HP1 591 443 CONTINUE 592 DO 445 I=1,28 593 TABLE2(I,180)=ZERO Page 10 Source Listing TABLE 2014-12-17 20:47 TABLE.F 594 445 CONTINUE 595 DO 447 J=1,180 596 TABLE3(28,J)=ZERO 597 447 CONTINUE 598 DO 449 J=1,2 599 DO 449 I=1,28 600 EM1(I,J)=R1(I) 601 449 CONTINUE 602 DO 451 J=1,120 603 DO 451 I=1,28 604 EM3(I,J)=R2(I)/TWO-S2(I)*SQRT(ZMASS(J))/THREE+T3(I)*ZMASS(J)/EIGHT 605 451 CONTINUE 606 DO 453 J=121,180 607 DO 453 I=1,28 608 EM3(I,J)=EM3(I,J)/ZMASS(J) 609 453 CONTINUE 610 C***NOW COMPUTE E1 TABLES FOR 160-560 CM-1 BANDS ONLY. 611 C WE USE R1WD AND SUMWDE OBTAINED ABOVE. 612 DO 501 J=1,180 613 DO 501 I=1,28 614 EM1WDE(I,J)=SUMWDE(I,J)/TFOUR(I) 615 501 CONTINUE 616 DO 503 J=1,2 617 DO 503 I=1,28 618 EM1WDE(I,J)=R1WD(I) 619 503 CONTINUE 620 RETURN 621 END Page 11 Source Listing TABLE 2014-12-17 20:47 Entry Points TABLE.F ENTRY POINTS Name table_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 101 Label 269 263 111 Label 278 276 113 Label 286 280 115 Label 285 282 117 Label 290 288 201 Label 310 306 203 Label 315 311 205 Label 323 320,321 207 Label 327 324,325 211 Label 364 329 213 Label 363 347 215 Label 362 357 221 Label 370 367,368 223 Label 374 371,372 225 Label 378 375,376 231 Label 382 379 301 Label 411 388 303 Label 410 394 305 Label 403 398 307 Label 408 405 311 Label 422 416 313 Label 441 423 315 Label 433 428 316 Label 439 437 317 Label 448 442 401 Label 455 449,450 411 Label 490 457 413 Label 464 461 415 Label 469 465 417 Label 472 470 419 Label 477 473,474 420 Label 488 485,486 421 Label 481 478,479 431 Label 495 491,492 433 Label 499 496,497 441 Label 503 500,501 443 Label 507 504,505 445 Label 510 508 447 Label 513 511 449 Label 517 514,515 451 Label 521 518,519 453 Label 525 522,523 501 Label 531 528,529 503 Label 535 532,533 Page 12 Source Listing TABLE 2014-12-17 20:47 Symbol Table TABLE.F Name Object Declared Type Bytes Dimen Elements Attributes References AB15 Scalar 145 R(4) 4 1 2 COM 270,271 AB15CM Scalar 214 R(4) 4 1 2 COM AB15WD Scalar 174 R(4) 4 scalar COM 273 ACOMB Scalar 211 R(4) 4 1 15 COM ALFANB Scalar 255 R(4) 4 1 163 COM 380,381,432 AMOLWT Scalar 14 R(4) 4 scalar COM ANB Scalar 256 R(4) 4 1 163 COM 264,270,271,380 ANU Local 395 R(4) 4 scalar 395,396,399 AO3CM Scalar 214 R(4) 4 1 3 COM AO3RND Scalar 145 R(4) 4 1 3 COM AP Scalar 143 R(4) 4 1 163 COM APCM Scalar 212 R(4) 4 1 15 COM APWD Scalar 172 R(4) 4 scalar COM ARNDM Scalar 143 R(4) 4 1 163 COM 264 AROTNB Scalar 255 R(4) 4 1 163 COM 381,431,462 ATP Scalar 144 R(4) 4 1 163 COM ATPCM Scalar 212 R(4) 4 1 15 COM ATPWD Scalar 172 R(4) 4 scalar COM AWIDE Scalar 171 R(4) 4 scalar COM 273 BANDHI Scalar 145 R(4) 4 1 163 COM 266,267,335,342 BANDLO Scalar 144 R(4) 4 1 163 COM 266,267,334,341 BANDTA Common 143 5900 BCOMB Scalar 211 R(4) 4 1 15 COM BDCOMB Common 211 736 BDHI Local 335 R(4) 4 scalar 335,342,352,353 BDHICM Scalar 213 R(4) 4 1 15 COM BDHIWD Scalar 173 R(4) 4 scalar COM BDLO Local 334 R(4) 4 scalar 334,341,349,352,353 BDLOCM Scalar 213 R(4) 4 1 15 COM BDLOWD Scalar 173 R(4) 4 scalar COM BDWIDE Common 171 56 BETACM Scalar 212 R(4) 4 1 15 COM BETAD Scalar 143 R(4) 4 1 163 COM 268,294 BETANB Scalar 257 R(4) 4 1 163 COM 268 BETAWD Scalar 171 R(4) 4 scalar COM 293 BETINC Scalar 213 R(4) 4 scalar COM BETINW Scalar 173 R(4) 4 scalar COM 293,294,295 BNB Scalar 256 R(4) 4 1 163 COM 265,270,271,380 BO3CM Scalar 214 R(4) 4 1 3 COM BO3RND Scalar 145 R(4) 4 1 3 COM BP Scalar 144 R(4) 4 1 163 COM BPCM Scalar 212 R(4) 4 1 15 COM BPWD Scalar 172 R(4) 4 scalar COM BRNDM Scalar 143 R(4) 4 1 163 COM 265 BTP Scalar 144 R(4) 4 1 163 COM BTPCM Scalar 213 R(4) 4 1 15 COM BTPWD Scalar 172 R(4) 4 scalar COM BWIDE Scalar 171 R(4) 4 scalar COM 273 C1 Local 355 R(4) 4 scalar 355,360,396,401,402 CENT Local 332 R(4) 4 scalar 332,339,389,395,424,427,436,458,46 0,484 CENTNB Scalar 256 R(4) 4 1 163 COM 266,332,339,389,424,458 CNUSB Scalar 254 R(4) 4 1 30 COM 349,352,355,358 CSUBP Scalar 14 R(4) 4 scalar COM DBDTNB Scalar 248 R(4) 4 2 4564 COM 407,430,431,432,476,480 Page 13 Source Listing TABLE 2014-12-17 20:47 Symbol Table TABLE.F Name Object Declared Type Bytes Dimen Elements Attributes References DEL Local 333 R(4) 4 scalar 333,340,346,390,395,406,407 DELCM Scalar 259 R(4) 4 1 15 COM DELNB Scalar 256 R(4) 4 1 163 COM 267,333,340,390 DIFFCTR Scalar 14 R(4) 4 scalar COM DNUSB Scalar 254 R(4) 4 1 30 COM 350,353,361 DSC Scalar 249 R(4) 4 1 28 COM 402,407 DSRCE Scalar 242 R(4) 4 2 420 COM 377 EIGHT Scalar 21 R(4) 4 scalar COM 520 EM1 Scalar 240 R(4) 4 2 5040 COM 493,516 EM1WDE Scalar 240 R(4) 4 2 5040 COM 530,534 EM3 Scalar 241 R(4) 4 2 5040 COM 498,520,524 EXP Func 359 scalar 359,400,463 EXPO Scalar 253 R(4) 4 1 180 COM 463,467,471,475,476,487 FAC Scalar 253 R(4) 4 1 180 COM 471,480 FIFTY Scalar 21 R(4) 4 scalar COM FIVE Scalar 21 R(4) 4 scalar COM 349 FORTCU Scalar 250 R(4) 4 1 28 COM 314,444,445,446,494,498 FOUR Scalar 22 R(4) 4 scalar COM 314 G Scalar 14 R(4) 4 scalar COM G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GINV Scalar 18 R(4) 4 scalar COM GLB_TABLE Common 37 128 GP0INV Scalar 18 R(4) 4 scalar COM GRAVDR Scalar 14 R(4) 4 scalar COM H101M16 Scalar 54 R(4) 4 scalar COM H102M5 Scalar 53 R(4) 4 scalar COM H1036E2 Scalar 52 R(4) 4 scalar COM H114M11 Scalar 36 R(4) 4 scalar COM H1174M7 Scalar 31 R(4) 4 scalar COM H11M10 Scalar 33 R(4) 4 scalar COM H11M11 Scalar 36 R(4) 4 scalar COM H1224E3 Scalar 25 R(4) 4 scalar COM H1226E1 Scalar 47 R(4) 4 scalar COM H128M5 Scalar 30 R(4) 4 scalar COM H129M2 Scalar 51 R(4) 4 scalar COM H12M12 Scalar 40 R(4) 4 scalar COM H12M13 Scalar 41 R(4) 4 scalar COM H12M31 Scalar 43 R(4) 4 scalar COM H135M13 Scalar 41 R(4) 4 scalar COM H1386E2 Scalar 51 R(4) 4 scalar COM H1439M5 Scalar 30 R(4) 4 scalar COM H14M10 Scalar 32 R(4) 4 scalar COM H14M11 Scalar 36 R(4) 4 scalar COM H14M12 Scalar 40 R(4) 4 scalar COM H14M14 Scalar 41 R(4) 4 scalar COM H14M30 Scalar 43 R(4) 4 scalar COM H15E2 Scalar 26 R(4) 4 scalar COM H15M11 Scalar 36 R(4) 4 scalar COM H15M14 Scalar 41 R(4) 4 scalar COM H15M5 Scalar 55 R(4) 4 scalar COM H161E1 Scalar 54 R(4) 4 scalar COM H165E5 Scalar 24 R(4) 4 scalar COM H16E1 Scalar 54 R(4) 4 scalar COM H16M12 Scalar 40 R(4) 4 scalar COM Page 14 Source Listing TABLE 2014-12-17 20:47 Symbol Table TABLE.F Name Object Declared Type Bytes Dimen Elements Attributes References H181E1 Scalar 26 R(4) 4 scalar COM H18E1 Scalar 26 R(4) 4 scalar COM H18E3 Scalar 55 R(4) 4 scalar COM H18M11 Scalar 36 R(4) 4 scalar COM H1E11 Scalar 23 R(4) 4 scalar COM H1E13 Scalar 23 R(4) 4 scalar COM H1E15 Scalar 23 R(4) 4 scalar COM H1E4 Scalar 24 R(4) 4 scalar COM H1E6 Scalar 46 R(4) 4 scalar COM H1E8 Scalar 23 R(4) 4 scalar COM H1M10 Scalar 33 R(4) 4 scalar COM H1M11 Scalar 37 R(4) 4 scalar COM H1M13 Scalar 41 R(4) 4 scalar COM H1M16 Scalar 57 R(4) 4 scalar COM 305 H1M17 Scalar 42 R(4) 4 scalar COM H1M18 Scalar 42 R(4) 4 scalar COM H1M19 Scalar 42 R(4) 4 scalar COM H1M2 Scalar 46 R(4) 4 scalar COM H1M20 Scalar 42 R(4) 4 scalar COM 396,401 H1M21 Scalar 42 R(4) 4 scalar COM H1M22 Scalar 42 R(4) 4 scalar COM H1M23 Scalar 42 R(4) 4 scalar COM H1M24 Scalar 43 R(4) 4 scalar COM H1M3 Scalar 29 R(4) 4 scalar COM 346 H1M4 Scalar 29 R(4) 4 scalar COM H1M5 Scalar 30 R(4) 4 scalar COM H1M6 Scalar 31 R(4) 4 scalar COM H1M60 Scalar 44 R(4) 4 scalar COM H1M8 Scalar 32 R(4) 4 scalar COM H1P082 Scalar 51 R(4) 4 scalar COM H1P25892 Scalar 27 R(4) 4 scalar COM 309 H1P4 Scalar 27 R(4) 4 scalar COM H1P41819 Scalar 49 R(4) 4 scalar COM H1P4387 Scalar 27 R(4) 4 scalar COM 358,399 H1P8 Scalar 27 R(4) 4 scalar COM H2075E3 Scalar 25 R(4) 4 scalar COM H20788E3 Scalar 24 R(4) 4 scalar COM H2118M2 Scalar 52 R(4) 4 scalar COM H21M12 Scalar 39 R(4) 4 scalar COM H21M31 Scalar 43 R(4) 4 scalar COM H235M3 Scalar 50 R(4) 4 scalar COM H23E2 Scalar 26 R(4) 4 scalar COM H23M10 Scalar 32 R(4) 4 scalar COM H23M11 Scalar 35 R(4) 4 scalar COM H24E3 Scalar 24 R(4) 4 scalar COM H24M11 Scalar 35 R(4) 4 scalar COM H24M12 Scalar 39 R(4) 4 scalar COM H25452M6 Scalar 31 R(4) 4 scalar COM H257M8 Scalar 32 R(4) 4 scalar COM H25E2 Scalar 55 R(4) 4 scalar COM H25M31 Scalar 43 R(4) 4 scalar COM H26E2 Scalar 49 R(4) 4 scalar COM H26M30 Scalar 43 R(4) 4 scalar COM H28571M2 Scalar 57 R(4) 4 scalar COM H285M4 Scalar 29 R(4) 4 scalar COM Page 15 Source Listing TABLE 2014-12-17 20:47 Symbol Table TABLE.F Name Object Declared Type Bytes Dimen Elements Attributes References H28E1 Scalar 60 R(4) 4 scalar COM H28M11 Scalar 35 R(4) 4 scalar COM H28M12 Scalar 39 R(4) 4 scalar COM H29316E2 Scalar 47 R(4) 4 scalar COM H2945E2 Scalar 25 R(4) 4 scalar COM H29M12 Scalar 39 R(4) 4 scalar COM H2E2 Scalar 49 R(4) 4 scalar COM H2E6 Scalar 46 R(4) 4 scalar COM H2M11 Scalar 36 R(4) 4 scalar COM H2P5 Scalar 27 R(4) 4 scalar COM H2P8 Scalar 26 R(4) 4 scalar COM H2P9 Scalar 26 R(4) 4 scalar COM H3082E2 Scalar 25 R(4) 4 scalar COM H3116E1 Scalar 47 R(4) 4 scalar COM H323M4 Scalar 52 R(4) 4 scalar COM H327M8 Scalar 32 R(4) 4 scalar COM H32M11 Scalar 35 R(4) 4 scalar COM H35E1 Scalar 26 R(4) 4 scalar COM H35M11 Scalar 35 R(4) 4 scalar COM H36M13 Scalar 40 R(4) 4 scalar COM H37412M5 Scalar 30 R(4) 4 scalar COM 355,396 H37M11 Scalar 34 R(4) 4 scalar COM H37M12 Scalar 39 R(4) 4 scalar COM H38M12 Scalar 38 R(4) 4 scalar COM H391M7 Scalar 31 R(4) 4 scalar COM H394M5 Scalar 30 R(4) 4 scalar COM H3E2 Scalar 25 R(4) 4 scalar COM H3M11 Scalar 35 R(4) 4 scalar COM H3M12 Scalar 39 R(4) 4 scalar COM H3M14 Scalar 41 R(4) 4 scalar COM H3M3 Scalar 54 R(4) 4 scalar COM H3M4 Scalar 58 R(4) 4 scalar COM H3P5 Scalar 55 R(4) 4 scalar COM H3P6 Scalar 26 R(4) 4 scalar COM H41666M2 Scalar 47 R(4) 4 scalar COM H42M11 Scalar 34 R(4) 4 scalar COM H42M2 Scalar 52 R(4) 4 scalar COM H44194M2 Scalar 49 R(4) 4 scalar COM H44871M2 Scalar 29 R(4) 4 scalar COM H44M11 Scalar 34 R(4) 4 scalar COM H44M12 Scalar 38 R(4) 4 scalar COM H451M6 Scalar 53 R(4) 4 scalar COM H45M12 Scalar 38 R(4) 4 scalar COM H45M32 Scalar 44 R(4) 4 scalar COM H46M13 Scalar 40 R(4) 4 scalar COM H488E4 Scalar 24 R(4) 4 scalar COM H48M11 Scalar 34 R(4) 4 scalar COM H4999M6 Scalar 31 R(4) 4 scalar COM H4E5 Scalar 23 R(4) 4 scalar COM H4M12 Scalar 38 R(4) 4 scalar COM H4M33 Scalar 44 R(4) 4 scalar COM H53M11 Scalar 34 R(4) 4 scalar COM H559M3 Scalar 29 R(4) 4 scalar COM H55M32 Scalar 44 R(4) 4 scalar COM H5725E4 Scalar 24 R(4) 4 scalar COM Page 16 Source Listing TABLE 2014-12-17 20:47 Symbol Table TABLE.F Name Object Declared Type Bytes Dimen Elements Attributes References H5E2 Scalar 25 R(4) 4 scalar COM H625M2 Scalar 48 R(4) 4 scalar COM H62M12 Scalar 38 R(4) 4 scalar COM H62M34 Scalar 44 R(4) 4 scalar COM H658M2 Scalar 52 R(4) 4 scalar COM H65M12 Scalar 37 R(4) 4 scalar COM H67390E2 Scalar 53 R(4) 4 scalar COM H6938M5 Scalar 30 R(4) 4 scalar COM H69766E5 Scalar 50 R(4) 4 scalar COM H6M12 Scalar 38 R(4) 4 scalar COM H6P08108 Scalar 56 R(4) 4 scalar COM H71E26 Scalar 23 R(4) 4 scalar COM H72M11 Scalar 34 R(4) 4 scalar COM H74M12 Scalar 37 R(4) 4 scalar COM H75826M4 Scalar 51 R(4) 4 scalar COM H77M11 Scalar 33 R(4) 4 scalar COM H77M12 Scalar 37 R(4) 4 scalar COM H7M6 Scalar 31 R(4) 4 scalar COM H8121E1 Scalar 49 R(4) 4 scalar COM H82M11 Scalar 33 R(4) 4 scalar COM H83E26 Scalar 23 R(4) 4 scalar COM H83M11 Scalar 33 R(4) 4 scalar COM H8725M8 Scalar 32 R(4) 4 scalar COM H8M11 Scalar 33 R(4) 4 scalar COM H8M13 Scalar 40 R(4) 4 scalar COM H93M12 Scalar 37 R(4) 4 scalar COM H96M12 Scalar 37 R(4) 4 scalar COM H987M4 Scalar 29 R(4) 4 scalar COM H9M32 Scalar 44 R(4) 4 scalar COM H9P94 Scalar 48 R(4) 4 scalar COM HAF Scalar 22 R(4) 4 scalar COM 266,352,395 HCON Common 21 872 HM13EZ Scalar 45 R(4) 4 scalar COM HM1597E1 Scalar 55 R(4) 4 scalar COM HM161E1 Scalar 54 R(4) 4 scalar COM HM1797E1 Scalar 48 R(4) 4 scalar COM HM181E1 Scalar 45 R(4) 4 scalar COM HM19EZ Scalar 45 R(4) 4 scalar COM HM1E1 Scalar 45 R(4) 4 scalar COM HM1E2 Scalar 45 R(4) 4 scalar COM HM1EZ Scalar 49 R(4) 4 scalar COM HM2M2 Scalar 47 R(4) 4 scalar COM HM6666M2 Scalar 46 R(4) 4 scalar COM HM8E1 Scalar 59 R(4) 4 scalar COM HMP5 Scalar 47 R(4) 4 scalar COM HMP575 Scalar 45 R(4) 4 scalar COM HMP66667 Scalar 46 R(4) 4 scalar COM HMP805 Scalar 56 R(4) 4 scalar COM HNINETY Scalar 21 R(4) 4 scalar COM 312 HP1 Scalar 28 R(4) 4 scalar COM 377,506 HP118666 Scalar 55 R(4) 4 scalar COM HP144 Scalar 50 R(4) 4 scalar COM HP166666 Scalar 46 R(4) 4 scalar COM HP219 Scalar 50 R(4) 4 scalar COM HP228 Scalar 48 R(4) 4 scalar COM Page 17 Source Listing TABLE 2014-12-17 20:47 Symbol Table TABLE.F Name Object Declared Type Bytes Dimen Elements Attributes References HP26 Scalar 50 R(4) 4 scalar COM HP369 Scalar 28 R(4) 4 scalar COM HP3795 Scalar 53 R(4) 4 scalar COM HP5048 Scalar 53 R(4) 4 scalar COM HP518 Scalar 27 R(4) 4 scalar COM HP526315 Scalar 56 R(4) 4 scalar COM HP6 Scalar 48 R(4) 4 scalar COM HP602409 Scalar 56 R(4) 4 scalar COM HP60241 Scalar 48 R(4) 4 scalar COM HP8 Scalar 27 R(4) 4 scalar COM HP805 Scalar 51 R(4) 4 scalar COM HP816 Scalar 50 R(4) 4 scalar COM HTMG Scalar 52 R(4) 4 3 4183695 COM HUNDRED Scalar 21 R(4) 4 scalar COM 466 I Local 276 I(4) 4 scalar 276,277,288,289,311,312,313,314,32 1,322,325,326,357,358,359,360,361, 368,369,372,373,376,377,398,399,40 0,401,402,405,406,407,416,417,418, 419,420,421,428,429,430,431,432,43 7,438,442,443,444,445,446,447,450, 451,452,453,454,474,475,476,479,48 0,486,487,492,493,494,497,498,501, 502,505,506,508,509,515,516,519,52 0,523,524,529,530,533,534 I1 Local 280 I(4) 4 scalar 280,281,284 I2 Local 282 I(4) 4 scalar 282,284 I2E Local 281 I(4) 4 scalar 281,282 IA Local 394 I(4) 4 scalar 394,395,404 IBAND Scalar 211 I(4) 4 1 40 COM 369 IBROW Scalar 22 I(4) 4 scalar COM ICHUNKTAB Scalar 29 I(4) 4 1 8 COM ICNT Local 279 I(4) 4 scalar 279,283,284 IDIM1 Param 19 I(4) 4 scalar IDIM2 Param 19 I(4) 4 scalar IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 ILCOL Scalar 22 I(4) 4 scalar COM ILPAD1 Scalar 23 I(4) 4 scalar COM ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 16,19,43,44,45,46,47,51,52,57,80 IMAX Param 80 I(4) 4 scalar 80,93,238,276 IND Scalar 238 I(4) 4 1 237 COM 277 INDX2 Scalar 238 I(4) 4 1 2116 COM 284 INLTE Param 92 I(4) 4 scalar 92 INLTEP Param 92 I(4) 4 scalar INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM IRPAD1 Scalar 24 I(4) 4 scalar COM Page 18 Source Listing TABLE 2014-12-17 20:47 Symbol Table TABLE.F Name Object Declared Type Bytes Dimen Elements Attributes References IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM J Local 306 I(4) 4 scalar 306,307,308,309,449,451,452,453,45 4,461,462,463,465,466,467,470,471, 473,475,476,478,480,485,487,491,49 3,494,496,498,500,502,504,506,511, 512,514,516,518,520,522,524,528,53 0,532,534 JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar JDIM2 Param 20 I(4) 4 scalar JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,57 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JP Local 307 I(4) 4 scalar 307,309 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM KMAXV Scalar 238 I(4) 4 1 46 COM 287,289,291 KMAXVM Scalar 239 I(4) 4 scalar COM 291 KO2 Param 95 I(4) 4 scalar 96 KO21 Param 96 I(4) 4 scalar KO2M Param 96 I(4) 4 scalar L Param 79 I(4) 4 scalar 83,84,85,88,90,280,288,291 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LL Param 85 I(4) 4 scalar 85,86 LL3P Param 90 I(4) 4 scalar 93 LL3PI Param 93 I(4) 4 scalar LLM1 Param 86 I(4) 4 scalar LLM2 Param 86 I(4) 4 scalar LLM3 Param 86 I(4) 4 scalar LLP1 Param 85 I(4) 4 scalar 93 LLP1I Param 93 I(4) 4 scalar LLP2 Param 85 I(4) 4 scalar Page 19 Source Listing TABLE 2014-12-17 20:47 Symbol Table TABLE.F Name Object Declared Type Bytes Dimen Elements Attributes References LLP3 Param 85 I(4) 4 scalar LM Param 3 I(4) 4 scalar 52,79 LM1 Param 84 I(4) 4 scalar LM2 Param 84 I(4) 4 scalar LM3 Param 84 I(4) 4 scalar LP1 Param 83 I(4) 4 scalar 87,88,89,93,238,281,284 LP121 Param 89 I(4) 4 scalar LP1I Param 93 I(4) 4 scalar LP1M Param 87 I(4) 4 scalar 87 LP1M1 Param 87 I(4) 4 scalar LP1V Param 88 I(4) 4 scalar 238 LP2 Param 83 I(4) 4 scalar 284,289 LP3 Param 83 I(4) 4 scalar LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPPCOM Common 1 1464 MYIE Scalar 4 I(4) 4 scalar COM MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM MYIE_P1 Scalar 7 I(4) 4 scalar COM MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM Page 20 Source Listing TABLE 2014-12-17 20:47 Symbol Table TABLE.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM Page 21 Source Listing TABLE 2014-12-17 20:47 Symbol Table TABLE.F Name Object Declared Type Bytes Dimen Elements Attributes References N Local 263 I(4) 4 scalar 263,264,265,266,267,268,320,322,32 4,326,329,330,332,333,334,335,337, 361,367,369,371,373,375,377,379,38 0,381,388,389,390,406,407,423,424, 429,430,431,432,438,457,458,462,47 5,476,480,487 NB Param 91 I(4) 4 scalar 94 NB1 Param 94 I(4) 4 scalar NBLM Param 82 I(4) 4 scalar NBLW Param 81 I(4) 4 scalar 143,144,145,248,255,256,257,263,33 9,340,341,342,379,388,423,457 NBLX Param 81 I(4) 4 scalar 248,324,329,337 NBLY Param 81 I(4) 4 scalar 82,89,211,212,213,241,242,259,320, 371,375 NCOL Param 80 I(4) 4 scalar NNLTE Param 92 I(4) 4 scalar NPES Scalar 2 I(4) 4 scalar COM NSB Local 347 I(4) 4 scalar 347,348,349,350,352,353,355,358,36 1 NSUBDS Local 346 I(4) 4 scalar 346,347,348 O3DIFCTR Scalar 14 R(4) 4 scalar COM ONE Scalar 22 R(4) 4 scalar COM 295,360,401,471 P0 Scalar 14 R(4) 4 scalar COM P0INV Scalar 18 R(4) 4 scalar COM P0X2 Scalar 15 R(4) 4 scalar COM P0XZP2 Scalar 15 R(4) 4 scalar COM P0XZP8 Scalar 15 R(4) 4 scalar COM PERTSM Scalar 247 R(4) 4 2 5040 COM 452,476,494 PHYCON Common 14 80 QUARTR Scalar 22 R(4) 4 scalar COM R1 Scalar 252 R(4) 4 1 28 COM 443,516 R1WD Scalar 252 R(4) 4 1 28 COM 447,534 R2 Scalar 252 R(4) 4 1 28 COM 444,520 RADCON Scalar 15 R(4) 4 scalar COM RADCON1 Scalar 17 R(4) 4 scalar COM RATCO2MW Scalar 16 R(4) 4 scalar COM RATH2OMW Scalar 16 R(4) 4 scalar COM RGAS Scalar 15 R(4) 4 scalar COM RGASSP Scalar 15 R(4) 4 scalar COM S2 Scalar 252 R(4) 4 1 28 COM 445,520 SC Scalar 249 R(4) 4 1 28 COM 401,402,406 SCRTCH Common 247 132844 SECPDA Scalar 15 R(4) 4 scalar COM SIXTY Scalar 21 R(4) 4 scalar COM SKC1R Scalar 174 R(4) 4 scalar COM 293 SKO2D Scalar 174 R(4) 4 scalar COM 295 SKO3R Scalar 174 R(4) 4 scalar COM 294 SOURCE Scalar 241 R(4) 4 2 420 COM 322,369,373,377 SQRT Func 308 scalar 308,381,520 SRC1NB Scalar 248 R(4) 4 2 4564 COM 406,429,438,475,487 SRCS Scalar 250 R(4) 4 1 28 COM 360,361 SRCWD Scalar 248 R(4) 4 2 1316 COM 326,361,369,373 SUM Scalar 247 R(4) 4 2 5040 COM 451,475,493 SUM3 Scalar 247 R(4) 4 2 5040 COM 453,480,498 SUM4 Scalar 251 R(4) 4 1 28 COM 417,429,443 Page 22 Source Listing TABLE 2014-12-17 20:47 Symbol Table TABLE.F Name Object Declared Type Bytes Dimen Elements Attributes References SUM4WD Scalar 251 R(4) 4 1 28 COM 421,438,447 SUM6 Scalar 251 R(4) 4 1 28 COM 418,430,444 SUM7 Scalar 251 R(4) 4 1 28 COM 419,431,445 SUM8 Scalar 251 R(4) 4 1 28 COM 420,432,446 SUMWDE Scalar 248 R(4) 4 2 5040 COM 454,487,530 T3 Scalar 252 R(4) 4 1 28 COM 446,520 TABCOM Common 238 133920 TABLE Subr 1 TABLE1 Scalar 240 R(4) 4 2 5040 COM 494,502,506 TABLE2 Scalar 241 R(4) 4 2 5040 COM 502,509 TABLE3 Scalar 241 R(4) 4 2 5040 COM 506,512 TBLTMP Common 259 60 TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TEN Scalar 21 R(4) 4 scalar COM 312,349,350,352,353,502 TFOUR Scalar 250 R(4) 4 1 28 COM 313,443,447,493,530 THREE Scalar 22 R(4) 4 scalar COM 520 TOPO Common 50 17478548 TTVG Scalar 51 R(4) 4 2 92971 COM TWO Scalar 22 R(4) 4 scalar COM 520 X Scalar 250 R(4) 4 1 28 COM 358,359,399,400,402 X1 Scalar 250 R(4) 4 1 28 COM 359,360,400,401,402 X2 Scalar 250 R(4) 4 1 180 COM 462,463,466,471 XTEMV Scalar 249 R(4) 4 1 28 COM 312,313,314,358,399,402 ZERO Scalar 22 R(4) 4 scalar COM 322,326,417,418,419,420,421,451,45 2,453,454,467,509,512 ZMASS Scalar 249 R(4) 4 1 181 COM 305,308,309,471,520,524 ZROOT Scalar 249 R(4) 4 1 181 COM 308,462 Page 23 Source Listing TABLE 2014-12-17 20:47 Subprograms/Common Blocks TABLE.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References BANDTA Common 143 5900 BDCOMB Common 211 736 BDWIDE Common 171 56 GLB_TABLE Common 37 128 HCON Common 21 872 MAPPINGS Common 56 5024 MPPCOM Common 1 1464 PHYCON Common 14 80 SCRTCH Common 247 132844 TABCOM Common 238 133920 TABLE Subr 1 TBLTMP Common 259 60 TEMPCOM Common 42 6603768 TOPO Common 50 17478548 COMPILER OPTIONS BEING USED -align nocommons -align nodcommons -align noqcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume byterecl -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_unit_star -assume old_ldout_format -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume nostd_mod_proc_name -assume norealloc_lhs -assume underscore -assume no2underscores no -auto -auto_scalar no -bintext -ccdefault default -check noargs -check noarg_temp_created -check nobounds -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check power -check noshape -check nounderflow -check nouninitialized -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1210 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D _MT -D __INTEL_COMPILER_BUILD_DATE=20120612 Page 24 Source Listing TABLE 2014-12-17 20:47 TABLE.F -D __i686 -D __i686__ -D __pentiumpro -D __pentiumpro__ -D __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ -D __SSE__ -D __MMX__ -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 -iface nono_mixed_str_len_arg no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude -O2 no -pad_source -real_size 32 no -recursive -reentrancy none no -sharable_localsaves -vec=simd -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w noargument_checking -w nodeclarations -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage -includepath : /usrx/local/intel/composerxe/tbb/include/,/usr/include/,./,/opt/ibmhpc/pe1308/mpich2/intel/include64/, /opt/ibmhpc/pe1308/base/include64/,/usrx/local/intel/composerxe/mkl/include/,/usrx/local/intel/composerxe/tbb/include/, /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/,/gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/, /usr/local/include/,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/,/usr/include/,/usr/include/ Page 25 Source Listing TABLE 2014-12-17 20:47 TABLE.F -list filename : TABLE.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100