Page 1 Source Listing E3V88 2014-12-17 20:46 /tmpnwprd/ifort2EICIz.i 1 # 1 "E3V88.F" 2 C SUBROUTINE E3V88 COMPUTES NEARBY LAYER TRANSMISSIVITIES FOR 3 C H2O USING A TABLE LOOKUP OF THE PRE-COMPUTED E3 FUNCTION 4 C ( DESCRIBED IN REF. (4)). 5 C INPUTS: (COMMON BLOCKS,ARGS.) 6 C TV,AV ARGUMENT LIST 7 C EM3 TABCOM 8 C OUTPUTS: 9 C EMV ARGUMENT LIST 10 C 11 C CALLED BY : FST88 12 C CALLS : ALOG10H,ALOG10V 13 C 14 SUBROUTINE E3V88(EMV,TV,AV) 15 C 16 COMMON/PHYCON/AMOLWT,CSUBP,DIFFCTR,G,GRAVDR,O3DIFCTR,P0, 17 * P0XZP2,P0XZP8,P0X2,RADCON,RGAS,RGASSP,SECPDA 18 COMMON/PHYCON/RATCO2MW,RATH2OMW 19 COMMON/PHYCON/RADCON1 20 COMMON/PHYCON/GINV,P0INV,GP0INV 21 COMMON/HCON/HUNDRED,HNINETY,SIXTY,FIFTY,TEN,EIGHT,FIVE, 22 * FOUR,THREE,TWO,ONE,HAF,QUARTR,ZERO 23 COMMON/HCON/H83E26,H71E26,H1E15,H1E13,H1E11,H1E8,H4E5, 24 * H165E5,H5725E4,H488E4,H1E4,H24E3,H20788E3, 25 * H2075E3,H1224E3,H5E2,H3082E2,H3E2,H2945E2, 26 * H23E2,H15E2,H35E1,H3P6,H181E1,H18E1,H2P9,H2P8, 27 * H2P5,H1P8,H1P4387,H1P4,H1P25892,HP8,HP518, 28 * HP369,HP1 29 COMMON/HCON/H44871M2,H559M3,H1M3,H987M4,H285M4,H1M4, 30 * H6938M5,H394M5,H37412M5,H1439M5,H128M5,H1M5, 31 * H7M6,H4999M6,H25452M6,H1M6,H391M7,H1174M7, 32 * H8725M8,H327M8,H257M8,H1M8,H23M10,H14M10, 33 * H11M10,H1M10,H83M11,H82M11,H8M11,H77M11, 34 * H72M11,H53M11,H48M11,H44M11,H42M11,H37M11, 35 * H35M11,H32M11,H3M11,H28M11,H24M11,H23M11, 36 * H2M11,H18M11,H15M11,H14M11,H114M11,H11M11, 37 * H1M11,H96M12,H93M12,H77M12,H74M12,H65M12, 38 * H62M12,H6M12,H45M12,H44M12,H4M12,H38M12, 39 * H37M12,H3M12,H29M12,H28M12,H24M12,H21M12, 40 * H16M12,H14M12,H12M12,H8M13,H46M13,H36M13, 41 * H135M13,H12M13,H1M13,H3M14,H15M14,H14M14, 42 * H1M17,H1M18,H1M19,H1M20,H1M21,H1M22,H1M23, 43 * H1M24,H26M30,H14M30,H25M31,H21M31,H12M31, 44 * H9M32,H55M32,H45M32,H4M33,H62M34,H1M60 45 COMMON/HCON/HMP575,HM13EZ,HM19EZ,HM1E1,HM181E1,HM1E2 46 COMMON/HCON/H1E6,H2E6,H1M2,HMP66667,HM6666M2,HP166666, 47 * H41666M2,HMP5,HM2M2,H29316E2,H1226E1,H3116E1, 48 * H9P94,HP6,H625M2,HP228,HP60241,HM1797E1, 49 * H8121E1,H2E2,HM1EZ,H26E2,H44194M2,H1P41819 50 COMMON/HCON/HP219,HP144,HP816,H69766E5,H235M3,HP26, 51 * H129M2,H75826M4,H1P082,HP805,H1386E2, 52 * H658M2,H1036E2,H2118M2,H42M2,H323M4, 53 * H67390E2,HP3795,HP5048,H102M5,H451M6 54 COMMON/HCON/H16E1,HM161E1,H161E1,H3M3,H101M16, 55 * HM1597E1,H25E2,HP118666,H15M5,H3P5,H18E3, 56 * H6P08108,HMP805,HP602409,HP526315, 57 * H28571M2,H1M16 Page 2 Source Listing E3V88 2014-12-17 20:46 E3V88.F 58 COMMON/HCON/H3M4 59 COMMON/HCON/HM8E1 60 COMMON/HCON/H28E1 61 C----------------------------------------------------------------------- 62 INCLUDE "parmeta" 85 INCLUDE "mpp.h" 86 # 1 "./sp.h" 1 87 # 4 88 89 # 64 "E3V88.F" 2 90 C----------------------------------------------------------------------- 91 C PARAMETER SETTINGS FOR THE LONGWAVE AND SHORTWAVE RADIATION CODE: 92 C IMAX = NO. POINTS ALONG THE LAT. CIRCLE USED IN CALCS. 93 C L = NO. VERTICAL LEVELS (ALSO LAYERS) IN MODEL 94 C***NOTE: THE USER NORMALLY WILL MODIFY ONLY THE IMAX AND L PARAMETERS 95 C NBLW = NO. FREQ. BANDS FOR APPROX COMPUTATIONS. SEE 96 C BANDTA FOR DEFINITION 97 C NBLX = NO. FREQ BANDS FOR APPROX CTS COMPUTATIONS 98 C NBLY = NO. FREQ. BANDS FOR EXACT CTS COMPUTATIONS. SEE 99 C BDCOMB FOR DEFINITION 100 C INLTE = NO. LEVELS USED FOR NLTE CALCS. 101 C NNLTE = INDEX NO. OF FREQ. BAND IN NLTE CALCS. 102 C NB,KO2 ARE SHORTWAVE PARAMETERS; OTHER QUANTITIES ARE DERIVED 103 C FROM THE ABOVE PARAMETERS. 162 PARAMETER (L=LM) 163 PARAMETER (IMAX=IM,NCOL=IMAX) 164 PARAMETER (NBLW=163,NBLX=47,NBLY=15) 165 PARAMETER (NBLM=NBLY-1) 166 PARAMETER (LP1=L+1,LP2=L+2,LP3=L+3) 167 PARAMETER (LM1=L-1,LM2=L-2,LM3=L-3) 168 PARAMETER (LL=2*L,LLP1=LL+1,LLP2=LL+2,LLP3=LL+3) 169 PARAMETER (LLM1=LL-1,LLM2=LL-2,LLM3=LL-3) 170 PARAMETER (LP1M=LP1*LP1,LP1M1=LP1M-1) 171 PARAMETER (LP1V=LP1*(1+2*L/2)) 172 PARAMETER (LP121=LP1*NBLY) 173 PARAMETER (LL3P=3*L+2) 174 PARAMETER (NB=12) 175 PARAMETER (INLTE=3,INLTEP=INLTE+1,NNLTE=56) 176 PARAMETER (LP1I=IMAX*LP1,LLP1I=IMAX*LLP1,LL3PI=IMAX*LL3P) 177 PARAMETER (NB1=NB-1) 178 PARAMETER (KO2=12) 179 PARAMETER (KO21=KO2+1,KO2M=KO2-1) 180 C PARAMETER SETTINGS FOR THE LONGWAVE AND SHORTWAVE RADIATION CODE: 181 C IMAX = NO. POINTS SENT TO RADFS 182 C L = NO. VERTICAL LEVELS (ALSO LAYERS) IN MODEL 183 C***NOTE: THE USER NORMALLY WILL MODIFY ONLY THE IMAX AND L PARAMETERS 184 C NBLW = NO. FREQ. BANDS FOR APPROX COMPUTATIONS. SEE 185 C BANDTA FOR DEFINITION 186 C NBLX = NO. FREQ BANDS FOR APPROX CTS COMPUTATIONS 187 C NBLY = NO. FREQ. BANDS FOR EXACT CTS COMPUTATIONS. SEE 188 C BDCOMB FOR DEFINITION 189 C INLTE = NO. LEVELS USED FOR NLTE CALCS. 190 C NNLTE = INDEX NO. OF FREQ. BAND IN NLTE CALCS. 191 C NB,KO2 ARE SHORTWAVE PARAMETERS; OTHER QUANTITIES ARE DERIVED 192 C FROM THE ABOVE PARAMETERS. 193 C COMMON BLOCK TABCOM CONTAINS QUANTITIES PRECOMPUTED IN SUBROUTINE 194 C TABLE FOR USE IN THE LONGWAVE RADIATION PROGRAM: Page 3 Source Listing E3V88 2014-12-17 20:46 E3V88.F 195 C EM1 = E1 FUNCTION, EVALUATED OVER THE 0-560 AND 196 C 1200-2200 CM-1 INTERVALS 197 C EM1WDE = E1 FUNCTION, EVALUATED OVER THE 160-560 CM-1 198 C INTERVAL 199 C TABLE1 = E2 FUNCTION, EVALUATED OVER THE 0-560 AND 200 C 1200-2200 CM-1 INTERVALS 201 C TABLE2 = TEMPERATURE DERIVATIVE OF TABLE1 202 C TABLE3 = MASS DERIVATIVE OF TABLE1 203 C EM3 = E3 FUNCTION, EVALUATED OVER THE 0-560 AND 204 C 1200-2200 CM-1 INTERVALS 205 C SOURCE = PLANCK FUNCTION, EVALUATED AT SPECIFIED TEMPS. FOR 206 C BANDS USED IN CTS CALCULATIONS 207 C DSRCE = TEMPERATURE DERIVATIVE OF SOURCE 208 C IND = INDEX, WITH VALUE IND(I)=I. USED IN FST88 209 C INDX2 = INDEX VALUES USED IN OBTAINING "LOWER TRIANGLE" 210 C ELEMENTS OF AVEPHI,ETC.,IN FST88 211 C KMAXV = INDEX VALUES USED IN OBTAINING "UPPER TRIANGLE" 212 C ELEMENTS OF AVEPHI,ETC.,IN FST88 213 C KMAXVM = KMAXV(L),USED FOR DO LOOP INDICES 214 C 215 COMMON / TABCOM / IND(IMAX),INDX2(LP1V),KMAXV(LP1), 216 1 KMAXVM 217 COMMON/TABCOM/EM1(28,180),EM1WDE(28,180),TABLE1(28,180), 218 1 TABLE2(28,180),TABLE3(28,180),EM3(28,180),SOURCE(28,NBLY), 219 2 DSRCE(28,NBLY) 220 C 221 DIMENSION IT(IDIM1:IDIM2,LLP1),WW1(IDIM1:IDIM2,LLP1), 222 1 DT(IDIM1:IDIM2,LLP1),WW2(IDIM1:IDIM2,LLP1), 223 2 DU(IDIM1:IDIM2,LLP1) 224 C THE FOLLOWING ARRAYS ARE EQUIVALENCED TO VTEMP ARRAYS 225 DIMENSION FXO(IDIM1:IDIM2,LLP1),FYO(IDIM1:IDIM2,LLP1), 226 & TMP3(IDIM1:IDIM2,LLP1) 227 C 228 C DIMENSIONS OF ARRAYS IN ARGUMENT LIST 229 DIMENSION EMV(IDIM1:IDIM2,LLP1),TV(IDIM1:IDIM2,LLP1), 230 & AV(IDIM1:IDIM2,LLP1) 231 C 232 C THE FOLLOWING ARRAY IS EQUIVALENCED TO AN ARRAY IN TABCOM.H 233 DIMENSION EM3V(5040) 234 C 235 EQUIVALENCE (EM3V(1),EM3(1,1)) 236 EQUIVALENCE (FXO,WW1),(FYO,WW2),(IT,TMP3) 237 C---THE FOLLOWING LOOP REPLACES A DOUBLE LOOP OVER I (1-IMAX) AND 238 C K (1-LLP1) 239 DO 203 K=1,LLP1 240 DO 203 I=MYIS,MYIE 241 FXO(I,K)=AINT(TV(I,K)*HP1) 242 TMP3(I,K)=LOG10(AV(I,K))+H16E1 243 DT(I,K)=TV(I,K)-TEN*FXO(I,K) 244 FYO(I,K)=AINT(TMP3(I,K)*TEN) 245 DU(I,K)=TMP3(I,K)-HP1*FYO(I,K) 246 C---OBTAIN INDEX FOR TABLE LOOKUP; THIS VALUE WILL HAVE TO BE 247 C DECREMENTED BY 9 TO ACCOUNT FOR TABLE TEMPS STARTING AT 100K. 248 IT(I,K)=FXO(I,K)+FYO(I,K)*H28E1 249 WW1(I,K)=TEN-DT(I,K) 250 WW2(I,K)=HP1-DU(I,K) 251 C WNE can Page 4 Source Listing E3V88 2014-12-17 20:46 E3V88.F 252 C EMV(I,K)=WW1(I,K)*WW2(I,K)*EM3V(IT(I,K)-9)+ 253 C 1 WW2(I,K)*DT(I,K)*EM3V(IT(I,K)-8)+ 254 C 2 WW1(I,K)*DU(I,K)*EM3V(IT(I,K)+19)+ 255 C 3 DT(I,K)*DU(I,K)*EM3V(IT(I,K)+20) 256 257 ITT = IT(I,K) 258 EMV(I,K)=WW1(I,K)*WW2(I,K)*EM3V(max0(ITT-9,1))+ 259 1 WW2(I,K)*DT(I,K)*EM3V(max0(ITT-8,1))+ 260 2 WW1(I,K)*DU(I,K)*EM3V(ITT+19)+ 261 3 DT(I,K)*DU(I,K)*EM3V(ITT+20) 262 263 264 203 CONTINUE 265 RETURN 266 END ENTRY POINTS Name e3v88_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 203 Label 180 155,156 AINT Func 157 scalar 157,160 AMOLWT Scalar 15 R(4) 4 scalar COM AV Dummy 13 R(4) 4 2 4095 ARG,INOUT 158 CSUBP Scalar 15 R(4) 4 scalar COM DIFFCTR Scalar 15 R(4) 4 scalar COM DSRCE Scalar 135 R(4) 4 2 420 COM DT Local 138 R(4) 4 2 4095 159,165,175,177 DU Local 139 R(4) 4 2 4095 161,166,176,177 E3V88 Subr 13 EIGHT Scalar 20 R(4) 4 scalar COM EM1 Scalar 133 R(4) 4 2 5040 COM EM1WDE Scalar 133 R(4) 4 2 5040 COM EM3 Scalar 134 R(4) 4 2 5040 COM EM3V Scalar 149 R(4) 4 1 5040 COM 174,175,176,177 EMV Dummy 13 R(4) 4 2 4095 ARG,INOUT 174 FIFTY Scalar 20 R(4) 4 scalar COM FIVE Scalar 20 R(4) 4 scalar COM FOUR Scalar 21 R(4) 4 scalar COM FXO Local 141 R(4) 4 2 4095 157,159,164 FYO Local 141 R(4) 4 2 4095 160,161,164 G Scalar 15 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 19 R(4) 4 scalar COM GLB_TABLE Common 37 128 GP0INV Scalar 19 R(4) 4 scalar COM GRAVDR Scalar 15 R(4) 4 scalar COM H101M16 Scalar 53 R(4) 4 scalar COM Page 5 Source Listing E3V88 2014-12-17 20:46 Symbol Table E3V88.F Name Object Declared Type Bytes Dimen Elements Attributes References H102M5 Scalar 52 R(4) 4 scalar COM H1036E2 Scalar 51 R(4) 4 scalar COM H114M11 Scalar 35 R(4) 4 scalar COM H1174M7 Scalar 30 R(4) 4 scalar COM H11M10 Scalar 32 R(4) 4 scalar COM H11M11 Scalar 35 R(4) 4 scalar COM H1224E3 Scalar 24 R(4) 4 scalar COM H1226E1 Scalar 46 R(4) 4 scalar COM H128M5 Scalar 29 R(4) 4 scalar COM H129M2 Scalar 50 R(4) 4 scalar COM H12M12 Scalar 39 R(4) 4 scalar COM H12M13 Scalar 40 R(4) 4 scalar COM H12M31 Scalar 42 R(4) 4 scalar COM H135M13 Scalar 40 R(4) 4 scalar COM H1386E2 Scalar 50 R(4) 4 scalar COM H1439M5 Scalar 29 R(4) 4 scalar COM H14M10 Scalar 31 R(4) 4 scalar COM H14M11 Scalar 35 R(4) 4 scalar COM H14M12 Scalar 39 R(4) 4 scalar COM H14M14 Scalar 40 R(4) 4 scalar COM H14M30 Scalar 42 R(4) 4 scalar COM H15E2 Scalar 25 R(4) 4 scalar COM H15M11 Scalar 35 R(4) 4 scalar COM H15M14 Scalar 40 R(4) 4 scalar COM H15M5 Scalar 54 R(4) 4 scalar COM H161E1 Scalar 53 R(4) 4 scalar COM H165E5 Scalar 23 R(4) 4 scalar COM H16E1 Scalar 53 R(4) 4 scalar COM 158 H16M12 Scalar 39 R(4) 4 scalar COM H181E1 Scalar 25 R(4) 4 scalar COM H18E1 Scalar 25 R(4) 4 scalar COM H18E3 Scalar 54 R(4) 4 scalar COM H18M11 Scalar 35 R(4) 4 scalar COM H1E11 Scalar 22 R(4) 4 scalar COM H1E13 Scalar 22 R(4) 4 scalar COM H1E15 Scalar 22 R(4) 4 scalar COM H1E4 Scalar 23 R(4) 4 scalar COM H1E6 Scalar 45 R(4) 4 scalar COM H1E8 Scalar 22 R(4) 4 scalar COM H1M10 Scalar 32 R(4) 4 scalar COM H1M11 Scalar 36 R(4) 4 scalar COM H1M13 Scalar 40 R(4) 4 scalar COM H1M16 Scalar 56 R(4) 4 scalar COM H1M17 Scalar 41 R(4) 4 scalar COM H1M18 Scalar 41 R(4) 4 scalar COM H1M19 Scalar 41 R(4) 4 scalar COM H1M2 Scalar 45 R(4) 4 scalar COM H1M20 Scalar 41 R(4) 4 scalar COM H1M21 Scalar 41 R(4) 4 scalar COM H1M22 Scalar 41 R(4) 4 scalar COM H1M23 Scalar 41 R(4) 4 scalar COM H1M24 Scalar 42 R(4) 4 scalar COM H1M3 Scalar 28 R(4) 4 scalar COM H1M4 Scalar 28 R(4) 4 scalar COM H1M5 Scalar 29 R(4) 4 scalar COM Page 6 Source Listing E3V88 2014-12-17 20:46 Symbol Table E3V88.F Name Object Declared Type Bytes Dimen Elements Attributes References H1M6 Scalar 30 R(4) 4 scalar COM H1M60 Scalar 43 R(4) 4 scalar COM H1M8 Scalar 31 R(4) 4 scalar COM H1P082 Scalar 50 R(4) 4 scalar COM H1P25892 Scalar 26 R(4) 4 scalar COM H1P4 Scalar 26 R(4) 4 scalar COM H1P41819 Scalar 48 R(4) 4 scalar COM H1P4387 Scalar 26 R(4) 4 scalar COM H1P8 Scalar 26 R(4) 4 scalar COM H2075E3 Scalar 24 R(4) 4 scalar COM H20788E3 Scalar 23 R(4) 4 scalar COM H2118M2 Scalar 51 R(4) 4 scalar COM H21M12 Scalar 38 R(4) 4 scalar COM H21M31 Scalar 42 R(4) 4 scalar COM H235M3 Scalar 49 R(4) 4 scalar COM H23E2 Scalar 25 R(4) 4 scalar COM H23M10 Scalar 31 R(4) 4 scalar COM H23M11 Scalar 34 R(4) 4 scalar COM H24E3 Scalar 23 R(4) 4 scalar COM H24M11 Scalar 34 R(4) 4 scalar COM H24M12 Scalar 38 R(4) 4 scalar COM H25452M6 Scalar 30 R(4) 4 scalar COM H257M8 Scalar 31 R(4) 4 scalar COM H25E2 Scalar 54 R(4) 4 scalar COM H25M31 Scalar 42 R(4) 4 scalar COM H26E2 Scalar 48 R(4) 4 scalar COM H26M30 Scalar 42 R(4) 4 scalar COM H28571M2 Scalar 56 R(4) 4 scalar COM H285M4 Scalar 28 R(4) 4 scalar COM H28E1 Scalar 59 R(4) 4 scalar COM 164 H28M11 Scalar 34 R(4) 4 scalar COM H28M12 Scalar 38 R(4) 4 scalar COM H29316E2 Scalar 46 R(4) 4 scalar COM H2945E2 Scalar 24 R(4) 4 scalar COM H29M12 Scalar 38 R(4) 4 scalar COM H2E2 Scalar 48 R(4) 4 scalar COM H2E6 Scalar 45 R(4) 4 scalar COM H2M11 Scalar 35 R(4) 4 scalar COM H2P5 Scalar 26 R(4) 4 scalar COM H2P8 Scalar 25 R(4) 4 scalar COM H2P9 Scalar 25 R(4) 4 scalar COM H3082E2 Scalar 24 R(4) 4 scalar COM H3116E1 Scalar 46 R(4) 4 scalar COM H323M4 Scalar 51 R(4) 4 scalar COM H327M8 Scalar 31 R(4) 4 scalar COM H32M11 Scalar 34 R(4) 4 scalar COM H35E1 Scalar 25 R(4) 4 scalar COM H35M11 Scalar 34 R(4) 4 scalar COM H36M13 Scalar 39 R(4) 4 scalar COM H37412M5 Scalar 29 R(4) 4 scalar COM H37M11 Scalar 33 R(4) 4 scalar COM H37M12 Scalar 38 R(4) 4 scalar COM H38M12 Scalar 37 R(4) 4 scalar COM H391M7 Scalar 30 R(4) 4 scalar COM H394M5 Scalar 29 R(4) 4 scalar COM Page 7 Source Listing E3V88 2014-12-17 20:46 Symbol Table E3V88.F Name Object Declared Type Bytes Dimen Elements Attributes References H3E2 Scalar 24 R(4) 4 scalar COM H3M11 Scalar 34 R(4) 4 scalar COM H3M12 Scalar 38 R(4) 4 scalar COM H3M14 Scalar 40 R(4) 4 scalar COM H3M3 Scalar 53 R(4) 4 scalar COM H3M4 Scalar 57 R(4) 4 scalar COM H3P5 Scalar 54 R(4) 4 scalar COM H3P6 Scalar 25 R(4) 4 scalar COM H41666M2 Scalar 46 R(4) 4 scalar COM H42M11 Scalar 33 R(4) 4 scalar COM H42M2 Scalar 51 R(4) 4 scalar COM H44194M2 Scalar 48 R(4) 4 scalar COM H44871M2 Scalar 28 R(4) 4 scalar COM H44M11 Scalar 33 R(4) 4 scalar COM H44M12 Scalar 37 R(4) 4 scalar COM H451M6 Scalar 52 R(4) 4 scalar COM H45M12 Scalar 37 R(4) 4 scalar COM H45M32 Scalar 43 R(4) 4 scalar COM H46M13 Scalar 39 R(4) 4 scalar COM H488E4 Scalar 23 R(4) 4 scalar COM H48M11 Scalar 33 R(4) 4 scalar COM H4999M6 Scalar 30 R(4) 4 scalar COM H4E5 Scalar 22 R(4) 4 scalar COM H4M12 Scalar 37 R(4) 4 scalar COM H4M33 Scalar 43 R(4) 4 scalar COM H53M11 Scalar 33 R(4) 4 scalar COM H559M3 Scalar 28 R(4) 4 scalar COM H55M32 Scalar 43 R(4) 4 scalar COM H5725E4 Scalar 23 R(4) 4 scalar COM H5E2 Scalar 24 R(4) 4 scalar COM H625M2 Scalar 47 R(4) 4 scalar COM H62M12 Scalar 37 R(4) 4 scalar COM H62M34 Scalar 43 R(4) 4 scalar COM H658M2 Scalar 51 R(4) 4 scalar COM H65M12 Scalar 36 R(4) 4 scalar COM H67390E2 Scalar 52 R(4) 4 scalar COM H6938M5 Scalar 29 R(4) 4 scalar COM H69766E5 Scalar 49 R(4) 4 scalar COM H6M12 Scalar 37 R(4) 4 scalar COM H6P08108 Scalar 55 R(4) 4 scalar COM H71E26 Scalar 22 R(4) 4 scalar COM H72M11 Scalar 33 R(4) 4 scalar COM H74M12 Scalar 36 R(4) 4 scalar COM H75826M4 Scalar 50 R(4) 4 scalar COM H77M11 Scalar 32 R(4) 4 scalar COM H77M12 Scalar 36 R(4) 4 scalar COM H7M6 Scalar 30 R(4) 4 scalar COM H8121E1 Scalar 48 R(4) 4 scalar COM H82M11 Scalar 32 R(4) 4 scalar COM H83E26 Scalar 22 R(4) 4 scalar COM H83M11 Scalar 32 R(4) 4 scalar COM H8725M8 Scalar 31 R(4) 4 scalar COM H8M11 Scalar 32 R(4) 4 scalar COM H8M13 Scalar 39 R(4) 4 scalar COM H93M12 Scalar 36 R(4) 4 scalar COM Page 8 Source Listing E3V88 2014-12-17 20:46 Symbol Table E3V88.F Name Object Declared Type Bytes Dimen Elements Attributes References H96M12 Scalar 36 R(4) 4 scalar COM H987M4 Scalar 28 R(4) 4 scalar COM H9M32 Scalar 43 R(4) 4 scalar COM H9P94 Scalar 47 R(4) 4 scalar COM HAF Scalar 21 R(4) 4 scalar COM HCON Common 20 872 HM13EZ Scalar 44 R(4) 4 scalar COM HM1597E1 Scalar 54 R(4) 4 scalar COM HM161E1 Scalar 53 R(4) 4 scalar COM HM1797E1 Scalar 47 R(4) 4 scalar COM HM181E1 Scalar 44 R(4) 4 scalar COM HM19EZ Scalar 44 R(4) 4 scalar COM HM1E1 Scalar 44 R(4) 4 scalar COM HM1E2 Scalar 44 R(4) 4 scalar COM HM1EZ Scalar 48 R(4) 4 scalar COM HM2M2 Scalar 46 R(4) 4 scalar COM HM6666M2 Scalar 45 R(4) 4 scalar COM HM8E1 Scalar 58 R(4) 4 scalar COM HMP5 Scalar 46 R(4) 4 scalar COM HMP575 Scalar 44 R(4) 4 scalar COM HMP66667 Scalar 45 R(4) 4 scalar COM HMP805 Scalar 55 R(4) 4 scalar COM HNINETY Scalar 20 R(4) 4 scalar COM HP1 Scalar 27 R(4) 4 scalar COM 157,161,166 HP118666 Scalar 54 R(4) 4 scalar COM HP144 Scalar 49 R(4) 4 scalar COM HP166666 Scalar 45 R(4) 4 scalar COM HP219 Scalar 49 R(4) 4 scalar COM HP228 Scalar 47 R(4) 4 scalar COM HP26 Scalar 49 R(4) 4 scalar COM HP369 Scalar 27 R(4) 4 scalar COM HP3795 Scalar 52 R(4) 4 scalar COM HP5048 Scalar 52 R(4) 4 scalar COM HP518 Scalar 26 R(4) 4 scalar COM HP526315 Scalar 55 R(4) 4 scalar COM HP6 Scalar 47 R(4) 4 scalar COM HP602409 Scalar 55 R(4) 4 scalar COM HP60241 Scalar 47 R(4) 4 scalar COM HP8 Scalar 26 R(4) 4 scalar COM HP805 Scalar 50 R(4) 4 scalar COM HP816 Scalar 49 R(4) 4 scalar COM HTMG Scalar 52 R(4) 4 3 4183695 COM HUNDRED Scalar 20 R(4) 4 scalar COM I Local 156 I(4) 4 scalar 156,157,158,159,160,161,164,165,16 6,173,174,175,176,177 IBROW Scalar 22 I(4) 4 scalar COM ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDIM1 Param 19 I(4) 4 scalar 137,138,139,141,142,145,146 IDIM2 Param 19 I(4) 4 scalar 137,138,139,141,142,145,146 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 Page 9 Source Listing E3V88 2014-12-17 20:46 Symbol Table E3V88.F Name Object Declared Type Bytes Dimen Elements Attributes References 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,79 IMAX Param 79 I(4) 4 scalar 79,92,131 IND Scalar 131 I(4) 4 1 237 COM INDX2 Scalar 131 I(4) 4 1 2116 COM INLTE Param 91 I(4) 4 scalar 91 INLTEP Param 91 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 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 IT Local 137 I(4) 4 2 4095 164,173 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 ITT Local 173 I(4) 4 scalar 173,174,175,176,177 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 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 K Local 155 I(4) 4 scalar 155,157,158,159,160,161,164,165,16 6,173,174,175,176,177 KMAXV Scalar 131 I(4) 4 1 46 COM KMAXVM Scalar 132 I(4) 4 scalar COM KO2 Param 94 I(4) 4 scalar 95 KO21 Param 95 I(4) 4 scalar KO2M Param 95 I(4) 4 scalar Page 10 Source Listing E3V88 2014-12-17 20:46 Symbol Table E3V88.F Name Object Declared Type Bytes Dimen Elements Attributes References L Param 78 I(4) 4 scalar 82,83,84,87,89 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LL Param 84 I(4) 4 scalar 84,85 LL3P Param 89 I(4) 4 scalar 92 LL3PI Param 92 I(4) 4 scalar LLM1 Param 85 I(4) 4 scalar LLM2 Param 85 I(4) 4 scalar LLM3 Param 85 I(4) 4 scalar LLP1 Param 84 I(4) 4 scalar 92,137,138,139,141,142,145,146,155 LLP1I Param 92 I(4) 4 scalar LLP2 Param 84 I(4) 4 scalar LLP3 Param 84 I(4) 4 scalar LM Param 3 I(4) 4 scalar 52,78 LM1 Param 83 I(4) 4 scalar LM2 Param 83 I(4) 4 scalar LM3 Param 83 I(4) 4 scalar LOG10 Func 158 scalar 158 LP1 Param 82 I(4) 4 scalar 86,87,88,92,131 LP121 Param 88 I(4) 4 scalar LP1I Param 92 I(4) 4 scalar LP1M Param 86 I(4) 4 scalar 86 LP1M1 Param 86 I(4) 4 scalar LP1V Param 87 I(4) 4 scalar 131 LP2 Param 82 I(4) 4 scalar LP3 Param 82 I(4) 4 scalar LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MAX0 Func 174 scalar 174,175 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 156 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 156 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 Page 11 Source Listing E3V88 2014-12-17 20:46 Symbol Table E3V88.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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 Page 12 Source Listing E3V88 2014-12-17 20:46 Symbol Table E3V88.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 NB Param 90 I(4) 4 scalar 93 NB1 Param 93 I(4) 4 scalar NBLM Param 81 I(4) 4 scalar NBLW Param 80 I(4) 4 scalar NBLX Param 80 I(4) 4 scalar NBLY Param 80 I(4) 4 scalar 81,88,134,135 NCOL Param 79 I(4) 4 scalar NNLTE Param 91 I(4) 4 scalar NPES Scalar 2 I(4) 4 scalar COM O3DIFCTR Scalar 15 R(4) 4 scalar COM ONE Scalar 21 R(4) 4 scalar COM P0 Scalar 15 R(4) 4 scalar COM P0INV Scalar 19 R(4) 4 scalar COM P0X2 Scalar 16 R(4) 4 scalar COM P0XZP2 Scalar 16 R(4) 4 scalar COM P0XZP8 Scalar 16 R(4) 4 scalar COM PHYCON Common 15 80 QUARTR Scalar 21 R(4) 4 scalar COM RADCON Scalar 16 R(4) 4 scalar COM RADCON1 Scalar 18 R(4) 4 scalar COM RATCO2MW Scalar 17 R(4) 4 scalar COM RATH2OMW Scalar 17 R(4) 4 scalar COM RGAS Scalar 16 R(4) 4 scalar COM RGASSP Scalar 16 R(4) 4 scalar COM SECPDA Scalar 16 R(4) 4 scalar COM SIXTY Scalar 20 R(4) 4 scalar COM SOURCE Scalar 134 R(4) 4 2 420 COM TABCOM Common 131 133920 TABLE1 Scalar 133 R(4) 4 2 5040 COM TABLE2 Scalar 134 R(4) 4 2 5040 COM TABLE3 Scalar 134 R(4) 4 2 5040 COM 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 Page 13 Source Listing E3V88 2014-12-17 20:46 Symbol Table E3V88.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 20 R(4) 4 scalar COM 159,160,165 THREE Scalar 21 R(4) 4 scalar COM TMP3 Local 142 R(4) 4 2 4095 158,160,161 TOPO Common 50 17478548 TTVG Scalar 51 R(4) 4 2 92971 COM TV Dummy 13 R(4) 4 2 4095 ARG,INOUT 157,159 TWO Scalar 21 R(4) 4 scalar COM WW1 Local 137 R(4) 4 2 4095 165,174,176 WW2 Local 138 R(4) 4 2 4095 166,174,175 ZERO Scalar 21 R(4) 4 scalar COM Page 14 Source Listing E3V88 2014-12-17 20:46 Subprograms/Common Blocks E3V88.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References E3V88 Subr 13 GLB_TABLE Common 37 128 HCON Common 20 872 MAPPINGS Common 56 5024 MPPCOM Common 1 1464 PHYCON Common 15 80 TABCOM Common 131 133920 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 -D __i686 -D __i686__ -D __pentiumpro -D __pentiumpro__ -D __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ -D __SSE__ -D __MMX__ Page 15 Source Listing E3V88 2014-12-17 20:46 E3V88.F -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/ -list filename : E3V88.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100