Page 1 Source Listing HCONST 2025-03-12 18:21 /tmp/ifortuGWGt3.i 1 # 1 "HCONST.F" 2 SUBROUTINE HCONST 3 C------------------------------------------------------------------ 4 # 1 "./sp.h" 1 5 # 4 6 7 # 4 "HCONST.F" 2 8 C------------------------------------------------------------------ 9 COMMON/PHYCON/AMOLWT,CSUBP,DIFFCTR,G,GRAVDR,O3DIFCTR,P0, 10 * P0XZP2,P0XZP8,P0X2,RADCON,RGAS,RGASSP,SECPDA 11 COMMON/PHYCON/RATCO2MW,RATH2OMW 12 COMMON/PHYCON/RADCON1 13 COMMON/PHYCON/GINV,P0INV,GP0INV 14 COMMON/HCON/HUNDRED,HNINETY,SIXTY,FIFTY,TEN,EIGHT,FIVE, 15 * FOUR,THREE,TWO,ONE,HAF,QUARTR,ZERO 16 COMMON/HCON/H83E26,H71E26,H1E15,H1E13,H1E11,H1E8,H4E5, 17 * H165E5,H5725E4,H488E4,H1E4,H24E3,H20788E3, 18 * H2075E3,H1224E3,H5E2,H3082E2,H3E2,H2945E2, 19 * H23E2,H15E2,H35E1,H3P6,H181E1,H18E1,H2P9,H2P8, 20 * H2P5,H1P8,H1P4387,H1P4,H1P25892,HP8,HP518, 21 * HP369,HP1 22 COMMON/HCON/H44871M2,H559M3,H1M3,H987M4,H285M4,H1M4, 23 * H6938M5,H394M5,H37412M5,H1439M5,H128M5,H1M5, 24 * H7M6,H4999M6,H25452M6,H1M6,H391M7,H1174M7, 25 * H8725M8,H327M8,H257M8,H1M8,H23M10,H14M10, 26 * H11M10,H1M10,H83M11,H82M11,H8M11,H77M11, 27 * H72M11,H53M11,H48M11,H44M11,H42M11,H37M11, 28 * H35M11,H32M11,H3M11,H28M11,H24M11,H23M11, 29 * H2M11,H18M11,H15M11,H14M11,H114M11,H11M11, 30 * H1M11,H96M12,H93M12,H77M12,H74M12,H65M12, 31 * H62M12,H6M12,H45M12,H44M12,H4M12,H38M12, 32 * H37M12,H3M12,H29M12,H28M12,H24M12,H21M12, 33 * H16M12,H14M12,H12M12,H8M13,H46M13,H36M13, 34 * H135M13,H12M13,H1M13,H3M14,H15M14,H14M14, 35 * H1M17,H1M18,H1M19,H1M20,H1M21,H1M22,H1M23, 36 * H1M24,H26M30,H14M30,H25M31,H21M31,H12M31, 37 * H9M32,H55M32,H45M32,H4M33,H62M34,H1M60 38 COMMON/HCON/HMP575,HM13EZ,HM19EZ,HM1E1,HM181E1,HM1E2 39 COMMON/HCON/H1E6,H2E6,H1M2,HMP66667,HM6666M2,HP166666, 40 * H41666M2,HMP5,HM2M2,H29316E2,H1226E1,H3116E1, 41 * H9P94,HP6,H625M2,HP228,HP60241,HM1797E1, 42 * H8121E1,H2E2,HM1EZ,H26E2,H44194M2,H1P41819 43 COMMON/HCON/HP219,HP144,HP816,H69766E5,H235M3,HP26, 44 * H129M2,H75826M4,H1P082,HP805,H1386E2, 45 * H658M2,H1036E2,H2118M2,H42M2,H323M4, 46 * H67390E2,HP3795,HP5048,H102M5,H451M6 47 COMMON/HCON/H16E1,HM161E1,H161E1,H3M3,H101M16, 48 * HM1597E1,H25E2,HP118666,H15M5,H3P5,H18E3, 49 * H6P08108,HMP805,HP602409,HP526315, 50 * H28571M2,H1M16 51 COMMON/HCON/H3M4 52 COMMON/HCON/HM8E1 53 COMMON/HCON/H28E1 54 C SUBROUTINE HCONST DEFINES VARIABLES TO REPRESENT FLOATING- 55 C POINT CONSTANTS. 56 C 57 C COMDECK HCON CONTAINS THE COMMON BLOCK FOR THESE FLOATING- Page 2 Source Listing HCONST 2025-03-12 18:21 HCONST.F 58 C POINT CONSTANTS. 59 C 60 C THE NAMING CONVENTIONS FOR THE FLOATING-POINT VARIABLES ARE 61 C AS FOLLOWS: 62 C 63 C 1) PHYSICAL AND MATHEMATICAL CONSTANTS WILL BE GIVEN NAMES 64 C RELEVANT TO THEIR MEANING 65 C 2) OTHER CONSTANTS WILL BE GIVEN NAMES RELEVANT TO THEIR VALUE 66 C AND ADHERING TO THE FOLLOWING CONVENTIONS: 67 C A) THE FIRST LETTER WILL BE REPRESENTED WITH AN 'H' EXCEPT 68 C FOR I) AND J) BELOW 69 C B) A DECIMAL POINT WILL BE REPRESENTED WITH A 'P' 70 C C) THERE WILL BE NO EMBEDDED '0'(ZERO); ALL 0'S WILL 71 C BE REPRESENTED WITH A 'Z' 72 C D) A MINUS SIGN WILL BE REPRESENTED WITH AN 'M' 73 C E) THE DECIMAL POINT IS ASSUMED AFTER THE FIRST DIGIT FOR 74 C NUMBERS WITH EXPONENTS 75 C F) POSITIVE EXPONENTS ARE INDICATED WITH 'E';NEGATIVE 76 C EXPONENTS WITH 'M' 77 C G) DIGITS ARE TRUNCATED IN ORDER TO HAVE NO MORE THAN 8 78 C CHARACTERS PER NAME 79 C H) NUMBERS LESS THAN 0.1 AND GREATER THAN 10. WILL BE 80 C REPRESENTED IN EXPONENT FORMAT (EXCEPT A FEW SPECIAL CASES) 81 C I) THE WHOLE NUMBERS FROM 0.0 THROUGH 10.,AND 20.,30.,40.,50., 82 C 60.,70.,80.,90.,100.,WILL BE SPELLED OUT 83 C J) GOOD JUDGMENT WILL PREVAIL OVER ALL CONVENTIONS 84 C 85 C EXAMPLES 86 C CONSTANT VARIABLE NAME CONVENTION 87 C 600. LHEATC 1) 88 C 680. LHEATS 1) 89 C 1.4142 SQROOT2 1) 90 C 2.0 TWO 2)-(I) 91 C -3.0 HM3PZ 2)-(A,B,D) 92 C 310. C31E2 2)-(A,E,F,H) 93 C -0.7239E-9 HM723M1Z 2)-(A,C,D,E,F,G,H) 94 C 0.0 ZERO 2)-(I) 95 C 0.1 HP1 2)-(A,B,H) 96 C 0.01 H1M2 2)-(A,E,F,H) 97 C 30. THIRTY 2)-(H,I) 98 C 0.5 HAF 2)-(J) 99 C 9.0 HNINE 2)-(J) 100 C 101 C******THE FOLLOWING ARE PHYSICAL CONSTANTS***** 102 C ARRANGED IN ALPHABETICAL ORDER 103 AMOLWT=28.9644 104 CSUBP=1.00484E7 105 DIFFCTR=1.66 106 G=980.665 107 GINV=1./G 108 GRAVDR=980.0 109 O3DIFCTR=1.90 110 P0=1013250. 111 P0INV=1./P0 112 GP0INV=GINV*P0INV 113 P0XZP2=202649.902 114 P0XZP8=810600.098 Page 3 Source Listing HCONST 2025-03-12 18:21 HCONST.F 115 P0X2=2.*1013250. 116 RADCON=8.427 117 RADCON1=1./8.427 118 RATCO2MW=1.519449738 119 RATH2OMW=.622 120 RGAS=8.3142E7 121 RGASSP=8.31432E7 122 SECPDA=8.64E4 123 C 124 C******THE FOLLOWING ARE MATHEMATICAL CONSTANTS******* 125 C ARRANGED IN DECREASING ORDER 126 HUNDRED=100. 127 HNINETY=90. 128 SIXTY=60. 129 FIFTY=50. 130 TEN=10. 131 EIGHT=8. 132 FIVE=5. 133 FOUR=4. 134 THREE=3. 135 TWO=2. 136 ONE=1. 137 HAF=0.5 138 QUARTR=0.25 139 ZERO=0. 140 C 141 C******FOLLOWING ARE POSITIVE FLOATING POINT CONSTANTS(H'S) 142 C ARRANGED IN DECREASING ORDER 143 H83E26=8.3E26 144 H71E26=7.1E26 145 H1E15=1.E15 146 H1E13=1.E13 147 H1E11=1.E11 148 H1E8=1.E8 149 H2E6=2.0E6 150 H1E6=1.0E6 151 H69766E5=6.97667E5 152 H4E5=4.E5 153 H165E5=1.65E5 154 H5725E4=57250. 155 H488E4=48800. 156 H1E4=1.E4 157 H24E3=2400. 158 H20788E3=2078.8 159 H2075E3=2075. 160 H18E3=1800. 161 H1224E3=1224. 162 H67390E2=673.9057 163 H5E2=500. 164 H3082E2=308.2 165 H3E2=300. 166 H2945E2=294.5 167 H29316E2=293.16 168 H26E2=260.0 169 H25E2=250. 170 H23E2=230. 171 H2E2=200.0 Page 4 Source Listing HCONST 2025-03-12 18:21 HCONST.F 172 H15E2=150. 173 H1386E2=138.6 174 H1036E2=103.6 175 H8121E1=81.21 176 H35E1=35. 177 H3116E1=31.16 178 H28E1=28. 179 H181E1=18.1 180 H18E1=18. 181 H161E1=16.1 182 H16E1=16. 183 H1226E1=12.26 184 H9P94=9.94 185 H6P08108=6.081081081 186 H3P6=3.6 187 H3P5=3.5 188 H2P9=2.9 189 H2P8=2.8 190 H2P5=2.5 191 H1P8=1.8 192 H1P4387=1.4387 193 H1P41819=1.418191 194 H1P4=1.4 195 H1P25892=1.258925411 196 H1P082=1.082 197 HP816=0.816 198 HP805=0.805 199 HP8=0.8 200 HP60241=0.60241 201 HP602409=0.60240964 202 HP6=0.6 203 HP526315=0.52631579 204 HP518=0.518 205 HP5048=0.5048 206 HP3795=0.3795 207 HP369=0.369 208 HP26=0.26 209 HP228=0.228 210 HP219=0.219 211 HP166666=.166666 212 HP144=0.144 213 HP118666=0.118666192 214 HP1=0.1 215 C (NEGATIVE EXPONENTIALS BEGIN HERE) 216 H658M2=0.0658 217 H625M2=0.0625 218 H44871M2=4.4871E-2 219 H44194M2=.044194 220 H42M2=0.042 221 H41666M2=0.0416666 222 H28571M2=.02857142857 223 H2118M2=0.02118 224 H129M2=0.0129 225 H1M2=.01 226 H559M3=5.59E-3 227 H3M3=0.003 228 H235M3=2.35E-3 Page 5 Source Listing HCONST 2025-03-12 18:21 HCONST.F 229 H1M3=1.0E-3 230 H987M4=9.87E-4 231 H323M4=0.000323 232 H3M4=0.0003 233 H285M4=2.85E-4 234 H1M4=0.0001 235 H75826M4=7.58265E-4 236 H6938M5=6.938E-5 237 H394M5=3.94E-5 238 H37412M5=3.7412E-5 239 H15M5=1.5E-5 240 H1439M5=1.439E-5 241 H128M5=1.28E-5 242 H102M5=1.02E-5 243 H1M5=1.0E-5 244 H7M6=7.E-6 245 H4999M6=4.999E-6 246 H451M6=4.51E-6 247 H25452M6=2.5452E-6 248 H1M6=1.E-6 249 H391M7=3.91E-7 250 H1174M7=1.174E-7 251 H8725M8=8.725E-8 252 H327M8=3.27E-8 253 H257M8=2.57E-8 254 H1M8=1.0E-8 255 H23M10=2.3E-10 256 H14M10=1.4E-10 257 H11M10=1.1E-10 258 H1M10=1.E-10 259 H83M11=8.3E-11 260 H82M11=8.2E-11 261 H8M11=8.E-11 262 H77M11=7.7E-11 263 H72M11=7.2E-11 264 H53M11=5.3E-11 265 H48M11=4.8E-11 266 H44M11=4.4E-11 267 H42M11=4.2E-11 268 H37M11=3.7E-11 269 H35M11=3.5E-11 270 H32M11=3.2E-11 271 H3M11=3.0E-11 272 H28M11=2.8E-11 273 H24M11=2.4E-11 274 H23M11=2.3E-11 275 H2M11=2.E-11 276 H18M11=1.8E-11 277 H15M11=1.5E-11 278 H14M11=1.4E-11 279 H114M11=1.14E-11 280 H11M11=1.1E-11 281 H1M11=1.E-11 282 H96M12=9.6E-12 283 H93M12=9.3E-12 284 H77M12=7.7E-12 285 H74M12=7.4E-12 Page 6 Source Listing HCONST 2025-03-12 18:21 HCONST.F 286 H65M12=6.5E-12 287 H62M12=6.2E-12 288 H6M12=6.E-12 289 H45M12=4.5E-12 290 H44M12=4.4E-12 291 H4M12=4.E-12 292 H38M12=3.8E-12 293 H37M12=3.7E-12 294 H3M12=3.E-12 295 H29M12=2.9E-12 296 H28M12=2.8E-12 297 H24M12=2.4E-12 298 H21M12=2.1E-12 299 H16M12=1.6E-12 300 H14M12=1.4E-12 301 H12M12=1.2E-12 302 H8M13=8.E-13 303 H46M13=4.6E-13 304 H36M13=3.6E-13 305 H135M13=1.35E-13 306 H12M13=1.2E-13 307 H1M13=1.E-13 308 H3M14=3.E-14 309 H15M14=1.5E-14 310 H14M14=1.4E-14 311 H101M16=1.01E-16 312 H1M16=1.0E-16 313 H1M17=1.E-17 314 H1M18=1.E-18 315 H1M19=1.E-19 316 H1M20=1.E-20 317 H1M21=1.E-21 318 H1M22=1.E-22 319 H1M23=1.E-23 320 H1M24=1.E-24 321 H26M30=2.6E-30 322 H14M30=1.4E-30 323 H25M31=2.5E-31 324 H21M31=2.1E-31 325 H12M31=1.2E-31 326 H9M32=9.E-32 327 H55M32=5.5E-32 328 H45M32=4.5E-32 329 H4M33=4.E-33 330 H62M34=6.2E-34 331 C WNE .. warning when compiling (number too small) H1M60=1.0E-60 332 C I don't think H1M60 is being used 333 H1M60=1.176E-38 334 C 335 C******FOLLOWING ARE NEGATIVE FLOATING POINT CONSTANTS (HM'S) 336 C ARRANGED IN DESCENDING ORDER 337 HM2M2=-.02 338 HM6666M2=-.066667 339 HMP5=-0.5 340 HMP575=-0.575 341 HMP66667=-.66667 342 HMP805=-0.805 Page 7 Source Listing HCONST 2025-03-12 18:21 HCONST.F 343 HM1EZ=-1. 344 HM13EZ=-1.3 345 HM19EZ=-1.9 346 HM1E1=-10. 347 HM1597E1=-15.97469413 348 HM161E1=-16.1 349 HM1797E1=-17.97469413 350 HM181E1=-18.1 351 HM8E1=-80. 352 HM1E2=-100. 353 C 354 RETURN 355 END ENTRY POINTS Name hconst_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References HCON Common 14 872 HCONST Subr 2 PHYCON Common 9 80 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References AMOLWT R(4) 4 0 scalar COM 103 CSUBP R(4) 4 4 scalar COM 104 DIFFCTR R(4) 4 8 scalar COM 105 EIGHT R(4) 4 20 scalar COM 131 FIFTY R(4) 4 12 scalar COM 129 FIVE R(4) 4 24 scalar COM 132 FOUR R(4) 4 28 scalar COM 133 G R(4) 4 12 scalar COM 106,107 GINV R(4) 4 68 scalar COM 107,112 GP0INV R(4) 4 76 scalar COM 112 GRAVDR R(4) 4 16 scalar COM 108 H101M16 R(4) 4 808 scalar COM 311 H102M5 R(4) 4 784 scalar COM 242 H1036E2 R(4) 4 756 scalar COM 174 H114M11 R(4) 4 384 scalar COM 279 H1174M7 R(4) 4 268 scalar COM 250 H11M10 R(4) 4 296 scalar COM 257 H11M11 R(4) 4 388 scalar COM 280 H1224E3 R(4) 4 112 scalar COM 161 H1226E1 R(4) 4 652 scalar COM 183 H128M5 R(4) 4 240 scalar COM 241 H129M2 R(4) 4 732 scalar COM 224 Page 8 Source Listing HCONST 2025-03-12 18:21 Symbol Table HCONST.F Name Type Bytes Offset Dimen Elements Attributes References H12M12 R(4) 4 472 scalar COM 301 H12M13 R(4) 4 492 scalar COM 306 H12M31 R(4) 4 560 scalar COM 325 H135M13 R(4) 4 488 scalar COM 305 H1386E2 R(4) 4 748 scalar COM 173 H1439M5 R(4) 4 236 scalar COM 240 H14M10 R(4) 4 292 scalar COM 256 H14M11 R(4) 4 380 scalar COM 278 H14M12 R(4) 4 468 scalar COM 300 H14M14 R(4) 4 508 scalar COM 310 H14M30 R(4) 4 548 scalar COM 322 H15E2 R(4) 4 136 scalar COM 172 H15M11 R(4) 4 376 scalar COM 277 H15M14 R(4) 4 504 scalar COM 309 H15M5 R(4) 4 824 scalar COM 239 H161E1 R(4) 4 800 scalar COM 181 H165E5 R(4) 4 84 scalar COM 153 H16E1 R(4) 4 792 scalar COM 182 H16M12 R(4) 4 464 scalar COM 299 H181E1 R(4) 4 148 scalar COM 179 H18E1 R(4) 4 152 scalar COM 180 H18E3 R(4) 4 832 scalar COM 160 H18M11 R(4) 4 372 scalar COM 276 H1E11 R(4) 4 72 scalar COM 147 H1E13 R(4) 4 68 scalar COM 146 H1E15 R(4) 4 64 scalar COM 145 H1E4 R(4) 4 96 scalar COM 156 H1E6 R(4) 4 612 scalar COM 150 H1E8 R(4) 4 76 scalar COM 148 H1M10 R(4) 4 300 scalar COM 258 H1M11 R(4) 4 392 scalar COM 281 H1M13 R(4) 4 496 scalar COM 307 H1M16 R(4) 4 856 scalar COM 312 H1M17 R(4) 4 512 scalar COM 313 H1M18 R(4) 4 516 scalar COM 314 H1M19 R(4) 4 520 scalar COM 315 H1M2 R(4) 4 620 scalar COM 225 H1M20 R(4) 4 524 scalar COM 316 H1M21 R(4) 4 528 scalar COM 317 H1M22 R(4) 4 532 scalar COM 318 H1M23 R(4) 4 536 scalar COM 319 H1M24 R(4) 4 540 scalar COM 320 H1M3 R(4) 4 208 scalar COM 229 H1M4 R(4) 4 220 scalar COM 234 H1M5 R(4) 4 244 scalar COM 243 H1M6 R(4) 4 260 scalar COM 248 H1M60 R(4) 4 584 scalar COM 333 H1M8 R(4) 4 284 scalar COM 254 H1P082 R(4) 4 740 scalar COM 196 H1P25892 R(4) 4 180 scalar COM 195 H1P4 R(4) 4 176 scalar COM 194 H1P41819 R(4) 4 704 scalar COM 193 H1P4387 R(4) 4 172 scalar COM 192 H1P8 R(4) 4 168 scalar COM 191 H2075E3 R(4) 4 108 scalar COM 159 Page 9 Source Listing HCONST 2025-03-12 18:21 Symbol Table HCONST.F Name Type Bytes Offset Dimen Elements Attributes References H20788E3 R(4) 4 104 scalar COM 158 H2118M2 R(4) 4 760 scalar COM 223 H21M12 R(4) 4 460 scalar COM 298 H21M31 R(4) 4 556 scalar COM 324 H235M3 R(4) 4 724 scalar COM 228 H23E2 R(4) 4 132 scalar COM 170 H23M10 R(4) 4 288 scalar COM 255 H23M11 R(4) 4 364 scalar COM 274 H24E3 R(4) 4 100 scalar COM 157 H24M11 R(4) 4 360 scalar COM 273 H24M12 R(4) 4 456 scalar COM 297 H25452M6 R(4) 4 256 scalar COM 247 H257M8 R(4) 4 280 scalar COM 253 H25E2 R(4) 4 816 scalar COM 169 H25M31 R(4) 4 552 scalar COM 323 H26E2 R(4) 4 696 scalar COM 168 H26M30 R(4) 4 544 scalar COM 321 H28571M2 R(4) 4 852 scalar COM 222 H285M4 R(4) 4 216 scalar COM 233 H28E1 R(4) 4 868 scalar COM 178 H28M11 R(4) 4 356 scalar COM 272 H28M12 R(4) 4 452 scalar COM 296 H29316E2 R(4) 4 648 scalar COM 167 H2945E2 R(4) 4 128 scalar COM 166 H29M12 R(4) 4 448 scalar COM 295 H2E2 R(4) 4 688 scalar COM 171 H2E6 R(4) 4 616 scalar COM 149 H2M11 R(4) 4 368 scalar COM 275 H2P5 R(4) 4 164 scalar COM 190 H2P8 R(4) 4 160 scalar COM 189 H2P9 R(4) 4 156 scalar COM 188 H3082E2 R(4) 4 120 scalar COM 164 H3116E1 R(4) 4 656 scalar COM 177 H323M4 R(4) 4 768 scalar COM 231 H327M8 R(4) 4 276 scalar COM 252 H32M11 R(4) 4 348 scalar COM 270 H35E1 R(4) 4 140 scalar COM 176 H35M11 R(4) 4 344 scalar COM 269 H36M13 R(4) 4 484 scalar COM 304 H37412M5 R(4) 4 232 scalar COM 238 H37M11 R(4) 4 340 scalar COM 268 H37M12 R(4) 4 440 scalar COM 293 H38M12 R(4) 4 436 scalar COM 292 H391M7 R(4) 4 264 scalar COM 249 H394M5 R(4) 4 228 scalar COM 237 H3E2 R(4) 4 124 scalar COM 165 H3M11 R(4) 4 352 scalar COM 271 H3M12 R(4) 4 444 scalar COM 294 H3M14 R(4) 4 500 scalar COM 308 H3M3 R(4) 4 804 scalar COM 227 H3M4 R(4) 4 860 scalar COM 232 H3P5 R(4) 4 828 scalar COM 187 H3P6 R(4) 4 144 scalar COM 186 H41666M2 R(4) 4 636 scalar COM 221 H42M11 R(4) 4 336 scalar COM 267 Page 10 Source Listing HCONST 2025-03-12 18:21 Symbol Table HCONST.F Name Type Bytes Offset Dimen Elements Attributes References H42M2 R(4) 4 764 scalar COM 220 H44194M2 R(4) 4 700 scalar COM 219 H44871M2 R(4) 4 200 scalar COM 218 H44M11 R(4) 4 332 scalar COM 266 H44M12 R(4) 4 428 scalar COM 290 H451M6 R(4) 4 788 scalar COM 246 H45M12 R(4) 4 424 scalar COM 289 H45M32 R(4) 4 572 scalar COM 328 H46M13 R(4) 4 480 scalar COM 303 H488E4 R(4) 4 92 scalar COM 155 H48M11 R(4) 4 328 scalar COM 265 H4999M6 R(4) 4 252 scalar COM 245 H4E5 R(4) 4 80 scalar COM 152 H4M12 R(4) 4 432 scalar COM 291 H4M33 R(4) 4 576 scalar COM 329 H53M11 R(4) 4 324 scalar COM 264 H559M3 R(4) 4 204 scalar COM 226 H55M32 R(4) 4 568 scalar COM 327 H5725E4 R(4) 4 88 scalar COM 154 H5E2 R(4) 4 116 scalar COM 163 H625M2 R(4) 4 668 scalar COM 217 H62M12 R(4) 4 416 scalar COM 287 H62M34 R(4) 4 580 scalar COM 330 H658M2 R(4) 4 752 scalar COM 216 H65M12 R(4) 4 412 scalar COM 286 H67390E2 R(4) 4 772 scalar COM 162 H6938M5 R(4) 4 224 scalar COM 236 H69766E5 R(4) 4 720 scalar COM 151 H6M12 R(4) 4 420 scalar COM 288 H6P08108 R(4) 4 836 scalar COM 185 H71E26 R(4) 4 60 scalar COM 144 H72M11 R(4) 4 320 scalar COM 263 H74M12 R(4) 4 408 scalar COM 285 H75826M4 R(4) 4 736 scalar COM 235 H77M11 R(4) 4 316 scalar COM 262 H77M12 R(4) 4 404 scalar COM 284 H7M6 R(4) 4 248 scalar COM 244 H8121E1 R(4) 4 684 scalar COM 175 H82M11 R(4) 4 308 scalar COM 260 H83E26 R(4) 4 56 scalar COM 143 H83M11 R(4) 4 304 scalar COM 259 H8725M8 R(4) 4 272 scalar COM 251 H8M11 R(4) 4 312 scalar COM 261 H8M13 R(4) 4 476 scalar COM 302 H93M12 R(4) 4 400 scalar COM 283 H96M12 R(4) 4 396 scalar COM 282 H987M4 R(4) 4 212 scalar COM 230 H9M32 R(4) 4 564 scalar COM 326 H9P94 R(4) 4 660 scalar COM 184 HAF R(4) 4 44 scalar COM 137 HM13EZ R(4) 4 592 scalar COM 344 HM1597E1 R(4) 4 812 scalar COM 347 HM161E1 R(4) 4 796 scalar COM 348 HM1797E1 R(4) 4 680 scalar COM 349 HM181E1 R(4) 4 604 scalar COM 350 Page 11 Source Listing HCONST 2025-03-12 18:21 Symbol Table HCONST.F Name Type Bytes Offset Dimen Elements Attributes References HM19EZ R(4) 4 596 scalar COM 345 HM1E1 R(4) 4 600 scalar COM 346 HM1E2 R(4) 4 608 scalar COM 352 HM1EZ R(4) 4 692 scalar COM 343 HM2M2 R(4) 4 644 scalar COM 337 HM6666M2 R(4) 4 628 scalar COM 338 HM8E1 R(4) 4 864 scalar COM 351 HMP5 R(4) 4 640 scalar COM 339 HMP575 R(4) 4 588 scalar COM 340 HMP66667 R(4) 4 624 scalar COM 341 HMP805 R(4) 4 840 scalar COM 342 HNINETY R(4) 4 4 scalar COM 127 HP1 R(4) 4 196 scalar COM 214 HP118666 R(4) 4 820 scalar COM 213 HP144 R(4) 4 712 scalar COM 212 HP166666 R(4) 4 632 scalar COM 211 HP219 R(4) 4 708 scalar COM 210 HP228 R(4) 4 672 scalar COM 209 HP26 R(4) 4 728 scalar COM 208 HP369 R(4) 4 192 scalar COM 207 HP3795 R(4) 4 776 scalar COM 206 HP5048 R(4) 4 780 scalar COM 205 HP518 R(4) 4 188 scalar COM 204 HP526315 R(4) 4 848 scalar COM 203 HP6 R(4) 4 664 scalar COM 202 HP602409 R(4) 4 844 scalar COM 201 HP60241 R(4) 4 676 scalar COM 200 HP8 R(4) 4 184 scalar COM 199 HP805 R(4) 4 744 scalar COM 198 HP816 R(4) 4 716 scalar COM 197 HUNDRED R(4) 4 0 scalar COM 126 O3DIFCTR R(4) 4 20 scalar COM 109 ONE R(4) 4 40 scalar COM 136 P0 R(4) 4 24 scalar COM 110,111 P0INV R(4) 4 72 scalar COM 111,112 P0X2 R(4) 4 36 scalar COM 115 P0XZP2 R(4) 4 28 scalar COM 113 P0XZP8 R(4) 4 32 scalar COM 114 QUARTR R(4) 4 48 scalar COM 138 RADCON R(4) 4 40 scalar COM 116 RADCON1 R(4) 4 64 scalar COM 117 RATCO2MW R(4) 4 56 scalar COM 118 RATH2OMW R(4) 4 60 scalar COM 119 RGAS R(4) 4 44 scalar COM 120 RGASSP R(4) 4 48 scalar COM 121 SECPDA R(4) 4 52 scalar COM 122 SIXTY R(4) 4 8 scalar COM 128 TEN R(4) 4 16 scalar COM 130 THREE R(4) 4 32 scalar COM 134 TWO R(4) 4 36 scalar COM 135 ZERO R(4) 4 52 scalar COM 139 Page 12 Source Listing HCONST 2025-03-12 18:21 Subprograms/Common Blocks HCONST.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References HCON Common 14 872 HCONST Subr 2 PHYCON Common 9 80 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 -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__ Page 13 Source Listing HCONST 2025-03-12 18:21 HCONST.F -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 -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 Page 14 Source Listing HCONST 2025-03-12 18:21 HCONST.F -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 : HCONST.lst no -o COMPILER: Intel(R) Fortran 19.1-1655