Page 1 Source Listing E1E290 2025-03-12 18:22 /tmp/ifortC7k3lS.i 1 # 1 "E1E290.F" 2 SUBROUTINE E1E290(G1,G2,G3,G4,G5,EMISS,FXOE1,DTE1,FXOE2,DTE2, 3 1 AVEPHI,TEMP,T) 4 C 5 C SUBROUTINE E1E290 COMPUTES THE EXCHANGE TERMS IN THE FLUX EQUATION 6 C FOR LONGWAVE RADIATION FOR ALL TERMS EXCEPT THE EXCHANGE WITH THE 7 C TOP OF THE ATMOSPHERE. THE METHOD IS A TABLE LOOKUP ON A PRE- 8 C COMPUTED E2 FUNCTION (DEFINED IN REF. (4)). 9 C THE E1 FUNCTION CALCULATIONS (FORMERLY DONE IN SUBROUTINE 10 C E1V88 COMPUTE THE FLUX RESULTING FROM THE EXCHANGE OF PHOTONS 11 C BETWEEN A LAYER AND THE TOP OF THE ATMOSPHERE. THE METHOD IS A 12 C TABLE LOOKUP ON A PRE-COMPUTED E1 FUNCTION. 13 C CALCULATIONS ARE DONE IN TWO FREQUENCY RANGES: 14 C 1) 0-560,1200-2200 CM-1 FOR Q(APPROX) 15 C 2) 160-560 CM-1 FOR Q(APPROX,CTS). 16 C MOTIVATION FOR THESE CALCULATIONS IS IN REFERENCES (1) AND (4). 17 C INPUTS: (COMMON BLOCKS) 18 C TABLE1,TABLE2,TABLE3,EM1,EM1WDE TABCOM 19 C AVEPHI TFCOM 20 C TEMP RADISW 21 C T KDACOM 22 C FXOE1,DTE1 ARGUMENT LIST 23 C FXOE2,DTE2 ARGUMENT LIST 24 C OUTPUTS: 25 C EMISS TFCOM 26 C G1,G2,G3 ARGUMENT LIST,FOR 1ST FREQ. RANGE 27 C G4,G5 ARGUMENT LIST,FOR 2ND FREQ. RANGE 28 C 29 C CALLED BY : FST88 30 C CALLS : 31 C 32 C 33 COMMON/PHYCON/AMOLWT,CSUBP,DIFFCTR,G,GRAVDR,O3DIFCTR,P0, 34 * P0XZP2,P0XZP8,P0X2,RADCON,RGAS,RGASSP,SECPDA 35 COMMON/PHYCON/RATCO2MW,RATH2OMW 36 COMMON/PHYCON/RADCON1 37 COMMON/PHYCON/GINV,P0INV,GP0INV 38 COMMON/HCON/HUNDRED,HNINETY,SIXTY,FIFTY,TEN,EIGHT,FIVE, 39 * FOUR,THREE,TWO,ONE,HAF,QUARTR,ZERO 40 COMMON/HCON/H83E26,H71E26,H1E15,H1E13,H1E11,H1E8,H4E5, 41 * H165E5,H5725E4,H488E4,H1E4,H24E3,H20788E3, 42 * H2075E3,H1224E3,H5E2,H3082E2,H3E2,H2945E2, 43 * H23E2,H15E2,H35E1,H3P6,H181E1,H18E1,H2P9,H2P8, 44 * H2P5,H1P8,H1P4387,H1P4,H1P25892,HP8,HP518, 45 * HP369,HP1 46 COMMON/HCON/H44871M2,H559M3,H1M3,H987M4,H285M4,H1M4, 47 * H6938M5,H394M5,H37412M5,H1439M5,H128M5,H1M5, 48 * H7M6,H4999M6,H25452M6,H1M6,H391M7,H1174M7, 49 * H8725M8,H327M8,H257M8,H1M8,H23M10,H14M10, 50 * H11M10,H1M10,H83M11,H82M11,H8M11,H77M11, 51 * H72M11,H53M11,H48M11,H44M11,H42M11,H37M11, 52 * H35M11,H32M11,H3M11,H28M11,H24M11,H23M11, 53 * H2M11,H18M11,H15M11,H14M11,H114M11,H11M11, 54 * H1M11,H96M12,H93M12,H77M12,H74M12,H65M12, 55 * H62M12,H6M12,H45M12,H44M12,H4M12,H38M12, 56 * H37M12,H3M12,H29M12,H28M12,H24M12,H21M12, 57 * H16M12,H14M12,H12M12,H8M13,H46M13,H36M13, Page 2 Source Listing E1E290 2025-03-12 18:22 E1E290.F 58 * H135M13,H12M13,H1M13,H3M14,H15M14,H14M14, 59 * H1M17,H1M18,H1M19,H1M20,H1M21,H1M22,H1M23, 60 * H1M24,H26M30,H14M30,H25M31,H21M31,H12M31, 61 * H9M32,H55M32,H45M32,H4M33,H62M34,H1M60 62 COMMON/HCON/HMP575,HM13EZ,HM19EZ,HM1E1,HM181E1,HM1E2 63 COMMON/HCON/H1E6,H2E6,H1M2,HMP66667,HM6666M2,HP166666, 64 * H41666M2,HMP5,HM2M2,H29316E2,H1226E1,H3116E1, 65 * H9P94,HP6,H625M2,HP228,HP60241,HM1797E1, 66 * H8121E1,H2E2,HM1EZ,H26E2,H44194M2,H1P41819 67 COMMON/HCON/HP219,HP144,HP816,H69766E5,H235M3,HP26, 68 * H129M2,H75826M4,H1P082,HP805,H1386E2, 69 * H658M2,H1036E2,H2118M2,H42M2,H323M4, 70 * H67390E2,HP3795,HP5048,H102M5,H451M6 71 COMMON/HCON/H16E1,HM161E1,H161E1,H3M3,H101M16, 72 * HM1597E1,H25E2,HP118666,H15M5,H3P5,H18E3, 73 * H6P08108,HMP805,HP602409,HP526315, 74 * H28571M2,H1M16 75 COMMON/HCON/H3M4 76 COMMON/HCON/HM8E1 77 COMMON/HCON/H28E1 78 C----------------------------------------------------------------------- 79 INCLUDE "parmeta" 103 INCLUDE "mpp.h" 104 # 1 "./sp.h" 1 105 # 4 106 107 # 81 "E1E290.F" 2 108 C----------------------------------------------------------------------- 109 C PARAMETER SETTINGS FOR THE LONGWAVE AND SHORTWAVE RADIATION CODE: 110 C IMAX = NO. POINTS ALONG THE LAT. CIRCLE USED IN CALCS. 111 C L = NO. VERTICAL LEVELS (ALSO LAYERS) IN MODEL 112 C***NOTE: THE USER NORMALLY WILL MODIFY ONLY THE IMAX AND L PARAMETERS 113 C NBLW = NO. FREQ. BANDS FOR APPROX COMPUTATIONS. SEE 114 C BANDTA FOR DEFINITION 115 C NBLX = NO. FREQ BANDS FOR APPROX CTS COMPUTATIONS 116 C NBLY = NO. FREQ. BANDS FOR EXACT CTS COMPUTATIONS. SEE 117 C BDCOMB FOR DEFINITION 118 C INLTE = NO. LEVELS USED FOR NLTE CALCS. 119 C NNLTE = INDEX NO. OF FREQ. BAND IN NLTE CALCS. 120 C NB,KO2 ARE SHORTWAVE PARAMETERS; OTHER QUANTITIES ARE DERIVED 121 C FROM THE ABOVE PARAMETERS. 180 PARAMETER (L=LM) 181 PARAMETER (IMAX=IM,NCOL=IMAX) 182 PARAMETER (NBLW=163,NBLX=47,NBLY=15) 183 PARAMETER (NBLM=NBLY-1) 184 PARAMETER (LP1=L+1,LP2=L+2,LP3=L+3) 185 PARAMETER (LM1=L-1,LM2=L-2,LM3=L-3) 186 PARAMETER (LL=2*L,LLP1=LL+1,LLP2=LL+2,LLP3=LL+3) 187 PARAMETER (LLM1=LL-1,LLM2=LL-2,LLM3=LL-3) 188 PARAMETER (LP1M=LP1*LP1,LP1M1=LP1M-1) 189 PARAMETER (LP1V=LP1*(1+2*L/2)) 190 PARAMETER (LP121=LP1*NBLY) 191 PARAMETER (LL3P=3*L+2) 192 PARAMETER (NB=12) 193 PARAMETER (INLTE=3,INLTEP=INLTE+1,NNLTE=56) 194 PARAMETER (LP1I=IMAX*LP1,LLP1I=IMAX*LLP1,LL3PI=IMAX*LL3P) 195 PARAMETER (NB1=NB-1) Page 3 Source Listing E1E290 2025-03-12 18:22 E1E290.F 196 PARAMETER (KO2=12) 197 PARAMETER (KO21=KO2+1,KO2M=KO2-1) 198 C PARAMETER SETTINGS FOR THE LONGWAVE AND SHORTWAVE RADIATION CODE: 199 C IMAX = NO. POINTS SENT TO RADFS 200 C L = NO. VERTICAL LEVELS (ALSO LAYERS) IN MODEL 201 C***NOTE: THE USER NORMALLY WILL MODIFY ONLY THE IMAX AND L PARAMETERS 202 C NBLW = NO. FREQ. BANDS FOR APPROX COMPUTATIONS. SEE 203 C BANDTA FOR DEFINITION 204 C NBLX = NO. FREQ BANDS FOR APPROX CTS COMPUTATIONS 205 C NBLY = NO. FREQ. BANDS FOR EXACT CTS COMPUTATIONS. SEE 206 C BDCOMB FOR DEFINITION 207 C INLTE = NO. LEVELS USED FOR NLTE CALCS. 208 C NNLTE = INDEX NO. OF FREQ. BAND IN NLTE CALCS. 209 C NB,KO2 ARE SHORTWAVE PARAMETERS; OTHER QUANTITIES ARE DERIVED 210 C FROM THE ABOVE PARAMETERS. 211 C COMMON BLOCK TABCOM CONTAINS QUANTITIES PRECOMPUTED IN SUBROUTINE 212 C TABLE FOR USE IN THE LONGWAVE RADIATION PROGRAM: 213 C EM1 = E1 FUNCTION, EVALUATED OVER THE 0-560 AND 214 C 1200-2200 CM-1 INTERVALS 215 C EM1WDE = E1 FUNCTION, EVALUATED OVER THE 160-560 CM-1 216 C INTERVAL 217 C TABLE1 = E2 FUNCTION, EVALUATED OVER THE 0-560 AND 218 C 1200-2200 CM-1 INTERVALS 219 C TABLE2 = TEMPERATURE DERIVATIVE OF TABLE1 220 C TABLE3 = MASS DERIVATIVE OF TABLE1 221 C EM3 = E3 FUNCTION, EVALUATED OVER THE 0-560 AND 222 C 1200-2200 CM-1 INTERVALS 223 C SOURCE = PLANCK FUNCTION, EVALUATED AT SPECIFIED TEMPS. FOR 224 C BANDS USED IN CTS CALCULATIONS 225 C DSRCE = TEMPERATURE DERIVATIVE OF SOURCE 226 C IND = INDEX, WITH VALUE IND(I)=I. USED IN FST88 227 C INDX2 = INDEX VALUES USED IN OBTAINING "LOWER TRIANGLE" 228 C ELEMENTS OF AVEPHI,ETC.,IN FST88 229 C KMAXV = INDEX VALUES USED IN OBTAINING "UPPER TRIANGLE" 230 C ELEMENTS OF AVEPHI,ETC.,IN FST88 231 C KMAXVM = KMAXV(L),USED FOR DO LOOP INDICES 232 C 233 COMMON / TABCOM / IND(IMAX),INDX2(LP1V),KMAXV(LP1), 234 1 KMAXVM 235 COMMON/TABCOM/EM1(28,180),EM1WDE(28,180),TABLE1(28,180), 236 1 TABLE2(28,180),TABLE3(28,180),EM3(28,180),SOURCE(28,NBLY), 237 2 DSRCE(28,NBLY) 238 C 239 DIMENSION TEMP(IDIM1:IDIM2,LP1),T(IDIM1:IDIM2,LP1) 240 DIMENSION AVEPHI(IDIM1:IDIM2,LP1),EMISS(IDIM1:IDIM2,LP1) 241 C 242 DIMENSION IT1(IDIM1:IDIM2,LL3P),IVAL(IDIM1:IDIM2,LP1), 243 5 FYO(IDIM1:IDIM2,LP1),DU(IDIM1:IDIM2,LP1), 244 6 WW1(IDIM1:IDIM2,LP1),WW2(IDIM1:IDIM2,LP1), 245 7 TMP3(IDIM1:IDIM2,LP1),TMP5(IDIM1:IDIM2),TMP9(IDIM1:IDIM2) 246 C---VARIABLES EQUIVALENCED TO COMMON BLOCK VARIABLES 247 DIMENSION T1(5040),T2(5040),T4(5040) 248 DIMENSION EM1V(5040),EM1VW(5040) 249 C---VARIABLES IN THE ARGUMENT LIST 250 DIMENSION FXOE1(IDIM1:IDIM2,LP1),DTE1(IDIM1:IDIM2,LP1), 251 1 FXOE2(IDIM1:IDIM2,LP1),DTE2(IDIM1:IDIM2,LP1), 252 2 G1(IDIM1:IDIM2,LP1),G2(IDIM1:IDIM2,L),G3(IDIM1:IDIM2,LP1), Page 4 Source Listing E1E290 2025-03-12 18:22 E1E290.F 253 & G4(IDIM1:IDIM2,LP1),G5(IDIM1:IDIM2,L) 254 C 255 EQUIVALENCE (EM1V(1),EM1(1,1)),(EM1VW(1),EM1WDE(1,1)) 256 EQUIVALENCE (T1(1),TABLE1(1,1)),(T2(1),TABLE2(1,1)), 257 1 (T4(1),TABLE3(1,1)) 258 C---FIRST WE OBTAIN THE EMISSIVITIES AS A FUNCTION OF TEMPERATURE 259 C (INDEX FXO) AND WATER AMOUNT (INDEX FYO). THIS PART OF THE CODE 260 C THUS GENERATES THE E2 FUNCTION. THE FXO INDICES HAVE BEEN 261 C OBTAINED IN FST88, FOR CONVENIENCE. 262 C 263 C---THIS SUBROUTINE EVALUATES THE K=1 CASE ONLY-- 264 C 265 C---THIS LOOP REPLACES LOOPS GOING FROMI=1,IMAX AND KP=2,LP1 PLUS 266 C THE SPECIAL CASE FOR THE LP1TH LAYER. 267 DO 1322 K=1,LP1 268 DO 1322 I=MYIS,MYIE 269 TMP3(I,K)=LOG10(AVEPHI(I,K))+H16E1 270 FYO(I,K)=AINT(TMP3(I,K)*TEN) 271 DU(I,K)=TMP3(I,K)-HP1*FYO(I,K) 272 FYO(I,K)=H28E1*FYO(I,K) 273 C WNE 12-11 IVAL(I,K)=FYO(I,K)+FXOE2(I,K) 274 IVAL(I,K)=max(FYO(I,K)+FXOE2(I,K),1.0) 275 EMISS(I,K)=T1(IVAL(I,K))+DU(I,K)*T2(IVAL(I,K)) 276 1 +DTE2(I,K)*T4(IVAL(I,K)) 277 1322 CONTINUE 278 C 279 C---THE SPECIAL CASE EMISS(I,L) (LAYER KP) IS OBTAINED NOW 280 C BY AVERAGING THE VALUES FOR L AND LP1: 281 DO 1344 I=MYIS,MYIE 282 EMISS(I,L)=HAF*(EMISS(I,L)+EMISS(I,LP1)) 283 1344 CONTINUE 284 C 285 C CALCULATIONS FOR THE KP=1 LAYER ARE NOT PERFORMED, AS 286 C THE RADIATION CODE ASSUMES THAT THE TOP FLUX LAYER (ABOVE THE 287 C TOP DATA LEVEL) IS ISOTHERMAL, AND HENCE CONTRIBUTES NOTHING 288 C TO THE FLUXES AT OTHER LEVELS. 289 C 290 C***THE FOLLOWING IS THE CALCULATION FOR THE E1 FUNCTION, FORMERLY 291 C DONE IN SUBROUTINE E1V88. THE MOVE TO E1E288 IS DUE TO THE 292 C SAVINGS IN OBTAINING INDEX VALUES (THE TEMP. INDICES HAVE 293 C BEEN OBTAINED IN FST88, WHILE THE U-INDICES ARE OBTAINED 294 C IN THE E2 CALCS.,WITH K=1). 295 C 296 C 297 C FOR TERMS INVOLVING TOP LAYER, DU IS NOT KNOWN; IN FACT, WE 298 C USE INDEX 2 TO REPERSENT INDEX 1 IN PREV. CODE. THIS MEANS THAT 299 C THE IT1 INDEX 1 AND LLP1 HAS TO BE CALCULATED SEPARATELY. THE 300 C INDEX LLP2 GIVES THE SAME VALUE AS 1; IT CAN BE OMITTED. 301 DO 208 I=MYIS,MYIE 302 C 12-11 WNE IT1(I,1)=FXOE1(I,1) 303 IT1(I,1)=max(FXOE1(I,1),1.0) 304 WW1(I,1)=TEN-DTE1(I,1) 305 WW2(I,1)=HP1 306 208 CONTINUE 307 DO 209 K=1,L 308 DO 209 I=MYIS,MYIE 309 C 12-11 WNE IT1(I,K+1)=FYO(I,K)+FXOE1(I,K+1) Page 5 Source Listing E1E290 2025-03-12 18:22 E1E290.F 310 IT1(I,K+1)=max(FYO(I,K)+FXOE1(I,K+1),1.0) 311 C 12-11 WNE IT1(I,LP2+K-1)=FYO(I,K)+FXOE1(I,K) 312 IT1(I,LP2+K-1)=max(FYO(I,K)+FXOE1(I,K),1.0) 313 WW1(I,K+1)=TEN-DTE1(I,K+1) 314 WW2(I,K+1)=HP1-DU(I,K) 315 209 CONTINUE 316 DO 211 KP=1,L 317 DO 211 I=MYIS,MYIE 318 C 12-11 WNE IT1(I,KP+LLP1)=FYO(I,KP)+FXOE1(I,1) 319 IT1(I,KP+LLP1)=max(FYO(I,KP)+FXOE1(I,1),1.0) 320 211 CONTINUE 321 C 322 C 323 C G3(I,1) HAS THE SAME VALUES AS G1 (AND DID ALL ALONG) 324 DO 230 I=MYIS,MYIE 325 G1(I,1)=WW1(I,1)*WW2(I,1)*EM1V(IT1(I,1))+ 326 1 WW2(I,1)*DTE1(I,1)*EM1V(IT1(I,1)+1) 327 G3(I,1)=G1(I,1) 328 230 CONTINUE 329 DO 240 K=1,L 330 DO 240 I=MYIS,MYIE 331 G1(I,K+1)=WW1(I,K+1)*WW2(I,K+1)*EM1V(IT1(I,K+1))+ 332 1 WW2(I,K+1)*DTE1(I,K+1)*EM1V(IT1(I,K+1)+1)+ 333 2 WW1(I,K+1)*DU(I,K)*EM1V(IT1(I,K+1)+28)+ 334 3 DTE1(I,K+1)*DU(I,K)*EM1V(IT1(I,K+1)+29) 335 G2(I,K)=WW1(I,K)*WW2(I,K+1)*EM1V(IT1(I,K+LP2-1))+ 336 1 WW2(I,K+1)*DTE1(I,K)*EM1V(IT1(I,K+LP2-1)+1)+ 337 1 WW1(I,K)*DU(I,K)*EM1V(IT1(I,K+LP2-1)+28)+ 338 2 DTE1(I,K)*DU(I,K)*EM1V(IT1(I,K+LP2-1)+29) 339 240 CONTINUE 340 DO 241 KP=2,LP1 341 DO 241 I=MYIS,MYIE 342 G3(I,KP)=WW1(I,1)*WW2(I,KP)*EM1V(IT1(I,LL+KP))+ 343 1 WW2(I,KP)*DTE1(I,1)*EM1V(IT1(I,LL+KP)+1)+ 344 2 WW1(I,1)*DU(I,KP-1)*EM1V(IT1(I,LL+KP)+28)+ 345 3 DTE1(I,1)*DU(I,KP-1)*EM1V(IT1(I,LL+KP)+29) 346 241 CONTINUE 347 C 348 DO 244 I=MYIS,MYIE 349 G4(I,1)=WW1(I,1)*WW2(I,1)*EM1VW(IT1(I,1))+ 350 1 WW2(I,1)*DTE1(I,1)*EM1VW(IT1(I,1)+1) 351 244 CONTINUE 352 DO 242 K=1,L 353 DO 242 I=MYIS,MYIE 354 G4(I,K+1)=WW1(I,K+1)*WW2(I,K+1)*EM1VW(IT1(I,K+1))+ 355 1 WW2(I,K+1)*DTE1(I,K+1)*EM1VW(IT1(I,K+1)+1)+ 356 2 WW1(I,K+1)*DU(I,K)*EM1VW(IT1(I,K+1)+28)+ 357 3 DTE1(I,K+1)*DU(I,K)*EM1VW(IT1(I,K+1)+29) 358 G5(I,K)=WW1(I,K)*WW2(I,K+1)*EM1VW(IT1(I,K+LP2-1))+ 359 1 WW2(I,K+1)*DTE1(I,K)*EM1VW(IT1(I,K+LP2-1)+1)+ 360 1 WW1(I,K)*DU(I,K)*EM1VW(IT1(I,K+LP2-1)+28)+ 361 2 DTE1(I,K)*DU(I,K)*EM1VW(IT1(I,K+LP2-1)+29) 362 242 CONTINUE 363 C 364 RETURN 365 END Page 6 Source Listing E1E290 2025-03-12 18:22 Entry Points E1E290.F ENTRY POINTS Name e1e290_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 1322 Label 277 267,268 1344 Label 283 281 208 Label 306 301 209 Label 315 307,308 211 Label 320 316,317 230 Label 328 324 240 Label 339 329,330 241 Label 346 340,341 242 Label 362 352,353 244 Label 351 348 AINT Func 270 scalar 270 AVEPHI Dummy 3 R(4) 4 2 3266 ARG,INOUT 269 DTE1 Dummy 2 R(4) 4 2 3266 ARG,INOUT 304,313,326,332,334,336,338,343,34 5,350,355,357,359,361 DTE2 Dummy 2 R(4) 4 2 3266 ARG,INOUT 276 DU Local 243 R(4) 4 2 3266 271,275,314,333,334,337,338,344,34 5,356,357,360,361 E1E290 Subr 2 EMISS Dummy 2 R(4) 4 2 3266 ARG,INOUT 275,282 FXOE1 Dummy 2 R(4) 4 2 3266 ARG,INOUT 303,310,312,319 FXOE2 Dummy 2 R(4) 4 2 3266 ARG,INOUT 274 FYO Local 243 R(4) 4 2 3266 270,271,272,274,310,312,319 G1 Dummy 2 R(4) 4 2 3266 ARG,INOUT 325,327,331 G2 Dummy 2 R(4) 4 2 3195 ARG,INOUT 335 G3 Dummy 2 R(4) 4 2 3266 ARG,INOUT 327,342 G4 Dummy 2 R(4) 4 2 3266 ARG,INOUT 349,354 G5 Dummy 2 R(4) 4 2 3195 ARG,INOUT 358 GLB_TABLE Common 158 336 SAVE HCON Common 38 872 I Local 268 I(4) 4 scalar 268,269,270,271,272,274,275,276,28 1,282,301,303,304,305,308,310,312, 313,314,317,319,324,325,326,327,33 0,331,332,333,334,335,336,337,338, 341,342,343,344,345,348,349,350,35 3,354,355,356,357,358,359,360,361 IDIM1 Param 99 I(4) 4 scalar 239,240,242,243,244,245,250,251,25 2,253 IDIM2 Param 99 I(4) 4 scalar 239,240,242,243,244,245,250,251,25 2,253 IGSTL Param 94 I(4) 4 scalar 99 IGSTR Param 94 I(4) 4 scalar 99 IM Param 82 I(4) 4 scalar 96,99,164,165,166,167,168,172,173, 178,181 IMAX Param 181 I(4) 4 scalar 181,194,233 Page 7 Source Listing E1E290 2025-03-12 18:22 Symbol Table E1E290.F Name Object Declared Type Bytes Dimen Elements Attributes References INLTE Param 193 I(4) 4 scalar 193 INLTEP Param 193 I(4) 4 scalar INPES Param 91 I(4) 4 scalar 96,99,148,149,150,159,160 IT1 Local 242 I(4) 4 2 9727 303,310,312,319,325,326,331,332,33 3,334,335,336,337,338,342,343,344, 345,349,350,354,355,356,357,358,35 9,360,361 ITAIL Param 96 I(4) 4 scalar IVAL Local 242 I(4) 4 2 3266 274,275,276 JDIM1 Param 100 I(4) 4 scalar JDIM2 Param 100 I(4) 4 scalar JGSTL Param 95 I(4) 4 scalar 100 JGSTR Param 95 I(4) 4 scalar 100 JM Param 82 I(4) 4 scalar 97,100,164,165,166,167,168,172,173 ,178 JNPES Param 91 I(4) 4 scalar 97,100,148,149,150,159,160 JTAIL Param 97 I(4) 4 scalar K Local 267 I(4) 4 scalar 267,269,270,271,272,274,275,276,30 7,310,312,313,314,329,331,332,333, 334,335,336,337,338,352,354,355,35 6,357,358,359,360,361 KO2 Param 196 I(4) 4 scalar 197 KO21 Param 197 I(4) 4 scalar KO2M Param 197 I(4) 4 scalar KP Local 316 I(4) 4 scalar 316,319,340,342,343,344,345 L Param 180 I(4) 4 scalar 184,185,186,189,191,252,253,282,30 7,316,329,352 LL Param 186 I(4) 4 scalar 186,187,342,343,344,345 LL3P Param 191 I(4) 4 scalar 194,242 LL3PI Param 194 I(4) 4 scalar LLM1 Param 187 I(4) 4 scalar LLM2 Param 187 I(4) 4 scalar LLM3 Param 187 I(4) 4 scalar LLP1 Param 186 I(4) 4 scalar 194,319 LLP1I Param 194 I(4) 4 scalar LLP2 Param 186 I(4) 4 scalar LLP3 Param 186 I(4) 4 scalar LM Param 82 I(4) 4 scalar 173,180 LM1 Param 185 I(4) 4 scalar LM2 Param 185 I(4) 4 scalar LM3 Param 185 I(4) 4 scalar LOG10 Func 269 scalar 269 LP1 Param 184 I(4) 4 scalar 188,189,190,194,233,239,240,242,24 3,244,245,250,251,252,253,267,282, 340 LP121 Param 190 I(4) 4 scalar LP1I Param 194 I(4) 4 scalar LP1M Param 188 I(4) 4 scalar 188 LP1M1 Param 188 I(4) 4 scalar LP1V Param 189 I(4) 4 scalar 233 LP2 Param 184 I(4) 4 scalar 312,335,336,337,338,358,359,360,36 1 LP3 Param 184 I(4) 4 scalar LSM Param 82 I(4) 4 scalar MAPPINGS Common 177 5024 SAVE Page 8 Source Listing E1E290 2025-03-12 18:22 Symbol Table E1E290.F Name Object Declared Type Bytes Dimen Elements Attributes References MAX Func 274 scalar 274,303,310,312,319 MPPCOM Common 122 1724 SAVE NB Param 192 I(4) 4 scalar 195 NB1 Param 195 I(4) 4 scalar NBLM Param 183 I(4) 4 scalar NBLW Param 182 I(4) 4 scalar NBLX Param 182 I(4) 4 scalar NBLY Param 182 I(4) 4 scalar 183,190,236,237 NCOL Param 181 I(4) 4 scalar NNLTE Param 193 I(4) 4 scalar PHYCON Common 33 80 T Dummy 3 R(4) 4 2 3266 ARG,INOUT TABCOM Common 233 133920 TEMP Dummy 3 R(4) 4 2 3266 ARG,INOUT TEMPCOM Common 163 6603768 SAVE TMP3 Local 245 R(4) 4 2 3266 269,270,271 TMP5 Local 245 R(4) 4 1 71 TMP9 Local 245 R(4) 4 1 71 TOPO Common 171 17478548 SAVE WW1 Local 244 R(4) 4 2 3266 304,313,325,331,333,335,337,342,34 4,349,354,356,358,360 WW2 Local 244 R(4) 4 2 3266 305,314,325,326,331,332,335,336,34 2,343,349,350,354,355,358,359 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References AMOLWT R(4) 4 0 scalar COM CSUBP R(4) 4 4 scalar COM DIFFCTR R(4) 4 8 scalar COM DSRCE R(4) 4 132240 2 420 COM EIGHT R(4) 4 20 scalar COM EM1 R(4) 4 9600 2 5040 COM EM1V R(4) 4 9600 1 5040 COM 325,326,331,332,333,334,335,336,33 7,338,342,343,344,345 EM1VW R(4) 4 29760 1 5040 COM 349,350,354,355,356,357,358,359,36 0,361 EM1WDE R(4) 4 29760 2 5040 COM EM3 R(4) 4 110400 2 5040 COM FIFTY R(4) 4 12 scalar COM FIVE R(4) 4 24 scalar COM FOUR R(4) 4 28 scalar COM 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 Page 9 Source Listing E1E290 2025-03-12 18:22 Symbol Table E1E290.F Name Type Bytes Offset Dimen Elements Attributes References 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 269 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 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 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 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 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 Page 10 Source Listing E1E290 2025-03-12 18:22 Symbol Table E1E290.F Name Type Bytes Offset Dimen Elements Attributes References H1P25892 R(4) 4 180 scalar COM H1P4 R(4) 4 176 scalar COM H1P41819 R(4) 4 704 scalar COM H1P4387 R(4) 4 172 scalar COM 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 272 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 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 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 Page 11 Source Listing E1E290 2025-03-12 18:22 Symbol Table E1E290.F Name Type Bytes Offset Dimen Elements Attributes References 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 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 Page 12 Source Listing E1E290 2025-03-12 18:22 Symbol Table E1E290.F Name Type Bytes Offset Dimen Elements Attributes References HAF R(4) 4 44 scalar COM 282 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 HP1 R(4) 4 196 scalar COM 271,305,314 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 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 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 INDX2 I(4) 4 948 1 2116 COM 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 Page 13 Source Listing E1E290 2025-03-12 18:22 Symbol Table E1E290.F Name Type Bytes Offset Dimen Elements Attributes References 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 KMAXVM I(4) 4 9596 scalar COM 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 268,281,301,308,317,324,330,341,34 8,353 MYIE1 I(4) 4 56 scalar COM MYIE1_P1 I(4) 4 120 scalar COM 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 268,281,301,308,317,324,330,341,34 8,353 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 Page 14 Source Listing E1E290 2025-03-12 18:22 Symbol Table E1E290.F Name Type Bytes Offset Dimen Elements Attributes References 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 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 Page 15 Source Listing E1E290 2025-03-12 18:22 Symbol Table E1E290.F Name Type Bytes Offset Dimen Elements Attributes References 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 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 QUARTR R(4) 4 48 scalar COM 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 SECPDA R(4) 4 52 scalar COM SIXTY R(4) 4 8 scalar COM SOURCE R(4) 4 130560 2 420 COM T1 R(4) 4 49920 1 5040 COM 275 T2 R(4) 4 70080 1 5040 COM 275 T4 R(4) 4 90240 1 5040 COM 276 TABLE1 R(4) 4 49920 2 5040 COM TABLE2 R(4) 4 70080 2 5040 COM TABLE3 R(4) 4 90240 2 5040 COM 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 270,304,313 THREE R(4) 4 32 scalar COM Page 16 Source Listing E1E290 2025-03-12 18:22 Symbol Table E1E290.F Name Type Bytes Offset Dimen Elements Attributes References TTVG R(4) 4 371884 2 92971 COM TWO R(4) 4 36 scalar COM ZERO R(4) 4 52 scalar COM Page 17 Source Listing E1E290 2025-03-12 18:22 Subprograms/Common Blocks E1E290.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References E1E290 Subr 2 GLB_TABLE Common 158 336 SAVE HCON Common 38 872 MAPPINGS Common 177 5024 SAVE MPPCOM Common 122 1724 SAVE PHYCON Common 33 80 TABCOM Common 233 133920 TEMPCOM Common 163 6603768 SAVE TOPO Common 171 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 -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 Page 18 Source Listing E1E290 2025-03-12 18:22 E1E290.F -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 -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 Page 19 Source Listing E1E290 2025-03-12 18:22 E1E290.F -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 : E1E290.lst no -o COMPILER: Intel(R) Fortran 19.1-1655