Skip to content
Snippets Groups Projects
BASIC.f90 920 KiB
Newer Older
  • Learn to ignore specific revisions
  • 42001 42002 42003 42004 42005 42006 42007 42008 42009 42010 42011 42012 42013 42014 42015 42016 42017 42018 42019 42020 42021 42022 42023 42024 42025 42026 42027 42028 42029 42030 42031 42032 42033 42034 42035 42036 42037 42038 42039 42040 42041 42042 42043 42044 42045 42046 42047 42048 42049 42050 42051 42052 42053 42054 42055 42056 42057 42058 42059 42060 42061 42062 42063 42064 42065 42066 42067 42068 42069 42070 42071 42072 42073 42074 42075 42076 42077 42078 42079 42080 42081 42082 42083 42084 42085 42086 42087 42088 42089 42090 42091 42092 42093 42094 42095 42096 42097 42098 42099 42100 42101 42102 42103 42104 42105 42106 42107 42108 42109 42110 42111 42112 42113 42114 42115 42116 42117 42118 42119 42120 42121 42122 42123 42124 42125 42126 42127 42128 42129 42130 42131 42132 42133 42134 42135 42136 42137 42138 42139 42140 42141 42142 42143 42144 42145 42146 42147 42148 42149 42150 42151 42152 42153 42154 42155 42156 42157 42158 42159 42160 42161 42162 42163 42164 42165 42166 42167 42168 42169 42170 42171 42172 42173 42174 42175 42176 42177 42178 42179 42180 42181 42182 42183 42184 42185 42186 42187 42188 42189 42190 42191 42192 42193 42194 42195 42196 42197 42198 42199 42200 42201 42202 42203 42204 42205 42206 42207 42208 42209 42210 42211 42212 42213 42214 42215 42216 42217 42218 42219 42220 42221 42222 42223 42224 42225 42226 42227 42228 42229 42230 42231 42232 42233 42234 42235 42236 42237 42238 42239 42240 42241 42242 42243 42244 42245 42246 42247 42248 42249 42250 42251 42252 42253 42254 42255 42256 42257 42258 42259 42260 42261 42262 42263 42264 42265 42266 42267 42268 42269 42270 42271 42272 42273 42274 42275 42276 42277 42278 42279 42280 42281 42282 42283 42284 42285 42286 42287 42288 42289 42290 42291 42292 42293 42294 42295 42296 42297 42298 42299 42300 42301 42302 42303 42304 42305 42306 42307 42308 42309 42310 42311
     KSPARSE(1, 348)=32
     KSPARSE(2, 348)=33
    !MO2/ALKEP
     KSPARSE(1, 349)=32
     KSPARSE(2, 349)=34
    !MO2/BIOP
     KSPARSE(1, 350)=32
     KSPARSE(2, 350)=35
    !MO2/AROP
     KSPARSE(1, 351)=32
     KSPARSE(2, 351)=38
    !MO2/CARBOP
     KSPARSE(1, 352)=32
     KSPARSE(2, 352)=39
    !MO2/OLN
     KSPARSE(1, 353)=32
     KSPARSE(2, 353)=40
    !MO2/XO2
     KSPARSE(1, 354)=32
     KSPARSE(2, 354)=41
    !ALKAP/O3
     KSPARSE(1, 355)=33
     KSPARSE(2, 355)=1
    !ALKAP/NO
     KSPARSE(1, 356)=33
     KSPARSE(2, 356)=3
    !ALKAP/NO3
     KSPARSE(1, 357)=33
     KSPARSE(2, 357)=5
    !ALKAP/OH
     KSPARSE(1, 358)=33
     KSPARSE(2, 358)=14
    !ALKAP/HO2
     KSPARSE(1, 359)=33
     KSPARSE(2, 359)=15
    !ALKAP/ETH
     KSPARSE(1, 360)=33
     KSPARSE(2, 360)=17
    !ALKAP/ALKA
     KSPARSE(1, 361)=33
     KSPARSE(2, 361)=18
    !ALKAP/ALKE
     KSPARSE(1, 362)=33
     KSPARSE(2, 362)=19
    !ALKAP/BIO
     KSPARSE(1, 363)=33
     KSPARSE(2, 363)=20
    !ALKAP/KET
     KSPARSE(1, 364)=33
     KSPARSE(2, 364)=24
    !ALKAP/ONIT
     KSPARSE(1, 365)=33
     KSPARSE(2, 365)=26
    !ALKAP/OP2
     KSPARSE(1, 366)=33
     KSPARSE(2, 366)=29
    !ALKAP/MO2
     KSPARSE(1, 367)=33
     KSPARSE(2, 367)=32
    !ALKAP/ALKAP
     KSPARSE(1, 368)=33
     KSPARSE(2, 368)=33
    !ALKAP/CARBOP
     KSPARSE(1, 369)=33
     KSPARSE(2, 369)=39
    !ALKEP/NO
     KSPARSE(1, 370)=34
     KSPARSE(2, 370)=3
    !ALKEP/NO3
     KSPARSE(1, 371)=34
     KSPARSE(2, 371)=5
    !ALKEP/OH
     KSPARSE(1, 372)=34
     KSPARSE(2, 372)=14
    !ALKEP/HO2
     KSPARSE(1, 373)=34
     KSPARSE(2, 373)=15
    !ALKEP/ALKE
     KSPARSE(1, 374)=34
     KSPARSE(2, 374)=19
    !ALKEP/MO2
     KSPARSE(1, 375)=34
     KSPARSE(2, 375)=32
    !ALKEP/ALKEP
     KSPARSE(1, 376)=34
     KSPARSE(2, 376)=34
    !ALKEP/CARBOP
     KSPARSE(1, 377)=34
     KSPARSE(2, 377)=39
    !BIOP/NO
     KSPARSE(1, 378)=35
     KSPARSE(2, 378)=3
    !BIOP/NO3
     KSPARSE(1, 379)=35
     KSPARSE(2, 379)=5
    !BIOP/OH
     KSPARSE(1, 380)=35
     KSPARSE(2, 380)=14
    !BIOP/HO2
     KSPARSE(1, 381)=35
     KSPARSE(2, 381)=15
    !BIOP/ALKE
     KSPARSE(1, 382)=35
     KSPARSE(2, 382)=19
    !BIOP/BIO
     KSPARSE(1, 383)=35
     KSPARSE(2, 383)=20
    !BIOP/MO2
     KSPARSE(1, 384)=35
     KSPARSE(2, 384)=32
    !BIOP/BIOP
     KSPARSE(1, 385)=35
     KSPARSE(2, 385)=35
    !BIOP/CARBOP
     KSPARSE(1, 386)=35
     KSPARSE(2, 386)=39
    !PHO/NO2
     KSPARSE(1, 387)=36
     KSPARSE(2, 387)=4
    !PHO/NO3
     KSPARSE(1, 388)=36
     KSPARSE(2, 388)=5
    !PHO/OH
     KSPARSE(1, 389)=36
     KSPARSE(2, 389)=14
    !PHO/HO2
     KSPARSE(1, 390)=36
     KSPARSE(2, 390)=15
    !PHO/ARO
     KSPARSE(1, 391)=36
     KSPARSE(2, 391)=21
    !PHO/PHO
     KSPARSE(1, 392)=36
     KSPARSE(2, 392)=36
    !ADD/O3
     KSPARSE(1, 393)=37
     KSPARSE(2, 393)=1
    !ADD/NO2
     KSPARSE(1, 394)=37
     KSPARSE(2, 394)=4
    !ADD/OH
     KSPARSE(1, 395)=37
     KSPARSE(2, 395)=14
    !ADD/ARO
     KSPARSE(1, 396)=37
     KSPARSE(2, 396)=21
    !ADD/ADD
     KSPARSE(1, 397)=37
     KSPARSE(2, 397)=37
    !AROP/NO
     KSPARSE(1, 398)=38
     KSPARSE(2, 398)=3
    !AROP/NO3
     KSPARSE(1, 399)=38
     KSPARSE(2, 399)=5
    !AROP/HO2
     KSPARSE(1, 400)=38
     KSPARSE(2, 400)=15
    !AROP/MO2
     KSPARSE(1, 401)=38
     KSPARSE(2, 401)=32
    !AROP/ADD
     KSPARSE(1, 402)=38
     KSPARSE(2, 402)=37
    !AROP/AROP
     KSPARSE(1, 403)=38
     KSPARSE(2, 403)=38
    !AROP/CARBOP
     KSPARSE(1, 404)=38
     KSPARSE(2, 404)=39
    !CARBOP/O3
     KSPARSE(1, 405)=39
     KSPARSE(2, 405)=1
    !CARBOP/NO
     KSPARSE(1, 406)=39
     KSPARSE(2, 406)=3
    !CARBOP/NO2
     KSPARSE(1, 407)=39
     KSPARSE(2, 407)=4
    !CARBOP/NO3
     KSPARSE(1, 408)=39
     KSPARSE(2, 408)=5
    !CARBOP/OH
     KSPARSE(1, 409)=39
     KSPARSE(2, 409)=14
    !CARBOP/HO2
     KSPARSE(1, 410)=39
     KSPARSE(2, 410)=15
    !CARBOP/ALKE
     KSPARSE(1, 411)=39
     KSPARSE(2, 411)=19
    !CARBOP/BIO
     KSPARSE(1, 412)=39
     KSPARSE(2, 412)=20
    !CARBOP/ALD
     KSPARSE(1, 413)=39
     KSPARSE(2, 413)=23
    !CARBOP/KET
     KSPARSE(1, 414)=39
     KSPARSE(2, 414)=24
    !CARBOP/CARBO
     KSPARSE(1, 415)=39
     KSPARSE(2, 415)=25
    !CARBOP/PAN
     KSPARSE(1, 416)=39
     KSPARSE(2, 416)=27
    !CARBOP/OP2
     KSPARSE(1, 417)=39
     KSPARSE(2, 417)=29
    !CARBOP/MO2
     KSPARSE(1, 418)=39
     KSPARSE(2, 418)=32
    !CARBOP/ALKAP
     KSPARSE(1, 419)=39
     KSPARSE(2, 419)=33
    !CARBOP/ALKEP
     KSPARSE(1, 420)=39
     KSPARSE(2, 420)=34
    !CARBOP/BIOP
     KSPARSE(1, 421)=39
     KSPARSE(2, 421)=35
    !CARBOP/AROP
     KSPARSE(1, 422)=39
     KSPARSE(2, 422)=38
    !CARBOP/CARBOP
     KSPARSE(1, 423)=39
     KSPARSE(2, 423)=39
    !CARBOP/OLN
     KSPARSE(1, 424)=39
     KSPARSE(2, 424)=40
    !CARBOP/XO2
     KSPARSE(1, 425)=39
     KSPARSE(2, 425)=41
    !OLN/NO
     KSPARSE(1, 426)=40
     KSPARSE(2, 426)=3
    !OLN/NO3
     KSPARSE(1, 427)=40
     KSPARSE(2, 427)=5
    !OLN/HO2
     KSPARSE(1, 428)=40
     KSPARSE(2, 428)=15
    !OLN/ALKE
     KSPARSE(1, 429)=40
     KSPARSE(2, 429)=19
    !OLN/BIO
     KSPARSE(1, 430)=40
     KSPARSE(2, 430)=20
    !OLN/CARBO
     KSPARSE(1, 431)=40
     KSPARSE(2, 431)=25
    !OLN/MO2
     KSPARSE(1, 432)=40
     KSPARSE(2, 432)=32
    !OLN/CARBOP
     KSPARSE(1, 433)=40
     KSPARSE(2, 433)=39
    !OLN/OLN
     KSPARSE(1, 434)=40
     KSPARSE(2, 434)=40
    !XO2/O3
     KSPARSE(1, 435)=41
     KSPARSE(2, 435)=1
    !XO2/NO
     KSPARSE(1, 436)=41
     KSPARSE(2, 436)=3
    !XO2/NO3
     KSPARSE(1, 437)=41
     KSPARSE(2, 437)=5
    !XO2/OH
     KSPARSE(1, 438)=41
     KSPARSE(2, 438)=14
    !XO2/HO2
     KSPARSE(1, 439)=41
     KSPARSE(2, 439)=15
    !XO2/ALKE
     KSPARSE(1, 440)=41
     KSPARSE(2, 440)=19
    !XO2/BIO
     KSPARSE(1, 441)=41
     KSPARSE(2, 441)=20
    !XO2/ARO
     KSPARSE(1, 442)=41
     KSPARSE(2, 442)=21
    !XO2/CARBO
     KSPARSE(1, 443)=41
     KSPARSE(2, 443)=25
    !XO2/PAN
     KSPARSE(1, 444)=41
     KSPARSE(2, 444)=27
    !XO2/OP2
     KSPARSE(1, 445)=41
     KSPARSE(2, 445)=29
    !XO2/MO2
     KSPARSE(1, 446)=41
     KSPARSE(2, 446)=32
    !XO2/ALKAP
     KSPARSE(1, 447)=41
     KSPARSE(2, 447)=33
    !XO2/CARBOP
     KSPARSE(1, 448)=41
     KSPARSE(2, 448)=39
    !XO2/XO2
     KSPARSE(1, 449)=41
     KSPARSE(2, 449)=41
    KSPARSEDIM = 449
    RETURN
    END SUBROUTINE CH_SPARSE_GAZ
    !
    END SUBROUTINE CH_SPARSE
    !