chem/module_isocom.F

   1
   2 !!C ======================================================================
   3 !!C
   4 !C --- ISORROPIA CODE II
   5 !C --- SUBROUTINE ISOROPIA
   6 !C --- THIS SUBROUTINE IS THE MASTER ROUTINE FOR THE ISORROPIA
   7 !C     THERMODYNAMIC EQUILIBRIUM AEROSOL MODEL (VERSION 1.1 and above)
   8 !C
   9 !C ======================== ARGUMENTS / USAGE ===========================
  10 !C
  11 !C  INPUT:
  12 !C  1. [WI]
  13 !C     DOUBLE PRECISION array of length [8].
  14 !C     Concentrations, expressed in moles/m3. Depending on the type of
  15 !C     problem solved (specified in CNTRL(1)), WI contains either
  16 !C     GAS+AEROSOL or AEROSOL only concentratios.
  17 !C     WI(1) - sodium
  18 !C     WI(2) - sulfate
  19 !C     WI(3) - ammonium
  20 !C     WI(4) - nitrate
  21 !C     WI(5) - chloride
  22 !C     WI(6) - calcium
  23 !C     WI(7) - potassium
  24 !C     WI(8) - magnesium
  25 !C
  26 !C  2. [RHI]
  27 !C     DOUBLE PRECISION variable.
  28 !C     Ambient relative humidity expressed on a (0,1) scale.
  29 !C
  30 !C  3. [TEMPI]
  31 !C     DOUBLE PRECISION variable.
  32 !C     Ambient temperature expressed in Kelvins.
  33 !C
  34 !C  4. [CNTRL]
  35 !C     DOUBLE PRECISION array of length [2].
  36 !C     Parameters that control the type of problem solved.
  37 !C
  38 !C     CNTRL(1): Defines the type of problem solved.
  39 !C     0 - Forward problem is solved. In this case, array WI contains
  40 !C         GAS and AEROSOL concentrations together.
  41 !C     1 - Reverse problem is solved. In this case, array WI contains
  42 !C         AEROSOL concentrations only.
  43 !C
  44 !C     CNTRL(2): Defines the state of the aerosol
  45 !C     0 - The aerosol can have both solid+liquid phases (deliquescent)
  46 !C     1 - The aerosol is in only liquid state (metastable aerosol)
  47 !C
  48 !C  OUTPUT:
  49 !C  1. [WT]
  50 !C     DOUBLE PRECISION array of length [8].
  51 !C     Total concentrations (GAS+AEROSOL) of species, expressed in moles/m3.
  52 !C     If the foreward probelm is solved (CNTRL(1)=0), array WT is
  53 !C     identical to array WI.
  54 !C     WT(1) - total sodium
  55 !C     WT(2) - total sulfate
  56 !C     WT(3) - total ammonium
  57 !C     WT(4) - total nitrate
  58 !C     WT(5) - total chloride
  59 !C     WT(6) - total calcium
  60 !C     WT(7) - total potassium
  61 !C     WT(8) - total magnesium
  62 !C
  63 !C  2. [GAS]
  64 !C     DOUBLE PRECISION array of length [03].
  65 !C     Gaseous species concentrations, expressed in moles/m3.
  66 !C     GAS(1) - NH3
  67 !C     GAS(2) - HNO3
  68 !C     GAS(3) - HCl
  69 !C
  70 !C  3. [AERLIQ]
  71 !C     DOUBLE PRECISION array of length [15].
  72 !C     Liquid aerosol species concentrations, expressed in moles/m3.
  73 !C     AERLIQ(01) - H+(aq)
  74 !C     AERLIQ(02) - Na+(aq)
  75 !C     AERLIQ(03) - NH4+(aq)
  76 !C     AERLIQ(04) - Cl-(aq)
  77 !C     AERLIQ(05) - SO4--(aq)
  78 !C     AERLIQ(06) - HSO4-(aq)
  79 !C     AERLIQ(07) - NO3-(aq)
  80 !C     AERLIQ(08) - H2O
  81 !C     AERLIQ(09) - NH3(aq) (undissociated)
  82 !C     AERLIQ(10) - HNCl(aq) (undissociated)
  83 !C     AERLIQ(11) - HNO3(aq) (undissociated)
  84 !C     AERLIQ(12) - OH-(aq)
  85 !C     AERLIQ(13) - Ca2+(aq)
  86 !C     AERLIQ(14) - K+(aq)
  87 !C     AERLIQ(15) - Mg2+(aq)
  88 !C
  89 !C  4. [AERSLD]
  90 !C     DOUBLE PRECISION array of length [19].
  91 !C     Solid aerosol species concentrations, expressed in moles/m3.
  92 !C     AERSLD(01) - NaNO3(s)
  93 !C     AERSLD(02) - NH4NO3(s)
  94 !C     AERSLD(03) - NaCl(s)
  95 !C     AERSLD(04) - NH4Cl(s)
  96 !C     AERSLD(05) - Na2SO4(s)
  97 !C     AERSLD(06) - (NH4)2SO4(s)
  98 !C     AERSLD(07) - NaHSO4(s)
  99 !C     AERSLD(08) - NH4HSO4(s)
 100 !C     AERSLD(09) - (NH4)4H(SO4)2(s)
 101 !C     AERSLD(10) - CaSO4(s)
 102 !C     AERSLD(11) - Ca(NO3)2(s)
 103 !C     AERSLD(12) - CaCl2(s)
 104 !C     AERSLD(13) - K2SO4(s)
 105 !C     AERSLD(14) - KHSO4(s)
 106 !C     AERSLD(15) - KNO3(s)
 107 !C     AERSLD(16) - KCl(s)
 108 !C     AERSLD(17) - MgSO4(s)
 109 !C     AERSLD(18) - Mg(NO3)2(s)
 110 !C     AERSLD(19) - MgCl2(s)
 111 !C
 112 !C  5. [SCASI]
 113 !C     CHARACTER*15 variable.
 114 !C     Returns the subcase which the input corresponds to.
 115 !C
 116 !C  6. [OTHER]
 117 !C     DOUBLE PRECISION array of length [9].
 118 !C     Returns solution information.
 119 !C
 120 !C     OTHER(1): Shows if aerosol water exists.
 121 !C     0 - Aerosol is WET
 122 !C     1 - Aerosol is DRY
 123 !C
 124 !C     OTHER(2): Aerosol Sulfate ratio, defined as (in moles/m3) :
 125 !C               (total ammonia + total Na) / (total sulfate)
 126 !C
 127 !C     OTHER(3): Sulfate ratio based on aerosol properties that defines
 128 !C               a sulfate poor system:
 129 !C               (aerosol ammonia + aerosol Na) / (aerosol sulfate)
 130 !C
 131 !C     OTHER(4): Aerosol sodium ratio, defined as (in moles/m3) :
 132 !C               (total Na) / (total sulfate)
 133 !C
 134 !C     OTHER(5): Ionic strength of the aqueous aerosol (if it exists).
 135 !C
 136 !C     OTHER(6): Total number of calls to the activity coefficient
 137 !C               calculation subroutine.
 138 !C
 139 !C     OTHER(7): Sulfate ratio with crustal species, defined as (in moles/m3) :
 140 !C               (total ammonia + total crustal species + total Na) / (total sulfate)
 141 !C
 142 !C     OTHER(8): Crustal species + sodium ratio, defined as (in moles/m3) :
 143 !C               (total crustal species + total Na) / (total sulfate)
 144 !C
 145 !C     OTHER(9): Crustal species ratio, defined as (in moles/m3) :
 146 !C               (total crustal species) / (total sulfate)
 147 !C
 148 !C --- COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
 149 !C --- GEORGIA INSTITUTE OF TECHNOLOGY
 150 !C --- WRITTEN BY ATHANASIOS NENES
 151 !C --- UPDATED BY CHRISTOS FOUNTOUKIS
 152 !C
 153 !C=======================================================================
 154 !C
 155       SUBROUTINE ISOROPIA2p1 (WI, RHI, TEMPI,  CNTRL, &
 156                          WT, GAS, AERLIQ, AERSLD, SCASI, OTHER)
 157       INCLUDE 'module_isrpia_inc.F'
 158       PARAMETER (NCTRL=2,NOTHER=9)
 159       CHARACTER SCASI*15
 160       DIMENSION WI(NCOMP), WT(NCOMP),   GAS(NGASAQ),  AERSLD(NSLDS), &
 161                AERLIQ(NIONS+NGASAQ+2), CNTRL(NCTRL), OTHER(NOTHER)
 162
 163 !liqy
 164         character*8 date
 165         character*10 time
 166         character*5 zone
 167         integer*4  values(8)
 168
 169 !               call date_and_time( date , time, zone, values )
 170 !               open(unit=220,file='call-iso.txt',position='append')
 171 !               write(220,*) date, time, ' calling isoropia'
 172 !               close (unit=220)
 173 !liqy-20140513
 174
 175 !C
 176 !C --- PROBLEM TYPE (0=FOREWARD, 1=REVERSE) ------------------------------
 177 !C
 178       IPROB   = NINT(CNTRL(1))
 179 !C
 180 !C --- AEROSOL STATE (0=SOLID+LIQUID, 1=METASTABLE) ---------------------
 181 !C
 182       METSTBL = NINT(CNTRL(2))
 183 !C
 184 !C --- SOLVE FOREWARD PROBLEM ------------------------------------------**
 185 !C
 186 50    IF (IPROB.EQ.0) THEN
 187          IF (WI(1)+WI(2)+WI(3)+WI(4)+WI(5)+WI(6)+WI(7)+WI(8) .LE. TINY) &
 188                 THEN                                                 !Everything=0
 189             CALL INIT12p1 (WI, RHI, TEMPI)
 190 !liqy
 191 !
 192 !                call date_and_time( date , time, zone, values )
 193 !               open(unit=220,file='call-iso.txt',position='append')
 194 !               write(220,*) date, time, ' calling init1-f'
 195 !               close (unit=220)
 196 !liqy-20140512
 197          ELSE IF (WI(1)+WI(4)+WI(5)+WI(6)+WI(7)+WI(8) .LE. TINY) THEN !Ca,K,Mg,Na,Cl,NO3=0
 198             CALL ISRP1F2p1 (WI, RHI, TEMPI)
 199 !liqy
 200 !
 201 !                call date_and_time( date , time, zone, values )
 202 !               open(unit=220,file='call-iso.txt',position='append')
 203 !               write(220,*) date, time, ' calling isrp1f'
 204 !               close (unit=220)
 205
 206 !liqy-20140512
 207          ELSE IF (WI(1)+WI(5)+WI(6)+WI(7)+WI(8) .LE. TINY) THEN       !Ca,K,Mg,Na,Cl=0
 208             CALL ISRP2F2p1 (WI, RHI, TEMPI)
 209 !liqy
 210 !
 211 !                call date_and_time( date , time, zone, values )
 212 !               open(unit=220,file='call-iso.txt',position='append')
 213 !               write(220,*) date, time, ' calling isrp2f'
 214 !               close (unit=220)
 215
 216 !liqy-20140512
 217          ELSE IF (WI(6)+WI(7)+WI(8) .LE. TINY) THEN                   !Ca,K,Mg=0
 218             CALL ISRP3F2p1 (WI, RHI, TEMPI)
 219 !liqy
 220 !
 221 !               call date_and_time( date , time, zone, values )
 222 !               open(unit=220,file='call-iso.txt',position='append')
 223 !               write(220,*) date, time, ' calling isrp3f'
 224 !               close (unit=220)
 225 !liqy-20140512
 226          ELSE
 227             CALL ISRP4F2p1 (WI, RHI, TEMPI)
 228 !liqy
 229 !               call date_and_time( date , time, zone, values )
 230 !               open(unit=220,file='call-iso.txt',position='append')
 231 !               write(220,*) date, time, ' calling isrp4f'
 232 !               close (unit=220)
 233 !liqy-20140513
 234          ENDIF
 235 !C
 236 !C --- SOLVE REVERSE PROBLEM ---------------------------------------------
 237 !C
 238       ELSE
 239          IF (WI(1)+WI(2)+WI(3)+WI(4)+WI(5)+WI(6)+WI(7)+WI(8) .LE. TINY) &
 240                 THEN                                                 !Everything=0
 241             CALL INIT12p1 (WI, RHI, TEMPI)
 242 !liqy
 243 !               call date_and_time( date , time, zone, values )
 244 !               open(unit=220,file='call-iso.txt',position='append')
 245 !               write(220,*) date, time, ' calling init1-r'
 246 !               close (unit=220)
 247 !liqy-20140513
 248
 249          ELSE IF (WI(1)+WI(4)+WI(5)+WI(6)+WI(7)+WI(8) .LE. TINY) THEN !Ca,K,Mg,Na,Cl,NO3=0
 250             CALL ISRP1R2p1 (WI, RHI, TEMPI)
 251 !liqy
 252 !               call date_and_time( date , time, zone, values )
 253 !               open(unit=220,file='call-iso.txt',position='append')
 254 !               write(220,*) date, time, ' calling isrp1r'
 255 !               close (unit=220)
 256 !liqy-20140513
 257
 258          ELSE IF (WI(1)+WI(5)+WI(6)+WI(7)+WI(8) .LE. TINY) THEN       !Ca,K,Mg,Na,Cl=0
 259             CALL ISRP2R2p1 (WI, RHI, TEMPI)
 260
 261 !liqy
 262 !               call date_and_time( date , time, zone, values )
 263 !               open(unit=220,file='call-iso.txt',position='append')
 264 !               write(220,*) date, time, ' calling isrp2r'
 265 !               close (unit=220)
 266 !liqy-20140513
 267
 268          ELSE IF (WI(6)+WI(7)+WI(8) .LE. TINY) THEN                  !Ca,K,Mg=0
 269             CALL ISRP3R2p1 (WI, RHI, TEMPI)
 270
 271 !liqy
 272 !               call date_and_time( date , time, zone, values )
 273 !               open(unit=220,file='call-iso.txt',position='append')
 274 !               write(220,*) date, time, ' calling isrp3r'
 275 !               close (unit=220)
 276 !liqy-20140513
 277
 278          ELSE
 279             CALL ISRP4R2p1 (WI, RHI, TEMPI)
 280
 281 !liqy
 282 !               call date_and_time( date , time, zone, values )
 283 !               open(unit=220,file='call-iso.txt',position='append')
 284 !               write(220,*) date, time, ' calling isrp4r'
 285 !               close (unit=220)
 286 !liqy-20140513
 287
 288          ENDIF
 289       ENDIF
 290
 291
 292 !C
 293 !C --- ADJUST MASS BALANCE ---------------------------------------------**
 294 !C
 295       IF (NADJ.EQ.1) CALL ADJUST2p1 (WI)
 296 !ccC
 297 !ccC *** IF METASTABLE AND NO WATER - RESOLVE AS NORMAL ********************
 298 !ccC
 299 !!cc      IF (WATER.LE.TINY .AND. METSTBL.EQ.1) THEN
 300 !cc         METSTBL = 0
 301 !cc         GOTO 50
 302 !cc      ENDIF
 303
 304 !C
 305 !C *** SAVE RESULTS TO ARRAYS (units = mole/m3) ****************************
 306 !C
 307       GAS(1) = GNH3                ! Gaseous aerosol species
 308       GAS(2) = GHNO3
 309       GAS(3) = GHCL
 310 !C
 311       DO 10 I=1,7              ! Liquid aerosol species
 312          AERLIQ(I) = MOLAL(I)
 313   10  CONTINUE
 314       DO 20 I=1,NGASAQ
 315          AERLIQ(7+1+I) = GASAQ(I)
 316   20  CONTINUE
 317       AERLIQ(7+1)        = WATER*1.0D3/18.0D0
 318       AERLIQ(7+NGASAQ+2) = COH
 319 !C
 320       DO 250 I=8,10              ! Liquid aerosol species
 321          AERLIQ(I+5) = MOLAL(I)
 322  250  CONTINUE
 323 !C
 324       AERSLD(1)  = CNANO3           ! Solid aerosol species
 325       AERSLD(2)  = CNH4NO3
 326       AERSLD(3)  = CNACL
 327       AERSLD(4)  = CNH4CL
 328       AERSLD(5)  = CNA2SO4
 329       AERSLD(6)  = CNH42S4
 330       AERSLD(7)  = CNAHSO4
 331       AERSLD(8)  = CNH4HS4
 332       AERSLD(9)  = CLC
 333       AERSLD(10) = CCASO4
 334       AERSLD(11) = CCANO32
 335       AERSLD(12) = CCACL2
 336       AERSLD(13) = CK2SO4
 337       AERSLD(14) = CKHSO4
 338       AERSLD(15) = CKNO3
 339       AERSLD(16) = CKCL
 340       AERSLD(17) = CMGSO4
 341       AERSLD(18) = CMGNO32
 342       AERSLD(19) = CMGCL2
 343 !C
 344       IF(WATER.LE.TINY) THEN       ! Dry flag
 345         OTHER(1) = 1.d0
 346       ELSE
 347         OTHER(1) = 0.d0
 348       ENDIF
 349 !C
 350       OTHER(2) = SULRAT            ! Other stuff
 351       OTHER(3) = SULRATW
 352       OTHER(4) = SODRAT
 353       OTHER(5) = IONIC
 354       OTHER(6) = ICLACT
 355       OTHER(7) = SO4RAT
 356       OTHER(8) = CRNARAT
 357       OTHER(9) = CRRAT
 358 !C
 359       SCASI = SCASE
 360 !C
 361       WT(1) = WI(1)                ! Total gas+aerosol phase
 362       WT(2) = WI(2)
 363       WT(3) = WI(3)
 364       WT(4) = WI(4)
 365       WT(5) = WI(5)
 366       WT(6) = WI(6)
 367       WT(7) = WI(7)
 368       WT(8) = WI(8)
 369
 370
 371       IF (IPROB.GT.0 .AND. WATER.GT.TINY) THEN
 372          WT(3) = WT(3) + GNH3
 373          WT(4) = WT(4) + GHNO3
 374          WT(5) = WT(5) + GHCL
 375       ENDIF
 376 !C
 377       RETURN
 378 !C
 379 !C *** END OF SUBROUTINE ISOROPIA ******************************************
 380 !C
 381       END
 382 !C=======================================================================
 383 !C
 384 !C *** ISORROPIA CODE
 385 !C *** SUBROUTINE SETPARM
 386 !C *** THIS SUBROUTINE REDEFINES THE SOLUTION PARAMETERS OF ISORROPIA
 387 !C
 388 !C ======================== ARGUMENTS / USAGE ===========================
 389 !C
 390 !C *** NOTE: IF NEGATIVE VALUES ARE GIVEN FOR A PARAMETER, IT IS
 391 !C     IGNORED AND THE CURRENT VALUE IS USED INSTEAD.
 392 !C
 393 !C  INPUT:
 394 !C  1. [WFTYPI]
 395 !C     INTEGER variable.
 396 !C     Defines the type of weighting algorithm for the solution in Mutual
 397 !C     Deliquescence Regions (MDR's):
 398 !C     0 - MDR's are assumed dry. This is equivalent to the approach
 399 !C         used by SEQUILIB.
 400 !C     1 - The solution is assumed "half" dry and "half" wet throughout
 401 !C         the MDR.
 402 !C     2 - The solution is a relative-humidity weighted mean of the
 403 !C         dry and wet solutions (as defined in Nenes et al., 1998)
 404 !C
 405 !C  2. [IACALCI]
 406 !C     INTEGER variable.
 407 !C     Method of activity coefficient calculation:
 408 !C     0 - Calculate coefficients during runtime
 409 !C     1 - Use precalculated tables
 410 !C
 411 !C  3. [EPSI]
 412 !C     DOUBLE PRECITION variable.
 413 !C     Defines the convergence criterion for all iterative processes
 414 !C     in ISORROPIA, except those for activity coefficient calculations
 415 !C     (EPSACTI controls that).
 416 !C
 417 !C  4. [MAXITI]
 418 !C     INTEGER variable.
 419 !C     Defines the maximum number of iterations for all iterative
 420 !C     processes in ISORROPIA, except for activity coefficient calculations
 421 !C     (NSWEEPI controls that).
 422 !C
 423 !C  5. [NSWEEPI]
 424 !C     INTEGER variable.
 425 !C     Defines the maximum number of iterations for activity coefficient
 426 !C     calculations.
 427 !C
 428 !C  6. [EPSACTI]
 429 !C     DOUBLE PRECISION variable.
 430 !C     Defines the convergence criterion for activity coefficient
 431 !C     calculations.
 432 !C
 433 !C  7. [NDIV]
 434 !C     INTEGER variable.
 435 !C     Defines the number of subdivisions needed for the initial root
 436 !C     tracking for the bisection method. Usually this parameter should
 437 !C     not be altered, but is included for completeness.
 438 !C
 439 !C  8. [NADJ]
 440 !C     INTEGER variable.
 441 !C     Forces the solution obtained to satisfy total mass balance
 442 !C     to machine precision
 443 !C     0 - No adjustment done (default)
 444 !C     1 - Do adjustment
 445 !C
 446 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
 447 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
 448 !C *** WRITTEN BY ATHANASIOS NENES
 449 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
 450 !C
 451 !C=======================================================================
 452 !C
 453       SUBROUTINE SETPARM2p1 (WFTYPI,  IACALCI, EPSI, MAXITI, NSWEEPI, &
 454                         EPSACTI, NDIVI, NADJI)
 455       INCLUDE 'module_isrpia_inc.F'
 456       INTEGER  WFTYPI
 457 !C
 458 !C *** SETUP SOLUTION PARAMETERS *****************************************
 459 !C
 460       IF (WFTYPI .GE. 0)   WFTYP  = WFTYPI
 461       IF (IACALCI.GE. 0)   IACALC = IACALCI
 462       IF (EPSI   .GE.ZERO) EPS    = EPSI
 463       IF (MAXITI .GT. 0)   MAXIT  = MAXITI
 464       IF (NSWEEPI.GT. 0)   NSWEEP = NSWEEPI
 465       IF (EPSACTI.GE.ZERO) EPSACT = EPSACTI
 466       IF (NDIVI  .GT. 0)   NDIV   = NDIVI
 467       IF (NADJI  .GE. 0)   NADJ   = NADJI
 468 !C
 469 !C *** END OF SUBROUTINE SETPARM *****************************************
 470 !C
 471       RETURN
 472       END
 473
 474 !C
 475 !C=======================================================================
 476 !C
 477 !C *** ISORROPIA CODE
 478 !C *** SUBROUTINE GETPARM
 479 !C *** THIS SUBROUTINE OBTAINS THE CURRENT VAULES OF THE SOLUTION
 480 !C     PARAMETERS OF ISORROPIA
 481 !C
 482 !C ======================== ARGUMENTS / USAGE ===========================
 483 !C
 484 !C *** THE PARAMETERS ARE THOSE OF SUBROUTINE SETPARM
 485 !C
 486 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
 487 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
 488 !C *** WRITTEN BY ATHANASIOS NENES
 489 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
 490 !C
 491 !C=======================================================================
 492 !C
 493       SUBROUTINE GETPARM2p1 (WFTYPI,  IACALCI, EPSI, MAXITI, NSWEEPI, &
 494                          EPSACTI, NDIVI, NADJI)
 495       INCLUDE 'module_isrpia_inc.F'
 496       INTEGER  WFTYPI
 497 !C
 498 !C *** GET SOLUTION PARAMETERS *******************************************
 499 !C
 500       WFTYPI  = WFTYP
 501       IACALCI = IACALC
 502       EPSI    = EPS
 503       MAXITI  = MAXIT
 504       NSWEEPI = NSWEEP
 505       EPSACTI = EPSACT
 506       NDIVI   = NDIV
 507       NADJI   = NADJ
 508 !C
 509 !C *** END OF SUBROUTINE GETPARM *****************************************
 510 !C
 511       RETURN
 512       END
 513
 514 !C=======================================================================
 515 !C
 516 !C *** ISORROPIA CODE
 517 !C *** BLOCK DATA BLKISO
 518 !C *** THIS SUBROUTINE PROVIDES INITIAL (DEFAULT) VALUES TO PROGRAM
 519 !C     PARAMETERS VIA DATA STATEMENTS
 520 !C
 521 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
 522 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
 523 !C *** WRITTEN BY ATHANASIOS NENES
 524 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
 525 !C
 526 !C *** ZSR RELATIONSHIP PARAMETERS MODIFIED BY DOUGLAS WALDRON
 527 !C *** OCTOBER 2003
 528 !C *** BASED ON AIM MODEL III (http://mae.ucdavis.edu/wexler/aim)
 529 !C
 530 !C=======================================================================
 531 !C
 532       BLOCK DATA BLKISO2p1
 533       INCLUDE 'module_isrpia_inc.F'
 534 !C
 535 !C *** DEFAULT VALUES *************************************************
 536 !C
 537       DATA TEMP/298.0/, R/82.0567D-6/, RH/0.9D0/, EPS/1D-6/, MAXIT/100/, &
 538           TINY/1D-20/, GREAT/1D10/, ZERO/0.0D0/, ONE/1.0D0/,NSWEEP/4/, &
 539           TINY2/1D-11/,NDIV/5/
 540 !C
 541       DATA MOLAL/NIONS*0.0D0/, MOLALR/NPAIR*0.0D0/, GAMA/NPAIR*0.1D0/, &
 542           GAMOU/NPAIR*1D10/,  GAMIN/NPAIR*1D10/,   CALAIN/.TRUE./, &
 543           CALAOU/.TRUE./,     EPSACT/5D-2/,        ICLACT/0/, &
 544           IACALC/1/,          NADJ/0/,             WFTYP/2/
 545 !C
 546       DATA ERRSTK/NERRMX*0/,   ERRMSG/NERRMX*' '/,  NOFER/0/, &
 547           STKOFL/.FALSE./
 548 !C
 549       DATA IPROB/0/, METSTBL/0/
 550 !C
 551       DATA VERSION /'2.1 (07/19/09)'/
 552 !C
 553 !C *** OTHER PARAMETERS ***********************************************
 554 !C
 555       DATA SMW/58.5,142.,85.0,132.,80.0,53.5,98.0,98.0,115.,63.0, &
 556               36.5,120.,247.,136.1,164.,111.,174.2,136.1,101.1,74.5, &
 557               120.3,148.3,95.2/ &
 558           IMW/ 1.0,23.0,18.0,35.5,96.0,97.0,62.0,40.1,39.1,24.3/ &
 559           WMW/23.0,98.0,17.0,63.0,36.5,40.1,39.1,24.3/
 560 !C
 561       DATA ZZ /1,2,1,2,1,1,2,1,1,1,1,1,2,4,2,2,2,1,1,1,4,2,2/ &
 562            Z /1,1,1,1,2,1,1,2,1,2/
 563 !C
 564 !C *** ZSR RELATIONSHIP PARAMETERS **************************************
 565 !C
 566 !C awas= ammonium sulfate
 567 !C
 568       DATA AWAS/10*187.72,&
 569       158.13,134.41,115.37,100.10, 87.86, 78.00, 70.00, 63.45, 58.02,&
 570        53.46,&
 571        49.59, 46.26, 43.37, 40.84, 38.59, 36.59, 34.79, 33.16, 31.67,&
 572        30.31,&
 573        29.07, 27.91, 26.84, 25.84, 24.91, 24.03, 23.21, 22.44, 21.70,&
 574        21.01,&
 575        20.34, 19.71, 19.11, 18.54, 17.99, 17.46, 16.95, 16.46, 15.99,&
 576        15.54,&
 577        15.10, 14.67, 14.26, 13.86, 13.47, 13.09, 12.72, 12.36, 12.01,&
 578        11.67,&
 579        11.33, 11.00, 10.68, 10.37, 10.06,  9.75,  9.45,  9.15,  8.86,&
 580         8.57,&
 581         8.29,  8.01,  7.73,  7.45,  7.18,  6.91,  6.64,  6.37,  6.10,&
 582         5.83,&
 583         5.56,  5.29,  5.02,  4.74,  4.47,  4.19,  3.91,  3.63,  3.34,&
 584         3.05,&
 585         2.75,  2.45,  2.14,  1.83,  1.51,  1.19,  0.87,  0.56,  0.26,&
 586         0.1/
 587 !C
 588 !C awsn= sodium nitrate
 589 !C
 590       DATA AWSN/10*394.54,&
 591       338.91,293.01,254.73,222.61,195.56,172.76,153.53,137.32,123.65,&
 592       112.08,&
 593       102.26, 93.88, 86.68, 80.45, 75.02, 70.24, 66.02, 62.26, 58.89,&
 594        55.85,&
 595        53.09, 50.57, 48.26, 46.14, 44.17, 42.35, 40.65, 39.06, 37.57,&
 596        36.17,&
 597        34.85, 33.60, 32.42, 31.29, 30.22, 29.20, 28.22, 27.28, 26.39,&
 598        25.52,&
 599        24.69, 23.89, 23.12, 22.37, 21.65, 20.94, 20.26, 19.60, 18.96,&
 600        18.33,&
 601        17.72, 17.12, 16.53, 15.96, 15.40, 14.85, 14.31, 13.78, 13.26,&
 602        12.75,&
 603        12.25, 11.75, 11.26, 10.77, 10.29,  9.82,  9.35,  8.88,  8.42,&
 604         7.97,&
 605         7.52,  7.07,  6.62,  6.18,  5.75,  5.32,  4.89,  4.47,  4.05,&
 606         3.64,&
 607         3.24,  2.84,  2.45,  2.07,  1.70,  1.34,  0.99,  0.65,  0.31,&
 608        0.1/
 609 !C
 610 !C awsc= sodium chloride
 611 !C
 612       DATA AWSC/10*28.16,&
 613        27.17, 26.27, 25.45, 24.69, 23.98, 23.33, 22.72, 22.14, 21.59,&
 614        21.08,&
 615        20.58, 20.12, 19.67, 19.24, 18.82, 18.43, 18.04, 17.67, 17.32,&
 616        16.97,&
 617        16.63, 16.31, 15.99, 15.68, 15.38, 15.08, 14.79, 14.51, 14.24,&
 618        13.97,&
 619        13.70, 13.44, 13.18, 12.93, 12.68, 12.44, 12.20, 11.96, 11.73,&
 620        11.50,&
 621        11.27, 11.05, 10.82, 10.60, 10.38, 10.16,  9.95,  9.74,  9.52,&
 622         9.31,&
 623         9.10,  8.89,  8.69,  8.48,  8.27,  8.07,  7.86,  7.65,  7.45,&
 624         7.24,&
 625         7.04,  6.83,  6.62,  6.42,  6.21,  6.00,  5.79,  5.58,  5.36,&
 626         5.15,&
 627         4.93,  4.71,  4.48,  4.26,  4.03,  3.80,  3.56,  3.32,  3.07,&
 628         2.82,&
 629         2.57,  2.30,  2.04,  1.76,  1.48,  1.20,  0.91,  0.61,  0.30,&
 630        0.1/
 631 !C
 632 !C awac= ammonium chloride
 633 !C
 634       DATA AWAC/10*1209.00,&
 635       1067.60,949.27,848.62,761.82,686.04,619.16,559.55,505.92,457.25,&
 636       412.69,&
 637       371.55,333.21,297.13,262.81,229.78,197.59,165.98,135.49,108.57,&
 638        88.29,&
 639        74.40, 64.75, 57.69, 52.25, 47.90, 44.30, 41.27, 38.65, 36.36,&
 640        34.34,&
 641        32.52, 30.88, 29.39, 28.02, 26.76, 25.60, 24.51, 23.50, 22.55,&
 642        21.65,&
 643        20.80, 20.00, 19.24, 18.52, 17.83, 17.17, 16.54, 15.93, 15.35,&
 644        14.79,&
 645        14.25, 13.73, 13.22, 12.73, 12.26, 11.80, 11.35, 10.92, 10.49,&
 646        10.08,&
 647         9.67,  9.28,  8.89,  8.51,  8.14,  7.77,  7.42,  7.06,  6.72,&
 648         6.37,&
 649         6.03,  5.70,  5.37,  5.05,  4.72,  4.40,  4.08,  3.77,  3.45,&
 650         3.14,&
 651         2.82,  2.51,  2.20,  1.89,  1.57,  1.26,  0.94,  0.62,  0.31,&
 652        0.1/
 653 !C
 654 !C awss= sodium sulfate
 655 !C
 656       DATA AWSS/10*24.10,&
 657        23.17, 22.34, 21.58, 20.90, 20.27, 19.69, 19.15, 18.64, 18.17,&
 658        17.72,&
 659        17.30, 16.90, 16.52, 16.16, 15.81, 15.48, 15.16, 14.85, 14.55,&
 660        14.27,&
 661        13.99, 13.73, 13.47, 13.21, 12.97, 12.73, 12.50, 12.27, 12.05,&
 662        11.84,&
 663        11.62, 11.42, 11.21, 11.01, 10.82, 10.63, 10.44, 10.25, 10.07,&
 664         9.89,&
 665         9.71,  9.53,  9.36,  9.19,  9.02,  8.85,  8.68,  8.51,  8.35,&
 666         8.19,&
 667         8.02,  7.86,  7.70,  7.54,  7.38,  7.22,  7.06,  6.90,  6.74,&
 668         6.58,&
 669         6.42,  6.26,  6.10,  5.94,  5.78,  5.61,  5.45,  5.28,  5.11,&
 670         4.93,&
 671         4.76,  4.58,  4.39,  4.20,  4.01,  3.81,  3.60,  3.39,  3.16,&
 672         2.93,&
 673         2.68,  2.41,  2.13,  1.83,  1.52,  1.19,  0.86,  0.54,  0.25,&
 674        0.1/
 675 !C
 676 !C awab= ammonium bisulfate
 677 !C
 678       DATA AWAB/10*312.84,&
 679       271.43,237.19,208.52,184.28,163.64,145.97,130.79,117.72,106.42,&
 680        96.64,&
 681        88.16, 80.77, 74.33, 68.67, 63.70, 59.30, 55.39, 51.89, 48.76,&
 682        45.93,&
 683        43.38, 41.05, 38.92, 36.97, 35.18, 33.52, 31.98, 30.55, 29.22,&
 684        27.98,&
 685        26.81, 25.71, 24.67, 23.70, 22.77, 21.90, 21.06, 20.27, 19.52,&
 686        18.80,&
 687        18.11, 17.45, 16.82, 16.21, 15.63, 15.07, 14.53, 14.01, 13.51,&
 688        13.02,&
 689        12.56, 12.10, 11.66, 11.24, 10.82, 10.42, 10.04,  9.66,  9.29,&
 690         8.93,&
 691         8.58,  8.24,  7.91,  7.58,  7.26,  6.95,  6.65,  6.35,  6.05,&
 692         5.76,&
 693         5.48,  5.20,  4.92,  4.64,  4.37,  4.09,  3.82,  3.54,  3.27,&
 694         2.99,&
 695         2.70,  2.42,  2.12,  1.83,  1.52,  1.22,  0.90,  0.59,  0.28,&
 696        0.1/
 697 !C
 698 !C awsa= sulfuric acid
 699 !C
 700       DATA AWSA/34.00, 33.56, 29.22, 26.55, 24.61, 23.11, 21.89, 20.87,&
 701        19.99, 18.45,&
 702        17.83, 17.26, 16.73, 16.25, 15.80, 15.38, 14.98, 14.61, 14.26,&
 703        13.93,&
 704        13.61, 13.30, 13.01, 12.73, 12.47, 12.21, 11.96, 11.72, 11.49,&
 705        11.26,&
 706        11.04, 10.83, 10.62, 10.42, 10.23, 10.03,  9.85,  9.67,  9.49,&
 707         9.31,&
 708         9.14,  8.97,  8.81,  8.65,  8.49,  8.33,  8.18,  8.02,  7.87,&
 709         7.73,&
 710         7.58,  7.44,  7.29,  7.15,  7.01,  6.88,  6.74,  6.61,  6.47,&
 711         6.34,&
 712         6.21,  6.07,  5.94,  5.81,  5.68,  5.55,  5.43,  5.30,  5.17,&
 713         5.04,&
 714         4.91,  4.78,  4.65,  4.52,  4.39,  4.26,  4.13,  4.00,  3.86,&
 715         3.73,&
 716         3.59,  3.45,  3.31,  3.17,  3.02,  2.87,  2.71,  2.56,  2.39,&
 717         2.22,&
 718         2.05,  1.87,  1.68,  1.48,  1.27,  1.04,  0.80,  0.55,  0.28,&
 719        0.1/
 720 !C
 721 !C awlc= (NH4)3H(SO4)2
 722 !C
 723       DATA AWLC/10*125.37,&
 724       110.10, 97.50, 86.98, 78.08, 70.49, 63.97, 58.33, 53.43, 49.14,&
 725        45.36,&
 726        42.03, 39.07, 36.44, 34.08, 31.97, 30.06, 28.33, 26.76, 25.32,&
 727        24.01,&
 728        22.81, 21.70, 20.67, 19.71, 18.83, 18.00, 17.23, 16.50, 15.82,&
 729        15.18,&
 730        14.58, 14.01, 13.46, 12.95, 12.46, 11.99, 11.55, 11.13, 10.72,&
 731        10.33,&
 732         9.96,  9.60,  9.26,  8.93,  8.61,  8.30,  8.00,  7.72,  7.44,&
 733         7.17,&
 734         6.91,  6.66,  6.42,  6.19,  5.96,  5.74,  5.52,  5.31,  5.11,&
 735         4.91,&
 736         4.71,  4.53,  4.34,  4.16,  3.99,  3.81,  3.64,  3.48,  3.31,&
 737         3.15,&
 738         2.99,  2.84,  2.68,  2.53,  2.37,  2.22,  2.06,  1.91,  1.75,&
 739         1.60,&
 740         1.44,  1.28,  1.12,  0.95,  0.79,  0.62,  0.45,  0.29,  0.14,&
 741        0.1/
 742 !C
 743 !C awan= ammonium nitrate
 744 !C
 745       DATA AWAN/10*960.19,&
 746       853.15,763.85,688.20,623.27,566.92,517.54,473.91,435.06,400.26,&
 747       368.89,&
 748       340.48,314.63,291.01,269.36,249.46,231.11,214.17,198.50,184.00,&
 749       170.58,&
 750       158.15,146.66,136.04,126.25,117.24,108.97,101.39, 94.45, 88.11,&
 751        82.33,&
 752        77.06, 72.25, 67.85, 63.84, 60.16, 56.78, 53.68, 50.81, 48.17,&
 753        45.71,&
 754        43.43, 41.31, 39.32, 37.46, 35.71, 34.06, 32.50, 31.03, 29.63,&
 755        28.30,&
 756        27.03, 25.82, 24.67, 23.56, 22.49, 21.47, 20.48, 19.53, 18.61,&
 757        17.72,&
 758        16.86, 16.02, 15.20, 14.41, 13.64, 12.89, 12.15, 11.43, 10.73,&
 759        10.05,&
 760         9.38,  8.73,  8.09,  7.47,  6.86,  6.27,  5.70,  5.15,  4.61,&
 761         4.09,&
 762         3.60,  3.12,  2.66,  2.23,  1.81,  1.41,  1.03,  0.67,  0.32,&
 763        0.1/
 764 !C
 765 !C awsb= sodium bisulfate
 766 !C
 767       DATA AWSB/10*55.99,&
 768        53.79, 51.81, 49.99, 48.31, 46.75, 45.28, 43.91, 42.62, 41.39,&
 769        40.22,&
 770        39.10, 38.02, 36.99, 36.00, 35.04, 34.11, 33.21, 32.34, 31.49,&
 771        30.65,&
 772        29.84, 29.04, 28.27, 27.50, 26.75, 26.01, 25.29, 24.57, 23.87,&
 773        23.17,&
 774        22.49, 21.81, 21.15, 20.49, 19.84, 19.21, 18.58, 17.97, 17.37,&
 775        16.77,&
 776        16.19, 15.63, 15.08, 14.54, 14.01, 13.51, 13.01, 12.53, 12.07,&
 777        11.62,&
 778        11.19, 10.77, 10.36,  9.97,  9.59,  9.23,  8.87,  8.53,  8.20,&
 779         7.88,&
 780         7.57,  7.27,  6.97,  6.69,  6.41,  6.14,  5.88,  5.62,  5.36,&
 781         5.11,&
 782         4.87,  4.63,  4.39,  4.15,  3.92,  3.68,  3.45,  3.21,  2.98,&
 783         2.74,&
 784         2.49,  2.24,  1.98,  1.72,  1.44,  1.16,  0.87,  0.57,  0.28,&
 785        0.1/
 786 !C
 787 !C awpc= potassium chloride
 788 !C
 789       DATA AWPC/172.62, 165.75, 159.10, 152.67, 146.46, 140.45, 134.64,&
 790                129.03, 123.61, 118.38, 113.34, 108.48, 103.79, 99.27,&
 791                94.93, 90.74, 86.71, 82.84, 79.11, 75.53, 72.09, 68.79,&
 792                65.63, 62.59, 59.68, 56.90, 54.23, 51.68, 49.24, 46.91,&
 793                44.68, 42.56, 40.53, 38.60, 36.76, 35.00, 33.33, 31.75,&
 794                30.24, 28.81, 27.45, 26.16, 24.94, 23.78, 22.68, 21.64,&
 795                20.66, 19.74, 18.86, 18.03, 17.25, 16.51, 15.82, 15.16,&
 796                14.54, 13.96, 13.41, 12.89, 12.40, 11.94, 11.50, 11.08,&
 797                10.69, 10.32, 9.96, 9.62, 9.30, 8.99, 8.69, 8.40, 8.12,&
 798                7.85, 7.59, 7.33, 7.08, 6.83, 6.58, 6.33, 6.08, 5.84,&
 799                5.59, 5.34, 5.09, 4.83, 4.57, 4.31, 4.04, 3.76, 3.48,&
 800                3.19, 2.90, 2.60, 2.29, 1.98, 1.66, 1.33, 0.99, 0.65,&
 801                0.30, 0.1/
 802 !C
 803 !C awps= potassium sulfate
 804 !C
 805       DATA AWPS/1014.82, 969.72, 926.16, 884.11, 843.54, 804.41, 766.68,&
 806                730.32, 695.30, 661.58, 629.14, 597.93, 567.92, 539.09,&
 807                511.41, 484.83, 459.34, 434.89, 411.47, 389.04, 367.58,&
 808                347.05, 327.43, 308.69, 290.80, 273.73, 257.47, 241.98,&
 809                227.24, 213.22, 199.90, 187.26, 175.27, 163.91, 153.15,&
 810                142.97, 133.36, 124.28, 115.73, 107.66, 100.08, 92.95,&
 811                86.26, 79.99, 74.12, 68.63, 63.50, 58.73, 54.27, 50.14,&
 812                46.30, 42.74, 39.44, 36.40, 33.59, 31.00, 28.63, 26.45,&
 813                24.45, 22.62, 20.95, 19.43, 18.05, 16.79, 15.64, 14.61,&
 814                13.66,  12.81, 12.03, 11.33, 10.68, 10.09, 9.55, 9.06,&
 815                8.60, 8.17, 7.76, 7.38, 7.02, 6.66, 6.32, 5.98, 5.65,&
 816                5.31, 4.98, 4.64, 4.31, 3.96, 3.62, 3.27, 2.92, 2.57,&
 817                2.22, 1.87, 1.53, 1.20, 0.87, 0.57, 0.28, 0.1/
 818 !C
 819 !C awpn= potassium nitrate
 820 !C
 821       DATA AWPN/44*1000.00, 953.05, 881.09, 813.39,&
 822                749.78, 690.09, 634.14, 581.77, 532.83, 487.16, 444.61,&
 823                405.02, 368.26, 334.18, 302.64, 273.51, 246.67, 221.97,&
 824                199.31, 178.56, 159.60, 142.33, 126.63, 112.40, 99.54,&
 825                87.96, 77.55, 68.24, 59.92, 52.53, 45.98, 40.2, 35.11,&
 826                30.65, 26.75, 23.35, 20.40, 17.85, 15.63, 13.72, 12.06,&
 827                10.61, 9.35, 8.24, 7.25, 6.37, 5.56, 4.82, 4.12, 3.47,&
 828                2.86, 2.28, 1.74, 1.24, 0.79, 0.40, 0.1/
 829 !C
 830 !C awpb= potassium bisulfate
 831 !C
 832       DATA AWPB/10*55.99,&
 833        53.79, 51.81, 49.99, 48.31, 46.75, 45.28, 43.91, 42.62, 41.39,&
 834        40.22,&
 835        39.10, 38.02, 36.99, 36.00, 35.04, 34.11, 33.21, 32.34, 31.49,&
 836        30.65,&
 837        29.84, 29.04, 28.27, 27.50, 26.75, 26.01, 25.29, 24.57, 23.87,&
 838        23.17,&
 839        22.49, 21.81, 21.15, 20.49, 19.84, 19.21, 18.58, 17.97, 17.37,&
 840        16.77,&
 841        16.19, 15.63, 15.08, 14.54, 14.01, 13.51, 13.01, 12.53, 12.07,&
 842        11.62,&
 843        11.19, 10.77, 10.36,  9.97,  9.59,  9.23,  8.87,  8.53,  8.20,&
 844         7.88,&
 845         7.57,  7.27,  6.97,  6.69,  6.41,  6.14,  5.88,  5.62,  5.36,&
 846         5.11,&
 847         4.87,  4.63,  4.39,  4.15,  3.92,  3.68,  3.45,  3.21,  2.98,&
 848         2.74,&
 849         2.49,  2.24,  1.98,  1.72,  1.44,  1.16,  0.87,  0.57,  0.28,&
 850        0.1/
 851 !C
 852 !C awcc= calcium chloride
 853 !C
 854       DATA AWCC/19.9, 19.0, 18.15, 17.35, 16.6, 15.89, 15.22, 14.58,&
 855                13.99, 13.43, 12.90, 12.41, 11.94, 11.50, 11.09, 10.7,&
 856                10.34, 9.99, 9.67, 9.37, 9.09, 8.83, 8.57, 8.34, 8.12,&
 857                7.91, 7.71, 7.53, 7.35, 7.19, 7.03, 6.88, 6.74, 6.6,&
 858                6.47, 6.35, 6.23, 6.12, 6.01, 5.90, 5.80, 5.70, 5.61,&
 859                5.51, 5.42, 5.33, 5.24, 5.16, 5.07, 4.99, 4.91, 4.82,&
 860                4.74, 4.66, 4.58, 4.50, 4.42, 4.34, 4.26, 4.19, 4.11,&
 861                4.03, 3.95, 3.87, 3.79, 3.72, 3.64, 3.56, 3.48, 3.41,&
 862                3.33, 3.25, 3.17, 3.09, 3.01, 2.93, 2.85, 2.76, 2.68,&
 863                2.59, 2.50, 2.41, 2.32, 2.23, 2.13, 2.03, 1.93, 1.82,&
 864                1.71, 1.59, 1.47, 1.35, 1.22, 1.07, 0.93, 0.77, 0.61,&
 865                0.44, 0.25, 0.1/
 866 !C
 867 !C awcn= calcium nitrate
 868 !C
 869       DATA AWCN/32.89, 31.46, 30.12, 28.84, 27.64, 26.51, 25.44, 24.44,&
 870                23.49, 22.59, 21.75, 20.96, 20.22, 19.51, 18.85, 18.23,&
 871                17.64, 17.09, 16.56, 16.07, 15.61, 15.17, 14.75, 14.36,&
 872                13.99, 13.63, 13.3, 12.98, 12.68, 12.39, 12.11, 11.84,&
 873                11.59, 11.35, 11.11, 10.88, 10.66, 10.45, 10.24, 10.04,&
 874                9.84, 9.65, 9.46, 9.28, 9.1, 8.92, 8.74, 8.57, 8.4,&
 875                8.23, 8.06, 7.9, 7.73, 7.57, 7.41, 7.25, 7.1,6.94, 6.79,&
 876                6.63, 6.48, 6.33, 6.18, 6.03, 5.89, 5.74, 5.60, 5.46,&
 877                5.32, 5.17, 5.04, 4.9, 4.76, 4.62, 4.49, 4.35, 4.22,&
 878                4.08, 3.94, 3.80, 3.66, 3.52, 3.38, 3.23, 3.08, 2.93,&
 879                2.77, 2.60, 2.43, 2.25, 2.07, 1.87, 1.67, 1.45, 1.22,&
 880                0.97, 0.72, 0.44, 0.14, 0.1/
 881 !C
 882 !C awmc= magnesium chloride
 883 !C
 884       DATA AWMC/11.24, 10.99, 10.74, 10.5, 10.26, 10.03, 9.81, 9.59,&
 885                9.38, 9.18, 8.98, 8.79, 8.60, 8.42, 8.25, 8.07, 7.91,&
 886                7.75, 7.59, 7.44, 7.29, 7.15, 7.01, 6.88, 6.75, 6.62,&
 887                6.5, 6.38, 6.27, 6.16, 6.05, 5.94, 5.85, 5.75, 5.65,&
 888                5.56, 5.47, 5.38, 5.30, 5.22, 5.14, 5.06, 4.98, 4.91,&
 889                4.84, 4.77, 4.7, 4.63, 4.57, 4.5, 4.44, 4.37, 4.31,&
 890                4.25, 4.19, 4.13, 4.07, 4.01, 3.95, 3.89, 3.83, 3.77,&
 891                3.71, 3.65, 3.58, 3.52, 3.46, 3.39, 3.33, 3.26, 3.19,&
 892                3.12, 3.05, 2.98, 2.9, 2.82, 2.75, 2.67, 2.58, 2.49,&
 893                2.41, 2.32, 2.22, 2.13, 2.03, 1.92, 1.82, 1.71, 1.60,&
 894                1.48, 1.36, 1.24, 1.11, 0.98, 0.84, 0.70, 0.56, 0.41,&
 895                0.25, 0.1/
 896 !C
 897 !C awmn= magnesium nitrate
 898 !C
 899       DATA AWMN/12.00, 11.84, 11.68, 11.52, 11.36, 11.2, 11.04, 10.88,&
 900                10.72, 10.56, 10.40, 10.25, 10.09, 9.93, 9.78, 9.63,&
 901                9.47, 9.32, 9.17, 9.02, 8.87, 8.72, 8.58, 8.43, 8.29,&
 902                8.15, 8.01, 7.87, 7.73, 7.59, 7.46, 7.33, 7.2, 7.07,&
 903                6.94, 6.82, 6.69, 6.57, 6.45, 6.33, 6.21, 6.01, 5.98,&
 904                5.87, 5.76, 5.65, 5.55, 5.44, 5.34, 5.24, 5.14, 5.04,&
 905                4.94, 4.84, 4.75, 4.66, 4.56, 4.47, 4.38, 4.29, 4.21,&
 906                4.12, 4.03, 3.95, 3.86, 3.78, 3.69, 3.61, 3.53, 3.45,&
 907                3.36, 3.28, 3.19, 3.11, 3.03, 2.94, 2.85, 2.76, 2.67,&
 908                2.58, 2.49, 2.39, 2.3, 2.2, 2.1, 1.99, 1.88, 1.77, 1.66,&
 909                1.54, 1.42, 1.29, 1.16, 1.02, 0.88, 0.73, 0.58, 0.42,&
 910                0.25, 0.1/
 911 !C
 912 !C awmn= magnesium sulfate
 913 !C
 914       DATA AWMS/0.93, 2.5, 3.94, 5.25, 6.45, 7.54, 8.52, 9.40, 10.19,&
 915                10.89, 11.50, 12.04, 12.51, 12.90, 13.23, 13.50, 13.72,&
 916                13.88, 13.99, 14.07, 14.1, 14.09, 14.05, 13.98, 13.88,&
 917                13.75, 13.6, 13.43, 13.25, 13.05, 12.83, 12.61, 12.37,&
 918                12.13, 11.88, 11.63, 11.37, 11.12, 10.86, 10.60, 10.35,&
 919                10.09, 9.85, 9.6, 9.36, 9.13, 8.9, 8.68, 8.47, 8.26,&
 920                8.07, 7.87, 7.69, 7.52, 7.35, 7.19, 7.03, 6.89, 6.75,&
 921                6.62, 6.49, 6.37, 6.26, 6.15, 6.04, 5.94, 5.84, 5.75,&
 922                5.65, 5.56, 5.47, 5.38, 5.29, 5.20, 5.11, 5.01, 4.92,&
 923                4.82, 4.71, 4.60, 4.49, 4.36, 4.24, 4.10, 3.96, 3.81,&
 924                3.65, 3.48, 3.30, 3.11, 2.92, 2.71, 2.49, 2.26, 2.02,&
 925                1.76, 1.50, 1.22, 0.94, 0.64/
 926 !C
 927 !C *** ZSR RELATIONSHIP PARAMETERS **************************************
 928 !C
 929 !C awas= ammonium sulfate
 930 !C
 931 !C      DATA AWAS/33*100.,30,30,30,29.54,28.25,27.06,25.94,
 932 !C     & 24.89,23.90,22.97,22.10,21.27,20.48,19.73,19.02,18.34,17.69,
 933 !C     & 17.07,16.48,15.91,15.37,14.85,14.34,13.86,13.39,12.94,12.50,
 934 !C     & 12.08,11.67,11.27,10.88,10.51,10.14, 9.79, 9.44, 9.10, 8.78,
 935 !C     &  8.45, 8.14, 7.83, 7.53, 7.23, 6.94, 6.65, 6.36, 6.08, 5.81,
 936 !C     &  5.53, 5.26, 4.99, 4.72, 4.46, 4.19, 3.92, 3.65, 3.38, 3.11,
 937 !C     &  2.83, 2.54, 2.25, 1.95, 1.63, 1.31, 0.97, 0.63, 0.30, 0.001/
 938 !C
 939 !C awsn= sodium nitrate
 940 !C
 941 !C      DATA AWSN/ 9*1.e5,685.59,
 942 !C     & 451.00,336.46,268.48,223.41,191.28,
 943 !C     & 167.20,148.46,133.44,121.12,110.83,
 944 !C     & 102.09,94.57,88.03,82.29,77.20,72.65,68.56,64.87,61.51,58.44,
 945 !C     & 55.62,53.03,50.63,48.40,46.32,44.39,42.57,40.87,39.27,37.76,
 946 !C     & 36.33,34.98,33.70,32.48,31.32,30.21,29.16,28.14,27.18,26.25,
 947 !C     & 25.35,24.50,23.67,22.87,22.11,21.36,20.65,19.95,19.28,18.62,
 948 !C     & 17.99,17.37,16.77,16.18,15.61,15.05,14.51,13.98,13.45,12.94,
 949 !C     & 12.44,11.94,11.46,10.98,10.51,10.04, 9.58, 9.12, 8.67, 8.22,
 950 !C     &  7.77, 7.32, 6.88, 6.43, 5.98, 5.53, 5.07, 4.61, 4.15, 3.69,
 951 !C     &  3.22, 2.76, 2.31, 1.87, 1.47, 1.10, 0.77, 0.48, 0.23, 0.001/
 952 !C
 953 !C awsc= sodium chloride
 954 !C
 955 !C      DATA AWSC/
 956 !C     &  100., 100., 100., 100., 100., 100., 100., 100., 100., 100.,
 957 !C     &  100., 100., 100., 100., 100., 100., 100., 100., 100.,16.34,
 958 !C     & 16.28,16.22,16.15,16.09,16.02,15.95,15.88,15.80,15.72,15.64,
 959 !C     & 15.55,15.45,15.36,15.25,15.14,15.02,14.89,14.75,14.60,14.43,
 960 !C     & 14.25,14.04,13.81,13.55,13.25,12.92,12.56,12.19,11.82,11.47,
 961 !C     & 11.13,10.82,10.53,10.26,10.00, 9.76, 9.53, 9.30, 9.09, 8.88,
 962 !C     &  8.67, 8.48, 8.28, 8.09, 7.90, 7.72, 7.54, 7.36, 7.17, 6.99,
 963 !C     &  6.81, 6.63, 6.45, 6.27, 6.09, 5.91, 5.72, 5.53, 5.34, 5.14,
 964 !C     &  4.94, 4.74, 4.53, 4.31, 4.09, 3.86, 3.62, 3.37, 3.12, 2.85,
 965 !C     &  2.58, 2.30, 2.01, 1.72, 1.44, 1.16, 0.89, 0.64, 0.40, 0.18/
 966 !C
 967 !C awac= ammonium chloride
 968 !C
 969 !C      DATA AWAC/
 970 !C     &  100., 100., 100., 100., 100., 100., 100., 100., 100., 100.,
 971 !C     &  100., 100., 100., 100., 100., 100., 100., 100., 100.,31.45,
 972 !C     & 31.30,31.14,30.98,30.82,30.65,30.48,30.30,30.11,29.92,29.71,
 973 !C     & 29.50,29.29,29.06,28.82,28.57,28.30,28.03,27.78,27.78,27.77,
 974 !C     & 27.77,27.43,27.07,26.67,26.21,25.73,25.18,24.56,23.84,23.01,
 975 !C     & 22.05,20.97,19.85,18.77,17.78,16.89,16.10,15.39,14.74,14.14,
 976 !C     & 13.59,13.06,12.56,12.09,11.65,11.22,10.81,10.42,10.03, 9.66,
 977 !C     &  9.30, 8.94, 8.59, 8.25, 7.92, 7.59, 7.27, 6.95, 6.63, 6.32,
 978 !C     &  6.01, 5.70, 5.39, 5.08, 4.78, 4.47, 4.17, 3.86, 3.56, 3.25,
 979 !C     &  2.94, 2.62, 2.30, 1.98, 1.65, 1.32, 0.97, 0.62, 0.26, 0.13/
 980 !C
 981 !C awss= sodium sulfate
 982 !C
 983 !C      DATA AWSS/34*1.e5,23*14.30,14.21,12.53,11.47,
 984 !C     & 10.66,10.01, 9.46, 8.99, 8.57, 8.19, 7.85, 7.54, 7.25, 6.98,
 985 !C     &  6.74, 6.50, 6.29, 6.08, 5.88, 5.70, 5.52, 5.36, 5.20, 5.04,
 986 !C     &  4.90, 4.75, 4.54, 4.34, 4.14, 3.93, 3.71, 3.49, 3.26, 3.02,
 987 !C     &  2.76, 2.49, 2.20, 1.89, 1.55, 1.18, 0.82, 0.49, 0.22, 0.001/
 988 !C
 989 !C awab= ammonium bisulfate
 990 !C
 991 !C      DATA AWAB/356.45,296.51,253.21,220.47,194.85,
 992 !C     & 174.24,157.31,143.16,131.15,120.82,
 993 !C     & 111.86,103.99,97.04,90.86,85.31,80.31,75.78,71.66,67.90,64.44,
 994 !C     &  61.25,58.31,55.58,53.04,50.68,48.47,46.40,44.46,42.63,40.91,
 995 !C     &  39.29,37.75,36.30,34.92,33.61,32.36,31.18,30.04,28.96,27.93,
 996 !C     &  26.94,25.99,25.08,24.21,23.37,22.57,21.79,21.05,20.32,19.63,
 997 !C     &  18.96,18.31,17.68,17.07,16.49,15.92,15.36,14.83,14.31,13.80,
 998 !C     &  13.31,12.83,12.36,11.91,11.46,11.03,10.61,10.20, 9.80, 9.41,
 999 !C     &   9.02, 8.64, 8.28, 7.91, 7.56, 7.21, 6.87, 6.54, 6.21, 5.88,
1000 !C     &   5.56, 5.25, 4.94, 4.63, 4.33, 4.03, 3.73, 3.44, 3.14, 2.85,
1001 !C     &   2.57, 2.28, 1.99, 1.71, 1.42, 1.14, 0.86, 0.57, 0.29, 0.001/
1002 !C
1003 !C awsa= sulfuric acid
1004 !C
1005 !C      DATA AWSA/
1006 !C     & 34.0,33.56,29.22,26.55,24.61,23.11,21.89,20.87,19.99,
1007 !C     & 19.21,18.51,17.87,17.29,16.76,16.26,15.8,15.37,14.95,14.56,
1008 !C     & 14.20,13.85,13.53,13.22,12.93,12.66,12.40,12.14,11.90,11.67,
1009 !C     & 11.44,11.22,11.01,10.8,10.60,10.4,10.2,10.01,9.83,9.65,9.47,
1010 !C     & 9.3,9.13,8.96,8.81,8.64,8.48,8.33,8.17,8.02,7.87,7.72,7.58,
1011 !C     & 7.44,7.30,7.16,7.02,6.88,6.75,6.61,6.48,6.35,6.21,6.08,5.95,
1012 !C     & 5.82,5.69,5.56,5.44,5.31,5.18,5.05,4.92,4.79,4.66,4.53,4.40,
1013 !C     & 4.27,4.14,4.,3.87,3.73,3.6,3.46,3.31,3.17,3.02,2.87,2.72,
1014 !C     & 2.56,2.4,2.23,2.05,1.87,1.68,1.48,1.27,1.05,0.807,0.552,0.281/
1015 !C
1016 !C awlc= (NH4)3H(SO4)2
1017 !C
1018 !C      DATA AWLC/34*1.e5,17.0,16.5,15.94,15.31,14.71,14.14,
1019 !C     & 13.60,13.08,12.59,12.12,11.68,11.25,10.84,10.44,10.07, 9.71,
1020 !C     &  9.36, 9.02, 8.70, 8.39, 8.09, 7.80, 7.52, 7.25, 6.99, 6.73,
1021 !C     &  6.49, 6.25, 6.02, 5.79, 5.57, 5.36, 5.15, 4.95, 4.76, 4.56,
1022 !C     &  4.38, 4.20, 4.02, 3.84, 3.67, 3.51, 3.34, 3.18, 3.02, 2.87,
1023 !C     &  2.72, 2.57, 2.42, 2.28, 2.13, 1.99, 1.85, 1.71, 1.57, 1.43,
1024 !C     &  1.30, 1.16, 1.02, 0.89, 0.75, 0.61, 0.46, 0.32, 0.16, 0.001/
1025 !C
1026 !C awan= ammonium nitrate
1027 !C
1028 !C      DATA AWAN/31*1.e5,
1029 !C     &       97.17,92.28,87.66,83.15,78.87,74.84,70.98,67.46,64.11,
1030 !C     & 60.98,58.07,55.37,52.85,50.43,48.24,46.19,44.26,42.40,40.70,
1031 !C     & 39.10,37.54,36.10,34.69,33.35,32.11,30.89,29.71,28.58,27.46,
1032 !C     & 26.42,25.37,24.33,23.89,22.42,21.48,20.56,19.65,18.76,17.91,
1033 !C     & 17.05,16.23,15.40,14.61,13.82,13.03,12.30,11.55,10.83,10.14,
1034 !C     &  9.44, 8.79, 8.13, 7.51, 6.91, 6.32, 5.75, 5.18, 4.65, 4.14,
1035 !C     &  3.65, 3.16, 2.71, 2.26, 1.83, 1.42, 1.03, 0.66, 0.30, 0.001/
1036 !C
1037 !C awsb= sodium bisulfate
1038 !C
1039 !C      DATA AWSB/173.72,156.88,142.80,130.85,120.57,
1040 !C     & 111.64,103.80,96.88,90.71,85.18,
1041 !C     & 80.20,75.69,71.58,67.82,64.37,61.19,58.26,55.53,53.00,50.64,
1042 !C     & 48.44,46.37,44.44,42.61,40.90,39.27,37.74,36.29,34.91,33.61,
1043 !C     & 32.36,31.18,30.05,28.97,27.94,26.95,26.00,25.10,24.23,23.39,
1044 !C     & 22.59,21.81,21.07,20.35,19.65,18.98,18.34,17.71,17.11,16.52,
1045 !C     & 15.95,15.40,14.87,14.35,13.85,13.36,12.88,12.42,11.97,11.53,
1046 !C     & 11.10,10.69,10.28, 9.88, 9.49, 9.12, 8.75, 8.38, 8.03, 7.68,
1047 !C     &  7.34, 7.01, 6.69, 6.37, 6.06, 5.75, 5.45, 5.15, 4.86, 4.58,
1048 !C     &  4.30, 4.02, 3.76, 3.49, 3.23, 2.98, 2.73, 2.48, 2.24, 2.01,
1049 !C     &  1.78, 1.56, 1.34, 1.13, 0.92, 0.73, 0.53, 0.35, 0.17, 0.001/
1050 !C
1051 !C *** END OF BLOCK DATA SUBPROGRAM *************************************
1052 !C
1053       END
1054 !C
1055 !C=======================================================================
1056 !C
1057 !C *** ISORROPIA CODE
1058 !C *** SUBROUTINE INIT1
1059 !C *** THIS SUBROUTINE INITIALIZES ALL GLOBAL VARIABLES FOR AMMONIUM
1060 !C     SULFATE AEROSOL SYSTEMS (SUBROUTINE ISRP1)
1061 !C
1062 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
1063 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
1064 !C *** WRITTEN BY ATHANASIOS NENES
1065 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
1066 !C
1067 !C=======================================================================
1068 !C
1069       SUBROUTINE INIT12p1 (WI, RHI, TEMPI)
1070       INCLUDE 'module_isrpia_inc.F'
1071       DIMENSION WI(NCOMP)
1072       REAL      IC,GII,GI0,XX,LN10
1073       PARAMETER (LN10=2.3025851)
1074 !C
1075 !C *** SAVE INPUT VARIABLES IN COMMON BLOCK ******************************
1076 !C
1077       IF (IPROB.EQ.0) THEN                 ! FORWARD CALCULATION
1078          DO 10 I=1,NCOMP
1079             W(I) = MAX(WI(I), TINY)
1080 10       CONTINUE
1081       ELSE
1082          DO 15 I=1,NCOMP                   ! REVERSE CALCULATION
1083             WAER(I) = MAX(WI(I), TINY)
1084             W(I)    = ZERO
1085 15       CONTINUE
1086       ENDIF
1087       RH      = RHI
1088       TEMP    = TEMPI
1089 !C
1090 !C *** CALCULATE EQUILIBRIUM CONSTANTS ***********************************
1091 !C
1092       XK1  = 1.015e-2  ! HSO4(aq)         <==> H(aq)     + SO4(aq)
1093       XK21 = 57.639    ! NH3(g)           <==> NH3(aq)
1094       XK22 = 1.805e-5  ! NH3(aq)          <==> NH4(aq)   + OH(aq)
1095       XK7  = 1.817     ! (NH4)2SO4(s)     <==> 2*NH4(aq) + SO4(aq)
1096       XK12 = 1.382e2   ! NH4HSO4(s)       <==> NH4(aq)   + HSO4(aq)
1097       XK13 = 29.268    ! (NH4)3H(SO4)2(s) <==> 3*NH4(aq) + HSO4(aq) + SO4(aq)
1098       XKW  = 1.010e-14 ! H2O              <==> H(aq)     + OH(aq)
1099 !C
1100       IF (INT(TEMP) .NE. 298) THEN   ! FOR T != 298K or 298.15K
1101          T0  = 298.15
1102          T0T = T0/TEMP
1103          COEF= 1.0+LOG(T0T)-T0T
1104          XK1 = XK1 *EXP(  8.85*(T0T-1.0) + 25.140*COEF)
1105          XK21= XK21*EXP( 13.79*(T0T-1.0) -  5.393*COEF)
1106          XK22= XK22*EXP( -1.50*(T0T-1.0) + 26.920*COEF)
1107          XK7 = XK7 *EXP( -2.65*(T0T-1.0) + 38.570*COEF)
1108          XK12= XK12*EXP( -2.87*(T0T-1.0) + 15.830*COEF)
1109          XK13= XK13*EXP( -5.19*(T0T-1.0) + 54.400*COEF)
1110          XKW = XKW *EXP(-22.52*(T0T-1.0) + 26.920*COEF)
1111       ENDIF
1112       XK2 = XK21*XK22
1113 !C
1114 !C *** CALCULATE DELIQUESCENCE RELATIVE HUMIDITIES (UNICOMPONENT) ********
1115 !C
1116       DRH2SO4  = 0.0000D0
1117       DRNH42S4 = 0.7997D0
1118       DRNH4HS4 = 0.4000D0
1119       DRLC     = 0.6900D0
1120       IF (INT(TEMP) .NE. 298) THEN
1121          T0       = 298.15d0
1122          TCF      = 1.0/TEMP - 1.0/T0
1123          DRNH42S4 = DRNH42S4*EXP( 80.*TCF)
1124          DRNH4HS4 = DRNH4HS4*EXP(384.*TCF)
1125          DRLC     = DRLC    *EXP(186.*TCF)
1126       ENDIF
1127 !C
1128 !C *** CALCULATE MUTUAL DELIQUESCENCE RELATIVE HUMIDITIES ****************
1129 !C
1130       DRMLCAB = 0.3780D0              ! (NH4)3H(SO4)2 & NH4HSO4
1131       DRMLCAS = 0.6900D0              ! (NH4)3H(SO4)2 & (NH4)2SO4
1132 !!CCC      IF (INT(TEMP) .NE. 298) THEN      ! For the time being.
1133 !CCC         T0       = 298.15d0
1134 !CCC         TCF      = 1.0/TEMP - 1.0/T0
1135 !CCC         DRMLCAB  = DRMLCAB*EXP(507.506*TCF)
1136 !CCC         DRMLCAS  = DRMLCAS*EXP(133.865*TCF)
1137 !CCC      ENDIF
1138 !C
1139 !C *** LIQUID PHASE ******************************************************
1140 !C
1141       CHNO3  = ZERO
1142       CHCL   = ZERO
1143       CH2SO4 = ZERO
1144       COH    = ZERO
1145       WATER  = TINY
1146 !C
1147       DO 20 I=1,NPAIR
1148          MOLALR(I)=ZERO
1149          GAMA(I)  =0.1
1150          GAMIN(I) =GREAT
1151          GAMOU(I) =GREAT
1152          M0(I)    =1d5
1153  20   CONTINUE
1154 !C
1155       DO 30 I=1,NPAIR
1156          GAMA(I) = 0.1d0
1157  30   CONTINUE
1158 !C
1159       DO 40 I=1,NIONS
1160          MOLAL(I)=ZERO
1161 40    CONTINUE
1162       COH = ZERO
1163 !C
1164       DO 50 I=1,NGASAQ
1165          GASAQ(I)=ZERO
1166 50    CONTINUE
1167 !C
1168 !C *** SOLID PHASE *******************************************************
1169 !C
1170       CNH42S4= ZERO
1171       CNH4HS4= ZERO
1172       CNACL  = ZERO
1173       CNA2SO4= ZERO
1174       CNANO3 = ZERO
1175       CNH4NO3= ZERO
1176       CNH4CL = ZERO
1177       CNAHSO4= ZERO
1178       CLC    = ZERO
1179       CCASO4 = ZERO
1180       CCANO32= ZERO
1181       CCACL2 = ZERO
1182       CK2SO4 = ZERO
1183       CKHSO4 = ZERO
1184       CKNO3  = ZERO
1185       CKCL   = ZERO
1186       CMGSO4 = ZERO
1187       CMGNO32= ZERO
1188       CMGCL2 = ZERO
1189 !C
1190 !C *** GAS PHASE *********************************************************
1191 !C
1192       GNH3   = ZERO
1193       GHNO3  = ZERO
1194       GHCL   = ZERO
1195 !C
1196 !C *** CALCULATE ZSR PARAMETERS ******************************************
1197 !C
1198       IRH    = MIN (INT(RH*NZSR+0.5),NZSR)  ! Position in ZSR arrays
1199       IRH    = MAX (IRH, 1)
1200 !C
1201 !C      M0(01) = AWSC(IRH)      ! NACl
1202 !C      IF (M0(01) .LT. 100.0) THEN
1203 !C         IC = M0(01)
1204 !C         CALL KMTAB(IC,298.0,     GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
1205 !C     &                            XX,XX,XX,XX,XX,XX,XX,XX,XX)
1206 !C         CALL KMTAB(IC,SNGL(TEMP),GII,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
1207 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1208 !C         M0(01) = M0(01)*EXP(LN10*(GI0-GII))
1209 !C      ENDIF
1210 !CC
1211 !C      M0(02) = AWSS(IRH)      ! (NA)2SO4
1212 !C      IF (M0(02) .LT. 100.0) THEN
1213 !C         IC = 3.0*M0(02)
1214 !C         CALL KMTAB(IC,298.0,     XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
1215 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1216 !C         CALL KMTAB(IC,SNGL(TEMP),XX,GII,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
1217 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1218 !C         M0(02) = M0(02)*EXP(LN10*(GI0-GII))
1219 !C      ENDIF
1220 !CC
1221 !C      M0(03) = AWSN(IRH)      ! NANO3
1222 !C      IF (M0(03) .LT. 100.0) THEN
1223 !C         IC = M0(03)
1224 !C         CALL KMTAB(IC,298.0,     XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX,
1225 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1226 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,GII,XX,XX,XX,XX,XX,XX,XX,XX,XX,
1227 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1228 !C         M0(03) = M0(03)*EXP(LN10*(GI0-GII))
1229 !C      ENDIF
1230 !CC
1231       M0(04) = AWAS(IRH)      ! (NH4)2SO4
1232 !CC      IF (M0(04) .LT. 100.0) THEN
1233 !CC         IC = 3.0*M0(04)
1234 !C !C        CALL KMTAB(IC,298.0,     XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX,
1235 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1236 !CC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,GII,XX,XX,XX,XX,XX,XX,XX,XX,
1237 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1238 !CC         M0(04) = M0(04)*EXP(LN10*(GI0-GII))
1239 !CC      ENDIF
1240 !C
1241 !C      M0(05) = AWAN(IRH)      ! NH4NO3
1242 !C      IF (M0(05) .LT. 100.0) THEN
1243 !C         IC     = M0(05)
1244 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX,
1245 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1246 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,GII,XX,XX,XX,XX,XX,XX,XX,
1247 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1248 !C         M0(05) = M0(05)*EXP(LN10*(GI0-GII))
1249 !C      ENDIF
1250 !CC
1251 !C      M0(06) = AWAC(IRH)      ! NH4CL
1252 !C      IF (M0(06) .LT. 100.0) THEN
1253 !C         IC = M0(06)
1254 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX,
1255 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1256 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,GII,XX,XX,XX,XX,XX,XX,
1257 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1258 !C         M0(06) = M0(06)*EXP(LN10*(GI0-GII))
1259 !C      ENDIF
1260 !C
1261       M0(07) = AWSA(IRH)      ! 2H-SO4
1262 !CC      IF (M0(07) .LT. 100.0) THEN
1263 !CC         IC = 3.0*M0(07)
1264 !CC         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX,
1265 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1266 !CC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,GII,XX,XX,XX,XX,XX,
1267 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1268 !CC         M0(07) = M0(07)*EXP(LN10*(GI0-GII))
1269 !CC      ENDIF
1270 !C
1271       M0(08) = AWSA(IRH)      ! H-HSO4
1272 !CCC      IF (M0(08) .LT. 100.0) THEN     ! These are redundant, because M0(8) is not used
1273 !CCC         IC = M0(08)
1274 !CCC         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX)
1275 !CCC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX)
1276 !CCCCCC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,GII,XX,XX,XX,XX)
1277 !CCC         M0(08) = M0(08)*EXP(LN10*(GI0-GII))
1278 !CCC      ENDIF
1279 !C
1280       M0(09) = AWAB(IRH)      ! NH4HSO4
1281 !CC      IF (M0(09) .LT. 100.0) THEN
1282 !CC         IC = M0(09)
1283 !CC         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,
1284 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1285 !CC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,GII,XX,XX,XX,
1286 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1287 !CC         M0(09) = M0(09)*EXP(LN10*(GI0-GII))
1288 !CC      ENDIF
1289 !C
1290 !C      M0(12) = AWSB(IRH)      ! NAHSO4
1291 !C      IF (M0(12) .LT. 100.0) THEN
1292 !C         IC = M0(12)
1293 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,GI0,
1294 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1295 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,GII,
1296 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1297 !C         M0(12) = M0(12)*EXP(LN10*(GI0-GII))
1298 !C      ENDIF
1299 !C
1300       M0(13) = AWLC(IRH)      ! (NH4)3H(SO4)2
1301 !CC      IF (M0(13) .LT. 100.0) THEN
1302 !CC         IC     = 4.0*M0(13)
1303 !CC         CALL KMTAB(IC,298.0,     XX,XX,XX,GI0,XX,XX,XX,XX,GII,XX,XX,XX,
1304 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1305 !CC         G130   = 0.2*(3.0*GI0+2.0*GII)
1306 !CC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,GI0,XX,XX,XX,XX,GII,XX,XX,XX,
1307 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1308 !CC         G13I   = 0.2*(3.0*GI0+2.0*GII)
1309 !CC         M0(13) = M0(13)*EXP(LN10*SNGL(G130-G13I))
1310 !CC      ENDIF
1311 !C
1312 !C *** OTHER INITIALIZATIONS *********************************************
1313 !C
1314       ICLACT  = 0
1315       CALAOU  = .TRUE.
1316       CALAIN  = .TRUE.
1317       FRST    = .TRUE.
1318 !liqy
1319 !      SCASE   = '??'
1320       SCASE   = 'xx'
1321 !liqy-20140513
1322       SULRATW = 2.D0
1323       SODRAT  = ZERO
1324       CRNARAT = ZERO
1325       CRRAT   = ZERO
1326       NOFER   = 0
1327       STKOFL  =.FALSE.
1328       DO 60 I=1,NERRMX
1329          ERRSTK(I) =-999
1330          ERRMSG(I) = 'MESSAGE N/A'
1331    60 CONTINUE
1332 !C
1333 !C *** END OF SUBROUTINE INIT1 *******************************************
1334 !C
1335       END
1336
1337
1338
1339 !C=======================================================================
1340 !C
1341 !C *** ISORROPIA CODE
1342 !C *** SUBROUTINE INIT2
1343 !C *** THIS SUBROUTINE INITIALIZES ALL GLOBAL VARIABLES FOR AMMONIUM,
1344 !C     NITRATE, SULFATE AEROSOL SYSTEMS (SUBROUTINE ISRP2)
1345 !C
1346 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
1347 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
1348 !C *** WRITTEN BY ATHANASIOS NENES
1349 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
1350 !C
1351 !C=======================================================================
1352 !C
1353       SUBROUTINE INIT22p1 (WI, RHI, TEMPI)
1354       INCLUDE 'module_isrpia_inc.F'
1355       DIMENSION WI(NCOMP)
1356       REAL      IC,GII,GI0,XX,LN10
1357       PARAMETER (LN10=2.3025851)
1358 !C
1359 !C *** SAVE INPUT VARIABLES IN COMMON BLOCK ******************************
1360 !C
1361       IF (IPROB.EQ.0) THEN                 ! FORWARD CALCULATION
1362          DO 10 I=1,NCOMP
1363             W(I) = MAX(WI(I), TINY)
1364 10       CONTINUE
1365       ELSE
1366          DO 15 I=1,NCOMP                   ! REVERSE CALCULATION
1367             WAER(I) = MAX(WI(I), TINY)
1368             W(I)    = ZERO
1369 15       CONTINUE
1370       ENDIF
1371       RH      = RHI
1372       TEMP    = TEMPI
1373 !C
1374 !C *** CALCULATE EQUILIBRIUM CONSTANTS ***********************************
1375 !C
1376       XK1  = 1.015e-2  ! HSO4(aq)         <==> H(aq)     + SO4(aq)
1377       XK21 = 57.639    ! NH3(g)           <==> NH3(aq)
1378       XK22 = 1.805e-5  ! NH3(aq)          <==> NH4(aq)   + OH(aq)
1379       XK4  = 2.511e6   ! HNO3(g)          <==> H(aq)     + NO3(aq) ! ISORR
1380 !CCC      XK4  = 3.638e6   ! HNO3(g)          <==> H(aq)     + NO3(aq) ! SEQUIL
1381       XK41 = 2.100e5   ! HNO3(g)          <==> HNO3(aq)
1382       XK7  = 1.817     ! (NH4)2SO4(s)     <==> 2*NH4(aq) + SO4(aq)
1383       XK10 = 5.746e-17 ! NH4NO3(s)        <==> NH3(g)    + HNO3(g) ! ISORR
1384 !CCC      XK10 = 2.985e-17 ! NH4NO3(s)        <==> NH3(g)    + HNO3(g) ! SEQUIL
1385       XK12 = 1.382e2   ! NH4HSO4(s)       <==> NH4(aq)   + HSO4(aq)
1386       XK13 = 29.268    ! (NH4)3H(SO4)2(s) <==> 3*NH4(aq) + HSO4(aq) + SO4(aq)
1387       XKW  = 1.010e-14 ! H2O              <==> H(aq)     + OH(aq)
1388 !C
1389       IF (INT(TEMP) .NE. 298) THEN   ! FOR T != 298K or 298.15K
1390          T0  = 298.15D0
1391          T0T = T0/TEMP
1392          COEF= 1.0+LOG(T0T)-T0T
1393          XK1 = XK1 *EXP(  8.85*(T0T-1.0) + 25.140*COEF)
1394          XK21= XK21*EXP( 13.79*(T0T-1.0) -  5.393*COEF)
1395          XK22= XK22*EXP( -1.50*(T0T-1.0) + 26.920*COEF)
1396          XK4 = XK4 *EXP( 29.17*(T0T-1.0) + 16.830*COEF) !ISORR
1397 !CCC         XK4 = XK4 *EXP( 29.47*(T0T-1.0) + 16.840*COEF) ! SEQUIL
1398          XK41= XK41*EXP( 29.17*(T0T-1.0) + 16.830*COEF)
1399          XK7 = XK7 *EXP( -2.65*(T0T-1.0) + 38.570*COEF)
1400          XK10= XK10*EXP(-74.38*(T0T-1.0) +  6.120*COEF) ! ISORR
1401 !CCC         XK10= XK10*EXP(-75.11*(T0T-1.0) + 13.460*COEF) ! SEQUIL
1402          XK12= XK12*EXP( -2.87*(T0T-1.0) + 15.830*COEF)
1403          XK13= XK13*EXP( -5.19*(T0T-1.0) + 54.400*COEF)
1404          XKW = XKW *EXP(-22.52*(T0T-1.0) + 26.920*COEF)
1405       ENDIF
1406       XK2  = XK21*XK22
1407       XK42 = XK4/XK41
1408 !C
1409 !C *** CALCULATE DELIQUESCENCE RELATIVE HUMIDITIES (UNICOMPONENT) ********
1410 !C
1411       DRH2SO4  = ZERO
1412       DRNH42S4 = 0.7997D0
1413       DRNH4HS4 = 0.4000D0
1414       DRNH4NO3 = 0.6183D0
1415       DRLC     = 0.6900D0
1416       IF (INT(TEMP) .NE. 298) THEN
1417          T0       = 298.15D0
1418          TCF      = 1.0/TEMP - 1.0/T0
1419          DRNH4NO3 = DRNH4NO3*EXP(852.*TCF)
1420          DRNH42S4 = DRNH42S4*EXP( 80.*TCF)
1421          DRNH4HS4 = DRNH4HS4*EXP(384.*TCF)
1422          DRLC     = DRLC    *EXP(186.*TCF)
1423          DRNH4NO3 = MIN (DRNH4NO3,DRNH42S4) ! ADJUST FOR DRH CROSSOVER AT T<271K
1424       ENDIF
1425 !C
1426 !C *** CALCULATE MUTUAL DELIQUESCENCE RELATIVE HUMIDITIES ****************
1427 !C
1428       DRMLCAB = 0.3780D0              ! (NH4)3H(SO4)2 & NH4HSO4
1429       DRMLCAS = 0.6900D0              ! (NH4)3H(SO4)2 & (NH4)2SO4
1430       DRMASAN = 0.6000D0              ! (NH4)2SO4     & NH4NO3
1431 !CCC      IF (INT(TEMP) .NE. 298) THEN    ! For the time being
1432 !CCC         T0       = 298.15d0
1433 !CCC         TCF      = 1.0/TEMP - 1.0/T0
1434 !CCC         DRMLCAB  = DRMLCAB*EXP( 507.506*TCF)
1435 !CCC         DRMLCAS  = DRMLCAS*EXP( 133.865*TCF)
1436 !CCC         DRMASAN  = DRMASAN*EXP(1269.068*TCF)
1437 !CCC      ENDIF
1438 !C
1439 !C *** LIQUID PHASE ******************************************************
1440 !C
1441       CHNO3  = ZERO
1442       CHCL   = ZERO
1443       CH2SO4 = ZERO
1444       COH    = ZERO
1445       WATER  = TINY
1446 !C
1447       DO 20 I=1,NPAIR
1448          MOLALR(I)=ZERO
1449          GAMA(I)  =0.1
1450          GAMIN(I) =GREAT
1451          GAMOU(I) =GREAT
1452          M0(I)    =1d5
1453  20   CONTINUE
1454 !C
1455       DO 30 I=1,NPAIR
1456          GAMA(I) = 0.1d0
1457  30   CONTINUE
1458 !C
1459       DO 40 I=1,NIONS
1460          MOLAL(I)=ZERO
1461 40    CONTINUE
1462       COH = ZERO
1463 !C
1464       DO 50 I=1,NGASAQ
1465          GASAQ(I)=ZERO
1466 50    CONTINUE
1467 !C
1468 !C *** SOLID PHASE ******************************************************
1469 !C
1470       CNH42S4= ZERO
1471       CNH4HS4= ZERO
1472       CNACL  = ZERO
1473       CNA2SO4= ZERO
1474       CNANO3 = ZERO
1475       CNH4NO3= ZERO
1476       CNH4CL = ZERO
1477       CNAHSO4= ZERO
1478       CLC    = ZERO
1479       CCASO4 = ZERO
1480       CCANO32= ZERO
1481       CCACL2 = ZERO
1482       CK2SO4 = ZERO
1483       CKHSO4 = ZERO
1484       CKNO3  = ZERO
1485       CKCL   = ZERO
1486       CMGSO4 = ZERO
1487       CMGNO32= ZERO
1488       CMGCL2 = ZERO
1489 !C
1490 !C *** GAS PHASE ********************************************************
1491 !C
1492       GNH3   = ZERO
1493       GHNO3  = ZERO
1494       GHCL   = ZERO
1495 !C
1496 !C *** CALCULATE ZSR PARAMETERS *****************************************
1497 !C
1498       IRH    = MIN (INT(RH*NZSR+0.5),NZSR)  ! Position in ZSR arrays
1499       IRH    = MAX (IRH, 1)
1500 !C
1501 !C      M0(01) = AWSC(IRH)      ! NACl
1502 !C      IF (M0(01) .LT. 100.0) THEN
1503 !C         IC = M0(01)
1504 !C         CALL KMTAB(IC,298.0,     GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
1505 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1506 !C         CALL KMTAB(IC,SNGL(TEMP),GII,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
1507 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1508 !C         M0(01) = M0(01)*EXP(LN10*(GI0-GII))
1509 !C      ENDIF
1510 !CC
1511 !C      M0(02) = AWSS(IRH)      ! (NA)2SO4
1512 !C      IF (M0(02) .LT. 100.0) THEN
1513 !C         IC = 3.0*M0(02)
1514 !C         CALL KMTAB(IC,298.0,     XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
1515 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1516 !C         CALL KMTAB(IC,SNGL(TEMP),XX,GII,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
1517 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1518 !C         M0(02) = M0(02)*EXP(LN10*(GI0-GII))
1519 !C      ENDIF
1520 !CCC
1521 !C      M0(03) = AWSN(IRH)      ! NANO3
1522 !C      IF (M0(03) .LT. 100.0) THEN
1523 !C         IC = M0(03)
1524 !C         CALL KMTAB(IC,298.0,     XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX,
1525 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1526 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,GII,XX,XX,XX,XX,XX,XX,XX,XX,XX,
1527 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1528 !C         M0(03) = M0(03)*EXP(LN10*(GI0-GII))
1529 !C      ENDIF
1530 !C
1531       M0(04) = AWAS(IRH)      ! (NH4)2SO4
1532 !CC      IF (M0(04) .LT. 100.0) THEN
1533 !CC         IC = 3.0*M0(04)
1534 !CC         CALL KMTAB(IC,298.0,     XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX,
1535 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1536 !CC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,GII,XX,XX,XX,XX,XX,XX,XX,XX,
1537 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1538 !CC         M0(04) = M0(04)*EXP(LN10*(GI0-GII))
1539 !CC      ENDIF
1540 !C
1541       M0(05) = AWAN(IRH)      ! NH4NO3
1542 !CC      IF (M0(05) .LT. 100.0) THEN
1543 !CC         IC     = M0(05)
1544 !CC         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX,
1545 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1546 !CC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,GII,XX,XX,XX,XX,XX,XX,XX,
1547 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1548 !CC         M0(05) = M0(05)*EXP(LN10*(GI0-GII))
1549 !CC      ENDIF
1550 !C
1551 !C      M0(06) = AWAC(IRH)      ! NH4CL
1552 !C      IF (M0(06) .LT. 100.0) THEN
1553 !C         IC = M0(06)
1554 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX,
1555 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1556 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,GII,XX,XX,XX,XX,XX,XX,
1557 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1558 !C         M0(06) = M0(06)*EXP(LN10*(GI0-GII))
1559 !C      ENDIF
1560 !CC
1561       M0(07) = AWSA(IRH)      ! 2H-SO4
1562 !CC      IF (M0(07) .LT. 100.0) THEN
1563 !CC         IC = 3.0*M0(07)
1564 !CC         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX,
1565 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1566 !CC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,GII,XX,XX,XX,XX,XX,
1567 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1568 !CC         M0(07) = M0(07)*EXP(LN10*(GI0-GII))
1569 !CC      ENDIF
1570 !C
1571       M0(08) = AWSA(IRH)      ! H-HSO4
1572 !CCC      IF (M0(08) .LT. 100.0) THEN     ! These are redundant, because M0(8) is not used
1573 !CCC         IC = M0(08)
1574 !CCC         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX)
1575 !CCC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX)
1576 !CCCCCC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,GII,XX,XX,XX,XX)
1577 !CCC         M0(08) = M0(08)*EXP(LN10*(GI0-GII))
1578 !CCC      ENDIF
1579 !C
1580       M0(09) = AWAB(IRH)      ! NH4HSO4
1581 !CC      IF (M0(09) .LT. 100.0) THEN
1582 !CC         IC = M0(09)
1583 !CC         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,
1584 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1585 !CC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,GII,XX,XX,XX,
1586 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1587 !CC         M0(09) = M0(09)*EXP(LN10*(GI0-GII))
1588 !CC      ENDIF
1589 !C
1590 !C      M0(12) = AWSB(IRH)      ! NAHSO4
1591 !C      IF (M0(12) .LT. 100.0) THEN
1592 !C         IC = M0(12)
1593 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,GI0,
1594 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1595 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,GII,
1596 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1597 !C         M0(12) = M0(12)*EXP(LN10*(GI0-GII))
1598 !C      ENDIF
1599 !C
1600       M0(13) = AWLC(IRH)      ! (NH4)3H(SO4)2
1601 !C      IF (M0(13) .LT. 100.0) THEN
1602 !C         IC     = 4.0*M0(13)
1603 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,GI0,XX,XX,XX,XX,GII,XX,XX,XX,
1604 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1605 !C         G130   = 0.2*(3.0*GI0+2.0*GII)
1606 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,GI0,XX,XX,XX,XX,GII,XX,XX,XX,
1607 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1608 !C         G13I   = 0.2*(3.0*GI0+2.0*GII)
1609 !C         M0(13) = M0(13)*EXP(LN10*SNGL(G130-G13I))
1610 !C      ENDIF
1611 !C
1612 !C *** OTHER INITIALIZATIONS *********************************************
1613 !C
1614       ICLACT  = 0
1615       CALAOU  = .TRUE.
1616       CALAIN  = .TRUE.
1617       FRST    = .TRUE.
1618 !liqy
1619 !      SCASE   = '??'
1620       SCASE   = 'xx'
1621 !liqy-20140513
1622       SULRATW = 2.D0
1623       SODRAT  = ZERO
1624       CRNARAT = ZERO
1625       CRRAT   = ZERO
1626       NOFER   = 0
1627       STKOFL  =.FALSE.
1628       DO 60 I=1,NERRMX
1629          ERRSTK(I) =-999
1630          ERRMSG(I) = 'MESSAGE N/A'
1631    60 CONTINUE
1632 !C
1633 !C *** END OF SUBROUTINE INIT2 *******************************************
1634 !C
1635       END
1636 !C
1637 !C=======================================================================
1638 !C
1639 !C *** ISORROPIA CODE
1640 !C *** SUBROUTINE ISOINIT3
1641 !C *** THIS SUBROUTINE INITIALIZES ALL GLOBAL VARIABLES FOR AMMONIUM,
1642 !C     SODIUM, CHLORIDE, NITRATE, SULFATE AEROSOL SYSTEMS (SUBROUTINE
1643 !C     ISRP3)
1644 !C
1645 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
1646 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
1647 !C *** WRITTEN BY ATHANASIOS NENES
1648 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
1649 !C
1650 !C=======================================================================
1651 !C
1652       SUBROUTINE ISOINIT32p1 (WI, RHI, TEMPI)
1653       INCLUDE 'module_isrpia_inc.F'
1654       DIMENSION WI(NCOMP)
1655       REAL      IC,GII,GI0,XX,LN10
1656       PARAMETER (LN10=2.3025851)
1657 !C
1658 !C *** SAVE INPUT VARIABLES IN COMMON BLOCK ******************************
1659 !C
1660       IF (IPROB.EQ.0) THEN                 ! FORWARD CALCULATION
1661          DO 10 I=1,NCOMP
1662             W(I) = MAX(WI(I), TINY)
1663 10       CONTINUE
1664       ELSE
1665          DO 15 I=1,NCOMP                   ! REVERSE CALCULATION
1666             WAER(I) = MAX(WI(I), TINY)
1667             W(I)    = ZERO
1668 15       CONTINUE
1669       ENDIF
1670       RH      = RHI
1671       TEMP    = TEMPI
1672 !C
1673 !C *** CALCULATE EQUILIBRIUM CONSTANTS ***********************************
1674 !C
1675       XK1  = 1.015D-2  ! HSO4(aq)         <==> H(aq)     + SO4(aq)
1676       XK21 = 57.639D0  ! NH3(g)           <==> NH3(aq)
1677       XK22 = 1.805D-5  ! NH3(aq)          <==> NH4(aq)   + OH(aq)
1678       XK3  = 1.971D6   ! HCL(g)           <==> H(aq)     + CL(aq)
1679       XK31 = 2.500e3   ! HCL(g)           <==> HCL(aq)
1680       XK4  = 2.511e6   ! HNO3(g)          <==> H(aq)     + NO3(aq) ! ISORR
1681 !CCC      XK4  = 3.638e6   ! HNO3(g)          <==> H(aq)     + NO3(aq) ! SEQUIL
1682       XK41 = 2.100e5   ! HNO3(g)          <==> HNO3(aq)
1683       XK5  = 0.4799D0  ! NA2SO4(s)        <==> 2*NA(aq)  + SO4(aq)
1684       XK6  = 1.086D-16 ! NH4CL(s)         <==> NH3(g)    + HCL(g)
1685       XK7  = 1.817D0   ! (NH4)2SO4(s)     <==> 2*NH4(aq) + SO4(aq)
1686       XK8  = 37.661D0  ! NACL(s)          <==> NA(aq)    + CL(aq)
1687       XK10 = 5.746D-17 ! NH4NO3(s)        <==> NH3(g)    + HNO3(g) ! ISORR
1688 !CCC      XK10 = 2.985e-17 ! NH4NO3(s)        <==> NH3(g)    + HNO3(g) ! SEQUIL
1689       XK11 = 2.413D4   ! NAHSO4(s)        <==> NA(aq)    + HSO4(aq)
1690       XK12 = 1.382D2   ! NH4HSO4(s)       <==> NH4(aq)   + HSO4(aq)
1691       XK13 = 29.268D0  ! (NH4)3H(SO4)2(s) <==> 3*NH4(aq) + HSO4(aq) + SO4(aq)
1692       XK14 = 22.05D0   ! NH4CL(s)         <==> NH4(aq)   + CL(aq)
1693       XKW  = 1.010D-14 ! H2O              <==> H(aq)     + OH(aq)
1694       XK9  = 11.977D0  ! NANO3(s)         <==> NA(aq)    + NO3(aq)
1695 !C
1696       IF (INT(TEMP) .NE. 298) THEN   ! FOR T != 298K or 298.15K
1697          T0  = 298.15D0
1698          T0T = T0/TEMP
1699          COEF= 1.0+LOG(T0T)-T0T
1700          XK1 = XK1 *EXP(  8.85*(T0T-1.0) + 25.140*COEF)
1701          XK21= XK21*EXP( 13.79*(T0T-1.0) -  5.393*COEF)
1702          XK22= XK22*EXP( -1.50*(T0T-1.0) + 26.920*COEF)
1703          XK3 = XK3 *EXP( 30.20*(T0T-1.0) + 19.910*COEF)
1704          XK31= XK31*EXP( 30.20*(T0T-1.0) + 19.910*COEF)
1705          XK4 = XK4 *EXP( 29.17*(T0T-1.0) + 16.830*COEF) !ISORR
1706 !CCC         XK4 = XK4 *EXP( 29.47*(T0T-1.0) + 16.840*COEF) ! SEQUIL
1707          XK41= XK41*EXP( 29.17*(T0T-1.0) + 16.830*COEF)
1708          XK5 = XK5 *EXP(  0.98*(T0T-1.0) + 39.500*COEF)
1709          XK6 = XK6 *EXP(-71.00*(T0T-1.0) +  2.400*COEF)
1710          XK7 = XK7 *EXP( -2.65*(T0T-1.0) + 38.570*COEF)
1711          XK8 = XK8 *EXP( -1.56*(T0T-1.0) + 16.900*COEF)
1712          XK9 = XK9 *EXP( -8.22*(T0T-1.0) + 16.010*COEF)
1713          XK10= XK10*EXP(-74.38*(T0T-1.0) +  6.120*COEF) ! ISORR
1714 !CCC         XK10= XK10*EXP(-75.11*(T0T-1.0) + 13.460*COEF) ! SEQUIL
1715          XK11= XK11*EXP(  0.79*(T0T-1.0) + 14.746*COEF)
1716          XK12= XK12*EXP( -2.87*(T0T-1.0) + 15.830*COEF)
1717          XK13= XK13*EXP( -5.19*(T0T-1.0) + 54.400*COEF)
1718          XK14= XK14*EXP( 24.55*(T0T-1.0) + 16.900*COEF)
1719          XKW = XKW *EXP(-22.52*(T0T-1.0) + 26.920*COEF)
1720       ENDIF
1721       XK2  = XK21*XK22
1722       XK42 = XK4/XK41
1723       XK32 = XK3/XK31
1724 !C
1725 !C *** CALCULATE DELIQUESCENCE RELATIVE HUMIDITIES (UNICOMPONENT) ********
1726 !C
1727       DRH2SO4  = ZERO
1728       DRNH42S4 = 0.7997D0
1729       DRNH4HS4 = 0.4000D0
1730       DRLC     = 0.6900D0
1731       DRNACL   = 0.7528D0
1732       DRNANO3  = 0.7379D0
1733       DRNH4CL  = 0.7710D0
1734       DRNH4NO3 = 0.6183D0
1735       DRNA2SO4 = 0.9300D0
1736       DRNAHSO4 = 0.5200D0
1737       IF (INT(TEMP) .NE. 298) THEN
1738          T0       = 298.15D0
1739          TCF      = 1.0/TEMP - 1.0/T0
1740          DRNACL   = DRNACL  *EXP( 25.*TCF)
1741          DRNANO3  = DRNANO3 *EXP(304.*TCF)
1742          DRNA2SO4 = DRNA2SO4*EXP( 80.*TCF)
1743          DRNH4NO3 = DRNH4NO3*EXP(852.*TCF)
1744          DRNH42S4 = DRNH42S4*EXP( 80.*TCF)
1745          DRNH4HS4 = DRNH4HS4*EXP(384.*TCF)
1746          DRLC     = DRLC    *EXP(186.*TCF)
1747          DRNH4CL  = DRNH4Cl *EXP(239.*TCF)
1748          DRNAHSO4 = DRNAHSO4*EXP(-45.*TCF)
1749 !C
1750 !C *** ADJUST FOR DRH "CROSSOVER" AT LOW TEMPERATURES
1751 !C
1752          DRNH4NO3  = MIN (DRNH4NO3, DRNH4CL, DRNH42S4, DRNANO3, DRNACL)
1753          DRNANO3   = MIN (DRNANO3, DRNACL)
1754          DRNH4CL   = MIN (DRNH4Cl, DRNH42S4)
1755 !C
1756       ENDIF
1757 !C
1758 !C *** CALCULATE MUTUAL DELIQUESCENCE RELATIVE HUMIDITIES ****************
1759 !C
1760       DRMLCAB = 0.378D0    ! (NH4)3H(SO4)2 & NH4HSO4
1761       DRMLCAS = 0.690D0    ! (NH4)3H(SO4)2 & (NH4)2SO4
1762       DRMASAN = 0.600D0    ! (NH4)2SO4     & NH4NO3
1763       DRMG1   = 0.460D0    ! (NH4)2SO4, NH4NO3, NA2SO4, NH4CL
1764       DRMG2   = 0.691D0    ! (NH4)2SO4, NA2SO4, NH4CL
1765       DRMG3   = 0.697D0    ! (NH4)2SO4, NA2SO4
1766       DRMH1   = 0.240D0    ! NA2SO4, NANO3, NACL, NH4NO3, NH4CL
1767       DRMH2   = 0.596D0    ! NA2SO4, NANO3, NACL, NH4CL
1768       DRMI1   = 0.240D0    ! LC, NAHSO4, NH4HSO4, NA2SO4, (NH4)2SO4
1769       DRMI2   = 0.363D0    ! LC, NAHSO4, NA2SO4, (NH4)2SO4  - NO DATA -
1770       DRMI3   = 0.610D0    ! LC, NA2SO4, (NH4)2SO4
1771       DRMQ1   = 0.494D0    ! (NH4)2SO4, NH4NO3, NA2SO4
1772       DRMR1   = 0.663D0    ! NA2SO4, NANO3, NACL
1773       DRMR2   = 0.735D0    ! NA2SO4, NACL
1774       DRMR3   = 0.673D0    ! NANO3, NACL
1775       DRMR4   = 0.694D0    ! NA2SO4, NACL, NH4CL
1776       DRMR5   = 0.731D0    ! NA2SO4, NH4CL
1777       DRMR6   = 0.596D0    ! NA2SO4, NANO3, NH4CL
1778       DRMR7   = 0.380D0    ! NA2SO4, NANO3, NACL, NH4NO3
1779       DRMR8   = 0.380D0    ! NA2SO4, NACL, NH4NO3
1780       DRMR9   = 0.494D0    ! NA2SO4, NH4NO3
1781       DRMR10  = 0.476D0    ! NA2SO4, NANO3, NH4NO3
1782       DRMR11  = 0.340D0    ! NA2SO4, NACL, NH4NO3, NH4CL
1783       DRMR12  = 0.460D0    ! NA2SO4, NH4NO3, NH4CL
1784       DRMR13  = 0.438D0    ! NA2SO4, NANO3, NH4NO3, NH4CL
1785 !CCC      IF (INT(TEMP) .NE. 298) THEN
1786 !CCC         T0       = 298.15d0
1787 !CCC         TCF      = 1.0/TEMP - 1.0/T0
1788 !CCC         DRMLCAB  = DRMLCAB*EXP( 507.506*TCF)
1789 !CCC         DRMLCAS  = DRMLCAS*EXP( 133.865*TCF)
1790 !CCC         DRMASAN  = DRMASAN*EXP(1269.068*TCF)
1791 !CCC         DRMG1    = DRMG1  *EXP( 572.207*TCF)
1792 !CCC         DRMG2    = DRMG2  *EXP(  58.166*TCF)
1793 !CCC         DRMG3    = DRMG3  *EXP(  22.253*TCF)
1794 !CCC         DRMH1    = DRMH1  *EXP(2116.542*TCF)
1795 !CCC         DRMH2    = DRMH2  *EXP( 650.549*TCF)
1796 !CCC         DRMI1    = DRMI1  *EXP( 565.743*TCF)
1797 !CCC         DRMI2    = DRMI2  *EXP(  91.745*TCF)
1798 !CCC         DRMI3    = DRMI3  *EXP( 161.272*TCF)
1799 !CCC         DRMQ1    = DRMQ1  *EXP(1616.621*TCF)
1800 !CCC         DRMR1    = DRMR1  *EXP( 292.564*TCF)
1801 !CCC         DRMR2    = DRMR2  *EXP(  14.587*TCF)
1802 !CCC         DRMR3    = DRMR3  *EXP( 307.907*TCF)
1803 !CCC         DRMR4    = DRMR4  *EXP(  97.605*TCF)
1804 !CCC         DRMR5    = DRMR5  *EXP(  98.523*TCF)
1805 !CCC         DRMR6    = DRMR6  *EXP( 465.500*TCF)
1806 !CCC         DRMR7    = DRMR7  *EXP( 324.425*TCF)
1807 !CCC         DRMR8    = DRMR8  *EXP(2660.184*TCF)
1808 !CCC         DRMR9    = DRMR9  *EXP(1617.178*TCF)
1809 !CCC         DRMR10   = DRMR10 *EXP(1745.226*TCF)
1810 !CCC         DRMR11   = DRMR11 *EXP(3691.328*TCF)
1811 !CCC         DRMR12   = DRMR12 *EXP(1836.842*TCF)
1812 !CCC         DRMR13   = DRMR13 *EXP(1967.938*TCF)
1813 !CCC      ENDIF
1814 !C
1815 !C *** LIQUID PHASE ******************************************************
1816 !C
1817       CHNO3  = ZERO
1818       CHCL   = ZERO
1819       CH2SO4 = ZERO
1820       COH    = ZERO
1821       WATER  = TINY
1822 !C
1823       DO 20 I=1,NPAIR
1824          MOLALR(I)=ZERO
1825          GAMA(I)  =0.1
1826          GAMIN(I) =GREAT
1827          GAMOU(I) =GREAT
1828          M0(I)    =1d5
1829  20   CONTINUE
1830 !C
1831       DO 30 I=1,NPAIR
1832          GAMA(I) = 0.1d0
1833  30   CONTINUE
1834 !C
1835       DO 40 I=1,NIONS
1836          MOLAL(I)=ZERO
1837 40    CONTINUE
1838       COH = ZERO
1839 !C
1840       DO 50 I=1,NGASAQ
1841          GASAQ(I)=ZERO
1842 50    CONTINUE
1843 !C
1844 !C *** SOLID PHASE *******************************************************
1845 !C
1846       CNH42S4= ZERO
1847       CNH4HS4= ZERO
1848       CNACL  = ZERO
1849       CNA2SO4= ZERO
1850       CNANO3 = ZERO
1851       CNH4NO3= ZERO
1852       CNH4CL = ZERO
1853       CNAHSO4= ZERO
1854       CLC    = ZERO
1855       CCASO4 = ZERO
1856       CCANO32= ZERO
1857       CCACL2 = ZERO
1858       CK2SO4 = ZERO
1859       CKHSO4 = ZERO
1860       CKNO3  = ZERO
1861       CKCL   = ZERO
1862       CMGSO4 = ZERO
1863       CMGNO32= ZERO
1864       CMGCL2 = ZERO
1865 !C
1866 !C *** GAS PHASE *********************************************************
1867 !C
1868       GNH3   = ZERO
1869       GHNO3  = ZERO
1870       GHCL   = ZERO
1871 !C
1872 !C *** CALCULATE ZSR PARAMETERS ******************************************
1873 !C
1874       IRH    = MIN (INT(RH*NZSR+0.5),NZSR)  ! Position in ZSR arrays
1875       IRH    = MAX (IRH, 1)
1876 !C
1877       M0(01) = AWSC(IRH)      ! NACl
1878 !CC      IF (M0(01) .LT. 100.0) THEN
1879 !CC         IC = M0(01)
1880 !CC         CALL KMTAB(IC,298.0,     GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
1881 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1882 !CC         CALL KMTAB(IC,SNGL(TEMP),GII,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
1883 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1884 !CC         M0(01) = M0(01)*EXP(LN10*(GI0-GII))
1885 !CC      ENDIF
1886 !C
1887       M0(02) = AWSS(IRH)      ! (NA)2SO4
1888 !CC      IF (M0(02) .LT. 100.0) THEN
1889 !CC         IC = 3.0*M0(02)
1890 !CC         CALL KMTAB(IC,298.0,     XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
1891 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1892 !CC         CALL KMTAB(IC,SNGL(TEMP),XX,GII,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
1893 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1894 !CC         M0(02) = M0(02)*EXP(LN10*(GI0-GII))
1895 !CC      ENDIF
1896 !C
1897       M0(03) = AWSN(IRH)      ! NANO3
1898 !CC      IF (M0(03) .LT. 100.0) THEN
1899 !CC         IC = M0(03)
1900 !CC         CALL KMTAB(IC,298.0,     XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX,
1901 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1902 !CC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,GII,XX,XX,XX,XX,XX,XX,XX,XX,XX,
1903 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1904 !C !C        M0(03) = M0(03)*EXP(LN10*(GI0-GII))
1905 !CC      ENDIF
1906 !C
1907       M0(04) = AWAS(IRH)      ! (NH4)2SO4
1908 !CC      IF (M0(04) .LT. 100.0) THEN
1909 !CC         IC = 3.0*M0(04)
1910 !CC         CALL KMTAB(IC,298.0,     XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX,
1911 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1912 !CC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,GII,XX,XX,XX,XX,XX,XX,XX,XX,
1913 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1914 !CC         M0(04) = M0(04)*EXP(LN10*(GI0-GII))
1915 !CC      ENDIF
1916 !C
1917       M0(05) = AWAN(IRH)      ! NH4NO3
1918 !CC      IF (M0(05) .LT. 100.0) THEN
1919 !CC         IC     = M0(05)
1920 !CC         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX,
1921 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1922 !CC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,GII,XX,XX,XX,XX,XX,XX,XX,
1923 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1924 !CC         M0(05) = M0(05)*EXP(LN10*(GI0-GII))
1925 !CC      ENDIF
1926 !C
1927       M0(06) = AWAC(IRH)      ! NH4CL
1928 !CC      IF (M0(06) .LT. 100.0) THEN
1929 !CC         IC = M0(06)
1930 !CC         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX,
1931 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1932 !CC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,GII,XX,XX,XX,XX,XX,XX,
1933 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1934 !CC         M0(06) = M0(06)*EXP(LN10*(GI0-GII))
1935 !CC      ENDIF
1936 !C
1937       M0(07) = AWSA(IRH)      ! 2H-SO4
1938 !CC      IF (M0(07) .LT. 100.0) THEN
1939 !CC         IC = 3.0*M0(07)
1940 !CC         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX,
1941 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1942 !CC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,GII,XX,XX,XX,XX,XX,
1943 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1944 !CC         M0(07) = M0(07)*EXP(LN10*(GI0-GII))
1945 !CC      ENDIF
1946 !C
1947       M0(08) = AWSA(IRH)      ! H-HSO4
1948 !CCC      IF (M0(08) .LT. 100.0) THEN     ! These are redundant, because M0(8) is not used
1949 !CCC         IC = M0(08)
1950 !CCC         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX)
1951 !CCC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX)
1952 !CCCCCC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,GII,XX,XX,XX,XX)
1953 !CCC         M0(08) = M0(08)*EXP(LN10*(GI0-GII))
1954 !CCC      ENDIF
1955 !C
1956       M0(09) = AWAB(IRH)      ! NH4HSO4
1957 !CC      IF (M0(09) .LT. 100.0) THEN
1958 !CC         IC = M0(09)
1959 !CC         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,
1960 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1961 !CC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,GII,XX,XX,XX,
1962 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1963 !CC         M0(09) = M0(09)*EXP(LN10*(GI0-GII))
1964 !CC      ENDIF
1965 !C
1966       M0(12) = AWSB(IRH)      ! NAHSO4
1967 !CC      IF (M0(12) .LT. 100.0) THEN
1968 !CC         IC = M0(12)
1969 !CC         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,GI0,
1970 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1971 !CC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,GII,
1972 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1973 !CC         M0(12) = M0(12)*EXP(LN10*(GI0-GII))
1974 !CC      ENDIF
1975 !C
1976       M0(13) = AWLC(IRH)      ! (NH4)3H(SO4)2
1977 !CC      IF (M0(13) .LT. 100.0) THEN
1978 !CC         IC     = 4.0*M0(13)
1979 !CC         CALL KMTAB(IC,298.0,     XX,XX,XX,GI0,XX,XX,XX,XX,GII,XX,XX,XX,
1980 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1981 !CC         G130   = 0.2*(3.0*GI0+2.0*GII)
1982 !CC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,GI0,XX,XX,XX,XX,GII,XX,XX,XX,
1983 !CC     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
1984 !CC         G13I   = 0.2*(3.0*GI0+2.0*GII)
1985 !CC         M0(13) = M0(13)*EXP(LN10*SNGL(G130-G13I))
1986 !CC      ENDIF
1987 !C
1988 !C *** OTHER INITIALIZATIONS *********************************************
1989 !C
1990       ICLACT  = 0
1991       CALAOU  = .TRUE.
1992       CALAIN  = .TRUE.
1993       FRST    = .TRUE.
1994 !liqy
1995 !      SCASE   = '??'
1996       SCASE   = 'xx'
1997 !liqy-20140513
1998       SULRATW = 2.D0
1999       CRNARAT = ZERO
2000       CRRAT   = ZERO
2001       NOFER   = 0
2002       STKOFL  =.FALSE.
2003       DO 60 I=1,NERRMX
2004          ERRSTK(I) =-999
2005          ERRMSG(I) = 'MESSAGE N/A'
2006    60 CONTINUE
2007 !C
2008 !C *** END OF SUBROUTINE ISOINIT3 *******************************************
2009 !C
2010       END
2011 !C=======================================================================
2012 !C
2013 !C *** ISORROPIA CODE II
2014 !C *** SUBROUTINE INIT4
2015 !C *** THIS SUBROUTINE INITIALIZES ALL GLOBAL VARIABLES FOR AMMONIUM,
2016 !C     SODIUM, CHLORIDE, NITRATE, SULFATE, CALCIUM, POTASSIUM, MAGNESIUM
2017 !C     AEROSOL SYSTEMS (SUBROUTINE ISRP4)
2018 !C
2019 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
2020 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
2021 !C *** WRITTEN BY CHRISTOS FOUNTOUKIS AND ATHANASIOS NENES
2022 !C
2023 !C=======================================================================
2024 !C
2025       SUBROUTINE INIT42p1 (WI, RHI, TEMPI)
2026       INCLUDE 'module_isrpia_inc.F'
2027       DIMENSION WI(NCOMP)
2028       REAL      IC,GII,GI0,XX,LN10
2029       PARAMETER (LN10=2.3025851)
2030 !C
2031 !C *** SAVE INPUT VARIABLES IN COMMON BLOCK ******************************
2032 !C
2033       IF (IPROB.EQ.0) THEN                 ! FORWARD CALCULATION
2034          DO 10 I=1,NCOMP
2035             W(I) = MAX(WI(I), TINY)
2036 10       CONTINUE
2037       ELSE
2038          DO 15 I=1,NCOMP                   ! REVERSE CALCULATION
2039             WAER(I) = MAX(WI(I), TINY)
2040             W(I)    = ZERO
2041 15       CONTINUE
2042       ENDIF
2043       RH      = RHI
2044       TEMP    = TEMPI
2045 !C
2046 !C *** CALCULATE EQUILIBRIUM CONSTANTS ***********************************
2047 !C
2048       XK1  = 1.015D-2  ! HSO4(aq)         <==> H(aq)     + SO4(aq)
2049       XK21 = 57.639D0  ! NH3(g)           <==> NH3(aq)
2050       XK22 = 1.805D-5  ! NH3(aq)          <==> NH4(aq)   + OH(aq)
2051       XK3  = 1.971D6   ! HCL(g)           <==> H(aq)     + CL(aq)
2052       XK31 = 2.500e3   ! HCL(g)           <==> HCL(aq)
2053       XK4  = 2.511e6   ! HNO3(g)          <==> H(aq)     + NO3(aq) ! ISORR
2054 !C      XK4  = 3.638e6   ! HNO3(g)          <==> H(aq)     + NO3(aq) ! SEQUIL
2055       XK41 = 2.100e5   ! HNO3(g)          <==> HNO3(aq)
2056       XK5  = 0.4799D0  ! NA2SO4(s)        <==> 2*NA(aq)  + SO4(aq)
2057       XK6  = 1.086D-16 ! NH4CL(s)         <==> NH3(g)    + HCL(g)
2058       XK7  = 1.817D0   ! (NH4)2SO4(s)     <==> 2*NH4(aq) + SO4(aq)
2059       XK8  = 37.661D0  ! NACL(s)          <==> NA(aq)    + CL(aq)
2060 !C      XK10 = 5.746D-17 ! NH4NO3(s)        <==> NH3(g)    + HNO3(g) ! ISORR
2061       XK10 = 4.199D-17 ! NH4NO3(s)        <==> NH3(g)    + HNO3(g) ! (Mozurkewich, 1993)
2062 !C      XK10 = 2.985e-17 ! NH4NO3(s)        <==> NH3(g)    + HNO3(g) ! SEQUIL
2063       XK11 = 2.413D4   ! NAHSO4(s)        <==> NA(aq)    + HSO4(aq)
2064       XK12 = 1.382D2   ! NH4HSO4(s)       <==> NH4(aq)   + HSO4(aq)
2065       XK13 = 29.268D0  ! (NH4)3H(SO4)2(s) <==> 3*NH4(aq) + HSO4(aq) + SO4(aq)
2066       XK14 = 22.05D0   ! NH4CL(s)         <==> NH4(aq)   + CL(aq)
2067       XKW  = 1.010D-14 ! H2O              <==> H(aq)     + OH(aq)
2068       XK9  = 11.977D0  ! NANO3(s)         <==> NA(aq)    + NO3(aq)
2069 !CCC
2070       XK15 = 6.067D5   ! CA(NO3)2(s)      <==> CA(aq)    + 2NO3(aq)
2071       XK16 = 7.974D11  ! CACL2(s)         <==> CA(aq)    + 2CL(aq)
2072       XK17 = 1.569D-2  ! K2SO4(s)         <==> 2K(aq)    + SO4(aq)
2073       XK18 = 24.016    ! KHSO4(s)         <==> K(aq)     + HSO4(aq)
2074       XK19 = 0.872     ! KNO3(s)          <==> K(aq)     + NO3(aq)
2075       XK20 = 8.680     ! KCL(s)           <==> K(aq)     + CL(aq)
2076       XK23 = 1.079D5   ! MGS04(s)         <==> MG(aq)    + SO4(aq)
2077       XK24 = 2.507D15  ! MG(NO3)2(s)      <==> MG(aq)    + 2NO3(aq)
2078       XK25 = 9.557D21  ! MGCL2(s)         <==> MG(aq)    + 2CL(aq)
2079 !C      XK26 = 4.299D-7  ! CO2(aq) + H2O    <==> HCO3(aq)  + H(aq)
2080 !C      XK27 = 4.678D-11 ! HCO3(aq)         <==> CO3(aq)   + H(aq)
2081
2082 !C
2083       IF (INT(TEMP) .NE. 298) THEN   ! FOR T != 298K or 298.15K
2084          T0  = 298.15D0
2085          T0T = T0/TEMP
2086          COEF= 1.0+LOG(T0T)-T0T
2087          XK1 = XK1 *EXP(  8.85*(T0T-1.0) + 25.140*COEF)
2088          XK21= XK21*EXP( 13.79*(T0T-1.0) -  5.393*COEF)
2089          XK22= XK22*EXP( -1.50*(T0T-1.0) + 26.920*COEF)
2090          XK3 = XK3 *EXP( 30.20*(T0T-1.0) + 19.910*COEF)
2091          XK31= XK31*EXP( 30.20*(T0T-1.0) + 19.910*COEF)
2092          XK4 = XK4 *EXP( 29.17*(T0T-1.0) + 16.830*COEF) !ISORR
2093 !C         XK4 = XK4 *EXP( 29.47*(T0T-1.0) + 16.840*COEF) ! SEQUIL
2094          XK41= XK41*EXP( 29.17*(T0T-1.0) + 16.830*COEF)
2095          XK5 = XK5 *EXP(  0.98*(T0T-1.0) + 39.500*COEF)
2096          XK6 = XK6 *EXP(-71.00*(T0T-1.0) +  2.400*COEF)
2097          XK7 = XK7 *EXP( -2.65*(T0T-1.0) + 38.570*COEF)
2098          XK8 = XK8 *EXP( -1.56*(T0T-1.0) + 16.900*COEF)
2099          XK9 = XK9 *EXP( -8.22*(T0T-1.0) + 16.010*COEF)
2100 !C         XK10= XK10*EXP(-74.38*(T0T-1.0) +  6.120*COEF) ! ISORR
2101          XK10= XK10*EXP(-74.7351*(T0T-1.0) +  6.025*COEF) ! (Mozurkewich, 1993)
2102 !C         XK10= XK10*EXP(-75.11*(T0T-1.0) + 13.460*COEF) ! SEQUIL
2103          XK11= XK11*EXP(  0.79*(T0T-1.0) + 14.746*COEF)
2104          XK12= XK12*EXP( -2.87*(T0T-1.0) + 15.830*COEF)
2105          XK13= XK13*EXP( -5.19*(T0T-1.0) + 54.400*COEF)
2106          XK14= XK14*EXP( 24.55*(T0T-1.0) + 16.900*COEF)
2107          XKW = XKW *EXP(-22.52*(T0T-1.0) + 26.920*COEF)
2108 !CCC
2109 !C         XK15= XK15 *EXP(  .0*(T0T-1.0) + .0*COEF)
2110 !C         XK16= XK16 *EXP(  .0*(T0T-1.0) + .0*COEF)
2111          XK17= XK17 *EXP(-9.585*(T0T-1.0) + 45.81*COEF)
2112          XK18= XK18 *EXP(-8.423*(T0T-1.0) + 17.96*COEF)
2113          XK19= XK19 *EXP(-14.08*(T0T-1.0) + 19.39*COEF)
2114          XK20= XK20 *EXP(-6.902*(T0T-1.0) + 19.95*COEF)
2115 !C         XK23= XK23 *EXP(  .0*(T0T-1.0) + .0*COEF)
2116 !C         XK24= XK24 *EXP(  .0*(T0T-1.0) + .0*COEF)
2117 !C         XK25= XK25 *EXP(  .0*(T0T-1.0) + .0*COEF)
2118 !C         XK26= XK26 *EXP(-3.0821*(T0T-1.0) + 31.8139*COEF)
2119 !C         XK27= XK27 *EXP(-5.9908*(T0T-1.0) + 38.844*COEF)
2120
2121       ENDIF
2122       XK2  = XK21*XK22
2123       XK42 = XK4/XK41
2124       XK32 = XK3/XK31
2125 !C
2126 !C *** CALCULATE DELIQUESCENCE RELATIVE HUMIDITIES (UNICOMPONENT) ********
2127 !C
2128       DRH2SO4  = ZERO
2129       DRNH42S4 = 0.7997D0
2130       DRNH4HS4 = 0.4000D0
2131       DRLC     = 0.6900D0
2132       DRNACL   = 0.7528D0
2133       DRNANO3  = 0.7379D0
2134       DRNH4CL  = 0.7710D0
2135       DRNH4NO3 = 0.6183D0
2136       DRNA2SO4 = 0.9300D0
2137       DRNAHSO4 = 0.5200D0
2138       DRCANO32 = 0.4906D0
2139       DRCACL2  = 0.2830D0
2140       DRK2SO4  = 0.9750D0
2141       DRKHSO4  = 0.8600D0
2142       DRKNO3   = 0.9248D0
2143       DRKCL    = 0.8426D0
2144       DRMGSO4  = 0.8613D0
2145       DRMGNO32 = 0.5400D0
2146       DRMGCL2  = 0.3284D0
2147       IF (INT(TEMP) .NE. 298) THEN
2148          T0       = 298.15D0
2149          TCF      = 1.0/TEMP - 1.0/T0
2150          DRNACL   = DRNACL  *EXP( 25.*TCF)
2151          DRNANO3  = DRNANO3 *EXP(304.*TCF)
2152          DRNA2SO4 = DRNA2SO4*EXP( 80.*TCF)
2153          DRNH4NO3 = DRNH4NO3*EXP(852.*TCF)
2154          DRNH42S4 = DRNH42S4*EXP( 80.*TCF)
2155          DRNH4HS4 = DRNH4HS4*EXP(384.*TCF)
2156          DRLC     = DRLC    *EXP(186.*TCF)
2157          DRNH4CL  = DRNH4Cl *EXP(239.*TCF)
2158          DRNAHSO4 = DRNAHSO4*EXP(-45.*TCF)
2159 !C         DRCANO32 = DRCANO32*EXP(-430.5*TCF)
2160          DRCANO32 = DRCANO32*EXP(509.4*TCF)   ! KELLY & WEXLER (2005) FOR CANO32.4H20
2161 !C         DRCACL2  = DRCACL2 *EXP(-1121.*TCF)
2162          DRCACL2  = DRCACL2 *EXP(551.1*TCF)  ! KELLY & WEXLER (2005) FOR CACL2.6H20
2163          DRK2SO4  = DRK2SO4 *EXP(35.6*TCF)
2164 !C         DRKHSO4  = DRKHSO4 *EXP( 0.*TCF)
2165 !C         DRKNO3   = DRKNO3  *EXP( 0.*TCF)
2166          DRKCL    = DRKCL   *EXP(159.*TCF)
2167          DRMGSO4  = DRMGSO4 *EXP(-714.45*TCF)
2168          DRMGNO32 = DRMGNO32*EXP(230.2*TCF)   ! KELLY & WEXLER (2005) FOR MGNO32.6H20
2169 !C         DRMGCL2  = DRMGCL2 *EXP(-1860.*TCF)
2170          DRMGCL2  = DRMGCL2 *EXP(42.23*TCF)   ! KELLY & WEXLER (2005) FOR MGCL2.6H20
2171 !C
2172       ENDIF
2173 !C
2174 !C *** CALCULATE MUTUAL DELIQUESCENCE RELATIVE HUMIDITIES ****************
2175 !C
2176       DRMLCAB = 0.378D0    ! (NH4)3H(SO4)2 & NH4HSO4
2177       DRMLCAS = 0.690D0    ! (NH4)3H(SO4)2 & (NH4)2SO4
2178       DRMASAN = 0.600D0    ! (NH4)2SO4     & NH4NO3
2179       DRMG1   = 0.460D0    ! (NH4)2SO4, NH4NO3, NA2SO4, NH4CL
2180       DRMG2   = 0.691D0    ! (NH4)2SO4, NA2SO4, NH4CL
2181       DRMG3   = 0.697D0    ! (NH4)2SO4, NA2SO4
2182       DRMH1   = 0.240D0    ! NA2SO4, NANO3, NACL, NH4NO3, NH4CL
2183       DRMH2   = 0.596D0    ! NA2SO4, NANO3, NACL, NH4CL
2184       DRMI1   = 0.240D0    ! LC, NAHSO4, NH4HSO4, NA2SO4, (NH4)2SO4
2185       DRMI2   = 0.363D0    ! LC, NAHSO4, NA2SO4, (NH4)2SO4  - NO DATA -
2186       DRMI3   = 0.610D0    ! LC, NA2SO4, (NH4)2SO4
2187       DRMQ1   = 0.494D0    ! (NH4)2SO4, NH4NO3, NA2SO4
2188       DRMR1   = 0.663D0    ! NA2SO4, NANO3, NACL
2189       DRMR2   = 0.735D0    ! NA2SO4, NACL
2190       DRMR3   = 0.673D0    ! NANO3, NACL
2191       DRMR4   = 0.694D0    ! NA2SO4, NACL, NH4CL
2192       DRMR5   = 0.731D0    ! NA2SO4, NH4CL
2193       DRMR6   = 0.596D0    ! NA2SO4, NANO3, NH4CL
2194       DRMR7   = 0.380D0    ! NA2SO4, NANO3, NACL, NH4NO3
2195       DRMR8   = 0.380D0    ! NA2SO4, NACL, NH4NO3
2196       DRMR9   = 0.494D0    ! NA2SO4, NH4NO3
2197       DRMR10  = 0.476D0    ! NA2SO4, NANO3, NH4NO3
2198       DRMR11  = 0.340D0    ! NA2SO4, NACL, NH4NO3, NH4CL
2199       DRMR12  = 0.460D0    ! NA2SO4, NH4NO3, NH4CL
2200       DRMR13  = 0.438D0    ! NA2SO4, NANO3, NH4NO3, NH4CL
2201 !C
2202       DRMO1   = 0.460D0    ! (NH4)2SO4, NH4NO3, NH4Cl, NA2SO4, K2SO4, MGSO4
2203       DRMO2   = 0.691D0    ! (NH4)2SO4, NH4Cl, NA2SO4, K2SO4, MGSO4
2204       DRMO3   = 0.697D0    ! (NH4)2SO4, NA2SO4, K2SO4, MGSO4
2205       DRML1   = 0.240D0    ! K2SO4, MGSO4, KHSO4, NH4HSO4, NAHSO4, (NH4)2SO4, NA2SO4, LC
2206       DRML2   = 0.363D0    ! K2SO4, MGSO4, KHSO4, NAHSO4, (NH4)2SO4, NA2SO4, LC
2207       DRML3   = 0.610D0    ! K2SO4, MGSO4, KHSO4, (NH4)2SO4, NA2SO4, LC
2208       DRMM1   = 0.240D0    ! K2SO4, NA2SO4, MGSO4, NH4CL, NACL, NANO3, NH4NO3
2209       DRMM2   = 0.596D0    ! K2SO4, NA2SO4, MGSO4, NH4CL, NACL, NANO3
2210       DRMP1   = 0.200D0    ! CA(NO3)2, CACL2, K2SO4, KNO3, KCL, MGSO4, MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL
2211       DRMP2   = 0.240D0    ! CA(NO3)2, K2SO4, KNO3, KCL, MGSO4, MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL
2212       DRMP3   = 0.240D0    ! CA(NO3)2, K2SO4, KNO3, KCL, MGSO4, MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL
2213       DRMP4   = 0.240D0    ! K2SO4, KNO3, KCL, MGSO4, MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL
2214       DRMP5   = 0.240D0    ! K2SO4, KNO3, KCL, MGSO4, NANO3, NACL, NH4NO3, NH4CL
2215 !CC
2216       DRMV1   = 0.494D0    ! (NH4)2SO4, NH4NO3, NA2SO4, K2SO4, MGSO4
2217 !CC
2218 !CC
2219 !C      DRMO1   = 0.1D0    ! (NH4)2SO4, NH4NO3, NH4Cl, NA2SO4, K2SO4, MGSO4
2220 !C      DRMO2   = 0.1D0    ! (NH4)2SO4, NH4Cl, NA2SO4, K2SO4, MGSO4
2221 !C      DRMO3   = 0.1D0    ! (NH4)2SO4, NA2SO4, K2SO4, MGSO4
2222 !C      DRML1   = 0.1D0    ! K2SO4, MGSO4, KHSO4, NH4HSO4, NAHSO4, (NH4)2SO4, NA2SO4, LC
2223 !C      DRML2   = 0.1D0    ! K2SO4, MGSO4, KHSO4, NAHSO4, (NH4)2SO4, NA2SO4, LC
2224 !C      DRML3   = 0.1D0    ! K2SO4, MGSO4, KHSO4, (NH4)2SO4, NA2SO4, LC
2225 !C      DRMM1   = 0.1D0    ! K2SO4, NA2SO4, MGSO4, NH4CL, NACL, NANO3, NH4NO3
2226 !C      DRMM2   = 0.1D0    ! K2SO4, NA2SO4, MGSO4, NH4CL, NACL, NANO3
2227 !C      DRMP1   = 0.1D0    ! CA(NO3)2, CACL2, K2SO4, KNO3, KCL, MGSO4, MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL
2228 !C      DRMP2   = 0.1D0    ! CA(NO3)2, K2SO4, KNO3, KCL, MGSO4, MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL
2229 !C      DRMP3   = 0.1D0    ! CA(NO3)2, K2SO4, KNO3, KCL, MGSO4, MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL
2230 !C      DRMP4   = 0.1D0    ! K2SO4, KNO3, KCL, MGSO4, MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL
2231 !C      DRMP5   = 0.1D0    ! K2SO4, KNO3, KCL, MGSO4, NANO3, NACL, NH4NO3, NH4CL
2232 !CC
2233 !C      DRMV1   = 0.1D0    ! (NH4)2SO4, NH4NO3, NA2SO4, K2SO4, MGSO4
2234 !C
2235 !CCC      IF (INT(TEMP) .NE. 298) THEN
2236 !CCC         T0       = 298.15d0
2237 !CCC         TCF      = 1.0/TEMP - 1.0/T0
2238 !CCC         DRMLCAB  = DRMLCAB*EXP( 507.506*TCF)
2239 !CCC         DRMLCAS  = DRMLCAS*EXP( 133.865*TCF)
2240 !CCC         DRMASAN  = DRMASAN*EXP(1269.068*TCF)
2241 !CCC         DRMG1    = DRMG1  *EXP( 572.207*TCF)
2242 !CCC         DRMG2    = DRMG2  *EXP(  58.166*TCF)
2243 !CCC         DRMG3    = DRMG3  *EXP(  22.253*TCF)
2244 !CCC         DRMH1    = DRMH1  *EXP(2116.542*TCF)
2245 !CCC         DRMH2    = DRMH2  *EXP( 650.549*TCF)
2246 !CCC         DRMI1    = DRMI1  *EXP( 565.743*TCF)
2247 !CCC         DRMI2    = DRMI2  *EXP(  91.745*TCF)
2248 !CCC         DRMI3    = DRMI3  *EXP( 161.272*TCF)
2249 !CCC         DRMQ1    = DRMQ1  *EXP(1616.621*TCF)
2250 !CCC         DRMR1    = DRMR1  *EXP( 292.564*TCF)
2251 !CCC         DRMR2    = DRMR2  *EXP(  14.587*TCF)
2252 !CCC         DRMR3    = DRMR3  *EXP( 307.907*TCF)
2253 !CCC         DRMR4    = DRMR4  *EXP(  97.605*TCF)
2254 !CCC         DRMR5    = DRMR5  *EXP(  98.523*TCF)
2255 !CCC         DRMR6    = DRMR6  *EXP( 465.500*TCF)
2256 !CCC         DRMR7    = DRMR7  *EXP( 324.425*TCF)
2257 !CCC         DRMR8    = DRMR8  *EXP(2660.184*TCF)
2258 !CCC         DRMR9    = DRMR9  *EXP(1617.178*TCF)
2259 !CCC         DRMR10   = DRMR10 *EXP(1745.226*TCF)
2260 !CCC         DRMR11   = DRMR11 *EXP(3691.328*TCF)
2261 !CCC         DRMR12   = DRMR12 *EXP(1836.842*TCF)
2262 !CCC         DRMR13   = DRMR13 *EXP(1967.938*TCF)
2263 !CCC      ENDIF
2264 !C
2265 !C *** LIQUID PHASE ******************************************************
2266 !C
2267       CHNO3  = ZERO
2268       CHCL   = ZERO
2269       CH2SO4 = ZERO
2270       COH    = ZERO
2271       WATER  = TINY
2272 !C
2273       DO 20 I=1,NPAIR
2274          MOLALR(I)=ZERO
2275          GAMA(I)  =0.1
2276          GAMIN(I) =GREAT
2277          GAMOU(I) =GREAT
2278          M0(I)    =1d5
2279  20   CONTINUE
2280 !C
2281       DO 30 I=1,NPAIR
2282          GAMA(I) = 0.1d0
2283  30   CONTINUE
2284 !C
2285       DO 40 I=1,NIONS
2286          MOLAL(I)=ZERO
2287 40    CONTINUE
2288       COH = ZERO
2289 !C
2290       DO 50 I=1,NGASAQ
2291          GASAQ(I)=ZERO
2292 50    CONTINUE
2293 !C
2294 !C *** SOLID PHASE *******************************************************
2295 !C
2296       CNH42S4= ZERO
2297       CNH4HS4= ZERO
2298       CNACL  = ZERO
2299       CNA2SO4= ZERO
2300       CNANO3 = ZERO
2301       CNH4NO3= ZERO
2302       CNH4CL = ZERO
2303       CNAHSO4= ZERO
2304       CLC    = ZERO
2305       CCASO4 = ZERO
2306       CCANO32= ZERO
2307       CCACL2 = ZERO
2308       CK2SO4 = ZERO
2309       CKHSO4 = ZERO
2310       CKNO3  = ZERO
2311       CKCL   = ZERO
2312       CMGSO4 = ZERO
2313       CMGNO32= ZERO
2314       CMGCL2 = ZERO
2315 !C
2316 !C *** GAS PHASE *********************************************************
2317 !C
2318       GNH3   = ZERO
2319       GHNO3  = ZERO
2320       GHCL   = ZERO
2321 !C
2322 !C *** CALCULATE ZSR PARAMETERS ******************************************
2323 !C
2324       IRH    = MIN (INT(RH*NZSR+0.5),NZSR)  ! Position in ZSR arrays
2325       IRH    = MAX (IRH, 1)
2326 !C
2327       M0(01) = AWSC(IRH)      ! NACl
2328 !C      IF (M0(01) .LT. 100.0) THEN
2329 !C         IC = M0(01)
2330 !C         CALL KMTAB(IC,298.0,     GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2331 !C     &                            XX,XX,XX,XX,XX,XX,XX,XX,XX)
2332 !C         CALL KMTAB(IC,SNGL(TEMP),GII,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2333 !C     &                            XX,XX,XX,XX,XX,XX,XX,XX,XX)
2334 !C         M0(01) = M0(01)*EXP(LN10*(GI0-GII))
2335 !C      ENDIF
2336 !C
2337       M0(02) = AWSS(IRH)      ! (NA)2SO4
2338 !C      IF (M0(02) .LT. 100.0) THEN
2339 !C         IC = 3.0*M0(02)
2340 !C         CALL KMTAB(IC,298.0,     XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2341 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
2342 !C         CALL KMTAB(IC,SNGL(TEMP),XX,GII,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2343 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
2344 !C         M0(02) = M0(02)*EXP(LN10*(GI0-GII))
2345 !C      ENDIF
2346 !C
2347       M0(03) = AWSN(IRH)      ! NANO3
2348 !C      IF (M0(03) .LT. 100.0) THEN
2349 !C         IC = M0(03)
2350 !C         CALL KMTAB(IC,298.0,     XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2351 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
2352 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,GII,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2353 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
2354 !C         M0(03) = M0(03)*EXP(LN10*(GI0-GII))
2355 !C      ENDIF
2356 !C
2357       M0(04) = AWAS(IRH)      ! (NH4)2SO4
2358 !C      IF (M0(04) .LT. 100.0) THEN
2359 !C         IC = 3.0*M0(04)
2360 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX,
2361 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
2362 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,GII,XX,XX,XX,XX,XX,XX,XX,XX,
2363 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
2364 !C         M0(04) = M0(04)*EXP(LN10*(GI0-GII))
2365 !C      ENDIF
2366 !C
2367       M0(05) = AWAN(IRH)      ! NH4NO3
2368 !C      IF (M0(05) .LT. 100.0) THEN
2369 !C         IC     = M0(05)
2370 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX,
2371 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
2372 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,GII,XX,XX,XX,XX,XX,XX,XX,
2373 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
2374 !C         M0(05) = M0(05)*EXP(LN10*(GI0-GII))
2375 !C      ENDIF
2376 !C
2377       M0(06) = AWAC(IRH)      ! NH4CL
2378 !C      IF (M0(06) .LT. 100.0) THEN
2379 !C         IC = M0(06)
2380 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX,
2381 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
2382 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,GII,XX,XX,XX,XX,XX,XX,
2383 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
2384 !C         M0(06) = M0(06)*EXP(LN10*(GI0-GII))
2385 !C      ENDIF
2386 !C
2387       M0(07) = AWSA(IRH)      ! 2H-SO4
2388 !C      IF (M0(07) .LT. 100.0) THEN
2389 !C         IC = 3.0*M0(07)
2390 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX,
2391 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
2392 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,GII,XX,XX,XX,XX,XX,
2393 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
2394 !C         M0(07) = M0(07)*EXP(LN10*(GI0-GII))
2395 !C      ENDIF
2396 !C
2397       M0(08) = AWSA(IRH)      ! H-HSO4
2398 !CCC      IF (M0(08) .LT. 100.0) THEN     ! These are redundant, because M0(8) is not used
2399 !CCC         IC = M0(08)
2400 !CCC         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX)
2401 !CCC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX)
2402 !CCCCCC         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,GII,XX,XX,XX,XX)
2403 !CCC         M0(08) = M0(08)*EXP(LN10*(GI0-GII))
2404 !CCC      ENDIF
2405 !C
2406       M0(09) = AWAB(IRH)      ! NH4HSO4
2407 !C      IF (M0(09) .LT. 100.0) THEN
2408 !C         IC = M0(09)
2409 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,
2410 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
2411 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,GII,XX,XX,XX,
2412 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
2413 !C         M0(09) = M0(09)*EXP(LN10*(GI0-GII))
2414 !C      ENDIF
2415 !C
2416       M0(12) = AWSB(IRH)      ! NAHSO4
2417 !C      IF (M0(12) .LT. 100.0) THEN
2418 !C         IC = M0(12)
2419 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,GI0,
2420 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
2421 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,GII,
2422 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
2423 !C         M0(12) = M0(12)*EXP(LN10*(GI0-GII))
2424 !C      ENDIF
2425 !C
2426       M0(13) = AWLC(IRH)      ! (NH4)3H(SO4)2
2427 !C      IF (M0(13) .LT. 100.0) THEN
2428 !C         IC     = 4.0*M0(13)
2429 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,GI0,XX,XX,XX,XX,GII,XX,XX,XX,
2430 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
2431 !C         G130   = 0.2*(3.0*GI0+2.0*GII)
2432 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,GI0,XX,XX,XX,XX,GII,XX,XX,XX,
2433 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,XX)
2434 !C         G13I   = 0.2*(3.0*GI0+2.0*GII)
2435 !C         M0(13) = M0(13)*EXP(LN10*SNGL(G130-G13I))
2436 !C      ENDIF
2437 !C
2438       M0(15) = AWCN(IRH)      ! CA(NO3)2
2439 !C      IF (M0(15) .LT. 100.0) THEN
2440 !C         IC = M0(15)
2441 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2442 !C     &                             GI0,XX,XX,XX,XX,XX,XX,XX,XX)
2443 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2444 !C     &                             GII,XX,XX,XX,XX,XX,XX,XX,XX)
2445 !C         M0(15) = M0(15)*EXP(LN10*(GI0-GII))
2446 !C      ENDIF
2447 !CC
2448       M0(16) = AWCC(IRH)      ! CACl2
2449 !C      IF (M0(16) .LT. 100.0) THEN
2450 !C         IC = M0(16)
2451 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2452 !C     &                             XX,GI0,XX,XX,XX,XX,XX,XX,XX)
2453 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2454 !C     &                             XX,GII,XX,XX,XX,XX,XX,XX,XX)
2455 !C         M0(16) = M0(16)*EXP(LN10*(GI0-GII))
2456 !C      ENDIF
2457 !C
2458       M0(17) = AWPS(IRH)      ! K2SO4
2459 !C      IF (M0(17) .LT. 100.0) THEN
2460 !C         IC = M0(17)
2461 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2462 !C     &                             XX,XX,GI0,XX,XX,XX,XX,XX,XX)
2463 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2464 !C     &                             XX,XX,GII,XX,XX,XX,XX,XX,XX)
2465 !C         M0(17) = M0(17)*EXP(LN10*(GI0-GII))
2466 !C      ENDIF
2467 !C
2468       M0(18) = AWPB(IRH)      ! KHSO4
2469 !C      IF (M0(18) .LT. 100.0) THEN
2470 !C         IC = M0(18)
2471 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2472 !C     &                             XX,XX,XX,GI0,XX,XX,XX,XX,XX)
2473 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2474 !C     &                             XX,XX,XX,GII,XX,XX,XX,XX,XX)
2475 !C         M0(18) = M0(18)*EXP(LN10*(GI0-GII))
2476 !C      ENDIF
2477 !C
2478       M0(19) = AWPN(IRH)      ! KNO3
2479 !C      IF (M0(19) .LT. 100.0) THEN
2480 !C         IC = M0(19)
2481 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2482 !C     &                             XX,XX,XX,XX,GI0,XX,XX,XX,XX)
2483 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2484 !C     &                             XX,XX,XX,XX,GII,XX,XX,XX,XX)
2485 !C         M0(19) = M0(19)*EXP(LN10*(GI0-GII))
2486 !C      ENDIF
2487 !C
2488       M0(20) = AWPC(IRH)      ! KCl
2489 !C      IF (M0(20) .LT. 100.0) THEN
2490 !C         IC = M0(20)
2491 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2492 !C     &                             XX,XX,XX,XX,XX,GI0,XX,XX,XX)
2493 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2494 !C     &                             XX,XX,XX,XX,XX,GII,XX,XX,XX)
2495 !C         M0(20) = M0(20)*EXP(LN10*(GI0-GII))
2496 !C      ENDIF
2497 !C
2498       M0(21) = AWMS(IRH)      ! MGSO4
2499 !C      IF (M0(21) .LT. 100.0) THEN
2500 !C         IC = M0(21)
2501 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2502 !C     &                             XX,XX,XX,XX,XX,XX,GI0,XX,XX)
2503 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2504 !C     &                             XX,XX,XX,XX,XX,XX,GII,XX,XX)
2505 !C         M0(21) = M0(21)*EXP(LN10*(GI0-GII))
2506 !C      ENDIF
2507 !C
2508       M0(22) = AWMN(IRH)      ! MG(NO3)2
2509 !C      IF (M0(22) .LT. 100.0) THEN
2510 !C         IC = M0(22)
2511 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2512 !C     &                             XX,XX,XX,XX,XX,XX,XX,GI0,XX)
2513 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2514 !C     &                             XX,XX,XX,XX,XX,XX,XX,GII,XX)
2515 !C         M0(22) = M0(22)*EXP(LN10*(GI0-GII))
2516 !C      ENDIF
2517 !C
2518       M0(23) = AWMC(IRH)      ! MGCL2
2519 !C      IF (M0(23) .LT. 100.0) THEN
2520 !C         IC = M0(23)
2521 !C         CALL KMTAB(IC,298.0,     XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2522 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,GI0)
2523 !C         CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,
2524 !C     &                             XX,XX,XX,XX,XX,XX,XX,XX,GII)
2525 !C         M0(23) = M0(23)*EXP(LN10*(GI0-GII))
2526 !C      ENDIF
2527 !C
2528 !C *** OTHER INITIALIZATIONS *********************************************
2529 !C
2530       ICLACT  = 0
2531       CALAOU  = .TRUE.
2532       CALAIN  = .TRUE.
2533       FRST    = .TRUE.
2534 !liqy
2535 !      SCASE   = '??'
2536       SCASE   = 'xx'
2537 !liqy-20140513
2538       SULRATW = 2.D0
2539       SO4RAT  = 2.D0
2540       CRNARAT = 2.D0
2541       CRRAT   = 2.D0
2542       NOFER   = 0
2543       STKOFL  =.FALSE.
2544       DO 60 I=1,NERRMX
2545          ERRSTK(I) =-999
2546          ERRMSG(I) = 'MESSAGE N/A'
2547    60 CONTINUE
2548 !C
2549 !C *** END OF SUBROUTINE INIT4 *******************************************
2550 !C
2551       END
2552 !C
2553 !C=======================================================================
2554 !C
2555 !C *** ISORROPIA CODE
2556 !C *** SUBROUTINE ADJUST
2557 !C *** ADJUSTS FOR MASS BALANCE BETWEEN VOLATILE SPECIES AND SULFATE
2558 !C     FIRST CALCULATE THE EXCESS OF EACH PRECURSOR, AND IF IT EXISTS, THEN
2559 !C     ADJUST SEQUENTIALY AEROSOL PHASE SPECIES WHICH CONTAIN THE EXCESS
2560 !C     PRECURSOR.
2561 !C
2562 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
2563 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
2564 !C *** WRITTEN BY ATHANASIOS NENES
2565 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
2566 !C
2567 !C=======================================================================
2568 !C
2569       SUBROUTINE ADJUST2p1 (WI)
2570       INCLUDE 'module_isrpia_inc.F'
2571       DOUBLE PRECISION WI(*)
2572 !C
2573 !C *** FOR AMMONIUM *****************************************************
2574 !C
2575       IF (IPROB.EQ.0) THEN         ! Calculate excess (solution - input)
2576          EXNH4 = GNH3 + MOLAL(3) + CNH4CL + CNH4NO3 + CNH4HS4 &
2577                      + 2D0*CNH42S4       + 3D0*CLC &
2578                -WI(3)
2579       ELSE
2580          EXNH4 = MOLAL(3) + CNH4CL + CNH4NO3 + CNH4HS4 + 2D0*CNH42S4 &
2581                          + 3D0*CLC &
2582                -WI(3)
2583
2584       ENDIF
2585       EXNH4 = MAX(EXNH4,ZERO)
2586       IF (EXNH4.LT.TINY) GOTO 20    ! No excess NH4, go to next precursor
2587 !C
2588       IF (MOLAL(3).GT.EXNH4) THEN   ! Adjust aqueous phase NH4
2589          MOLAL(3) = MOLAL(3) - EXNH4
2590          GOTO 20
2591       ELSE
2592          EXNH4    = EXNH4 - MOLAL(3)
2593          MOLAL(3) = ZERO
2594       ENDIF
2595 !C
2596       IF (CNH4CL.GT.EXNH4) THEN     ! Adjust NH4Cl(s)
2597          CNH4CL   = CNH4CL - EXNH4  ! more solid than excess
2598          GHCL     = GHCL   + EXNH4  ! evaporate Cl to gas phase
2599          GOTO 20
2600       ELSE                          ! less solid than excess
2601          GHCL     = GHCL   + CNH4CL ! evaporate into gas phase
2602          EXNH4    = EXNH4  - CNH4CL ! reduce excess
2603          CNH4CL   = ZERO            ! zero salt concentration
2604       ENDIF
2605 !C
2606       IF (CNH4NO3.GT.EXNH4) THEN    ! Adjust NH4NO3(s)
2607          CNH4NO3  = CNH4NO3- EXNH4  ! more solid than excess
2608          GHNO3    = GHNO3  + EXNH4  ! evaporate NO3 to gas phase
2609          GOTO 20
2610       ELSE                          ! less solid than excess
2611          GHNO3    = GHNO3  + CNH4NO3! evaporate into gas phase
2612          EXNH4    = EXNH4  - CNH4NO3! reduce excess
2613          CNH4NO3  = ZERO            ! zero salt concentration
2614       ENDIF
2615 !C
2616       IF (CLC.GT.3d0*EXNH4) THEN    ! Adjust (NH4)3H(SO4)2(s)
2617          CLC      = CLC - EXNH4/3d0 ! more solid than excess
2618          GOTO 20
2619       ELSE                          ! less solid than excess
2620          EXNH4    = EXNH4 - 3d0*CLC ! reduce excess
2621          CLC      = ZERO            ! zero salt concentration
2622       ENDIF
2623 !C
2624       IF (CNH4HS4.GT.EXNH4) THEN    ! Adjust NH4HSO4(s)
2625          CNH4HS4  = CNH4HS4- EXNH4  ! more solid than excess
2626          GOTO 20
2627       ELSE                          ! less solid than excess
2628          EXNH4    = EXNH4  - CNH4HS4! reduce excess
2629          CNH4HS4  = ZERO            ! zero salt concentration
2630       ENDIF
2631 !C
2632       IF (CNH42S4.GT.EXNH4) THEN    ! Adjust (NH4)2SO4(s)
2633          CNH42S4  = CNH42S4- EXNH4  ! more solid than excess
2634          GOTO 20
2635       ELSE                          ! less solid than excess
2636          EXNH4    = EXNH4  - CNH42S4! reduce excess
2637          CNH42S4  = ZERO            ! zero salt concentration
2638       ENDIF
2639 !C
2640 !C *** FOR NITRATE ******************************************************
2641 !C
2642  20   IF (IPROB.EQ.0) THEN         ! Calculate excess (solution - input)
2643          EXNO3 = GHNO3 + MOLAL(7) + CNH4NO3 &
2644                -WI(4)
2645       ELSE
2646          EXNO3 = MOLAL(7) + CNH4NO3 &
2647                -WI(4)
2648       ENDIF
2649       EXNO3 = MAX(EXNO3,ZERO)
2650       IF (EXNO3.LT.TINY) GOTO 30    ! No excess NO3, go to next precursor
2651 !C
2652       IF (MOLAL(7).GT.EXNO3) THEN   ! Adjust aqueous phase NO3
2653          MOLAL(7) = MOLAL(7) - EXNO3
2654          GOTO 30
2655       ELSE
2656          EXNO3    = EXNO3 - MOLAL(7)
2657          MOLAL(7) = ZERO
2658       ENDIF
2659 !C
2660       IF (CNH4NO3.GT.EXNO3) THEN    ! Adjust NH4NO3(s)
2661          CNH4NO3  = CNH4NO3- EXNO3  ! more solid than excess
2662          GNH3     = GNH3   + EXNO3  ! evaporate NO3 to gas phase
2663          GOTO 30
2664       ELSE                          ! less solid than excess
2665          GNH3     = GNH3   + CNH4NO3! evaporate into gas phase
2666          EXNO3    = EXNO3  - CNH4NO3! reduce excess
2667          CNH4NO3  = ZERO            ! zero salt concentration
2668       ENDIF
2669 !C
2670 !C *** FOR CHLORIDE *****************************************************
2671 !C
2672  30   IF (IPROB.EQ.0) THEN         ! Calculate excess (solution - input)
2673          EXCl = GHCL + MOLAL(4) + CNH4CL &
2674               -WI(5)
2675       ELSE
2676          EXCl = MOLAL(4) + CNH4CL &
2677               -WI(5)
2678       ENDIF
2679       EXCl = MAX(EXCl,ZERO)
2680       IF (EXCl.LT.TINY) GOTO 40    ! No excess Cl, go to next precursor
2681 !C
2682       IF (MOLAL(4).GT.EXCL) THEN   ! Adjust aqueous phase Cl
2683          MOLAL(4) = MOLAL(4) - EXCL
2684          GOTO 40
2685       ELSE
2686          EXCL     = EXCL - MOLAL(4)
2687          MOLAL(4) = ZERO
2688       ENDIF
2689 !C
2690       IF (CNH4CL.GT.EXCL) THEN      ! Adjust NH4Cl(s)
2691          CNH4CL   = CNH4CL - EXCL   ! more solid than excess
2692          GHCL     = GHCL   + EXCL   ! evaporate Cl to gas phase
2693          GOTO 40
2694       ELSE                          ! less solid than excess
2695          GHCL     = GHCL   + CNH4CL ! evaporate into gas phase
2696          EXCL     = EXCL   - CNH4CL ! reduce excess
2697          CNH4CL   = ZERO            ! zero salt concentration
2698       ENDIF
2699 !C
2700 !C *** FOR SULFATE ******************************************************
2701 !C
2702  40   EXS4 = MOLAL(5) + MOLAL(6) + 2.d0*CLC + CNH42S4 + CNH4HS4 + &
2703             CNA2SO4  + CNAHSO4 - WI(2)
2704       EXS4 = MAX(EXS4,ZERO)        ! Calculate excess (solution - input)
2705       IF (EXS4.LT.TINY) GOTO 50    ! No excess SO4, return
2706 !C
2707       IF (MOLAL(6).GT.EXS4) THEN   ! Adjust aqueous phase HSO4
2708          MOLAL(6) = MOLAL(6) - EXS4
2709          GOTO 50
2710       ELSE
2711          EXS4     = EXS4 - MOLAL(6)
2712          MOLAL(6) = ZERO
2713       ENDIF
2714 !C
2715       IF (MOLAL(5).GT.EXS4) THEN   ! Adjust aqueous phase SO4
2716          MOLAL(5) = MOLAL(5) - EXS4
2717          GOTO 50
2718       ELSE
2719          EXS4     = EXS4 - MOLAL(5)
2720          MOLAL(5) = ZERO
2721       ENDIF
2722 !C
2723       IF (CLC.GT.2d0*EXS4) THEN     ! Adjust (NH4)3H(SO4)2(s)
2724          CLC      = CLC - EXS4/2d0  ! more solid than excess
2725          GNH3     = GNH3 +1.5d0*EXS4! evaporate NH3 to gas phase
2726          GOTO 50
2727       ELSE                          ! less solid than excess
2728          GNH3     = GNH3 + 1.5d0*CLC! evaporate NH3 to gas phase
2729          EXS4     = EXS4 - 2d0*CLC  ! reduce excess
2730          CLC      = ZERO            ! zero salt concentration
2731       ENDIF
2732 !C
2733       IF (CNH4HS4.GT.EXS4) THEN     ! Adjust NH4HSO4(s)
2734          CNH4HS4  = CNH4HS4 - EXS4  ! more solid than excess
2735          GNH3     = GNH3 + EXS4     ! evaporate NH3 to gas phase
2736          GOTO 50
2737       ELSE                          ! less solid than excess
2738          GNH3     = GNH3 + CNH4HS4  ! evaporate NH3 to gas phase
2739          EXS4     = EXS4  - CNH4HS4 ! reduce excess
2740          CNH4HS4  = ZERO            ! zero salt concentration
2741       ENDIF
2742 !C
2743       IF (CNH42S4.GT.EXS4) THEN     ! Adjust (NH4)2SO4(s)
2744          CNH42S4  = CNH42S4- EXS4   ! more solid than excess
2745          GNH3     = GNH3 + 2.d0*EXS4! evaporate NH3 to gas phase
2746          GOTO 50
2747       ELSE                          ! less solid than excess
2748          GNH3     = GNH3+2.d0*CNH42S4 ! evaporate NH3 to gas phase
2749          EXS4     = EXS4  - CNH42S4 ! reduce excess
2750          CNH42S4  = ZERO            ! zero salt concentration
2751       ENDIF
2752 !C
2753 !C *** RETURN **********************************************************
2754 !C
2755  50   RETURN
2756       END
2757
2758 !C=======================================================================
2759 !C
2760 !C *** ISORROPIA CODE
2761 !C *** FUNCTION GETASR
2762 !C *** CALCULATES THE LIMITING NH4+/SO4 RATIO OF A SULFATE POOR SYSTEM
2763 !C     (i.e. SULFATE RATIO = 2.0) FOR GIVEN SO4 LEVEL AND RH
2764 !C
2765 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
2766 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
2767 !C *** WRITTEN BY ATHANASIOS NENES
2768 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
2769 !C
2770 !C=======================================================================
2771 !C
2772       DOUBLE PRECISION FUNCTION GETASR2p1 (SO4I, RHI)
2773       PARAMETER (NSO4S=14, NRHS=20, NASRD=NSO4S*NRHS)
2774       COMMON /ASRC2p1/ ASRAT(NASRD), ASSO4(NSO4S)
2775       DOUBLE PRECISION SO4I, RHI
2776 !CCC
2777 !CCC *** SOLVE USING FULL COMPUTATIONS, NOT LOOK-UP TABLES **************
2778 !CCC
2779 !CCC         W(2) = WAER(2)
2780 !CCC         W(3) = WAER(2)*2.0001D0
2781 !CCC         CALL CALCA2
2782 !CCC         SULRATW = MOLAL(3)/WAER(2)
2783 !CCC         CALL INIT1 (WI, RHI, TEMPI)   ! Re-initialize COMMON BLOCK
2784 !C
2785 !C *** CALCULATE INDICES ************************************************
2786 !C
2787       RAT    = SO4I/1.E-9
2788       A1     = INT(ALOG10(RAT))                   ! Magnitude of RAT
2789       IA1    = INT(RAT/2.5/10.0**A1)
2790 !C
2791       INDS   = 4.0*A1 + MIN(IA1,4)
2792       INDS   = MIN(MAX(0, INDS), NSO4S-1) + 1     ! SO4 component of IPOS
2793 !C
2794       INDR   = INT(99.0-RHI*100.0) + 1
2795       INDR   = MIN(MAX(1, INDR), NRHS)            ! RH component of IPOS
2796 !C
2797 !C *** GET VALUE AND RETURN *********************************************
2798 !C
2799       INDSL  = INDS
2800       INDSH  = MIN(INDSL+1, NSO4S)
2801       IPOSL  = (INDSL-1)*NRHS + INDR              ! Low position in array
2802       IPOSH  = (INDSH-1)*NRHS + INDR              ! High position in array
2803 !C
2804       WF     = (SO4I-ASSO4(INDSL))/(ASSO4(INDSH)-ASSO4(INDSL) + 1e-7)
2805       WF     = MIN(MAX(WF, 0.0), 1.0)
2806 !C
2807       GETASR2p1 = WF*ASRAT(IPOSH) + (1.0-WF)*ASRAT(IPOSL)
2808 !C
2809 !C *** END OF FUNCTION GETASR *******************************************
2810 !C
2811       RETURN
2812       END
2813 !C
2814 !C=======================================================================
2815 !C
2816 !C *** ISORROPIA CODE
2817 !C *** BLOCK DATA AERSR
2818 !C *** CONTAINS DATA FOR AEROSOL SULFATE RATIO ARRAY NEEDED IN FUNCTION
2819 !C     GETASR
2820 !C
2821 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
2822 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
2823 !C *** WRITTEN BY ATHANASIOS NENES
2824 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
2825 !C
2826 !C=======================================================================
2827 !C
2828       BLOCK DATA AERSR2p1
2829       PARAMETER (NSO4S=14, NRHS=20, NASRD=NSO4S*NRHS)
2830       COMMON /ASRC2p1/ ASRAT(NASRD), ASSO4(NSO4S)
2831 !C
2832       DATA ASSO4/1.0E-9, 2.5E-9, 5.0E-9, 7.5E-9, 1.0E-8, &
2833                 2.5E-8, 5.0E-8, 7.5E-8, 1.0E-7, 2.5E-7, &
2834                 5.0E-7, 7.5E-7, 1.0E-6, 5.0E-6/
2835 !C
2836       DATA (ASRAT(I), I=1,100)/&
2837       1.020464, 0.9998130, 0.9960167, 0.9984423, 1.004004,&
2838       1.010885,  1.018356,  1.026726,  1.034268, 1.043846,&
2839       1.052933,  1.062230,  1.062213,  1.080050, 1.088350,&
2840       1.096603,  1.104289,  1.111745,  1.094662, 1.121594,&
2841       1.268909,  1.242444,  1.233815,  1.232088, 1.234020,&
2842       1.238068,  1.243455,  1.250636,  1.258734, 1.267543,&
2843       1.276948,  1.286642,  1.293337,  1.305592, 1.314726,&
2844       1.323463,  1.333258,  1.343604,  1.344793, 1.355571,&
2845       1.431463,  1.405204,  1.395791,  1.393190, 1.394403,&
2846       1.398107,  1.403811,  1.411744,  1.420560, 1.429990,&
2847       1.439742,  1.449507,  1.458986,  1.468403, 1.477394,&
2848       1.487373,  1.495385,  1.503854,  1.512281, 1.520394,&
2849       1.514464,  1.489699,  1.480686,  1.478187, 1.479446,&
2850       1.483310,  1.489316,  1.497517,  1.506501, 1.515816,&
2851       1.524724,  1.533950,  1.542758,  1.551730, 1.559587,&
2852       1.568343,  1.575610,  1.583140,  1.590440, 1.596481,&
2853       1.567743,  1.544426,  1.535928,  1.533645, 1.535016,&
2854       1.539003,  1.545124,  1.553283,  1.561886, 1.570530,&
2855       1.579234,  1.587813,  1.595956,  1.603901, 1.611349,&
2856       1.618833,  1.625819,  1.632543,  1.639032, 1.645276/
2857
2858       DATA (ASRAT(I), I=101,200)/&
2859       1.707390,  1.689553,  1.683198,  1.681810, 1.683490,&
2860       1.687477,  1.693148,  1.700084,  1.706917, 1.713507,&
2861       1.719952,  1.726190,  1.731985,  1.737544, 1.742673,&
2862       1.747756,  1.752431,  1.756890,  1.761141, 1.765190,&
2863       1.785657,  1.771851,  1.767063,  1.766229, 1.767901,&
2864       1.771455,  1.776223,  1.781769,  1.787065, 1.792081,&
2865       1.796922,  1.801561,  1.805832,  1.809896, 1.813622,&
2866       1.817292,  1.820651,  1.823841,  1.826871, 1.829745,&
2867       1.822215,  1.810497,  1.806496,  1.805898, 1.807480,&
2868       1.810684,  1.814860,  1.819613,  1.824093, 1.828306,&
2869       1.832352,  1.836209,  1.839748,  1.843105, 1.846175,&
2870       1.849192,  1.851948,  1.854574,  1.857038, 1.859387,&
2871       1.844588,  1.834208,  1.830701,  1.830233, 1.831727,&
2872       1.834665,  1.838429,  1.842658,  1.846615, 1.850321,&
2873       1.853869,  1.857243,  1.860332,  1.863257, 1.865928,&
2874       1.868550,  1.870942,  1.873208,  1.875355, 1.877389,&
2875       1.899556,  1.892637,  1.890367,  1.890165, 1.891317,&
2876       1.893436,  1.896036,  1.898872,  1.901485, 1.903908,&
2877       1.906212,  1.908391,  1.910375,  1.912248, 1.913952,&
2878       1.915621,  1.917140,  1.918576,  1.919934, 1.921220/
2879
2880       DATA (ASRAT(I), I=201,280)/&
2881       1.928264,  1.923245,  1.921625,  1.921523, 1.922421,&
2882       1.924016,  1.925931,  1.927991,  1.929875, 1.931614,&
2883       1.933262,  1.934816,  1.936229,  1.937560, 1.938769,&
2884       1.939951,  1.941026,  1.942042,  1.943003, 1.943911,&
2885       1.941205,  1.937060,  1.935734,  1.935666, 1.936430,&
2886       1.937769,  1.939359,  1.941061,  1.942612, 1.944041,&
2887       1.945393,  1.946666,  1.947823,  1.948911, 1.949900,&
2888       1.950866,  1.951744,  1.952574,  1.953358, 1.954099,&
2889       1.948985,  1.945372,  1.944221,  1.944171, 1.944850,&
2890       1.946027,  1.947419,  1.948902,  1.950251, 1.951494,&
2891       1.952668,  1.953773,  1.954776,  1.955719, 1.956576,&
2892       1.957413,  1.958174,  1.958892,  1.959571, 1.960213,&
2893       1.977193,  1.975540,  1.975023,  1.975015, 1.975346,&
2894       1.975903,  1.976547,  1.977225,  1.977838, 1.978401,&
2895       1.978930,  1.979428,  1.979879,  1.980302, 1.980686,&
2896       1.981060,  1.981401,  1.981722,  1.982025, 1.982312/
2897 !C
2898 !C *** END OF BLOCK DATA AERSR ******************************************
2899 !C
2900        END
2901
2902 !C
2903 !C=======================================================================
2904 !C
2905 !C *** ISORROPIA CODE
2906 !C *** SUBROUTINE CALCHA
2907 !C *** CALCULATES CHLORIDES SPECIATION
2908 !C
2909 !C     HYDROCHLORIC ACID IN THE LIQUID PHASE IS ASSUMED A MINOR SPECIES,
2910 !C     AND DOES NOT SIGNIFICANTLY PERTURB THE HSO4-SO4 EQUILIBRIUM. THE
2911 !C     HYDROCHLORIC ACID DISSOLVED IS CALCULATED FROM THE
2912 !C     HCL(G) <-> (H+) + (CL-)
2913 !C     EQUILIBRIUM, USING THE (H+) FROM THE SULFATES.
2914 !C
2915 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
2916 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
2917 !C *** WRITTEN BY ATHANASIOS NENES
2918 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
2919 !C
2920 !C=======================================================================
2921 !C
2922       SUBROUTINE CALCHA2p1
2923       INCLUDE 'module_isrpia_inc.F'
2924       DOUBLE PRECISION KAPA
2925 !CC      CHARACTER ERRINF*40
2926 !C
2927 !C *** CALCULATE HCL DISSOLUTION *****************************************
2928 !C
2929       X    = W(5)
2930       DELT = 0.0d0
2931       IF (WATER.GT.TINY) THEN
2932          KAPA = MOLAL(1)
2933          ALFA = XK3*R*TEMP*(WATER/GAMA(11))**2.0
2934          DIAK = SQRT( (KAPA+ALFA)**2.0 + 4.0*ALFA*X)
2935          DELT = 0.5*(-(KAPA+ALFA) + DIAK)
2936 !CC         IF (DELT/KAPA.GT.0.1d0) THEN
2937 !CC            WRITE (ERRINF,'(1PE10.3)') DELT/KAPA*100.0
2938 !CC            CALL PUSHERR (0033, ERRINF)
2939 !CC         ENDIF
2940       ENDIF
2941 !C
2942 !C *** CALCULATE HCL SPECIATION IN THE GAS PHASE *************************
2943 !C
2944       GHCL     = MAX(X-DELT, 0.0d0)  ! GAS HCL
2945 !C
2946 !C *** CALCULATE HCL SPECIATION IN THE LIQUID PHASE **********************
2947 !C
2948       MOLAL(4) = DELT                ! CL-
2949       MOLAL(1) = MOLAL(1) + DELT     ! H+
2950 !C
2951       RETURN
2952 !C
2953 !C *** END OF SUBROUTINE CALCHA ******************************************
2954 !C
2955       END
2956 !C
2957 !C=======================================================================
2958 !C
2959 !C *** ISORROPIA CODE
2960 !C *** SUBROUTINE CALCHAP
2961 !C *** CALCULATES CHLORIDES SPECIATION
2962 !C
2963 !C     HYDROCHLORIC ACID IN THE LIQUID PHASE IS ASSUMED A MINOR SPECIES,
2964 !C     THAT DOES NOT SIGNIFICANTLY PERTURB THE HSO4-SO4 EQUILIBRIUM.
2965 !C     THE HYDROCHLORIC ACID DISSOLVED IS CALCULATED FROM THE
2966 !C     HCL(G) -> HCL(AQ)   AND  HCL(AQ) ->  (H+) + (CL-)
2967 !C     EQUILIBRIA, USING (H+) FROM THE SULFATES.
2968 !C
2969 !C     THIS IS THE VERSION USED BY THE INVERSE PROBLEM SOVER
2970 !C
2971 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
2972 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
2973 !C *** WRITTEN BY ATHANASIOS NENES
2974 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
2975 !C
2976 !C=======================================================================
2977 !C
2978       SUBROUTINE CALCHAP2p1
2979       INCLUDE 'module_isrpia_inc.F'
2980 !C
2981 !C *** IS THERE A LIQUID PHASE? ******************************************
2982 !C
2983       IF (WATER.LE.TINY) RETURN
2984 !C
2985 !C *** CALCULATE HCL SPECIATION IN THE GAS PHASE *************************
2986 !C
2987       CALL CALCCLAQ2p1 (MOLAL(4), MOLAL(1), DELT)
2988       ALFA     = XK3*R*TEMP*(WATER/GAMA(11))**2.0
2989       GASAQ(3) = DELT
2990       MOLAL(1) = MOLAL(1) - DELT
2991       MOLAL(4) = MOLAL(4) - DELT
2992       GHCL     = MOLAL(1)*MOLAL(4)/ALFA
2993 !C
2994       RETURN
2995 !C
2996 !C *** END OF SUBROUTINE CALCHAP *****************************************
2997 !C
2998       END
2999
3000
3001 !C=======================================================================
3002 !C
3003 !C *** ISORROPIA CODE
3004 !C *** SUBROUTINE CALCNA
3005 !C *** CALCULATES NITRATES SPECIATION
3006 !C
3007 !C     NITRIC ACID IN THE LIQUID PHASE IS ASSUMED A MINOR SPECIES, THAT
3008 !C     DOES NOT SIGNIFICANTLY PERTURB THE HSO4-SO4 EQUILIBRIUM. THE NITRIC
3009 !C     ACID DISSOLVED IS CALCULATED FROM THE HNO3(G) -> (H+) + (NO3-)
3010 !C     EQUILIBRIUM, USING THE (H+) FROM THE SULFATES.
3011 !C
3012 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
3013 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
3014 !C *** WRITTEN BY ATHANASIOS NENES
3015 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
3016 !C
3017 !C=======================================================================
3018 !C
3019       SUBROUTINE CALCNA2p1
3020       INCLUDE 'module_isrpia_inc.F'
3021       DOUBLE PRECISION KAPA
3022 !CC      CHARACTER ERRINF*40
3023 !C
3024 !C *** CALCULATE HNO3 DISSOLUTION ****************************************
3025 !C
3026       X    = W(4)
3027       DELT = 0.0d0
3028       IF (WATER.GT.TINY) THEN
3029          KAPA = MOLAL(1)
3030          ALFA = XK4*R*TEMP*(WATER/GAMA(10))**2.0
3031          DIAK = SQRT( (KAPA+ALFA)**2.0 + 4.0*ALFA*X)
3032          DELT = 0.5*(-(KAPA+ALFA) + DIAK)
3033 !CC         IF (DELT/KAPA.GT.0.1d0) THEN
3034 !CC            WRITE (ERRINF,'(1PE10.3)') DELT/KAPA*100.0
3035 !CC            CALL PUSHERR (0019, ERRINF)    ! WARNING ERROR: NO SOLUTION
3036 !CC         ENDIF
3037       ENDIF
3038 !C
3039 !C *** CALCULATE HNO3 SPECIATION IN THE GAS PHASE ************************
3040 !C
3041       GHNO3    = MAX(X-DELT, 0.0d0)  ! GAS HNO3
3042 !C
3043 !C *** CALCULATE HNO3 SPECIATION IN THE LIQUID PHASE *********************
3044 !C
3045       MOLAL(7) = DELT                ! NO3-
3046       MOLAL(1) = MOLAL(1) + DELT     ! H+
3047 !C
3048       RETURN
3049 !C
3050 !C *** END OF SUBROUTINE CALCNA ******************************************
3051 !C
3052       END
3053
3054
3055
3056 !C=======================================================================
3057 !C
3058 !C *** ISORROPIA CODE
3059 !C *** SUBROUTINE CALCNAP
3060 !C *** CALCULATES NITRATES SPECIATION
3061 !C
3062 !C     NITRIC ACID IN THE LIQUID PHASE IS ASSUMED A MINOR SPECIES, THAT
3063 !C     DOES NOT SIGNIFICANTLY PERTURB THE HSO4-SO4 EQUILIBRIUM. THE NITRIC
3064 !C     ACID DISSOLVED IS CALCULATED FROM THE HNO3(G) -> HNO3(AQ) AND
3065 !C     HNO3(AQ) -> (H+) + (CL-) EQUILIBRIA, USING (H+) FROM THE SULFATES.
3066 !C
3067 !C     THIS IS THE VERSION USED BY THE INVERSE PROBLEM SOVER
3068 !C
3069 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
3070 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
3071 !C *** WRITTEN BY ATHANASIOS NENES
3072 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
3073 !C
3074 !C=======================================================================
3075 !C
3076       SUBROUTINE CALCNAP2p1
3077       INCLUDE 'module_isrpia_inc.F'
3078 !C
3079 !C *** IS THERE A LIQUID PHASE? ******************************************
3080 !C
3081       IF (WATER.LE.TINY) RETURN
3082 !C
3083 !C *** CALCULATE HNO3 SPECIATION IN THE GAS PHASE ************************
3084 !C
3085       CALL CALCNIAQ2p1 (MOLAL(7), MOLAL(1), DELT)
3086       ALFA     = XK4*R*TEMP*(WATER/GAMA(10))**2.0
3087       GASAQ(3) = DELT
3088       MOLAL(1) = MOLAL(1) - DELT
3089       MOLAL(7) = MOLAL(7) - DELT
3090       GHNO3    = MOLAL(1)*MOLAL(7)/ALFA
3091
3092       write (*,*) ALFA, MOLAL(1), MOLAL(7), GHNO3, DELT
3093 !C
3094       RETURN
3095 !C
3096 !C *** END OF SUBROUTINE CALCNAP *****************************************
3097 !C
3098       END
3099
3100 !C=======================================================================
3101 !C
3102 !C *** ISORROPIA CODE
3103 !C *** SUBROUTINE CALCNH3
3104 !C *** CALCULATES AMMONIA IN GAS PHASE
3105 !C
3106 !C     AMMONIA IN THE GAS PHASE IS ASSUMED A MINOR SPECIES, THAT
3107 !C     DOES NOT SIGNIFICANTLY PERTURB THE AEROSOL EQUILIBRIUM.
3108 !C     AMMONIA GAS IS CALCULATED FROM THE NH3(g) + (H+)(l) <==> (NH4+)(l)
3109 !C     EQUILIBRIUM, USING (H+), (NH4+) FROM THE AEROSOL SOLUTION.
3110 !C
3111 !C     THIS IS THE VERSION USED BY THE DIRECT PROBLEM
3112 !C
3113 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
3114 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
3115 !C *** WRITTEN BY ATHANASIOS NENES
3116 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
3117 !C
3118 !C=======================================================================
3119 !C
3120       SUBROUTINE CALCNH32p1
3121       INCLUDE 'module_isrpia_inc.F'
3122 !C
3123 !C *** IS THERE A LIQUID PHASE? ******************************************
3124 !C
3125       IF (WATER.LE.TINY) RETURN
3126 !C
3127 !C *** CALCULATE NH3 SUBLIMATION *****************************************
3128 !C
3129       A1   = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0
3130       CHI1 = MOLAL(3)
3131       CHI2 = MOLAL(1)
3132 !C
3133       BB   =(CHI2 + ONE/A1)          ! a=1; b!=1; c!=1
3134       CC   =-CHI1/A1
3135       DIAK = SQRT(BB*BB - 4.D0*CC)   ! Always > 0
3136       PSI  = 0.5*(-BB + DIAK)        ! One positive root
3137       PSI  = MAX(TINY, MIN(PSI,CHI1))! Constrict in acceptible range
3138 !C
3139 !C *** CALCULATE NH3 SPECIATION IN THE GAS PHASE *************************
3140 !C
3141       GNH3     = PSI                 ! GAS HNO3
3142 !C
3143 !C *** CALCULATE NH3 AFFECT IN THE LIQUID PHASE **************************
3144 !C
3145       MOLAL(3) = CHI1 - PSI          ! NH4+
3146       MOLAL(1) = CHI2 + PSI          ! H+
3147 !C
3148       RETURN
3149 !C
3150 !C *** END OF SUBROUTINE CALCNH3 *****************************************
3151 !C
3152       END
3153
3154
3155
3156 !C=======================================================================
3157 !C
3158 !C *** ISORROPIA CODE
3159 !C *** SUBROUTINE CALCNH3P
3160 !C *** CALCULATES AMMONIA IN GAS PHASE
3161 !C
3162 !C     AMMONIA GAS IS CALCULATED FROM THE NH3(g) + (H+)(l) <==> (NH4+)(l)
3163 !C     EQUILIBRIUM, USING (H+), (NH4+) FROM THE AEROSOL SOLUTION.
3164 !C
3165 !C     THIS IS THE VERSION USED BY THE INVERSE PROBLEM SOLVER
3166 !C
3167 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
3168 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
3169 !C *** WRITTEN BY ATHANASIOS NENES
3170 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
3171 !C
3172 !C=======================================================================
3173 !C
3174       SUBROUTINE CALCNH3P2p1
3175       INCLUDE 'module_isrpia_inc.F'
3176 !C
3177 !C *** IS THERE A LIQUID PHASE? ******************************************
3178 !C
3179       IF (WATER.LE.TINY) RETURN
3180 !C
3181 !C *** CALCULATE NH3 GAS PHASE CONCENTRATION *****************************
3182 !C
3183       A1   = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0
3184       GNH3 = MOLAL(3)/MOLAL(1)/A1
3185 !C
3186       RETURN
3187 !C
3188 !C *** END OF SUBROUTINE CALCNH3P ****************************************
3189 !C
3190       END
3191
3192
3193 !C=======================================================================
3194 !C
3195 !C *** ISORROPIA CODE
3196 !C *** SUBROUTINE CALCNHA
3197 !C
3198 !C     THIS SUBROUTINE CALCULATES THE DISSOLUTION OF HCL, HNO3 AT
3199 !C     THE PRESENCE OF (H,SO4). HCL, HNO3 ARE CONSIDERED MINOR SPECIES,
3200 !C     THAT DO NOT SIGNIFICANTLY AFFECT THE EQUILIBRIUM POINT.
3201 !C
3202 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
3203 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
3204 !C *** WRITTEN BY ATHANASIOS NENES
3205 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
3206 !C
3207 !C=======================================================================
3208 !C
3209       SUBROUTINE CALCNHA2p1
3210       INCLUDE 'module_isrpia_inc.F'
3211       DOUBLE PRECISION M1, M2, M3
3212       CHARACTER ERRINF*40
3213 !C
3214 !C *** SPECIAL CASE; WATER=ZERO ******************************************
3215 !C
3216       IF (WATER.LE.TINY) THEN
3217          GOTO 55
3218 !C
3219 !C *** SPECIAL CASE; HCL=HNO3=ZERO ***************************************
3220 !C
3221       ELSEIF (W(5).LE.TINY .AND. W(4).LE.TINY) THEN
3222          GOTO 60
3223 !C
3224 !C *** SPECIAL CASE; HCL=ZERO ********************************************
3225 !C
3226       ELSE IF (W(5).LE.TINY) THEN
3227          CALL CALCNA2p1              ! CALL HNO3 DISSOLUTION ROUTINE
3228          GOTO 60
3229 !C
3230 !C *** SPECIAL CASE; HNO3=ZERO *******************************************
3231 !C
3232       ELSE IF (W(4).LE.TINY) THEN
3233          CALL CALCHA2p1              ! CALL HCL DISSOLUTION ROUTINE
3234          GOTO 60
3235       ENDIF
3236 !C
3237 !C *** CALCULATE EQUILIBRIUM CONSTANTS ***********************************
3238 !C
3239       A3 = XK4*R*TEMP*(WATER/GAMA(10))**2.0   ! HNO3
3240       A4 = XK3*R*TEMP*(WATER/GAMA(11))**2.0   ! HCL
3241 !C
3242 !C *** CALCULATE CUBIC EQUATION COEFFICIENTS *****************************
3243 !C
3244       DELCL = ZERO
3245       DELNO = ZERO
3246 !C
3247       OMEGA = MOLAL(1)       ! H+
3248       CHI3  = W(4)           ! HNO3
3249       CHI4  = W(5)           ! HCL
3250 !C
3251       C1    = A3*CHI3
3252       C2    = A4*CHI4
3253       C3    = A3 - A4
3254 !C
3255       M1    = (C1 + C2 + (OMEGA+A4)*C3)/C3
3256       M2    = ((OMEGA+A4)*C2 - A4*C3*CHI4)/C3
3257       M3    =-A4*C2*CHI4/C3
3258 !C
3259 !C *** CALCULATE ROOTS ***************************************************
3260 !C
3261       CALL POLY32p1 (M1, M2, M3, DELCL, ISLV) ! HCL DISSOLUTION
3262       IF (ISLV.NE.0) THEN
3263          DELCL = TINY       ! TINY AMOUNTS OF HCL ASSUMED WHEN NO ROOT
3264          WRITE (ERRINF,'(1PE7.1)') TINY
3265          CALL PUSHERR2p1 (0022, ERRINF)    ! WARNING ERROR: NO SOLUTION
3266       ENDIF
3267       DELCL = MIN(DELCL, CHI4)
3268 !C
3269       DELNO = C1*DELCL/(C2 + C3*DELCL)
3270       DELNO = MIN(DELNO, CHI3)
3271 !C
3272       IF (DELCL.LT.ZERO .OR. DELNO.LT.ZERO .OR. &
3273         DELCL.GT.CHI4 .OR. DELNO.GT.CHI3       ) THEN
3274          DELCL = TINY  ! TINY AMOUNTS OF HCL ASSUMED WHEN NO ROOT
3275          DELNO = TINY
3276          WRITE (ERRINF,'(1PE7.1)') TINY
3277          CALL PUSHERR2p1 (0022, ERRINF)    ! WARNING ERROR: NO SOLUTION
3278       ENDIF
3279 !CCC
3280 !CCC *** COMPARE DELTA TO TOTAL H+ ; ESTIMATE EFFECT TO HSO4 ***************
3281 !CCC
3282 !CC      IF ((DELCL+DELNO)/MOLAL(1).GT.0.1d0) THEN
3283 !CC         WRITE (ERRINF,'(1PE10.3)') (DELCL+DELNO)/MOLAL(1)*100.0
3284 !CC         CALL PUSHERR (0021, ERRINF)
3285 !CC      ENDIF
3286 !C
3287 !C *** EFFECT ON LIQUID PHASE ********************************************
3288 !C
3289 50    MOLAL(1) = MOLAL(1) + (DELNO+DELCL)  ! H+   CHANGE
3290       MOLAL(4) = MOLAL(4) + DELCL          ! CL-  CHANGE
3291       MOLAL(7) = MOLAL(7) + DELNO          ! NO3- CHANGE
3292 !C
3293 !C *** EFFECT ON GAS PHASE ***********************************************
3294 !C
3295 55    GHCL     = MAX(W(5) - MOLAL(4), TINY)
3296       GHNO3    = MAX(W(4) - MOLAL(7), TINY)
3297 !C
3298 60    RETURN
3299 !C
3300 !C *** END OF SUBROUTINE CALCNHA *****************************************
3301 !C
3302       END
3303
3304
3305
3306 !C=======================================================================
3307 !C
3308 !C *** ISORROPIA CODE
3309 !C *** SUBROUTINE CALCNHP
3310 !C
3311 !C     THIS SUBROUTINE CALCULATES THE GAS PHASE NITRIC AND HYDROCHLORIC
3312 !C     ACID. CONCENTRATIONS ARE CALCULATED FROM THE DISSOLUTION
3313 !C     EQUILIBRIA, USING (H+), (Cl-), (NO3-) IN THE AEROSOL PHASE.
3314 !C
3315 !C     THIS IS THE VERSION USED BY THE INVERSE PROBLEM SOLVER
3316 !C
3317 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
3318 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
3319 !C *** WRITTEN BY ATHANASIOS NENES
3320 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
3321 !C
3322 !C=======================================================================
3323 !C
3324       SUBROUTINE CALCNHP2p1
3325       INCLUDE 'module_isrpia_inc.F'
3326 !C
3327 !C *** IS THERE A LIQUID PHASE? ******************************************
3328 !C
3329       IF (WATER.LE.TINY) RETURN
3330 !C
3331 !C *** CALCULATE EQUILIBRIUM CONSTANTS ***********************************
3332 !C
3333       A3       = XK3*R*TEMP*(WATER/GAMA(11))**2.0
3334       A4       = XK4*R*TEMP*(WATER/GAMA(10))**2.0
3335       MOLAL(1) = MOLAL(1) + WAER(4) + WAER(5)  ! H+ increases because NO3, Cl are added.
3336 !C
3337 !C *** CALCULATE CONCENTRATIONS ******************************************
3338 !C *** ASSUME THAT 'DELT' FROM HNO3 >> 'DELT' FROM HCL
3339 !C
3340       CALL CALCNIAQ2p1 (WAER(4), MOLAL(1)+MOLAL(7)+MOLAL(4), DELT)
3341       MOLAL(1) = MOLAL(1) - DELT
3342       MOLAL(7) = WAER(4)  - DELT  ! NO3- = Waer(4) minus any turned into (HNO3aq)
3343       GASAQ(3) = DELT
3344 !C
3345       CALL CALCCLAQ2p1 (WAER(5), MOLAL(1)+MOLAL(7)+MOLAL(4), DELT)
3346       MOLAL(1) = MOLAL(1) - DELT
3347       MOLAL(4) = WAER(5)  - DELT  ! Cl- = Waer(4) minus any turned into (HNO3aq)
3348       GASAQ(2) = DELT
3349 !C
3350       GHNO3    = MOLAL(1)*MOLAL(7)/A4
3351       GHCL     = MOLAL(1)*MOLAL(4)/A3
3352 !C
3353       RETURN
3354 !C
3355 !C *** END OF SUBROUTINE CALCNHP *****************************************
3356 !C
3357       END
3358
3359 !C=======================================================================
3360 !C
3361 !C *** ISORROPIA CODE II
3362 !C *** SUBROUTINE CALCHCO3
3363 !C *** CORRECTS FOR H+ WHEN CRUSTALS ARE IN EXCESS
3364 !C
3365 !C     CARBONATES ARE IN EXCESS, HCO3- IS ASSUMED A MINOR SPECIES,
3366 !C     THE H+ CONCENTRATION IS CALCULATED FROM THE
3367 !C     CO2(aq) + H2O <-> (HCO3-) + (H+)
3368 !C     HCO3- <-> (H+) + (CO3--) EQUILIBRIUM.
3369 !C     THE CO3-- CONCENTRATION IS ASSUMED NEGLIGIBLE WITH RESPECT TO HCO3-
3370 !C
3371 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
3372 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
3373 !C *** WRITTEN BY CHRISTOS FOUNTOUKIS AND ATHANASIOS NENES
3374 !C
3375 !C=======================================================================
3376 !C
3377 !C      SUBROUTINE CALCHCO3
3378 !C      INCLUDE 'module_isrpia_inc.F'
3379 !C      DOUBLE PRECISION KAPA
3380 !CCC      CHARACTER ERRINF*40
3381 !CC
3382 !CC *** SPECIAL CASE; WATER=ZERO ******************************************
3383 !CC
3384 !C      IF (WATER.LE.TINY) THEN
3385 !C         GOTO 521
3386 !C      ENDIF
3387 !CC
3388 !CC *** CALCULATE CO2 DISSOLUTION *****************************************
3389 !CC
3390 !C      REST = 2.D0*W(2) + W(4) + W(5)
3391 !CC
3392 !C      DELT = 0.0d0
3393 !CC      DELT2 = 0.0d0
3394 !C      IF (W(1)+W(6)+W(7)+W(8).GT.REST) THEN
3395 !C      KAPA = MOLAL(1)
3396 !CC
3397 !CC *** CALCULATE EQUILIBRIUM CONSTANTS ***********************************
3398 !CC
3399 !C      ALFA = XK26*RH*(WATER/1.0)                 ! CO2(aq) + H2O
3400 !CC      ALFA2 = XK27*(WATER/1.0)                    ! HCO3-
3401 !CC
3402 !CC *** CALCULATE CUBIC EQUATION COEFFICIENTS *****************************
3403 !CC
3404 !C      X  = W(1)+W(6)+W(7)+W(8) - REST          ! EXCESS OF CRUSTALS EQUALS HCO3-
3405 !CC
3406 !C      BB =-(KAPA + X + ALFA)
3407 !C      CC = KAPA*X
3408 !C      DD = BB*BB - 4.D0*CC
3409 !CC
3410 !C      IF (DD.GE.ZERO) THEN
3411 !C         SQDD  = SQRT(DD)
3412 !C         DELT  = 0.5*(-BB - SQDD)
3413 !C      ELSE
3414 !C         DELT  = ZERO
3415 !C      ENDIF
3416 !C
3417 !C      ENDIF
3418 !CC
3419 !CC *** CALCULATE H+ *****************************************************
3420 !CC
3421 !C      MOLAL(1) = KAPA - DELT             ! H+
3422 !CC
3423 !C521   RETURN
3424 !CC
3425 !CC *** END OF SUBROUTINE CALCHCO3 ***************************************
3426 !CC
3427 !C      END
3428 !CC
3429 !C=======================================================================
3430 !C
3431 !C *** ISORROPIA CODE
3432 !C *** SUBROUTINE CALCAMAQ
3433 !C *** THIS SUBROUTINE CALCULATES THE NH3(aq) GENERATED FROM (H,NH4+).
3434 !C
3435 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
3436 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
3437 !C *** WRITTEN BY ATHANASIOS NENES
3438 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
3439 !C
3440 !C=======================================================================
3441 !C
3442       SUBROUTINE CALCAMAQ2p1 (NH4I, OHI, DELT)
3443       INCLUDE 'module_isrpia_inc.F'
3444       DOUBLE PRECISION NH4I
3445 !CC      CHARACTER ERRINF*40
3446 !C
3447 !C *** EQUILIBRIUM CONSTANTS
3448 !C
3449       A22  = XK22/XKW/WATER*(GAMA(8)/GAMA(9))**2. ! GAMA(NH3) ASSUMED 1
3450       AKW  = XKW *RH*WATER*WATER
3451 !C
3452 !C *** FIND ROOT
3453 !C
3454       OM1  = NH4I
3455       OM2  = OHI
3456       BB   =-(OM1+OM2+A22*AKW)
3457       CC   = OM1*OM2
3458       DD   = SQRT(BB*BB-4.D0*CC)
3459
3460       DEL1 = 0.5D0*(-BB - DD)
3461       DEL2 = 0.5D0*(-BB + DD)
3462 !C
3463 !C *** GET APPROPRIATE ROOT.
3464 !C
3465       IF (DEL1.LT.ZERO) THEN
3466          IF (DEL2.GT.NH4I .OR. DEL2.GT.OHI) THEN
3467             DELT = ZERO
3468          ELSE
3469             DELT = DEL2
3470          ENDIF
3471       ELSE
3472          DELT = DEL1
3473       ENDIF
3474 !CC
3475 !CC *** COMPARE DELTA TO TOTAL NH4+ ; ESTIMATE EFFECT *********************
3476 !CC
3477 !CC      IF (DELTA/HYD.GT.0.1d0) THEN
3478 !CC         WRITE (ERRINF,'(1PE10.3)') DELTA/HYD*100.0
3479 !CC         CALL PUSHERR (0020, ERRINF)
3480 !CC      ENDIF
3481 !C
3482       RETURN
3483 !C
3484 !C *** END OF SUBROUTINE CALCAMAQ ****************************************
3485 !C
3486       END
3487
3488
3489
3490 !C=======================================================================
3491 !C
3492 !C *** ISORROPIA CODE
3493 !C *** SUBROUTINE CALCAMAQ2
3494 !C
3495 !C     THIS SUBROUTINE CALCULATES THE NH3(aq) GENERATED FROM (H,NH4+).
3496 !C
3497 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
3498 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
3499 !C *** WRITTEN BY ATHANASIOS NENES
3500 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
3501 !C
3502 !C=======================================================================
3503 !C
3504       SUBROUTINE CALCAMAQ22p1 (GGNH3, NH4I, OHI, NH3AQ)
3505       INCLUDE 'module_isrpia_inc.F'
3506       DOUBLE PRECISION NH4I, NH3AQ
3507 !C
3508 !C *** EQUILIBRIUM CONSTANTS
3509 !C
3510       A22  = XK22/XKW/WATER*(GAMA(8)/GAMA(9))**2. ! GAMA(NH3) ASSUMED 1
3511       AKW  = XKW *RH*WATER*WATER
3512 !C
3513 !C *** FIND ROOT
3514 !C
3515       ALF1 = NH4I - GGNH3
3516       ALF2 = GGNH3
3517       BB   = ALF1 + A22*AKW
3518       CC   =-A22*AKW*ALF2
3519       DEL  = 0.5D0*(-BB + SQRT(BB*BB-4.D0*CC))
3520 !C
3521 !C *** ADJUST CONCENTRATIONS
3522 !C
3523       NH4I  = ALF1 + DEL
3524       OHI   = DEL
3525       IF (OHI.LE.TINY) OHI = SQRT(AKW)   ! If solution is neutral.
3526       NH3AQ = ALF2 - DEL
3527 !C
3528       RETURN
3529 !C
3530 !C *** END OF SUBROUTINE CALCAMAQ2 ****************************************
3531 !C
3532       END
3533
3534
3535
3536 !C=======================================================================
3537 !C
3538 !C *** ISORROPIA CODE
3539 !C *** SUBROUTINE CALCCLAQ
3540 !C
3541 !C     THIS SUBROUTINE CALCULATES THE HCL(aq) GENERATED FROM (H+,CL-).
3542 !C
3543 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
3544 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
3545 !C *** WRITTEN BY ATHANASIOS NENES
3546 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
3547 !C
3548 !C=======================================================================
3549 !C
3550       SUBROUTINE CALCCLAQ2p1 (CLI, HI, DELT)
3551       INCLUDE 'module_isrpia_inc.F'
3552       DOUBLE PRECISION CLI
3553 !C
3554 !C *** EQUILIBRIUM CONSTANTS
3555 !C
3556       A32  = XK32*WATER/(GAMA(11))**2. ! GAMA(HCL) ASSUMED 1
3557 !C
3558 !C *** FIND ROOT
3559 !C
3560       OM1  = CLI
3561       OM2  = HI
3562       BB   =-(OM1+OM2+A32)
3563       CC   = OM1*OM2
3564       DD   = SQRT(BB*BB-4.D0*CC)
3565
3566       DEL1 = 0.5D0*(-BB - DD)
3567       DEL2 = 0.5D0*(-BB + DD)
3568 !C
3569 !C *** GET APPROPRIATE ROOT.
3570 !C
3571       IF (DEL1.LT.ZERO) THEN
3572          IF (DEL2.LT.ZERO .OR. DEL2.GT.CLI .OR. DEL2.GT.HI) THEN
3573             DELT = ZERO
3574          ELSE
3575             DELT = DEL2
3576          ENDIF
3577       ELSE
3578          DELT = DEL1
3579       ENDIF
3580 !C
3581       RETURN
3582 !C
3583 !C *** END OF SUBROUTINE CALCCLAQ ****************************************
3584 !C
3585       END
3586
3587
3588
3589 !C=======================================================================
3590 !C
3591 !C *** ISORROPIA CODE
3592 !C *** SUBROUTINE CALCCLAQ2
3593 !C
3594 !C     THIS SUBROUTINE CALCULATES THE HCL(aq) GENERATED FROM (H+,CL-).
3595 !C
3596 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
3597 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
3598 !C *** WRITTEN BY ATHANASIOS NENES
3599 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
3600 !C
3601 !C=======================================================================
3602 !C
3603       SUBROUTINE CALCCLAQ22p1 (GGCL, CLI, HI, CLAQ)
3604       INCLUDE 'module_isrpia_inc.F'
3605       DOUBLE PRECISION CLI
3606 !C
3607 !C *** EQUILIBRIUM CONSTANTS
3608 !C
3609       A32  = XK32*WATER/(GAMA(11))**2. ! GAMA(HCL) ASSUMED 1
3610       AKW  = XKW *RH*WATER*WATER
3611 !C
3612 !C *** FIND ROOT
3613 !C
3614       ALF1  = CLI - GGCL
3615       ALF2  = GGCL
3616       COEF  = (ALF1+A32)
3617       DEL1  = 0.5*(-COEF + SQRT(COEF*COEF+4.D0*A32*ALF2))
3618 !C
3619 !C *** CORRECT CONCENTRATIONS
3620 !C
3621       CLI  = ALF1 + DEL1
3622       HI   = DEL1
3623       IF (HI.LE.TINY) HI = SQRT(AKW)   ! If solution is neutral.
3624       CLAQ = ALF2 - DEL1
3625 !C
3626       RETURN
3627 !C
3628 !C *** END OF SUBROUTINE CALCCLAQ2 ****************************************
3629 !C
3630       END
3631
3632
3633
3634 !C=======================================================================
3635 !C
3636 !C *** ISORROPIA CODE
3637 !C *** SUBROUTINE CALCNIAQ
3638 !C
3639 !C     THIS SUBROUTINE CALCULATES THE HNO3(aq) GENERATED FROM (H,NO3-).
3640 !C
3641 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
3642 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
3643 !C *** WRITTEN BY ATHANASIOS NENES
3644 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
3645 !C
3646 !C=======================================================================
3647 !C
3648       SUBROUTINE CALCNIAQ2p1 (NO3I, HI, DELT)
3649       INCLUDE 'module_isrpia_inc.F'
3650       DOUBLE PRECISION NO3I, HI, DELT
3651 !C
3652 !C *** EQUILIBRIUM CONSTANTS
3653 !C
3654       A42  = XK42*WATER/(GAMA(10))**2. ! GAMA(HNO3) ASSUMED 1
3655 !C
3656 !C *** FIND ROOT
3657 !C
3658       OM1  = NO3I
3659       OM2  = HI
3660       BB   =-(OM1+OM2+A42)
3661       CC   = OM1*OM2
3662       DD   = SQRT(BB*BB-4.D0*CC)
3663
3664       DEL1 = 0.5D0*(-BB - DD)
3665       DEL2 = 0.5D0*(-BB + DD)
3666 !C
3667 !C *** GET APPROPRIATE ROOT.
3668 !C
3669       IF (DEL1.LT.ZERO .OR. DEL1.GT.HI .OR. DEL1.GT.NO3I) THEN
3670 !         print *, DELT
3671          DELT = ZERO
3672       ELSE
3673          DELT = DEL1
3674          RETURN
3675       ENDIF
3676 !C
3677       IF (DEL2.LT.ZERO .OR. DEL2.GT.NO3I .OR. DEL2.GT.HI) THEN
3678          DELT = ZERO
3679       ELSE
3680          DELT = DEL2
3681       ENDIF
3682 !C
3683       RETURN
3684 !C
3685 !C *** END OF SUBROUTINE CALCNIAQ ****************************************
3686 !C
3687       END
3688
3689
3690
3691 !C=======================================================================
3692 !C
3693 !C *** ISORROPIA CODE
3694 !C *** SUBROUTINE CALCNIAQ2
3695 !C
3696 !C     THIS SUBROUTINE CALCULATES THE UNDISSOCIATED HNO3(aq)
3697 !C
3698 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
3699 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
3700 !C *** WRITTEN BY ATHANASIOS NENES
3701 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
3702 !C
3703 !C=======================================================================
3704 !C
3705       SUBROUTINE CALCNIAQ22p1 (GGNO3, NO3I, HI, NO3AQ)
3706       INCLUDE 'module_isrpia_inc.F'
3707       DOUBLE PRECISION NO3I, NO3AQ
3708 !C
3709 !C *** EQUILIBRIUM CONSTANTS
3710 !C
3711       A42  = XK42*WATER/(GAMA(10))**2. ! GAMA(HNO3) ASSUMED 1
3712       AKW  = XKW *RH*WATER*WATER
3713 !C
3714 !C *** FIND ROOT
3715 !C
3716       ALF1  = NO3I - GGNO3
3717       ALF2  = GGNO3
3718       ALF3  = HI
3719 !C
3720       BB    = ALF3 + ALF1 + A42
3721       CC    = ALF3*ALF1 - A42*ALF2
3722       DEL1  = 0.5*(-BB + SQRT(BB*BB-4.D0*CC))
3723 !C
3724 !C *** CORRECT CONCENTRATIONS
3725 !C
3726       NO3I  = ALF1 + DEL1
3727       HI    = ALF3 + DEL1
3728       IF (HI.LE.TINY) HI = SQRT(AKW)   ! If solution is neutral.
3729       NO3AQ = ALF2 - DEL1
3730 !C
3731       RETURN
3732 !C
3733 !C *** END OF SUBROUTINE CALCNIAQ2 ****************************************
3734 !C
3735       END
3736
3737 !C=======================================================================
3738 !C
3739 !C *** ISORROPIA CODE
3740 !C *** SUBROUTINE CALCMR
3741 !C *** THIS SUBROUTINE CALCULATES:
3742 !C     1. ION PAIR CONCENTRATIONS (FROM [MOLAR] ARRAY)
3743 !C     2. WATER CONTENT OF LIQUID AEROSOL PHASE (FROM ZSR CORRELATION)
3744 !C
3745 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
3746 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
3747 !C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES
3748 !C
3749 !C=======================================================================
3750 !C
3751       SUBROUTINE CALCMR2p1
3752       INCLUDE 'module_isrpia_inc.F'
3753       COMMON /SOLUT2p1/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8,&
3754                     CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15,&
3755                     CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6,&
3756                     PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13,&
3757                     PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6,&
3758                     A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17
3759 !C
3760       CHARACTER SC*1
3761 !C
3762 !C *** CALCULATE ION PAIR CONCENTRATIONS ACCORDING TO SPECIFIC CASE ****
3763 !C
3764       SC =SCASE(1:1)                   ! SULRAT & SODRAT case
3765 !C
3766 !C *** NH4-SO4 SYSTEM ; SULFATE POOR CASE
3767 !C
3768       IF (SC.EQ.'A') THEN
3769          MOLALR(4) = MOLAL(5)+MOLAL(6) ! (NH4)2SO4 - CORRECT FOR SO4 TO HSO4
3770 !C
3771 !C *** NH4-SO4 SYSTEM ; SULFATE RICH CASE ; NO FREE ACID
3772 !C
3773       ELSE IF (SC.EQ.'B') THEN
3774          SO4I  = MOLAL(5)-MOLAL(1)     ! CORRECT FOR HSO4 DISSOCIATION
3775          HSO4I = MOLAL(6)+MOLAL(1)
3776          IF (SO4I.LT.HSO4I) THEN
3777             MOLALR(13) = SO4I                   ! [LC] = [SO4]
3778             MOLALR(9)  = MAX(HSO4I-SO4I, ZERO)  ! NH4HSO4
3779          ELSE
3780             MOLALR(13) = HSO4I                  ! [LC] = [HSO4]
3781             MOLALR(4)  = MAX(SO4I-HSO4I, ZERO)  ! (NH4)2SO4
3782          ENDIF
3783 !C
3784 !C *** NH4-SO4 SYSTEM ; SULFATE RICH CASE ; FREE ACID
3785 !C
3786       ELSE IF (SC.EQ.'C') THEN
3787          MOLALR(4) = MOLAL(3)                     ! NH4HSO4
3788          MOLALR(7) = MAX(W(2)-W(3), ZERO)         ! H2SO4
3789 !C
3790 !C *** NH4-SO4-NO3 SYSTEM ; SULFATE POOR CASE
3791 !C
3792       ELSE IF (SC.EQ.'D') THEN
3793          MOLALR(4) = MOLAL(5) + MOLAL(6)          ! (NH4)2SO4
3794          AML5      = MOLAL(3)-2.D0*MOLALR(4)      ! "free" NH4
3795          MOLALR(5) = MAX(MIN(AML5,MOLAL(7)), ZERO)! NH4NO3 = MIN("free", NO3)
3796 !C
3797 !C *** NH4-SO4-NO3 SYSTEM ; SULFATE RICH CASE ; NO FREE ACID
3798 !C
3799       ELSE IF (SC.EQ.'E') THEN
3800          SO4I  = MAX(MOLAL(5)-MOLAL(1),ZERO)      ! FROM HSO4 DISSOCIATION
3801          HSO4I = MOLAL(6)+MOLAL(1)
3802          IF (SO4I.LT.HSO4I) THEN
3803             MOLALR(13) = SO4I                     ! [LC] = [SO4]
3804             MOLALR(9)  = MAX(HSO4I-SO4I, ZERO)    ! NH4HSO4
3805          ELSE
3806             MOLALR(13) = HSO4I                    ! [LC] = [HSO4]
3807             MOLALR(4)  = MAX(SO4I-HSO4I, ZERO)    ! (NH4)2SO4
3808          ENDIF
3809 !C
3810 !C *** NH4-SO4-NO3 SYSTEM ; SULFATE RICH CASE ; FREE ACID
3811 !C
3812       ELSE IF (SC.EQ.'F') THEN
3813          MOLALR(4) = MOLAL(3)                              ! NH4HSO4
3814          MOLALR(7) = MAX(MOLAL(5)+MOLAL(6)-MOLAL(3),ZERO)  ! H2SO4
3815 !C
3816 !C *** NA-NH4-SO4-NO3-CL SYSTEM ; SULFATE POOR ; SODIUM POOR CASE
3817 !C
3818       ELSE IF (SC.EQ.'G') THEN
3819          MOLALR(2) = 0.5D0*MOLAL(2)                        ! NA2SO4
3820          TOTS4     = MOLAL(5)+MOLAL(6)                     ! Total SO4
3821          MOLALR(4) = MAX(TOTS4 - MOLALR(2), ZERO)          ! (NH4)2SO4
3822          FRNH4     = MAX(MOLAL(3) - 2.D0*MOLALR(4), ZERO)
3823          MOLALR(5) = MIN(MOLAL(7),FRNH4)                   ! NH4NO3
3824          FRNH4     = MAX(FRNH4 - MOLALR(5), ZERO)
3825          MOLALR(6) = MIN(MOLAL(4), FRNH4)                  ! NH4CL
3826 !C
3827 !C *** NA-NH4-SO4-NO3-CL SYSTEM ; SULFATE POOR ; SODIUM RICH CASE
3828 !C *** RETREIVE DISSOLVED SALTS DIRECTLY FROM COMMON BLOCK /SOLUT/
3829 !C
3830       ELSE IF (SC.EQ.'H') THEN
3831          MOLALR(1) = PSI7                                  ! NACL
3832          MOLALR(2) = PSI1                                  ! NA2SO4
3833          MOLALR(3) = PSI8                                  ! NANO3
3834          MOLALR(4) = ZERO                                  ! (NH4)2SO4
3835          FRNO3     = MAX(MOLAL(7) - MOLALR(3), ZERO)       ! "FREE" NO3
3836          FRCL      = MAX(MOLAL(4) - MOLALR(1), ZERO)       ! "FREE" CL
3837          MOLALR(5) = MIN(MOLAL(3),FRNO3)                   ! NH4NO3
3838          FRNH4     = MAX(MOLAL(3) - MOLALR(5), ZERO)       ! "FREE" NH3
3839          MOLALR(6) = MIN(FRCL, FRNH4)                      ! NH4CL
3840 !C
3841 !C *** NA-NH4-SO4-NO3-CL SYSTEM ; SULFATE RICH CASE ; NO FREE ACID
3842 !C *** RETREIVE DISSOLVED SALTS DIRECTLY FROM COMMON BLOCK /SOLUT/
3843 !C
3844       ELSE IF (SC.EQ.'I') THEN
3845          MOLALR(04) = PSI5                                 ! (NH4)2SO4
3846          MOLALR(02) = PSI4                                 ! NA2SO4
3847          MOLALR(09) = PSI1                                 ! NH4HSO4
3848          MOLALR(12) = PSI3                                 ! NAHSO4
3849          MOLALR(13) = PSI2                                 ! LC
3850 !C
3851 !C *** NA-NH4-SO4-NO3-CL SYSTEM ; SULFATE RICH CASE ; FREE ACID
3852 !C
3853       ELSE IF (SC.EQ.'J') THEN
3854          MOLALR(09) = MOLAL(3)                             ! NH4HSO4
3855          MOLALR(12) = MOLAL(2)                             ! NAHSO4
3856          MOLALR(07) = MOLAL(5)+MOLAL(6)-MOLAL(3)-MOLAL(2)  ! H2SO4
3857          MOLALR(07) = MAX(MOLALR(07),ZERO)
3858 !C
3859 !C *** NA-NH4-SO4-NO3-CL-CA-K-MG SYSTEM ; SULFATE POOR ; CR+NA POOR CASE
3860 !C
3861       ELSE IF (SC.EQ.'O') THEN
3862          MOLALR(2) = 0.5D0*MOLAL(2)                        ! NA2SO4
3863          TOTS4     = MOLAL(5)+MOLAL(6)                     ! Total SO4
3864          MOLALR(17)= 0.5*MOLAL(9)                          ! K2SO4
3865          MOLALR(21)= MOLAL(10)                             ! MGSO4
3866          MOLALR(4) = MAX(TOTS4 - MOLALR(2) - MOLALR(17) &
3867                       - MOLALR(21), ZERO)                 ! (NH4)2SO4
3868          FRNH4     = MAX(MOLAL(3) - 2.D0*MOLALR(4), ZERO)
3869          MOLALR(5) = MIN(MOLAL(7),FRNH4)                   ! NH4NO3
3870          FRNH4     = MAX(FRNH4 - MOLALR(5), ZERO)
3871          MOLALR(6) = MIN(MOLAL(4), FRNH4)                  ! NH4CL
3872 !C
3873 !C *** NA-NH4-SO4-NO3-CL-CA-K-MG SYSTEM ; SULFATE POOR ; CR+NA RICH; CR POOR CASE
3874 !C *** RETREIVE DISSOLVED SALTS DIRECTLY FROM COMMON BLOCK /SOLUT/
3875 !C
3876       ELSE IF (SC.EQ.'M') THEN
3877          MOLALR(1) = PSI7                                  ! NACL
3878          MOLALR(2) = PSI1                                  ! NA2SO4
3879          MOLALR(3) = PSI8                                  ! NANO3
3880          MOLALR(4) = ZERO                                  ! (NH4)2SO4
3881          FRNO3     = MAX(MOLAL(7) - MOLALR(3), ZERO)       ! "FREE" NO3
3882          FRCL      = MAX(MOLAL(4) - MOLALR(1), ZERO)       ! "FREE" CL
3883          MOLALR(5) = MIN(MOLAL(3),FRNO3)                   ! NH4NO3
3884          FRNH4     = MAX(MOLAL(3) - MOLALR(5), ZERO)       ! "FREE" NH3
3885          MOLALR(6) = MIN(FRCL, FRNH4)                      ! NH4CL
3886          MOLALR(17)= PSI9                                  ! K2SO4
3887          MOLALR(21)= PSI10                                 ! MGSO4
3888 !C
3889 !C *** NA-NH4-SO4-NO3-CL-CA-K-MG SYSTEM ; SULFATE POOR ; CR+NA RICH; CR RICH CASE
3890 !C *** RETREIVE DISSOLVED SALTS DIRECTLY FROM COMMON BLOCK /SOLUT/
3891 !C
3892       ELSE IF (SC.EQ.'P') THEN
3893          MOLALR(1) = PSI7                                    ! NACL
3894          MOLALR(3) = PSI8                                    ! NANO3
3895          MOLALR(15)= PSI12                                   ! CANO32
3896          MOLALR(16)= PSI17                                   ! CACL2
3897          MOLALR(19)= PSI13                                   ! KNO3
3898          MOLALR(20)= PSI14                                   ! KCL
3899          MOLALR(22)= PSI15                                   ! MGNO32
3900          MOLALR(23)= PSI16                                   ! MGCL2
3901          FRNO3     = MAX(MOLAL(7)-MOLALR(3)-2.D0*MOLALR(15) &
3902                     -MOLALR(19)-2.D0*MOLALR(22), ZERO)      ! "FREE" NO3
3903          FRCL      = MAX(MOLAL(4)-MOLALR(1)-2.D0*MOLALR(16) &
3904                     -MOLALR(20)-2.D0*MOLALR(23), ZERO)      ! "FREE" CL
3905          MOLALR(5) = MIN(MOLAL(3),FRNO3)                     ! NH4NO3
3906          FRNH4     = MAX(MOLAL(3) - MOLALR(5), ZERO)         ! "FREE" NH3
3907          MOLALR(6) = MIN(FRCL, FRNH4)                        ! NH4CL
3908          MOLALR(17)= PSI9                                    ! K2SO4
3909          MOLALR(21)= PSI10                                   ! MGSO4
3910 !C
3911 !C *** NA-NH4-SO4-NO3-CL-CA-K-MG SYSTEM ; SULFATE RICH CASE ; NO FREE ACID
3912 !C
3913       ELSE IF (SC.EQ.'L') THEN
3914          MOLALR(04) = PSI5                                 ! (NH4)2SO4
3915          MOLALR(02) = PSI4                                 ! NA2SO4
3916          MOLALR(09) = PSI1                                 ! NH4HSO4
3917          MOLALR(12) = PSI3                                 ! NAHSO4
3918          MOLALR(13) = PSI2                                 ! LC
3919          MOLALR(17) = PSI6                                 ! K2SO4
3920          MOLALR(21) = PSI7                                 ! MGSO4
3921          MOLALR(18) = PSI8                                 ! KHSO4
3922 !C
3923 !C *** NA-NH4-SO4-NO3-CL-CA-K-MG SYSTEM ; SULFATE SUPER RICH CASE ; FREE ACID
3924 !C
3925       ELSE IF (SC.EQ.'K') THEN
3926          MOLALR(09) = MOLAL(3)                             ! NH4HSO4
3927          MOLALR(12) = MOLAL(2)                             ! NAHSO4
3928          MOLALR(14) = MOLAL(8)                             ! CASO4
3929          MOLALR(18) = MOLAL(9)                             ! KHSO4
3930          MOLALR(21) = MOLAL(10)                            ! MGSO4
3931          MOLALR(07) = MOLAL(5)+MOLAL(6)-MOLAL(3) &
3932                      -MOLAL(2)-MOLAL(8)-MOLAL(9)-MOLAL(10) ! H2SO4
3933          MOLALR(07) = MAX(MOLALR(07),ZERO)
3934 !C
3935 !C ======= REVERSE PROBLEMS ===========================================
3936 !C
3937 !C *** NH4-SO4-NO3 SYSTEM ; SULFATE POOR CASE
3938 !C
3939       ELSE IF (SC.EQ.'N') THEN
3940          MOLALR(4) = MOLAL(5) + MOLAL(6)          ! (NH4)2SO4
3941          AML5      = WAER(3)-2.D0*MOLALR(4)       ! "free" NH4
3942          MOLALR(5) = MAX(MIN(AML5,WAER(4)), ZERO) ! NH4NO3 = MIN("free", NO3)
3943 !C
3944 !C *** NH4-SO4-NO3-NA-CL SYSTEM ; SULFATE POOR, SODIUM POOR CASE
3945 !C
3946       ELSE IF (SC.EQ.'Q') THEN
3947          MOLALR(2) = PSI1                                  ! NA2SO4
3948          MOLALR(4) = PSI6                                  ! (NH4)2SO4
3949          MOLALR(5) = PSI5                                  ! NH4NO3
3950          MOLALR(6) = PSI4                                  ! NH4CL
3951 !C
3952 !C *** NH4-SO4-NO3-NA-CL SYSTEM ; SULFATE POOR, SODIUM RICH CASE
3953 !C
3954       ELSE IF (SC.EQ.'R') THEN
3955          MOLALR(1) = PSI3                                  ! NACL
3956          MOLALR(2) = PSI1                                  ! NA2SO4
3957          MOLALR(3) = PSI2                                  ! NANO3
3958          MOLALR(4) = ZERO                                  ! (NH4)2SO4
3959          MOLALR(5) = PSI5                                  ! NH4NO3
3960          MOLALR(6) = PSI4                                  ! NH4CL
3961 !C
3962 !C *** NH4-SO4-NO3-NA-CL-CA-K-MG SYSTEM ; SULFATE POOR, CRUSTAL&SODIUM POOR CASE
3963 !C
3964       ELSE IF (SC.EQ.'V') THEN
3965          MOLALR(2) = PSI1                                  ! NA2SO4
3966          MOLALR(4) = PSI6                                  ! (NH4)2SO4
3967          MOLALR(5) = PSI5                                  ! NH4NO3
3968          MOLALR(6) = PSI4                                  ! NH4CL
3969          MOLALR(17)= PSI7                                  ! K2SO4
3970          MOLALR(21)= PSI8                                  ! MGSO4
3971 !C
3972 !C *** NH4-SO4-NO3-NA-CL-CA-K-MG SYSTEM ; SULFATE POOR, CRUSTAL&SODIUM RICH, CRUSTAL POOR CASE
3973 !C
3974       ELSE IF (SC.EQ.'U') THEN
3975          MOLALR(1) = PSI3                                  ! NACL
3976          MOLALR(2) = PSI1                                  ! NA2SO4
3977          MOLALR(3) = PSI2                                  ! NANO3
3978          MOLALR(5) = PSI5                                  ! NH4NO3
3979          MOLALR(6) = PSI4                                  ! NH4CL
3980          MOLALR(17)= PSI7                                  ! K2SO4
3981          MOLALR(21)= PSI8                                  ! MGSO4
3982 !C
3983 !C *** NH4-SO4-NO3-NA-CL-CA-K-MG SYSTEM ; SULFATE POOR, CRUSTAL&SODIUM RICH, CRUSTAL RICH CASE
3984 !C
3985       ELSE IF (SC.EQ.'W') THEN
3986          MOLALR(1) = PSI7                                  ! NACL
3987          MOLALR(3) = PSI8                                  ! NANO3
3988          MOLALR(5) = PSI6                                  ! NH4NO3
3989          MOLALR(6) = PSI5                                  ! NH4CL
3990          MOLALR(15)= PSI12                                 ! CANO32
3991          MOLALR(16)= PSI17                                 ! CACL2
3992          MOLALR(17)= PSI9                                  ! K2SO4
3993          MOLALR(19)= PSI13                                 ! KNO3
3994          MOLALR(20)= PSI14                                 ! KCL
3995          MOLALR(21)= PSI10                                 ! MGSO4
3996          MOLALR(22)= PSI15                                 ! MGNO32
3997          MOLALR(23)= PSI16                                 ! MGCL2
3998 !C
3999 !C *** UNKNOWN CASE
4000 !C
4001 !C      ELSE
4002 !C         CALL PUSHERR (1001, ' ') ! FATAL ERROR: CASE NOT SUPPORTED
4003       ENDIF
4004 !C
4005 !C *** CALCULATE WATER CONTENT ; ZSR CORRELATION ***********************
4006 !C
4007       WATER = ZERO
4008       DO 10 I=1,NPAIR
4009          WATER = WATER + MOLALR(I)/M0(I)
4010 10    CONTINUE
4011       WATER = MAX(WATER, TINY)
4012 !C
4013       RETURN
4014 !C
4015 !C *** END OF SUBROUTINE CALCMR ******************************************
4016 !C
4017       END
4018 !C
4019 !C=======================================================================
4020 !C
4021 !C *** ISORROPIA CODE
4022 !C *** SUBROUTINE CALCMDRH
4023 !C
4024 !C     THIS IS THE CASE WHERE THE RELATIVE HUMIDITY IS IN THE MUTUAL
4025 !C     DRH REGION. THE SOLUTION IS ASSUMED TO BE THE SUM OF TWO WEIGHTED
4026 !C     SOLUTIONS ; THE 'DRY' SOLUTION (SUBROUTINE DRYCASE) AND THE
4027 !C     'SATURATED LIQUID' SOLUTION (SUBROUTINE LIQCASE).
4028 !C
4029 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
4030 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
4031 !C *** WRITTEN BY ATHANASIOS NENES
4032 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
4033 !C
4034 !C=======================================================================
4035 !C
4036       SUBROUTINE CALCMDRH2p1 (RHI, RHDRY, RHLIQ, DRYCASE2p1, LIQCASE2p1)
4037       INCLUDE 'module_isrpia_inc.F'
4038       EXTERNAL DRYCASE2p1, LIQCASE2p1
4039 !C
4040 !C *** FIND WEIGHT FACTOR **********************************************
4041 !C
4042       IF (WFTYP.EQ.0) THEN
4043          WF = ONE
4044       ELSEIF (WFTYP.EQ.1) THEN
4045          WF = 0.5D0
4046       ELSE
4047          WF = (RHLIQ-RHI)/(RHLIQ-RHDRY)
4048       ENDIF
4049       ONEMWF  = ONE - WF
4050 !C
4051 !C *** FIND FIRST SECTION ; DRY ONE ************************************
4052 !C
4053       CALL DRYCASE2p1
4054       IF (ABS(ONEMWF).LE.1D-5) GOTO 200  ! DRY AEROSOL
4055 !C
4056       CNH42SO = CNH42S4                  ! FIRST (DRY) SOLUTION
4057       CNH4HSO = CNH4HS4
4058       CLCO    = CLC
4059       CNH4N3O = CNH4NO3
4060       CNH4CLO = CNH4CL
4061       CNA2SO  = CNA2SO4
4062       CNAHSO  = CNAHSO4
4063       CNANO   = CNANO3
4064       CNACLO  = CNACL
4065       GNH3O   = GNH3
4066       GHNO3O  = GHNO3
4067       GHCLO   = GHCL
4068 !C
4069 !C *** FIND SECOND SECTION ; DRY & LIQUID ******************************
4070 !C
4071       CNH42S4 = ZERO
4072       CNH4HS4 = ZERO
4073       CLC     = ZERO
4074       CNH4NO3 = ZERO
4075       CNH4CL  = ZERO
4076       CNA2SO4 = ZERO
4077       CNAHSO4 = ZERO
4078       CNANO3  = ZERO
4079       CNACL   = ZERO
4080       GNH3    = ZERO
4081       GHNO3   = ZERO
4082       GHCL    = ZERO
4083       CALL LIQCASE2p1                   ! SECOND (LIQUID) SOLUTION
4084 !C
4085 !C *** ADJUST THINGS FOR THE CASE THAT THE LIQUID SUB PREDICTS DRY AEROSOL
4086 !C
4087       IF (WATER.LE.TINY) THEN
4088          DO 100 I=1,NIONS
4089             MOLAL(I)= ZERO           ! Aqueous phase
4090   100    CONTINUE
4091          WATER   = ZERO
4092 !C
4093          CNH42S4 = CNH42SO           ! Solid phase
4094          CNA2SO4 = CNA2SO
4095          CNAHSO4 = CNAHSO
4096          CNH4HS4 = CNH4HSO
4097          CLC     = CLCO
4098          CNH4NO3 = CNH4N3O
4099          CNANO3  = CNANO
4100          CNACL   = CNACLO
4101          CNH4CL  = CNH4CLO
4102 !C
4103          GNH3    = GNH3O             ! Gas phase
4104          GHNO3   = GHNO3O
4105          GHCL    = GHCLO
4106 !C
4107          GOTO 200
4108       ENDIF
4109 !C
4110 !C *** FIND SALT DISSOLUTIONS BETWEEN DRY & LIQUID SOLUTIONS.
4111 !C
4112       DAMSUL  = CNH42SO - CNH42S4
4113       DSOSUL  = CNA2SO  - CNA2SO4
4114       DAMBIS  = CNH4HSO - CNH4HS4
4115       DSOBIS  = CNAHSO  - CNAHSO4
4116       DLC     = CLCO    - CLC
4117       DAMNIT  = CNH4N3O - CNH4NO3
4118       DAMCHL  = CNH4CLO - CNH4CL
4119       DSONIT  = CNANO   - CNANO3
4120       DSOCHL  = CNACLO  - CNACL
4121 !C
4122 !C *** FIND GAS DISSOLUTIONS BETWEEN DRY & LIQUID SOLUTIONS.
4123 !C
4124       DAMG    = GNH3O   - GNH3
4125       DHAG    = GHCLO   - GHCL
4126       DNAG    = GHNO3O  - GHNO3
4127 !C
4128 !C *** FIND SOLUTION AT MDRH BY WEIGHTING DRY & LIQUID SOLUTIONS.
4129 !C
4130 !C     LIQUID
4131 !C
4132       MOLAL(1)= ONEMWF*MOLAL(1)                                 ! H+
4133       MOLAL(2)= ONEMWF*(2.D0*DSOSUL + DSOBIS + DSONIT + DSOCHL) ! NA+
4134       MOLAL(3)= ONEMWF*(2.D0*DAMSUL + DAMG   + DAMBIS + DAMCHL + &
4135                        3.D0*DLC    + DAMNIT )                  ! NH4+
4136       MOLAL(4)= ONEMWF*(     DAMCHL + DSOCHL + DHAG)            ! CL-
4137       MOLAL(5)= ONEMWF*(     DAMSUL + DSOSUL + DLC - MOLAL(6))  ! SO4-- !VB 17 Sept 2001
4138       MOLAL(6)= ONEMWF*(   MOLAL(6) + DSOBIS + DAMBIS + DLC)    ! HSO4-
4139       MOLAL(7)= ONEMWF*(     DAMNIT + DSONIT + DNAG)            ! NO3-
4140       WATER   = ONEMWF*WATER
4141 !C
4142 !C     SOLID
4143 !C
4144       CNH42S4 = WF*CNH42SO + ONEMWF*CNH42S4
4145       CNA2SO4 = WF*CNA2SO  + ONEMWF*CNA2SO4
4146       CNAHSO4 = WF*CNAHSO  + ONEMWF*CNAHSO4
4147       CNH4HS4 = WF*CNH4HSO + ONEMWF*CNH4HS4
4148       CLC     = WF*CLCO    + ONEMWF*CLC
4149       CNH4NO3 = WF*CNH4N3O + ONEMWF*CNH4NO3
4150       CNANO3  = WF*CNANO   + ONEMWF*CNANO3
4151       CNACL   = WF*CNACLO  + ONEMWF*CNACL
4152       CNH4CL  = WF*CNH4CLO + ONEMWF*CNH4CL
4153 !C
4154 !C     GAS
4155 !C
4156       GNH3    = WF*GNH3O   + ONEMWF*GNH3
4157       GHNO3   = WF*GHNO3O  + ONEMWF*GHNO3
4158       GHCL    = WF*GHCLO   + ONEMWF*GHCL
4159 !C
4160 !C *** RETURN POINT
4161 !C
4162 200   RETURN
4163 !C
4164 !C *** END OF SUBROUTINE CALCMDRH ****************************************
4165 !C
4166       END
4167
4168 !C=======================================================================
4169 !C
4170 !C *** ISORROPIA CODE II
4171 !C *** SUBROUTINE CALCMDRH2
4172 !C
4173 !C     THIS IS THE CASE WHERE THE RELATIVE HUMIDITY IS IN THE MUTUAL
4174 !C     DRH REGION. THE SOLUTION IS ASSUMED TO BE THE SUM OF TWO WEIGHTED
4175 !C     SOLUTIONS ; THE 'DRY' SOLUTION (SUBROUTINE DRYCASE) AND THE
4176 !C     'SATURATED LIQUID' SOLUTION (SUBROUTINE LIQCASE).
4177 !C
4178 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
4179 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
4180 !C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES
4181 !C
4182 !C=======================================================================
4183 !C
4184       SUBROUTINE CALCMDRH22p1 (RHI, RHDRY, RHLIQ, DRYCASE2p1, LIQCASE2p1)
4185       INCLUDE 'module_isrpia_inc.F'
4186       EXTERNAL DRYCASE2p1, LIQCASE2p1
4187 !C
4188 !C *** FIND WEIGHT FACTOR **********************************************
4189 !C
4190       IF (WFTYP.EQ.0) THEN
4191          WF = ONE
4192       ELSEIF (WFTYP.EQ.1) THEN
4193          WF = 0.5D0
4194       ELSE
4195          WF = (RHLIQ-RHI)/(RHLIQ-RHDRY)
4196       ENDIF
4197       ONEMWF  = ONE - WF
4198 !C
4199 !C *** FIND FIRST SECTION ; DRY ONE ************************************
4200 !C
4201       CALL DRYCASE2p1
4202       IF (ABS(ONEMWF).LE.1D-5) GOTO 200  ! DRY AEROSOL
4203 !C
4204       CNH42SO = CNH42S4                  ! FIRST (DRY) SOLUTION
4205       CNH4HSO = CNH4HS4
4206       CLCO    = CLC
4207       CNH4N3O = CNH4NO3
4208       CNH4CLO = CNH4CL
4209       CNA2SO  = CNA2SO4
4210       CNAHSO  = CNAHSO4
4211       CNANO   = CNANO3
4212       CNACLO  = CNACL
4213       GNH3O   = GNH3
4214       GHNO3O  = GHNO3
4215       GHCLO   = GHCL
4216 !C
4217       CCASO   = CCASO4
4218       CK2SO   = CK2SO4
4219       CMGSO   = CMGSO4
4220       CKHSO   = CKHSO4
4221       CCAN32O = CCANO32
4222       CCAC2L  = CCACL2
4223       CKN3O   = CKNO3
4224       CKCLO   = CKCL
4225       CMGN32O = CMGNO32
4226       CMGC2L  = CMGCL2
4227 !C
4228 !C *** FIND SECOND SECTION ; DRY & LIQUID ******************************
4229 !C
4230       CNH42S4 = ZERO
4231       CNH4HS4 = ZERO
4232       CLC     = ZERO
4233       CNH4NO3 = ZERO
4234       CNH4CL  = ZERO
4235       CNA2SO4 = ZERO
4236       CNAHSO4 = ZERO
4237       CNANO3  = ZERO
4238       CNACL   = ZERO
4239       GNH3    = ZERO
4240       GHNO3   = ZERO
4241       GHCL    = ZERO
4242 !C
4243       CCASO4  = ZERO
4244       CK2SO4  = ZERO
4245       CMGSO4  = ZERO
4246       CKHSO4  = ZERO
4247       CCANO32 = ZERO
4248       CCACL2  = ZERO
4249       CKNO3   = ZERO
4250       CKCL    = ZERO
4251       CMGNO32 = ZERO
4252       CMGCL2  = ZERO
4253 !C
4254       CALL LIQCASE2p1                   ! SECOND (LIQUID) SOLUTION
4255 !C
4256 !C *** ADJUST THINGS FOR THE CASE THAT THE LIQUID SUB PREDICTS DRY AEROSOL
4257 !C
4258       IF (WATER.LE.TINY) THEN
4259          DO 100 I=1,NIONS
4260             MOLAL(I)= ZERO           ! Aqueous phase
4261   100    CONTINUE
4262          WATER   = ZERO
4263 !C
4264          CNH42S4 = CNH42SO           ! Solid phase
4265          CNA2SO4 = CNA2SO
4266          CNAHSO4 = CNAHSO
4267          CNH4HS4 = CNH4HSO
4268          CLC     = CLCO
4269          CNH4NO3 = CNH4N3O
4270          CNANO3  = CNANO
4271          CNACL   = CNACLO
4272          CNH4CL  = CNH4CLO
4273 !C
4274          GNH3    = GNH3O             ! Gas phase
4275          GHNO3   = GHNO3O
4276          GHCL    = GHCLO
4277 !C
4278          CCASO4  = CCASO
4279          CK2SO4  = CK2SO
4280          CMGSO4  = CMGSO
4281          CKHSO4  = CKHSO
4282          CCANO32 = CCAN32O
4283          CCACL2  = CCAC2L
4284          CKNO3   = CKN3O
4285          CKCL    = CKCLO
4286          CMGNO32 = CMGN32O
4287          CMGCL2  = CMGC2L
4288 !C
4289          GOTO 200
4290       ENDIF
4291 !C
4292 !C *** FIND SALT DISSOLUTIONS BETWEEN DRY & LIQUID SOLUTIONS.
4293 !C
4294       DAMSUL  = CNH42SO - CNH42S4
4295       DSOSUL  = CNA2SO  - CNA2SO4
4296       DAMBIS  = CNH4HSO - CNH4HS4
4297       DSOBIS  = CNAHSO  - CNAHSO4
4298       DLC     = CLCO    - CLC
4299       DAMNIT  = CNH4N3O - CNH4NO3
4300       DAMCHL  = CNH4CLO - CNH4CL
4301       DSONIT  = CNANO   - CNANO3
4302       DSOCHL  = CNACLO  - CNACL
4303 !C
4304       DCASUL  = CCASO - CCASO4
4305       DPOSUL  = CK2SO - CK2SO4
4306       DMGSUL  = CMGSO - CMGSO4
4307       DPOBIS  = CKHSO - CKHSO4
4308       DCANIT  = CCAN32O - CCANO32
4309       DCACHL  = CCAC2L - CCACL2
4310       DPONIT  = CKN3O - CKNO3
4311       DPOCHL  = CKCLO - CKCL
4312       DMGNIT  = CMGN32O - CMGNO32
4313       DMGCHL  = CMGC2L - CMGCL2
4314 !C
4315 !C *** FIND GAS DISSOLUTIONS BETWEEN DRY & LIQUID SOLUTIONS.
4316 !C
4317       DAMG    = GNH3O   - GNH3
4318       DHAG    = GHCLO   - GHCL
4319       DNAG    = GHNO3O  - GHNO3
4320 !C
4321 !C *** FIND SOLUTION AT MDRH BY WEIGHTING DRY & LIQUID SOLUTIONS.
4322 !C
4323 !C     LIQUID
4324 !C
4325       MOLAL(1) = ONEMWF*MOLAL(1)                                     ! H+
4326       MOLAL(2) = ONEMWF*(2.D0*DSOSUL + DSOBIS + DSONIT + DSOCHL)     ! NA+
4327       MOLAL(3) = ONEMWF*(2.D0*DAMSUL + DAMG   + DAMBIS + DAMCHL + &
4328                         3.D0*DLC    + DAMNIT )                      ! NH4+
4329       MOLAL(4) = ONEMWF*(DAMCHL + DSOCHL + DHAG + 2.D0*DCACHL + &
4330                         2.D0*DMGCHL + DPOCHL)                        ! CL-
4331       MOLAL(5) = ONEMWF*(DAMSUL + DSOSUL + DLC - MOLAL(6) &
4332                         +DCASUL + DPOSUL + DMGSUL)                  ! SO4-- !VB 17 Sept 2001
4333       MOLAL(6) = ONEMWF*(MOLAL(6) + DSOBIS + DAMBIS + DLC + DPOBIS)  ! HSO4-
4334       MOLAL(7) = ONEMWF*(DAMNIT + DSONIT + DNAG + 2.D0*DCANIT &
4335                         + 2.D0*DMGNIT + DPONIT)                     ! NO3-
4336       MOLAL(8) = ONEMWF*(DCASUL + DCANIT + DCACHL)                   ! CA2+
4337       MOLAL(9) = ONEMWF*(2.D0*DPOSUL + DPONIT + DPOCHL + DPOBIS)     ! K+
4338       MOLAL(10)= ONEMWF*(DMGSUL + DMGNIT + DMGCHL)                   ! MG2+
4339       WATER    = ONEMWF*WATER
4340 !C
4341 !C     SOLID
4342 !C
4343       CNH42S4 = WF*CNH42SO + ONEMWF*CNH42S4
4344       CNA2SO4 = WF*CNA2SO  + ONEMWF*CNA2SO4
4345       CNAHSO4 = WF*CNAHSO  + ONEMWF*CNAHSO4
4346       CNH4HS4 = WF*CNH4HSO + ONEMWF*CNH4HS4
4347       CLC     = WF*CLCO    + ONEMWF*CLC
4348       CNH4NO3 = WF*CNH4N3O + ONEMWF*CNH4NO3
4349       CNANO3  = WF*CNANO   + ONEMWF*CNANO3
4350       CNACL   = WF*CNACLO  + ONEMWF*CNACL
4351       CNH4CL  = WF*CNH4CLO + ONEMWF*CNH4CL
4352 !C
4353       CCASO4  = WF*CCASO   + ONEMWF*CCASO4
4354       CK2SO4  = WF*CK2SO   + ONEMWF*CK2SO4
4355       CMGSO4  = WF*CMGSO   + ONEMWF*CMGSO4
4356       CKHSO4  = WF*CKHSO   + ONEMWF*CKHSO4
4357       CCANO32 = WF*CCAN32O + ONEMWF*CCANO32
4358       CCACL2  = WF*CCAC2L  + ONEMWF*CCACL2
4359       CMGNO32 = WF*CMGN32O + ONEMWF*CMGNO32
4360       CMGCL2  = WF*CMGC2L  + ONEMWF*CMGCL2
4361       CKCL    = WF*CKCLO   + ONEMWF*CKCL
4362 !C
4363 !C     GAS
4364 !C
4365       GNH3    = WF*GNH3O   + ONEMWF*GNH3
4366       GHNO3   = WF*GHNO3O  + ONEMWF*GHNO3
4367       GHCL    = WF*GHCLO   + ONEMWF*GHCL
4368 !C
4369 !C *** RETURN POINT
4370 !C
4371 200   RETURN
4372 !C
4373 !C *** END OF SUBROUTINE CALCMDRH2 ****************************************
4374 !C
4375       END
4376 !C
4377
4378 !C=======================================================================
4379 !C
4380 !C *** ISORROPIA CODE
4381 !C *** SUBROUTINE CALCMDRP
4382 !C
4383 !C     THIS IS THE CASE WHERE THE RELATIVE HUMIDITY IS IN THE MUTUAL
4384 !C     DRH REGION. THE SOLUTION IS ASSUMED TO BE THE SUM OF TWO WEIGHTED
4385 !C     SOLUTIONS ; THE 'DRY' SOLUTION (SUBROUTINE DRYCASE) AND THE
4386 !C     'SATURATED LIQUID' SOLUTION (SUBROUTINE LIQCASE).   (REVERSE PROBLEM)
4387 !C
4388 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
4389 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
4390 !C *** WRITTEN BY ATHANASIOS NENES
4391 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
4392 !C
4393 !C=======================================================================
4394 !C
4395       SUBROUTINE CALCMDRP2p1 (RHI, RHDRY, RHLIQ, DRYCASE2p1, LIQCASE2p1)
4396       INCLUDE 'module_isrpia_inc.F'
4397       EXTERNAL DRYCASE2p1, LIQCASE2p1
4398 !C
4399 !C *** FIND WEIGHT FACTOR **********************************************
4400 !C
4401       IF (WFTYP.EQ.0) THEN
4402          WF = ONE
4403       ELSEIF (WFTYP.EQ.1) THEN
4404          WF = 0.5D0
4405       ELSE
4406          WF = (RHLIQ-RHI)/(RHLIQ-RHDRY)
4407       ENDIF
4408       ONEMWF  = ONE - WF
4409 !C
4410 !C *** FIND FIRST SECTION ; DRY ONE ************************************
4411 !C
4412       CALL DRYCASE2p1
4413       IF (ABS(ONEMWF).LE.1D-5) GOTO 200  ! DRY AEROSOL
4414 !C
4415       CNH42SO = CNH42S4              ! FIRST (DRY) SOLUTION
4416       CNH4HSO = CNH4HS4
4417       CLCO    = CLC
4418       CNH4N3O = CNH4NO3
4419       CNH4CLO = CNH4CL
4420       CNA2SO  = CNA2SO4
4421       CNAHSO  = CNAHSO4
4422       CNANO   = CNANO3
4423       CNACLO  = CNACL
4424 !C
4425 !C *** FIND SECOND SECTION ; DRY & LIQUID ******************************
4426 !C
4427       CNH42S4 = ZERO
4428       CNH4HS4 = ZERO
4429       CLC     = ZERO
4430       CNH4NO3 = ZERO
4431       CNH4CL  = ZERO
4432       CNA2SO4 = ZERO
4433       CNAHSO4 = ZERO
4434       CNANO3  = ZERO
4435       CNACL   = ZERO
4436       GNH3    = ZERO
4437       GHNO3   = ZERO
4438       GHCL    = ZERO
4439       CALL LIQCASE2p1                   ! SECOND (LIQUID) SOLUTION
4440 !C
4441 !C *** ADJUST THINGS FOR THE CASE THAT THE LIQUID SUB PREDICTS DRY AEROSOL
4442 !C
4443       IF (WATER.LE.TINY) THEN
4444          WATER = ZERO
4445          DO 100 I=1,NIONS
4446             MOLAL(I)= ZERO
4447  100     CONTINUE
4448          CALL DRYCASE2p1
4449          GOTO 200
4450       ENDIF
4451 !C
4452 !C *** FIND SALT DISSOLUTIONS BETWEEN DRY & LIQUID SOLUTIONS.
4453 !C
4454       DAMBIS  = CNH4HSO - CNH4HS4
4455       DSOBIS  = CNAHSO  - CNAHSO4
4456       DLC     = CLCO    - CLC
4457 !C
4458 !C *** FIND SOLUTION AT MDRH BY WEIGHTING DRY & LIQUID SOLUTIONS.
4459 !C
4460 !C *** SOLID
4461 !C
4462       CNH42S4 = WF*CNH42SO + ONEMWF*CNH42S4
4463       CNA2SO4 = WF*CNA2SO  + ONEMWF*CNA2SO4
4464       CNAHSO4 = WF*CNAHSO  + ONEMWF*CNAHSO4
4465       CNH4HS4 = WF*CNH4HSO + ONEMWF*CNH4HS4
4466       CLC     = WF*CLCO    + ONEMWF*CLC
4467       CNH4NO3 = WF*CNH4N3O + ONEMWF*CNH4NO3
4468       CNANO3  = WF*CNANO   + ONEMWF*CNANO3
4469       CNACL   = WF*CNACLO  + ONEMWF*CNACL
4470       CNH4CL  = WF*CNH4CLO + ONEMWF*CNH4CL
4471 !C
4472 !C *** LIQUID
4473 !C
4474       WATER   = ONEMWF*WATER
4475 !C
4476       MOLAL(2)= WAER(1) - 2.D0*CNA2SO4 - CNAHSO4 - CNANO3 -     &
4477                               CNACL                            ! NA+
4478       MOLAL(3)= WAER(3) - 2.D0*CNH42S4 - CNH4HS4 - CNH4CL - &
4479                          3.D0*CLC     - CNH4NO3                ! NH4+
4480       MOLAL(4)= WAER(5) - CNACL - CNH4CL                        ! CL-
4481       MOLAL(7)= WAER(4) - CNANO3 - CNH4NO3                      ! NO3-
4482       MOLAL(6)= ONEMWF*(MOLAL(6) + DSOBIS + DAMBIS + DLC)       ! HSO4-
4483       MOLAL(5)= WAER(2) - MOLAL(6) - CLC - CNH42S4 - CNA2SO4    ! SO4--
4484 !C
4485       A8      = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2.
4486       IF (MOLAL(5).LE.TINY) THEN
4487          HIEQ = SQRT(XKW *RH*WATER*WATER)  ! Neutral solution
4488       ELSE
4489          HIEQ = A8*MOLAL(6)/MOLAL(5)
4490       ENDIF
4491       HIEN    = MOLAL(4) + MOLAL(7) + MOLAL(6) + 2.D0*MOLAL(5) - &
4492                MOLAL(2) - MOLAL(3)
4493       MOLAL(1)= MAX (HIEQ, HIEN)                                ! H+
4494 !C
4495 !C *** GAS (ACTIVITY COEFS FROM LIQUID SOLUTION)
4496 !C
4497       A2      = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3  <==> NH4+
4498       A3      = XK4 *R*TEMP*(WATER/GAMA(10))**2.        ! HNO3 <==> NO3-
4499       A4      = XK3 *R*TEMP*(WATER/GAMA(11))**2.        ! HCL  <==> CL-
4500 !C
4501       GNH3    = MOLAL(3)/MAX(MOLAL(1),TINY)/A2
4502       GHNO3   = MOLAL(1)*MOLAL(7)/A3
4503       GHCL    = MOLAL(1)*MOLAL(4)/A4
4504 !C
4505 200   RETURN
4506 !C
4507 !C *** END OF SUBROUTINE CALCMDRP ****************************************
4508 !C
4509       END
4510 !C
4511 !C=======================================================================
4512 !C
4513 !C *** ISORROPIA CODE
4514 !C *** SUBROUTINE CALCMDRPII
4515 !C
4516 !C     THIS IS THE CASE WHERE THE RELATIVE HUMIDITY IS IN THE MUTUAL
4517 !C     DRH REGION. THE SOLUTION IS ASSUMED TO BE THE SUM OF TWO WEIGHTED
4518 !C     SOLUTIONS ; THE 'DRY' SOLUTION (SUBROUTINE DRYCASE) AND THE
4519 !C     'SATURATED LIQUID' SOLUTION (SUBROUTINE LIQCASE).   (REVERSE PROBLEM)
4520 !C
4521 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
4522 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
4523 !C *** WRITTEN BY ATHANASIOS NENES
4524 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
4525 !C
4526 !C=======================================================================
4527 !C
4528       SUBROUTINE CALCMDRPII2p1 (RHI, RHDRY, RHLIQ, DRYCASE2p1, LIQCASE2p1)
4529       INCLUDE 'module_isrpia_inc.F'
4530       EXTERNAL DRYCASE2p1, LIQCASE2p1
4531 !C
4532 !C *** FIND WEIGHT FACTOR **********************************************
4533 !C
4534       IF (WFTYP.EQ.0) THEN
4535          WF = ONE
4536       ELSEIF (WFTYP.EQ.1) THEN
4537          WF = 0.5D0
4538       ELSE
4539          WF = (RHLIQ-RHI)/(RHLIQ-RHDRY)
4540       ENDIF
4541       ONEMWF  = ONE - WF
4542 !C
4543 !C *** FIND FIRST SECTION ; DRY ONE ************************************
4544 !C
4545       CALL DRYCASE2p1
4546       IF (ABS(ONEMWF).LE.1D-5) GOTO 200  ! DRY AEROSOL
4547 !C
4548       CNH42SO = CNH42S4              ! FIRST (DRY) SOLUTION
4549       CNH4HSO = CNH4HS4
4550       CLCO    = CLC
4551       CNH4N3O = CNH4NO3
4552       CNH4CLO = CNH4CL
4553       CNA2SO  = CNA2SO4
4554       CNAHSO  = CNAHSO4
4555       CNANO   = CNANO3
4556       CNACLO  = CNACL
4557 !C
4558       CCASO   = CCASO4
4559       CK2SO   = CK2SO4
4560       CMGSO   = CMGSO4
4561       CKHSO   = CKHSO4
4562       CCAN32O = CCANO32
4563       CCAC2L  = CCACL2
4564       CKN3O   = CKNO3
4565       CKCLO   = CKCL
4566       CMGN32O = CMGNO32
4567       CMGC2L  = CMGCL2
4568 !C
4569 !C *** FIND SECOND SECTION ; DRY & LIQUID ******************************
4570 !C
4571       CNH42S4 = ZERO
4572       CNH4HS4 = ZERO
4573       CLC     = ZERO
4574       CNH4NO3 = ZERO
4575       CNH4CL  = ZERO
4576       CNA2SO4 = ZERO
4577       CNAHSO4 = ZERO
4578       CNANO3  = ZERO
4579       CNACL   = ZERO
4580       GNH3    = ZERO
4581       GHNO3   = ZERO
4582       GHCL    = ZERO
4583 !C
4584       CCASO4  = ZERO
4585       CK2SO4  = ZERO
4586       CMGSO4  = ZERO
4587       CKHSO4  = ZERO
4588       CCANO32 = ZERO
4589       CCACL2  = ZERO
4590       CKNO3   = ZERO
4591       CKCL    = ZERO
4592       CMGNO32 = ZERO
4593       CMGCL2  = ZERO
4594 !C
4595       CALL LIQCASE2p1                   ! SECOND (LIQUID) SOLUTION
4596 !C
4597 !C *** ADJUST THINGS FOR THE CASE THAT THE LIQUID SUB PREDICTS DRY AEROSOL
4598 !C
4599       IF (WATER.LE.TINY) THEN
4600          WATER = ZERO
4601          DO 100 I=1,NIONS
4602             MOLAL(I)= ZERO
4603  100     CONTINUE
4604          CALL DRYCASE2p1
4605          GOTO 200
4606       ENDIF
4607 !C
4608 !C *** FIND SALT DISSOLUTIONS BETWEEN DRY & LIQUID SOLUTIONS.
4609 !C
4610       DAMBIS  = CNH4HSO - CNH4HS4
4611       DSOBIS  = CNAHSO  - CNAHSO4
4612       DLC     = CLCO    - CLC
4613       DPOBIS  = CKHSO   - CKHSO4
4614 !C
4615 !C *** FIND SOLUTION AT MDRH BY WEIGHTING DRY & LIQUID SOLUTIONS.
4616 !C
4617 !C *** SOLID
4618 !C
4619       CNH42S4 = WF*CNH42SO + ONEMWF*CNH42S4
4620       CNA2SO4 = WF*CNA2SO  + ONEMWF*CNA2SO4
4621       CNAHSO4 = WF*CNAHSO  + ONEMWF*CNAHSO4
4622       CNH4HS4 = WF*CNH4HSO + ONEMWF*CNH4HS4
4623       CLC     = WF*CLCO    + ONEMWF*CLC
4624       CNH4NO3 = WF*CNH4N3O + ONEMWF*CNH4NO3
4625       CNANO3  = WF*CNANO   + ONEMWF*CNANO3
4626       CNACL   = WF*CNACLO  + ONEMWF*CNACL
4627       CNH4CL  = WF*CNH4CLO + ONEMWF*CNH4CL
4628 !C
4629       CCASO4  = WF*CCASO   + ONEMWF*CCASO4
4630       CK2SO4  = WF*CK2SO   + ONEMWF*CK2SO4
4631       CMGSO4  = WF*CMGSO   + ONEMWF*CMGSO4
4632       CKHSO4  = WF*CKHSO   + ONEMWF*CKHSO4
4633       CCANO32 = WF*CCAN32O + ONEMWF*CCANO32
4634       CCACL2  = WF*CCAC2L  + ONEMWF*CCACL2
4635       CMGNO32 = WF*CMGN32O + ONEMWF*CMGNO32
4636       CMGCL2  = WF*CMGC2L  + ONEMWF*CMGCL2
4637       CKCL    = WF*CKCLO   + ONEMWF*CKCL
4638 !C
4639 !C *** LIQUID
4640 !C
4641       WATER   = ONEMWF*WATER
4642 !C
4643       MOLAL(2)= WAER(1) - 2.D0*CNA2SO4 - CNAHSO4 - CNANO3 - &
4644                               CNACL                                  ! NA+
4645       MOLAL(3)= WAER(3) - 2.D0*CNH42S4 - CNH4HS4 - CNH4CL - &
4646                          3.D0*CLC     - CNH4NO3                      ! NH4+
4647       MOLAL(4)= WAER(5) - CNACL - CNH4CL - 2.D0*CCACL2 - &
4648                          2.D0*CMGCL2 - CKCL                          ! CL-
4649       MOLAL(7)= WAER(4) - CNANO3 - CNH4NO3 - CKNO3 &
4650                        - 2.D0*CCANO32 - 2.D0*CMGNO32                 ! NO3-
4651       MOLAL(6)= ONEMWF*(MOLAL(6) + DSOBIS + DAMBIS + DLC + DPOBIS)    ! HSO4-
4652       MOLAL(5)= WAER(2) - MOLAL(6) - CLC - CNH42S4 - CNA2SO4 &
4653                - CCASO4 - CK2SO4 - CMGSO4                            ! SO4--
4654       MOLAL(8)= WAER(6) - CCASO4 - CCANO32 - CCACL2                   ! CA++
4655       MOLAL(9)= WAER(7) - 2.D0*CK2SO4 - CKNO3 - CKCL - CKHSO4         ! K+
4656       MOLAL(10)=WAER(8) - CMGSO4 - CMGNO32 - CMGCL2                   ! MG++
4657 !C
4658       A8      = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2.
4659       IF (MOLAL(5).LE.TINY) THEN
4660          HIEQ = SQRT(XKW *RH*WATER*WATER)  ! Neutral solution
4661       ELSE
4662          HIEQ = A8*MOLAL(6)/MOLAL(5)
4663       ENDIF
4664       HIEN    = MOLAL(4) + MOLAL(7) + MOLAL(6) + 2.D0*MOLAL(5) - &
4665                MOLAL(2) - MOLAL(3)
4666       MOLAL(1)= MAX (HIEQ, HIEN)                                      ! H+
4667 !C
4668 !C *** GAS (ACTIVITY COEFS FROM LIQUID SOLUTION)
4669 !C
4670       A2      = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3  <==> NH4+
4671       A3      = XK4 *R*TEMP*(WATER/GAMA(10))**2.        ! HNO3 <==> NO3-
4672       A4      = XK3 *R*TEMP*(WATER/GAMA(11))**2.        ! HCL  <==> CL-
4673 !C
4674       GNH3    = MOLAL(3)/MAX(MOLAL(1),TINY)/A2
4675       GHNO3   = MOLAL(1)*MOLAL(7)/A3
4676       GHCL    = MOLAL(1)*MOLAL(4)/A4
4677 !C
4678 200   RETURN
4679 !C
4680 !C *** END OF SUBROUTINE CALCMDRPII **************************************
4681 !C
4682       END
4683 !C
4684 !C=======================================================================
4685 !C
4686 !C *** ISORROPIA CODE
4687 !C *** SUBROUTINE CALCHS4
4688 !C *** THIS SUBROUTINE CALCULATES THE HSO4 GENERATED FROM (H,SO4).
4689 !C
4690 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
4691 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
4692 !C *** WRITTEN BY ATHANASIOS NENES
4693 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
4694 !C
4695 !C=======================================================================
4696 !C
4697       SUBROUTINE CALCHS42p1 (HI, SO4I, HSO4I, DELTA)
4698       INCLUDE 'module_isrpia_inc.F'
4699 !CC      CHARACTER ERRINF*40
4700 !C
4701 !C *** IF TOO LITTLE WATER, DONT SOLVE
4702 !C
4703       IF (WATER.LE.1d1*TINY) THEN
4704          DELTA = ZERO
4705          RETURN
4706       ENDIF
4707 !C
4708 !C *** CALCULATE HSO4 SPECIATION *****************************************
4709 !C
4710       A8 = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2.
4711 !C
4712       BB =-(HI + SO4I + A8)
4713       CC = HI*SO4I - HSO4I*A8
4714       DD = BB*BB - 4.D0*CC
4715 !C
4716       IF (DD.GE.ZERO) THEN
4717          SQDD   = SQRT(DD)
4718          DELTA1 = 0.5*(-BB + SQDD)
4719          DELTA2 = 0.5*(-BB - SQDD)
4720          IF (HSO4I.LE.TINY) THEN
4721             DELTA = DELTA2
4722          ELSEIF( HI*SO4I .GE. A8*HSO4I ) THEN
4723             DELTA = DELTA2
4724          ELSEIF( HI*SO4I .LT. A8*HSO4I ) THEN
4725             DELTA = DELTA1
4726          ELSE
4727             DELTA = ZERO
4728          ENDIF
4729       ELSE
4730          DELTA  = ZERO
4731       ENDIF
4732 !CCC
4733 !CCC *** COMPARE DELTA TO TOTAL H+ ; ESTIMATE EFFECT OF HSO4 ***************
4734 !CCC
4735 !CC      HYD = MAX(HI, MOLAL(1))
4736 !CC      IF (HYD.GT.TINY) THEN
4737 !CC         IF (DELTA/HYD.GT.0.1d0) THEN
4738 !CC            WRITE (ERRINF,'(1PE10.3)') DELTA/HYD*100.0
4739 !CC            CALL PUSHERR (0020, ERRINF)
4740 !CC         ENDIF
4741 !CC      ENDIF
4742 !C
4743       RETURN
4744 !C
4745 !C *** END OF SUBROUTINE CALCHS4 *****************************************
4746 !C
4747       END
4748
4749
4750 !C=======================================================================
4751 !C
4752 !C *** ISORROPIA CODE
4753 !C *** SUBROUTINE CALCPH
4754 !C
4755 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
4756 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
4757 !C *** WRITTEN BY ATHANASIOS NENES
4758 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
4759 !C
4760 !C=======================================================================
4761 !C
4762       SUBROUTINE CALCPH2p1 (GG, HI, OHI)
4763       INCLUDE 'module_isrpia_inc.F'
4764 !C
4765       AKW  = XKW *RH*WATER*WATER
4766       CN   = SQRT(AKW)
4767 !C
4768 !C *** GG = (negative charge) - (positive charge)
4769 !C
4770       IF (GG.GT.TINY) THEN                        ! H+ in excess
4771          BB =-GG
4772          CC =-AKW
4773          DD = BB*BB - 4.D0*CC
4774          HI = MAX(0.5D0*(-BB + SQRT(DD)),CN)
4775          OHI= AKW/HI
4776       ELSE                                        ! OH- in excess
4777          BB = GG
4778          CC =-AKW
4779          DD = BB*BB - 4.D0*CC
4780          OHI= MAX(0.5D0*(-BB + SQRT(DD)),CN)
4781          HI = AKW/OHI
4782       ENDIF
4783 !C
4784       RETURN
4785 !C
4786 !C *** END OF SUBROUTINE CALCPH ******************************************
4787 !C
4788       END
4789
4790 !C=======================================================================
4791 !C
4792 !C *** ISORROPIA CODE II
4793 !C *** SUBROUTINE CALCACT
4794 !C *** CALCULATES MULTI-COMPONENT ACTIVITY COEFFICIENTS FROM BROMLEYS
4795 !C     METHOD. THE BINARY ACTIVITY COEFFICIENTS ARE CALCULATED BY
4796 !C     KUSIK-MEISNER RELATION (SUBROUTINE KMTAB or SUBROUTINE KMFUL).
4797 !C
4798 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
4799 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
4800 !C
4801 !C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES
4802 !C
4803 !C=======================================================================
4804 !C
4805       SUBROUTINE CALCACT2p1
4806       INCLUDE 'module_isrpia_inc.F'
4807 !C
4808       COMMON /DRVINP2p1/ WI(8), RHI, TEMPI, IPROBI, METSTBLI, IACALCI, &
4809                      NADJI
4810 !C
4811       IF (W(1)+W(4)+W(5)+W(6)+W(7)+W(8) .LE. TINY) THEN     !Ca,K,Mg,Na,Cl,NO3=0
4812             CALL CALCACT12p1
4813          ELSE IF (W(1)+W(5)+W(6)+W(7)+W(8) .LE. TINY) THEN   !Ca,K,Mg,Na,Cl=0
4814             CALL CALCACT22p1
4815          ELSE IF (W(6)+W(7)+W(8) .LE. TINY) THEN              !Ca,K,Mg=0
4816             CALL CALCACT32p1
4817          ELSE
4818             CALL CALCACT42p1
4819       ENDIF
4820 !C
4821 !C *** Return point ; End of subroutine
4822 !C
4823       RETURN
4824       END
4825
4826 !C=======================================================================
4827 !C
4828 !C *** ISORROPIA CODE II
4829 !C *** SUBROUTINE CALCACT4
4830 !C *** CALCULATES MULTI-COMPONENT ACTIVITY COEFFICIENTS FROM BROMLEYS
4831 !C     METHOD FOR AN AMMONIUM-SULFATE-NITRATE-CHLORIDE-SODIUM-CALCIUM-POTASSIUM-MAGNESIUM
4832 !C     AEROSOL SYSTEM. THE BINARY ACTIVITY COEFFICIENTS ARE CALCULATED BY
4833 !C     KUSIK-MEISNER RELATION (SUBROUTINE KMTAB or SUBROUTINE KMFUL4).
4834 !C
4835 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
4836 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
4837 !C
4838 !C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES
4839 !C
4840 !C=======================================================================
4841 !C
4842       SUBROUTINE CALCACT42p1
4843       INCLUDE 'module_isrpia_inc.F'
4844 !C
4845       REAL EX102p1
4846       REAL G0(6,4),ZPL,ZMI,AGAMA,SION,H,CH,F1(6),F2A(4),F2B(4)
4847       DOUBLE PRECISION MPL, XIJ, YJI
4848       DATA G0/24*0D0/
4849
4850 !C
4851       GA(I,J)= (F1(I)/Z(I) + F2A(J)/Z(J+3)) / (Z(I)+Z(J+3)) - H
4852       GB(I,J)= (F1(I)/Z(I+4) + F2B(J)/Z(J+3)) / (Z(I+4)+Z(J+3)) - H
4853 !C
4854 !C *** SAVE ACTIVITIES IN OLD ARRAY *************************************
4855 !C
4856       IF (FRST) THEN               ! Outer loop
4857          DO 10 I=1,NPAIR
4858             GAMOU(I) = GAMA(I)
4859 10       CONTINUE
4860       ENDIF
4861 !C
4862       DO 20 I=1,NPAIR              ! Inner loop
4863          GAMIN(I) = GAMA(I)
4864 20    CONTINUE
4865 !C
4866 !C *** CALCULATE IONIC ACTIVITY OF SOLUTION *****************************
4867 !C
4868       IONIC=0.0
4869       DO 30 I=1,NIONS
4870          IONIC=IONIC + MOLAL(I)*Z(I)*Z(I)
4871 30    CONTINUE
4872       IONIC = MAX(MIN(0.5*IONIC/WATER,100.d0), TINY)
4873 !C
4874 !C *** CALCULATE BINARY ACTIVITY COEFFICIENTS ***************************
4875 !C
4876 !C  G0(1,1)=G11;G0(1,2)=G07;G0(1,3)=G08;G0(1,4)=G10;G0(2,1)=G01;G0(2,2)=G02
4877 !C  G0(2,3)=G12;G0(2,4)=G03;G0(3,1)=G06;G0(3,2)=G04;G0(3,3)=G09;G0(3,4)=G05
4878 !C
4879       IF (IACALC.EQ.0) THEN              ! K.M.; FULL
4880          CALL KMFUL42p1 (IONIC, SNGL(TEMP),G0(2,1),G0(2,2),G0(2,4),&
4881                     G0(3,2),G0(3,4),G0(3,1),G0(1,2),G0(1,3),G0(3,3),&
4882                     G0(1,4),G0(1,1),G0(2,3),G0(4,4),G0(4,1),G0(5,2),&
4883                     G0(5,3),G0(5,4),G0(5,1),G0(6,2),G0(6,4),G0(6,1))
4884       ELSE                               ! K.M.; TABULATED
4885          CALL KMTAB2p1 (IONIC, SNGL(TEMP),G0(2,1),G0(2,2),G0(2,4), &
4886                     G0(3,2),G0(3,4),G0(3,1),G0(1,2),G0(1,3),G0(3,3),&
4887                     G0(1,4),G0(1,1),G0(2,3),G0(4,4),G0(4,1),G0(5,2),&
4888                     G0(5,3),G0(5,4),G0(5,1),G0(6,2),G0(6,4),G0(6,1))
4889       ENDIF
4890 !C
4891 !C *** CALCULATE MULTICOMPONENT ACTIVITY COEFFICIENTS *******************
4892 !C
4893       AGAMA = 0.511*(298.0/TEMP)**1.5    ! Debye Huckel const. at T
4894       SION  = SQRT(IONIC)
4895       H     = AGAMA*SION/(1+SION)
4896 !C
4897       DO 100 I=1,4
4898          F1(I)=0.0
4899          F2A(I)=0.0
4900          F2B(I)=0.0
4901 100   CONTINUE
4902       F1(5)=0.0
4903       F1(6)=0.0
4904 !C
4905       DO 110 I=1,3
4906          ZPL = Z(I)
4907          MPL = MOLAL(I)/WATER
4908          DO 110 J=1,4
4909             ZMI   = Z(J+3)
4910             CH    = 0.25*(ZPL+ZMI)*(ZPL+ZMI)/IONIC
4911             XIJ   = CH*MPL
4912             YJI   = CH*MOLAL(J+3)/WATER
4913             F1(I) = F1(I) + SNGL(YJI*(G0(I,J) + ZPL*ZMI*H))
4914             F2A(J) = F2A(J) + SNGL(XIJ*(G0(I,J) + ZPL*ZMI*H))
4915 110   CONTINUE
4916 !C
4917       DO 330 I=4,6
4918          ZPL = Z(I+4)
4919          MPL = MOLAL(I+4)/WATER
4920          DO 330 J=1,4
4921             ZMI   = Z(J+3)
4922             IF (J.EQ.3) THEN
4923                IF (I.EQ.4 .OR. I.EQ.6) THEN
4924                GO TO 330
4925                ENDIF
4926             ENDIF
4927             CH    = 0.25*(ZPL+ZMI)*(ZPL+ZMI)/IONIC
4928             XIJ   = CH*MPL
4929             YJI   = CH*MOLAL(J+3)/WATER
4930             F1(I) = F1(I) + SNGL(YJI*(G0(I,J) + ZPL*ZMI*H))
4931             F2B(J) = F2B(J) + SNGL(XIJ*(G0(I,J) + ZPL*ZMI*H))
4932 330   CONTINUE
4933
4934 !C
4935 !C *** LOG10 OF ACTIVITY COEFFICIENTS ***********************************
4936 !C
4937       GAMA(01) = GA(2,1)*ZZ(01)                     ! NACL
4938       GAMA(02) = GA(2,2)*ZZ(02)                     ! NA2SO4
4939       GAMA(03) = GA(2,4)*ZZ(03)                     ! NANO3
4940       GAMA(04) = GA(3,2)*ZZ(04)                     ! (NH4)2SO4
4941       GAMA(05) = GA(3,4)*ZZ(05)                     ! NH4NO3
4942       GAMA(06) = GA(3,1)*ZZ(06)                     ! NH4CL
4943       GAMA(07) = GA(1,2)*ZZ(07)                     ! 2H-SO4
4944       GAMA(08) = GA(1,3)*ZZ(08)                     ! H-HSO4
4945       GAMA(09) = GA(3,3)*ZZ(09)                     ! NH4HSO4
4946       GAMA(10) = GA(1,4)*ZZ(10)                     ! HNO3
4947       GAMA(11) = GA(1,1)*ZZ(11)                     ! HCL
4948       GAMA(12) = GA(2,3)*ZZ(12)                     ! NAHSO4
4949       GAMA(13) = 0.20*(3.0*GAMA(04)+2.0*GAMA(09))  ! LC ; SCAPE
4950 !CC      GAMA(13) = 0.50*(GAMA(04)+GAMA(09))          ! LC ; SEQUILIB
4951 !CC      GAMA(13) = 0.25*(3.0*GAMA(04)+GAMA(07))      ! LC ; AIM
4952       GAMA(14) = 0.0d0                              ! CASO4
4953       GAMA(15) = GB(4,4)*ZZ(15)                     ! CA(NO3)2
4954       GAMA(16) = GB(4,1)*ZZ(16)                     ! CACL2
4955       GAMA(17) = GB(5,2)*ZZ(17)                     ! K2SO4
4956       GAMA(18) = GB(5,3)*ZZ(18)                     ! KHSO4
4957       GAMA(19) = GB(5,4)*ZZ(19)                     ! KNO3
4958       GAMA(20) = GB(5,1)*ZZ(20)                     ! KCL
4959       GAMA(21) = GB(6,2)*ZZ(21)                     ! MGSO4
4960       GAMA(22) = GB(6,4)*ZZ(22)                     ! MG(NO3)2
4961       GAMA(23) = GB(6,1)*ZZ(23)                     ! MGCL2
4962 !C
4963 !C *** CONVERT LOG (GAMA) COEFFICIENTS TO GAMA **************************
4964 !C
4965       DO 200 I=1,NPAIR
4966          GAMA(I)=MAX(-5.0d0, MIN(GAMA(I),5.0d0) ) ! F77 LIBRARY ROUTINE
4967          GAMA(I)=10.0**GAMA(I)
4968 !CC         GAMA(I)=EX10(SNGL(GAMA(I)), 5.0)    ! CUTOFF SET TO [-5,5]
4969   200 CONTINUE
4970 !C
4971 !C *** SETUP ACTIVITY CALCULATION FLAGS ********************************
4972 !C
4973 !C OUTER CALCULATION LOOP ; ONLY IF FRST=.TRUE.
4974 !C
4975       IF (FRST) THEN
4976          ERROU = ZERO                    ! CONVERGENCE CRITERION
4977          DO 210 I=1,NPAIR
4978             ERROU=MAX(ERROU, ABS((GAMOU(I)-GAMA(I))/GAMOU(I)))
4979 210      CONTINUE
4980          CALAOU = ERROU .GE. EPSACT      ! SETUP FLAGS
4981          FRST   =.FALSE.
4982       ENDIF
4983 !C
4984 !C INNER CALCULATION LOOP ; ALWAYS
4985 !C
4986       ERRIN = ZERO                       ! CONVERGENCE CRITERION
4987       DO 220 I=1,NPAIR
4988          ERRIN = MAX (ERRIN, ABS((GAMIN(I)-GAMA(I))/GAMIN(I)))
4989 220   CONTINUE
4990       CALAIN = ERRIN .GE. EPSACT
4991 !C
4992       ICLACT = ICLACT + 1                ! Increment ACTIVITY call counter
4993 !C
4994 !C *** END OF SUBROUTINE ACTIVITY ****************************************
4995 !C
4996       RETURN
4997       END
4998 !C
4999 !C=======================================================================
5000 !C
5001 !C *** ISORROPIA CODE
5002 !C *** SUBROUTINE CALCACT3
5003 !C *** CALCULATES MULTI-COMPONENT ACTIVITY COEFFICIENTS FROM BROMLEYS
5004 !C     METHOD FOR AN AMMONIUM-SULFATE-NITRATE-CHLORIDE-SODIUM AEROSOL SYSTEM.
5005 !C     THE BINARY ACTIVITY COEFFICIENTS ARE CALCULATED BY
5006 !C     KUSIK-MEISNER RELATION (SUBROUTINE KMTAB or SUBROUTINE KMFUL3).
5007 !C
5008 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
5009 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
5010 !C
5011 !C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES
5012 !C
5013 !C=======================================================================
5014 !C
5015       SUBROUTINE CALCACT32p1
5016       INCLUDE 'module_isrpia_inc.F'
5017 !C
5018       REAL EX102p1, URF
5019       REAL G0(6,4),ZPL,ZMI,AGAMA,SION,H,CH,F1(3),F2(4)
5020       DOUBLE PRECISION MPL, XIJ, YJI
5021       PARAMETER (URF=0.5)
5022 !C      PARAMETER (LN10=2.30258509299404568402D0)
5023 !C
5024       G(I,J)= (F1(I)/Z(I) + F2(J)/Z(J+3)) / (Z(I)+Z(J+3)) - H
5025 !C
5026 !C *** SAVE ACTIVITIES IN OLD ARRAY *************************************
5027 !C
5028       IF (FRST) THEN               ! Outer loop
5029          DO 10 I=1,13
5030             GAMOU(I) = GAMA(I)
5031 10       CONTINUE
5032       ENDIF
5033 !C
5034       DO 20 I=1,13                ! Inner loop
5035          GAMIN(I) = GAMA(I)
5036 20    CONTINUE
5037 !C
5038 !C *** CALCULATE IONIC ACTIVITY OF SOLUTION *****************************
5039 !C
5040       IONIC=0.0
5041       DO 30 I=1,7
5042          IONIC=IONIC + MOLAL(I)*Z(I)*Z(I)
5043 30    CONTINUE
5044       IONIC = MAX(MIN(0.5*IONIC/WATER,100.d0), TINY)
5045 !C
5046 !C *** CALCULATE BINARY ACTIVITY COEFFICIENTS ***************************
5047 !C
5048 !C  G0(1,1)=G11;G0(1,2)=G07;G0(1,3)=G08;G0(1,4)=G10;G0(2,1)=G01;G0(2,2)=G02
5049 !C  G0(2,3)=G12;G0(2,4)=G03;G0(3,1)=G06;G0(3,2)=G04;G0(3,3)=G09;G0(3,4)=G05
5050 !C
5051       IF (IACALC.EQ.0) THEN              ! K.M.; FULL
5052          CALL KMFUL32p1 (IONIC, SNGL(TEMP),G0(2,1),G0(2,2),G0(2,4), &
5053                     G0(3,2),G0(3,4),G0(3,1),G0(1,2),G0(1,3),G0(3,3),&
5054                     G0(1,4),G0(1,1),G0(2,3))
5055       ELSE                               ! K.M.; TABULATED
5056          CALL KMTAB2p1 (IONIC, SNGL(TEMP),G0(2,1),G0(2,2),G0(2,4),&
5057                     G0(3,2),G0(3,4),G0(3,1),G0(1,2),G0(1,3),G0(3,3),&
5058                     G0(1,4),G0(1,1),G0(2,3),G0(4,4),G0(4,1),G0(5,2),&
5059                     G0(5,3),G0(5,4),G0(5,1),G0(6,2),G0(6,4),G0(6,1))
5060       ENDIF
5061 !C
5062 !C *** CALCULATE MULTICOMPONENT ACTIVITY COEFFICIENTS *******************
5063 !C
5064       AGAMA = 0.511*(298.0/TEMP)**1.5    ! Debye Huckel const. at T
5065       SION  = SQRT(IONIC)
5066       H     = AGAMA*SION/(1+SION)
5067 !C
5068       DO 100 I=1,3
5069          F1(I)=0.0
5070          F2(I)=0.0
5071 100   CONTINUE
5072       F2(4)=0.0
5073 !C
5074       DO 110 I=1,3
5075          ZPL = Z(I)
5076          MPL = MOLAL(I)/WATER
5077          DO 110 J=1,4
5078             ZMI   = Z(J+3)
5079             CH    = 0.25*(ZPL+ZMI)*(ZPL+ZMI)/IONIC
5080             XIJ   = CH*MPL
5081             YJI   = CH*MOLAL(J+3)/WATER
5082             F1(I) = F1(I) + SNGL(YJI*(G0(I,J) + ZPL*ZMI*H))
5083             F2(J) = F2(J) + SNGL(XIJ*(G0(I,J) + ZPL*ZMI*H))
5084 110   CONTINUE
5085 !C
5086 !C *** LOG10 OF ACTIVITY COEFFICIENTS ***********************************
5087 !C
5088       GAMA(01) = G(2,1)*ZZ(01)                     ! NACL
5089       GAMA(02) = G(2,2)*ZZ(02)                     ! NA2SO4
5090       GAMA(03) = G(2,4)*ZZ(03)                     ! NANO3
5091       GAMA(04) = G(3,2)*ZZ(04)                     ! (NH4)2SO4
5092       GAMA(05) = G(3,4)*ZZ(05)                     ! NH4NO3
5093       GAMA(06) = G(3,1)*ZZ(06)                     ! NH4CL
5094       GAMA(07) = G(1,2)*ZZ(07)                     ! 2H-SO4
5095       GAMA(08) = G(1,3)*ZZ(08)                     ! H-HSO4
5096       GAMA(09) = G(3,3)*ZZ(09)                     ! NH4HSO4
5097       GAMA(10) = G(1,4)*ZZ(10)                     ! HNO3
5098       GAMA(11) = G(1,1)*ZZ(11)                     ! HCL
5099       GAMA(12) = G(2,3)*ZZ(12)                     ! NAHSO4
5100       GAMA(13) = 0.20*(3.0*GAMA(04)+2.0*GAMA(09))  ! LC ; SCAPE
5101 !CC      GAMA(13) = 0.50*(GAMA(04)+GAMA(09))          ! LC ; SEQUILIB
5102 !CC      GAMA(13) = 0.25*(3.0*GAMA(04)+GAMA(07))      ! LC ; AIM
5103 !C
5104 !C *** CONVERT LOG (GAMA) COEFFICIENTS TO GAMA **************************
5105 !C
5106       DO 200 I=1,13
5107          GAMA(I)=MAX(-5.0d0, MIN(GAMA(I),5.0d0) ) ! F77 LIBRARY ROUTINE
5108          GAMA(I)=10.0**GAMA(I)
5109 !C         GAMA(I)=EXP(LN10*GAMA(I))
5110 !CC         GAMA(I)=EX10(SNGL(GAMA(I)), 5.0)    ! CUTOFF SET TO [-5,5]
5111 !C         GAMA(I) = GAMIN(I)*(1.0-URF) + URF*GAMA(I)  ! Under-relax GAMA's
5112   200 CONTINUE
5113 !C
5114 !C *** SETUP ACTIVITY CALCULATION FLAGS *********************************
5115 !C
5116 !C OUTER CALCULATION LOOP ; ONLY IF FRST=.TRUE.
5117 !C
5118       IF (FRST) THEN
5119          ERROU = ZERO                    ! CONVERGENCE CRITERION
5120          DO 210 I=1,13
5121             ERROU=MAX(ERROU, ABS((GAMOU(I)-GAMA(I))/GAMOU(I)))
5122 210      CONTINUE
5123          CALAOU = ERROU .GE. EPSACT      ! SETUP FLAGS
5124          FRST   =.FALSE.
5125       ENDIF
5126 !C
5127 !C INNER CALCULATION LOOP ; ALWAYS
5128 !C
5129       ERRIN = ZERO                       ! CONVERGENCE CRITERION
5130       DO 220 I=1,13
5131          ERRIN = MAX (ERRIN, ABS((GAMIN(I)-GAMA(I))/GAMIN(I)))
5132 220   CONTINUE
5133       CALAIN = ERRIN .GE. EPSACT
5134 !C
5135       ICLACT = ICLACT + 1                ! Increment ACTIVITY call counter
5136 !C
5137 !C *** END OF SUBROUTINE ACTIVITY ****************************************
5138 !C
5139       RETURN
5140       END
5141 !C
5142 !C=======================================================================
5143 !C
5144 !C *** ISORROPIA CODE
5145 !C *** SUBROUTINE CALCACT2
5146 !C *** CALCULATES MULTI-COMPONENT ACTIVITY COEFFICIENTS FROM BROMLEYS
5147 !C     METHOD FOR AN AMMONIUM-SULFATE-NITRATE AEROSOL SYSTEM.
5148 !C     THE BINARY ACTIVITY COEFFICIENTS ARE CALCULATED BY
5149 !C     KUSIK-MEISNER RELATION (SUBROUTINE KMTAB or SUBROUTINE KMFUL2).
5150 !C
5151 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
5152 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
5153 !C
5154 !C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES
5155 !C
5156 !C=======================================================================
5157 !C
5158       SUBROUTINE CALCACT22p1
5159       INCLUDE 'module_isrpia_inc.F'
5160 !C
5161       REAL EX102p1, URF
5162       REAL G0(6,4),ZPL,ZMI,AGAMA,SION,H,CH,F1(3),F2(4)
5163       DOUBLE PRECISION MPL, XIJ, YJI
5164       PARAMETER (URF=0.5)
5165 !C      PARAMETER (LN10=2.30258509299404568402D0)
5166 !C
5167       G(I,J)= (F1(I)/Z(I) + F2(J)/Z(J+3)) / (Z(I)+Z(J+3)) - H
5168 !C
5169 !C *** SAVE ACTIVITIES IN OLD ARRAY *************************************
5170 !C
5171       IF (FRST) THEN            ! Outer loop
5172          DO 10 I=7,10
5173             GAMOU(I) = GAMA(I)
5174 10       CONTINUE
5175          GAMOU(4) = GAMA(4)
5176          GAMOU(5) = GAMA(5)
5177          GAMOU(13) = GAMA(13)
5178       ENDIF
5179 !C
5180          DO 20 I=7,10              ! Inner loop
5181             GAMIN(I) = GAMA(I)
5182 20       CONTINUE
5183          GAMIN(4) = GAMA(4)
5184          GAMIN(5) = GAMA(5)
5185          GAMIN(13) = GAMA(13)
5186 !C
5187 !C *** CALCULATE IONIC ACTIVITY OF SOLUTION *****************************
5188 !C
5189       IONIC=0.0
5190       MOLAL(2) = ZERO
5191       MOLAL(4) = ZERO
5192       DO 30 I=1,7
5193          IONIC=IONIC + MOLAL(I)*Z(I)*Z(I)
5194 30    CONTINUE
5195       IONIC = MAX(MIN(0.5*IONIC/WATER,100.d0), TINY)
5196 !C
5197 !C *** CALCULATE BINARY ACTIVITY COEFFICIENTS ***************************
5198 !C
5199 !C  G0(1,1)=G11;G0(1,2)=G07;G0(1,3)=G08;G0(1,4)=G10;G0(2,1)=G01;G0(2,2)=G02
5200 !C  G0(2,3)=G12;G0(2,4)=G03;G0(3,1)=G06;G0(3,2)=G04;G0(3,3)=G09;G0(3,4)=G05
5201 !C
5202       IF (IACALC.EQ.0) THEN              ! K.M.; FULL
5203          CALL KMFUL22p1 (IONIC, SNGL(TEMP),G0(3,2),G0(3,4),G0(1,2), &
5204                      G0(1,3),G0(3,3),G0(1,4))
5205       ELSE                               ! K.M.; TABULATED
5206          CALL KMTAB2p1 (IONIC, SNGL(TEMP),G0(2,1),G0(2,2),G0(2,4),&
5207                     G0(3,2),G0(3,4),G0(3,1),G0(1,2),G0(1,3),G0(3,3),&
5208                     G0(1,4),G0(1,1),G0(2,3),G0(4,4),G0(4,1),G0(5,2),&
5209                     G0(5,3),G0(5,4),G0(5,1),G0(6,2),G0(6,4),G0(6,1))
5210       ENDIF
5211 !C
5212 !C *** CALCULATE MULTICOMPONENT ACTIVITY COEFFICIENTS *******************
5213 !C
5214       AGAMA = 0.511*(298.0/TEMP)**1.5    ! Debye Huckel const. at T
5215       SION  = SQRT(IONIC)
5216       H     = AGAMA*SION/(1+SION)
5217 !C
5218       DO 100 I=1,3
5219          F1(I)=0.0
5220          F2(I)=0.0
5221 100   CONTINUE
5222       F2(4)=0.0
5223 !C
5224       DO 110 I=1,3,2
5225          ZPL = Z(I)
5226          MPL = MOLAL(I)/WATER
5227          DO 110 J=2,4
5228             ZMI   = Z(J+3)
5229             CH    = 0.25*(ZPL+ZMI)*(ZPL+ZMI)/IONIC
5230             XIJ   = CH*MPL
5231             YJI   = CH*MOLAL(J+3)/WATER
5232             F1(I) = F1(I) + SNGL(YJI*(G0(I,J) + ZPL*ZMI*H))
5233             F2(J) = F2(J) + SNGL(XIJ*(G0(I,J) + ZPL*ZMI*H))
5234 110   CONTINUE
5235 !C
5236 !C *** LOG10 OF ACTIVITY COEFFICIENTS ***********************************
5237 !C
5238 !C      GAMA(01) = G(2,1)*ZZ(01)                     ! NACL
5239 !C      GAMA(02) = G(2,2)*ZZ(02)                     ! NA2SO4
5240 !C      GAMA(03) = G(2,4)*ZZ(03)                     ! NANO3
5241       GAMA(04) = G(3,2)*ZZ(04)                     ! (NH4)2SO4
5242       GAMA(05) = G(3,4)*ZZ(05)                     ! NH4NO3
5243 !C      GAMA(06) = G(3,1)*ZZ(06)                     ! NH4CL
5244       GAMA(07) = G(1,2)*ZZ(07)                     ! 2H-SO4
5245       GAMA(08) = G(1,3)*ZZ(08)                     ! H-HSO4
5246       GAMA(09) = G(3,3)*ZZ(09)                     ! NH4HSO4
5247       GAMA(10) = G(1,4)*ZZ(10)                     ! HNO3
5248 !C      GAMA(11) = G(1,1)*ZZ(11)                     ! HCL
5249 !C      GAMA(12) = G(2,3)*ZZ(12)                     ! NAHSO4
5250       GAMA(13) = 0.20*(3.0*GAMA(04)+2.0*GAMA(09))  ! LC ; SCAPE
5251 !CC      GAMA(13) = 0.50*(GAMA(04)+GAMA(09))          ! LC ; SEQUILIB
5252 !CC      GAMA(13) = 0.25*(3.0*GAMA(04)+GAMA(07))      ! LC ; AIM
5253 !C
5254 !C *** CONVERT LOG (GAMA) COEFFICIENTS TO GAMA **************************
5255 !C
5256       DO 200 I=7,10
5257          GAMA(I)=MAX(-5.0d0, MIN(GAMA(I),5.0d0) ) ! F77 LIBRARY ROUTINE
5258          GAMA(I)=10.0**GAMA(I)
5259 !C         GAMA(I)=EXP(LN10*GAMA(I))
5260 !CC         GAMA(I)=EX10(SNGL(GAMA(I)), 5.0)    ! CUTOFF SET TO [-5,5]
5261 !C         GAMA(I) = GAMIN(I)*(1.0-URF) + URF*GAMA(I)  ! Under-relax GAMA's
5262   200 CONTINUE
5263 !C
5264       GAMA(4)=MAX(-5.0d0, MIN(GAMA(4),5.0d0) ) ! F77 LIBRARY ROUTINE
5265          GAMA(4)=10.0**GAMA(4)
5266 !C         GAMA(I)=EXP(LN10*GAMA(I))
5267 !CC         GAMA(I)=EX10(SNGL(GAMA(I)), 5.0)    ! CUTOFF SET TO [-5,5]
5268 !C         GAMA(4) = GAMIN(4)*(1.0-URF) + URF*GAMA(4)  ! Under-relax GAMA's
5269 !C
5270       GAMA(5)=MAX(-5.0d0, MIN(GAMA(5),5.0d0) ) ! F77 LIBRARY ROUTINE
5271          GAMA(5)=10.0**GAMA(5)
5272 !C         GAMA(I)=EXP(LN10*GAMA(I))
5273 !CC         GAMA(I)=EX10(SNGL(GAMA(I)), 5.0)    ! CUTOFF SET TO [-5,5]
5274 !C         GAMA(5) = GAMIN(5)*(1.0-URF) + URF*GAMA(I)  ! Under-relax GAMA's
5275 !C
5276       GAMA(13)=MAX(-5.0d0, MIN(GAMA(13),5.0d0) ) ! F77 LIBRARY ROUTINE
5277          GAMA(13)=10.0**GAMA(13)
5278 !C         GAMA(I)=EXP(LN10*GAMA(I))
5279 !CC         GAMA(I)=EX10(SNGL(GAMA(I)), 5.0)    ! CUTOFF SET TO [-5,5]
5280 !C         GAMA(13) = GAMIN(13)*(1.0-URF) + URF*GAMA(13)  ! Under-relax GAMA's
5281 !C
5282 !C *** SETUP ACTIVITY CALCULATION FLAGS *********************************
5283 !C
5284 !C OUTER CALCULATION LOOP ; ONLY IF FRST=.TRUE.
5285 !C
5286       IF (FRST) THEN
5287          ERROU = ZERO                    ! CONVERGENCE CRITERION
5288          DO 210 I=7,10
5289             ERROU=MAX(ERROU, ABS((GAMOU(I)-GAMA(I))/GAMOU(I)))
5290 210      CONTINUE
5291          ERROU=MAX(ERROU, ABS((GAMOU(4)-GAMA(4))/GAMOU(4)))
5292          ERROU=MAX(ERROU, ABS((GAMOU(5)-GAMA(5))/GAMOU(5)))
5293          ERROU=MAX(ERROU, ABS((GAMOU(13)-GAMA(13))/GAMOU(13)))
5294 !C
5295          CALAOU = ERROU .GE. EPSACT      ! SETUP FLAGS
5296          FRST   =.FALSE.
5297       ENDIF
5298 !C
5299 !C INNER CALCULATION LOOP ; ALWAYS
5300 !C
5301       ERRIN = ZERO                       ! CONVERGENCE CRITERION
5302       DO 220 I=7,10
5303          ERRIN = MAX (ERRIN, ABS((GAMIN(I)-GAMA(I))/GAMIN(I)))
5304 220   CONTINUE
5305          ERRIN = MAX (ERRIN, ABS((GAMIN(4)-GAMA(4))/GAMIN(4)))
5306          ERRIN = MAX (ERRIN, ABS((GAMIN(5)-GAMA(5))/GAMIN(5)))
5307          ERRIN = MAX (ERRIN, ABS((GAMIN(13)-GAMA(13))/GAMIN(13)))
5308       CALAIN = ERRIN .GE. EPSACT
5309 !C
5310       ICLACT = ICLACT + 1                ! Increment ACTIVITY call counter
5311 !C
5312 !C *** END OF SUBROUTINE ACTIVITY ****************************************
5313 !C
5314       RETURN
5315       END
5316 !C
5317 !C=======================================================================
5318 !C
5319 !C *** ISORROPIA CODE
5320 !C *** SUBROUTINE CALCACT1
5321 !C *** CALCULATES MULTI-COMPONENT ACTIVITY COEFFICIENTS FROM BROMLEYS
5322 !C     METHOD FOR AN AMMONIUM-SULFATE AEROSOL SYSTEM.
5323 !C     THE BINARY ACTIVITY COEFFICIENTS ARE CALCULATED BY
5324 !C     KUSIK-MEISNER RELATION (SUBROUTINE KMTAB or SUBROUTINE KMFUL1).
5325 !C
5326 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
5327 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
5328 !C
5329 !C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES
5330 !C
5331 !C=======================================================================
5332 !C
5333       SUBROUTINE CALCACT12p1
5334       INCLUDE 'module_isrpia_inc.F'
5335 !C
5336       REAL EX102p1, URF
5337       REAL G0(6,4),ZPL,ZMI,AGAMA,SION,H,CH,F1(3),F2(4)
5338       DOUBLE PRECISION MPL, XIJ, YJI
5339       PARAMETER (URF=0.5)
5340 !C      PARAMETER (LN10=2.30258509299404568402D0)
5341 !C
5342       G(I,J)= (F1(I)/Z(I) + F2(J)/Z(J+3)) / (Z(I)+Z(J+3)) - H
5343 !C
5344 !C *** SAVE ACTIVITIES IN OLD ARRAY *************************************
5345 !C
5346       IF (FRST) THEN            ! Outer loop
5347          DO 10 I=7,9
5348             GAMOU(I) = GAMA(I)
5349 10       CONTINUE
5350          GAMOU(4) = GAMA(4)
5351 !C         GAMOU(5) = GAMA(5)
5352          GAMOU(13) = GAMA(13)
5353       ENDIF
5354 !C
5355          DO 20 I=7,9              ! Inner loop
5356             GAMIN(I) = GAMA(I)
5357 20       CONTINUE
5358          GAMIN(4) = GAMA(4)
5359 !C         GAMIN(5) = GAMA(5)
5360          GAMIN(13) = GAMA(13)
5361 !C
5362 !C *** CALCULATE IONIC ACTIVITY OF SOLUTION *****************************
5363 !C
5364       IONIC=0.0
5365       MOLAL(2) = ZERO
5366       MOLAL(4) = ZERO
5367       MOLAL(7) = ZERO
5368       DO 30 I=1,7
5369          IONIC=IONIC + MOLAL(I)*Z(I)*Z(I)
5370 30    CONTINUE
5371       IONIC = MAX(MIN(0.5*IONIC/WATER,100.d0), TINY)
5372 !C
5373 !C *** CALCULATE BINARY ACTIVITY COEFFICIENTS ***************************
5374 !C
5375 !C  G0(1,1)=G11;G0(1,2)=G07;G0(1,3)=G08;G0(1,4)=G10;G0(2,1)=G01;G0(2,2)=G02
5376 !C  G0(2,3)=G12;G0(2,4)=G03;G0(3,1)=G06;G0(3,2)=G04;G0(3,3)=G09;G0(3,4)=G05
5377 !C
5378       IF (IACALC.EQ.0) THEN              ! K.M.; FULL
5379          CALL KMFUL12p1 (IONIC, SNGL(TEMP),G0(3,2),G0(1,2),&
5380                      G0(1,3),G0(3,3))
5381       ELSE                               ! K.M.; TABULATED
5382          CALL KMTAB2p1 (IONIC, SNGL(TEMP),G0(2,1),G0(2,2),G0(2,4),&
5383                     G0(3,2),G0(3,4),G0(3,1),G0(1,2),G0(1,3),G0(3,3),&
5384                     G0(1,4),G0(1,1),G0(2,3),G0(4,4),G0(4,1),G0(5,2),&
5385                     G0(5,3),G0(5,4),G0(5,1),G0(6,2),G0(6,4),G0(6,1))
5386       ENDIF
5387 !C
5388 !C *** CALCULATE MULTICOMPONENT ACTIVITY COEFFICIENTS *******************
5389 !C
5390       AGAMA = 0.511*(298.0/TEMP)**1.5    ! Debye Huckel const. at T
5391       SION  = SQRT(IONIC)
5392       H     = AGAMA*SION/(1+SION)
5393 !C
5394       DO 100 I=1,3
5395          F1(I)=0.0
5396          F2(I)=0.0
5397 100   CONTINUE
5398       F2(4)=0.0
5399 !C
5400       DO 110 I=1,3,2
5401          ZPL = Z(I)
5402          MPL = MOLAL(I)/WATER
5403          DO 110 J=2,3
5404             ZMI   = Z(J+3)
5405             CH    = 0.25*(ZPL+ZMI)*(ZPL+ZMI)/IONIC
5406             XIJ   = CH*MPL
5407             YJI   = CH*MOLAL(J+3)/WATER
5408             F1(I) = F1(I) + SNGL(YJI*(G0(I,J) + ZPL*ZMI*H))
5409             F2(J) = F2(J) + SNGL(XIJ*(G0(I,J) + ZPL*ZMI*H))
5410 110   CONTINUE
5411 !C
5412 !C *** LOG10 OF ACTIVITY COEFFICIENTS ***********************************
5413 !C
5414 !C      GAMA(01) = G(2,1)*ZZ(01)                     ! NACL
5415 !C      GAMA(02) = G(2,2)*ZZ(02)                     ! NA2SO4
5416 !C      GAMA(03) = G(2,4)*ZZ(03)                     ! NANO3
5417       GAMA(04) = G(3,2)*ZZ(04)                     ! (NH4)2SO4
5418 !C      GAMA(05) = G(3,4)*ZZ(05)                     ! NH4NO3
5419 !C      GAMA(06) = G(3,1)*ZZ(06)                     ! NH4CL
5420       GAMA(07) = G(1,2)*ZZ(07)                     ! 2H-SO4
5421       GAMA(08) = G(1,3)*ZZ(08)                     ! H-HSO4
5422       GAMA(09) = 0.5*(GAMA(04)+GAMA(07))           ! NH4HSO4 ; AIM (Wexler & Seinfeld, 1991)
5423 !C      GAMA(10) = G(1,4)*ZZ(10)                     ! HNO3
5424 !C      GAMA(11) = G(1,1)*ZZ(11)                     ! HCL
5425 !C      GAMA(12) = G(2,3)*ZZ(12)                     ! NAHSO4
5426       GAMA(13) = 0.20*(3.0*GAMA(04)+2.0*GAMA(09))  ! LC ; SCAPE
5427 !CC      GAMA(13) = 0.50*(GAMA(04)+GAMA(09))          ! LC ; SEQUILIB
5428 !CC      GAMA(13) = 0.25*(3.0*GAMA(04)+GAMA(07))      ! LC ; AIM
5429 !C
5430 !C *** CONVERT LOG (GAMA) COEFFICIENTS TO GAMA **************************
5431 !C
5432       DO 200 I=7,9
5433          GAMA(I)=MAX(-5.0d0, MIN(GAMA(I),5.0d0) ) ! F77 LIBRARY ROUTINE
5434          GAMA(I)=10.0**GAMA(I)
5435 !C         GAMA(I)=EXP(LN10*GAMA(I))
5436 !CC         GAMA(I)=EX10(SNGL(GAMA(I)), 5.0)    ! CUTOFF SET TO [-5,5]
5437 !C         GAMA(I) = GAMIN(I)*(1.0-URF) + URF*GAMA(I)  ! Under-relax GAMA's
5438   200 CONTINUE
5439 !C
5440       GAMA(4)=MAX(-5.0d0, MIN(GAMA(4),5.0d0) ) ! F77 LIBRARY ROUTINE
5441          GAMA(4)=10.0**GAMA(4)
5442 !C         GAMA(I)=EXP(LN10*GAMA(I))
5443 !CC         GAMA(I)=EX10(SNGL(GAMA(I)), 5.0)    ! CUTOFF SET TO [-5,5]
5444 !C         GAMA(4) = GAMIN(4)*(1.0-URF) + URF*GAMA(4)  ! Under-relax GAMA's
5445 !C
5446 !C      GAMA(5)=MAX(-5.0d0, MIN(GAMA(5),5.0d0) ) ! F77 LIBRARY ROUTINE
5447 !C         GAMA(5)=10.0**GAMA(5)
5448 !CC         GAMA(I)=EXP(LN10*GAMA(I))
5449 !CCC         GAMA(I)=EX10(SNGL(GAMA(I)), 5.0)    ! CUTOFF SET TO [-5,5]
5450 !C         GAMA(5) = GAMIN(5)*(1.0-URF) + URF*GAMA(I)  ! Under-relax GAMA's
5451 !C
5452       GAMA(13)=MAX(-5.0d0, MIN(GAMA(13),5.0d0) ) ! F77 LIBRARY ROUTINE
5453          GAMA(13)=10.0**GAMA(13)
5454 !C         GAMA(I)=EXP(LN10*GAMA(I))
5455 !CC         GAMA(I)=EX10(SNGL(GAMA(I)), 5.0)    ! CUTOFF SET TO [-5,5]
5456 !C         GAMA(13) = GAMIN(13)*(1.0-URF) + URF*GAMA(13)  ! Under-relax GAMA's
5457 !C
5458 !C *** SETUP ACTIVITY CALCULATION FLAGS *********************************
5459 !C
5460 !C OUTER CALCULATION LOOP ; ONLY IF FRST=.TRUE.
5461 !C
5462       IF (FRST) THEN
5463          ERROU = ZERO                    ! CONVERGENCE CRITERION
5464          DO 210 I=7,9
5465             ERROU=MAX(ERROU, ABS((GAMOU(I)-GAMA(I))/GAMOU(I)))
5466 210      CONTINUE
5467          ERROU=MAX(ERROU, ABS((GAMOU(4)-GAMA(4))/GAMOU(4)))
5468 !C         ERROU=MAX(ERROU, ABS((GAMOU(5)-GAMA(5))/GAMOU(5)))
5469          ERROU=MAX(ERROU, ABS((GAMOU(13)-GAMA(13))/GAMOU(13)))
5470 !C
5471          CALAOU = ERROU .GE. EPSACT      ! SETUP FLAGS
5472          FRST   =.FALSE.
5473       ENDIF
5474 !C
5475 !C INNER CALCULATION LOOP ; ALWAYS
5476 !C
5477       ERRIN = ZERO                       ! CONVERGENCE CRITERION
5478       DO 220 I=7,9
5479          ERRIN = MAX (ERRIN, ABS((GAMIN(I)-GAMA(I))/GAMIN(I)))
5480 220   CONTINUE
5481          ERRIN = MAX (ERRIN, ABS((GAMIN(4)-GAMA(4))/GAMIN(4)))
5482 !C         ERRIN = MAX (ERRIN, ABS((GAMIN(5)-GAMA(5))/GAMIN(5)))
5483          ERRIN = MAX (ERRIN, ABS((GAMIN(13)-GAMA(13))/GAMIN(13)))
5484       CALAIN = ERRIN .GE. EPSACT
5485 !C
5486       ICLACT = ICLACT + 1                ! Increment ACTIVITY call counter
5487 !C
5488 !C *** END OF SUBROUTINE ACTIVITY ****************************************
5489 !C
5490       RETURN
5491       END
5492 !C
5493 !C=======================================================================
5494 !C
5495 !C *** ISORROPIA CODE
5496 !C *** SUBROUTINE RSTGAM
5497 !C *** RESETS ACTIVITY COEFFICIENT ARRAYS TO DEFAULT VALUE OF 0.1
5498 !C
5499 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
5500 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
5501 !C *** WRITTEN BY ATHANASIOS NENES
5502 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
5503 !C
5504 !C=======================================================================
5505 !C
5506       SUBROUTINE RSTGAM2p1
5507       INCLUDE 'module_isrpia_inc.F'
5508 !C
5509       DO 10 I=1, NPAIR
5510          GAMA(I) = 0.1
5511 10    CONTINUE
5512 !C
5513 !C *** END OF SUBROUTINE RSTGAM ******************************************
5514 !C
5515       RETURN
5516       END
5517 !C=======================================================================
5518 !C
5519 !C *** ISORROPIA CODE II
5520 !C *** SUBROUTINE KMFUL4
5521 !C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD
5522 !C     FOR AN AMMONIUM-SULFATE-NITRATE-CHLORIDE-SODIUM-CALCIUM-POTASSIUM-MAGNESIUM
5523 !C     AEROSOL SYSTEM.
5524 !C
5525 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
5526 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
5527 !C
5528 !C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES
5529 !C
5530 !C=======================================================================
5531 !C
5532       SUBROUTINE KMFUL42p1 (IONIC,TEMP,G01,G02,G03,G04,G05,G06,G07,G08,G09,&
5533                                   G10,G11,G12,G15,G16,G17,G18,G19,G20,&
5534                                   G21,G22,G23)
5535       REAL Ionic, TEMP
5536       DATA Z01,Z02,Z03,Z04,Z05,Z06,Z07,Z08,Z10,Z11,Z15,Z16,Z17,Z19,Z20,&
5537           Z21,Z22,Z23/1, 2, 1, 2, 1, 1, 2, 1, 1, 1, 2, 2, 2, 1, 1, 4,&
5538                       2, 2/
5539 !C
5540       SION = SQRT(IONIC)
5541 !C
5542 !C *** Coefficients at 25 oC
5543 !C
5544       CALL MKBI2p1(2.230, IONIC, SION, Z01, G01)
5545       CALL MKBI2p1(-0.19, IONIC, SION, Z02, G02)
5546       CALL MKBI2p1(-0.39, IONIC, SION, Z03, G03)
5547       CALL MKBI2p1(-0.25, IONIC, SION, Z04, G04)
5548       CALL MKBI2p1(-1.15, IONIC, SION, Z05, G05)
5549       CALL MKBI2p1(0.820, IONIC, SION, Z06, G06)
5550       CALL MKBI2p1(-.100, IONIC, SION, Z07, G07)
5551       CALL MKBI2p1(8.000, IONIC, SION, Z08, G08)
5552       CALL MKBI2p1(2.600, IONIC, SION, Z10, G10)
5553       CALL MKBI2p1(6.000, IONIC, SION, Z11, G11)
5554       CALL MKBI2p1(0.930, IONIC, SION, Z15, G15)
5555       CALL MKBI2p1(2.400, IONIC, SION, Z16, G16)
5556       CALL MKBI2p1(-0.25, IONIC, SION, Z17, G17)
5557       CALL MKBI2p1(-2.33, IONIC, SION, Z19, G19)
5558       CALL MKBI2p1(0.920, IONIC, SION, Z20, G20)
5559       CALL MKBI2p1(0.150, IONIC, SION, Z21, G21)
5560       CALL MKBI2p1(2.320, IONIC, SION, Z22, G22)
5561       CALL MKBI2p1(2.900, IONIC, SION, Z23, G23)
5562 !C
5563 !C *** Correct for T other than 298 K
5564 !C
5565       TI  = TEMP-273.0
5566       TC  = TI-25.0
5567       IF (ABS(TC) .GT. 1.0) THEN
5568          CF1 = 1.125-0.005*TI
5569          CF2 = (0.125-0.005*TI)*(0.039*IONIC**0.92-0.41*SION/(1.+SION))
5570          G01 = CF1*G01 - CF2*Z01
5571          G02 = CF1*G02 - CF2*Z02
5572          G03 = CF1*G03 - CF2*Z03
5573          G04 = CF1*G04 - CF2*Z04
5574          G05 = CF1*G05 - CF2*Z05
5575          G06 = CF1*G06 - CF2*Z06
5576          G07 = CF1*G07 - CF2*Z07
5577          G08 = CF1*G08 - CF2*Z08
5578          G10 = CF1*G10 - CF2*Z10
5579          G11 = CF1*G11 - CF2*Z11
5580          G15 = CF1*G15 - CF2*Z15
5581          G16 = CF1*G16 - CF2*Z16
5582          G17 = CF1*G17 - CF2*Z17
5583          G19 = CF1*G19 - CF2*Z19
5584          G20 = CF1*G20 - CF2*Z20
5585          G21 = CF1*G21 - CF2*Z21
5586          G22 = CF1*G22 - CF2*Z22
5587          G23 = CF1*G23 - CF2*Z23
5588
5589       ENDIF
5590 !C
5591       G09 = G06 + G08 - G11
5592       G12 = G01 + G08 - G11
5593       G18 = G08 + G20 - G11
5594 !C
5595 !C *** Return point ; End of subroutine
5596 !C
5597       RETURN
5598       END
5599 !C
5600 !C=======================================================================
5601 !C
5602 !C *** ISORROPIA CODE
5603 !C *** SUBROUTINE KMFUL3
5604 !C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD
5605 !C     FOR AN AMMONIUM-SULFATE-NITRATE-CHLORIDE-SODIUM AEROSOL SYSTEM.
5606 !C
5607 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
5608 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
5609 !C
5610 !C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES
5611 !C
5612 !C=======================================================================
5613 !C
5614       SUBROUTINE KMFUL32p1 (IONIC,TEMP,G01,G02,G03,G04,G05,G06,G07,G08,G09,&
5615                        G10,G11,G12)
5616       REAL Ionic, TEMP
5617       DATA Z01,Z02,Z03,Z04,Z05,Z06,Z07,Z08,Z10,Z11 &
5618          /1,  2,  1,  2,  1,  1,  2,  1,  1,  1/
5619 !C
5620       SION = SQRT(IONIC)
5621 !C
5622 !C *** Coefficients at 25 oC
5623 !C
5624       CALL MKBI2p1(2.230, IONIC, SION, Z01, G01)
5625       CALL MKBI2p1(-0.19, IONIC, SION, Z02, G02)
5626       CALL MKBI2p1(-0.39, IONIC, SION, Z03, G03)
5627       CALL MKBI2p1(-0.25, IONIC, SION, Z04, G04)
5628       CALL MKBI2p1(-1.15, IONIC, SION, Z05, G05)
5629       CALL MKBI2p1(0.820, IONIC, SION, Z06, G06)
5630       CALL MKBI2p1(-.100, IONIC, SION, Z07, G07)
5631       CALL MKBI2p1(8.000, IONIC, SION, Z08, G08)
5632       CALL MKBI2p1(2.600, IONIC, SION, Z10, G10)
5633       CALL MKBI2p1(6.000, IONIC, SION, Z11, G11)
5634 !C
5635 !C *** Correct for T other than 298 K
5636 !C
5637       TI  = TEMP-273.0
5638       TC  = TI-25.0
5639       IF (ABS(TC) .GT. 1.0) THEN
5640          CF1 = 1.125-0.005*TI
5641          CF2 = (0.125-0.005*TI)*(0.039*IONIC**0.92-0.41*SION/(1.+SION))
5642          G01 = CF1*G01 - CF2*Z01
5643          G02 = CF1*G02 - CF2*Z02
5644          G03 = CF1*G03 - CF2*Z03
5645          G04 = CF1*G04 - CF2*Z04
5646          G05 = CF1*G05 - CF2*Z05
5647          G06 = CF1*G06 - CF2*Z06
5648          G07 = CF1*G07 - CF2*Z07
5649          G08 = CF1*G08 - CF2*Z08
5650          G10 = CF1*G10 - CF2*Z10
5651          G11 = CF1*G11 - CF2*Z11
5652       ENDIF
5653 !C
5654       G09 = G06 + G08 - G11
5655       G12 = G01 + G08 - G11
5656 !C
5657 !C *** Return point ; End of subroutine
5658 !C
5659       RETURN
5660       END
5661 !C=======================================================================
5662 !C
5663 !C *** ISORROPIA CODE
5664 !C *** SUBROUTINE KMFUL2
5665 !C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD
5666 !C     FOR AN AMMONIUM-SULFATE-NITRATE AEROSOL SYSTEM.
5667 !C
5668 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
5669 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
5670 !C
5671 !C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES
5672 !C
5673 !C=======================================================================
5674 !C
5675       SUBROUTINE KMFUL22p1 (IONIC,TEMP,G04,G05,G07,G08,G09,G10)
5676       REAL Ionic, TEMP
5677       DATA Z01,Z02,Z03,Z04,Z05,Z06,Z07,Z08,Z10,Z11 &
5678          /1,  2,  1,  2,  1,  1,  2,  1,  1,  1/
5679 !C
5680       SION = SQRT(IONIC)
5681 !C
5682 !C *** Coefficients at 25 oC
5683 !C
5684 !C      CALL MKBI(2.230, IONIC, SION, Z01, G01)
5685 !C      CALL MKBI(-0.19, IONIC, SION, Z02, G02)
5686 !C      CALL MKBI(-0.39, IONIC, SION, Z03, G03)
5687       CALL MKBI2p1(-0.25, IONIC, SION, Z04, G04)
5688       CALL MKBI2p1(-1.15, IONIC, SION, Z05, G05)
5689 !C      CALL MKBI(0.820, IONIC, SION, Z06, G06)
5690       CALL MKBI2p1(-.100, IONIC, SION, Z07, G07)
5691       CALL MKBI2p1(8.000, IONIC, SION, Z08, G08)
5692       CALL MKBI2p1(2.600, IONIC, SION, Z10, G10)
5693 !C      CALL MKBI(6.000, IONIC, SION, Z11, G11)
5694 !C
5695 !C *** Correct for T other than 298 K
5696 !C
5697       TI  = TEMP-273.0
5698       TC  = TI-25.0
5699       IF (ABS(TC) .GT. 1.0) THEN
5700          CF1 = 1.125-0.005*TI
5701          CF2 = (0.125-0.005*TI)*(0.039*IONIC**0.92-0.41*SION/(1.+SION))
5702 !C         G01 = CF1*G01 - CF2*Z01
5703 !C         G02 = CF1*G02 - CF2*Z02
5704 !C         G03 = CF1*G03 - CF2*Z03
5705          G04 = CF1*G04 - CF2*Z04
5706          G05 = CF1*G05 - CF2*Z05
5707 !C         G06 = CF1*G06 - CF2*Z06
5708          G07 = CF1*G07 - CF2*Z07
5709          G08 = CF1*G08 - CF2*Z08
5710          G10 = CF1*G10 - CF2*Z10
5711 !C         G11 = CF1*G11 - CF2*Z11
5712       ENDIF
5713 !C
5714       G09 = G05 + G08 - G10
5715 !C      G12 = G01 + G08 - G11
5716 !C
5717 !C *** Return point ; End of subroutine
5718 !C
5719       RETURN
5720       END
5721 !C=======================================================================
5722 !C
5723 !C *** ISORROPIA CODE
5724 !C *** SUBROUTINE KMFUL1
5725 !C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD
5726 !C     FOR AN AMMONIUM-SULFATE AEROSOL SYSTEM.
5727 !C
5728 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
5729 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
5730 !C
5731 !C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES
5732 !C
5733 !C=======================================================================
5734 !C
5735       SUBROUTINE KMFUL12p1 (IONIC,TEMP,G04,G07,G08,G09)
5736       REAL Ionic, TEMP
5737       DATA Z01,Z02,Z03,Z04,Z05,Z06,Z07,Z08,Z10,Z11 &
5738          /1,  2,  1,  2,  1,  1,  2,  1,  1,  1/
5739 !C
5740       SION = SQRT(IONIC)
5741 !C
5742 !C *** Coefficients at 25 oC
5743 !C
5744 !C      CALL MKBI(2.230, IONIC, SION, Z01, G01)
5745 !C      CALL MKBI(-0.19, IONIC, SION, Z02, G02)
5746 !C      CALL MKBI(-0.39, IONIC, SION, Z03, G03)
5747       CALL MKBI2p1(-0.25, IONIC, SION, Z04, G04)
5748 !C      CALL MKBI(-1.15, IONIC, SION, Z05, G05)
5749 !C      CALL MKBI(0.820, IONIC, SION, Z06, G06)
5750       CALL MKBI2p1(-.100, IONIC, SION, Z07, G07)
5751       CALL MKBI2p1(8.000, IONIC, SION, Z08, G08)
5752 !C      CALL MKBI(2.600, IONIC, SION, Z10, G10)
5753 !C      CALL MKBI(6.000, IONIC, SION, Z11, G11)
5754 !C
5755 !C *** Correct for T other than 298 K
5756 !C
5757       TI  = TEMP-273.0
5758       TC  = TI-25.0
5759       IF (ABS(TC) .GT. 1.0) THEN
5760          CF1 = 1.125-0.005*TI
5761          CF2 = (0.125-0.005*TI)*(0.039*IONIC**0.92-0.41*SION/(1.+SION))
5762 !C         G01 = CF1*G01 - CF2*Z01
5763 !C         G02 = CF1*G02 - CF2*Z02
5764 !C         G03 = CF1*G03 - CF2*Z03
5765          G04 = CF1*G04 - CF2*Z04
5766 !C         G05 = CF1*G05 - CF2*Z05
5767 !C         G06 = CF1*G06 - CF2*Z06
5768          G07 = CF1*G07 - CF2*Z07
5769          G08 = CF1*G08 - CF2*Z08
5770 !C         G10 = CF1*G10 - CF2*Z10
5771 !C         G11 = CF1*G11 - CF2*Z11
5772       ENDIF
5773 !C
5774 !C      G09 = G05 + G08 - G10   ! CALCULATED IN CALCACT1
5775 !C      G12 = G01 + G08 - G11
5776 !C
5777 !C *** Return point ; End of subroutine
5778 !C
5779       RETURN
5780       END
5781 !C
5782 !C=======================================================================
5783 !C
5784 !C *** ISORROPIA CODE
5785 !C *** SUBROUTINE MKBI
5786 !C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD.
5787 !C
5788 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
5789 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
5790 !C *** WRITTEN BY ATHANASIOS NENES
5791 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
5792 !C
5793 !C=======================================================================
5794 !C
5795       SUBROUTINE MKBI2p1(Q,IONIC,SION,ZIP,BI)
5796 !C
5797       REAL IONIC
5798 !C
5799       B=.75-.065*Q
5800       C= 1.0
5801       IF (IONIC.LT.6.0) C=1.+.055*Q*EXP(-.023*IONIC*IONIC*IONIC)
5802       XX=-0.5107*SION/(1.+C*SION)
5803       BI=(1.+B*(1.+.1*IONIC)**Q-B)
5804       BI=ZIP*ALOG10(BI) + ZIP*XX
5805 !C
5806       RETURN
5807       END
5808 !C=======================================================================
5809 !C
5810 !C *** ISORROPIA CODE
5811 !C *** SUBROUTINE KMTAB
5812 !C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD.
5813 !C     THE COMPUTATIONS HAVE BEEN PERFORMED AND THE RESULTS ARE STORED IN
5814 !C     LOOKUP TABLES. THE IONIC ACTIVITY 'IONIC' IS INPUT, AND THE ARRAY
5815 !C     'BINARR' IS RETURNED WITH THE BINARY COEFFICIENTS.
5816 !C
5817 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
5818 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
5819 !C *** WRITTEN BY ATHANASIOS NENES
5820 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
5821 !C
5822 !C=======================================================================
5823 !C
5824       SUBROUTINE KMTAB2p1 (IN,TEMP,G01,G02,G03,G04,G05,G06,G07,G08,G09,G10, &
5825                         G11,G12,G15,G16,G17,G18,G19,G20,G21,G22,G23)
5826       REAL IN, Temp, binarray (23)
5827 !C
5828 !C *** Find temperature range
5829 !C
5830       IND = NINT((TEMP-198.0)/25.0) + 1
5831       IND = MIN(MAX(IND,1),6)
5832 !C
5833 !C *** Call appropriate routine
5834 !C
5835       IF (IND.EQ.1) THEN
5836          CALL KM1982p1 (IN,binarray)
5837       ELSEIF (IND.EQ.2) THEN
5838          CALL KM2232p1 (IN,binarray)
5839       ELSEIF (IND.EQ.3) THEN
5840          CALL KM2482p1 (IN,binarray)
5841       ELSEIF (IND.EQ.4) THEN
5842          CALL KM2732p1 (IN,binarray)
5843       ELSEIF (IND.EQ.5) THEN
5844          CALL KM2982p1 (IN,binarray)
5845       ELSE
5846          CALL KM3232p1 (IN,binarray)
5847       ENDIF
5848 !C
5849       G01 = binarray(01)
5850       G02 = binarray(02)
5851       G03 = binarray(03)
5852       G04 = binarray(04)
5853       G05 = binarray(05)
5854       G06 = binarray(06)
5855       G07 = binarray(07)
5856       G08 = binarray(08)
5857       G09 = binarray(09)
5858       G10 = binarray(10)
5859       G11 = binarray(11)
5860       G12 = binarray(12)
5861       G13 = binarray(13)
5862       G14 = binarray(14)
5863       G15 = binarray(15)
5864       G16 = binarray(16)
5865       G17 = binarray(17)
5866       G18 = binarray(18)
5867       G19 = binarray(19)
5868       G20 = binarray(20)
5869       G21 = binarray(21)
5870       G22 = binarray(22)
5871       G23 = binarray(23)
5872 !C
5873 !C *** Return point; End of subroutine
5874 !C
5875       RETURN
5876       END
5877
5878
5879 !C      INTEGER FUNCTION IBACPOS(IN)
5880 !CC
5881 !CC     Compute the index in the binary activity coefficient array
5882 !CC     based on the input ionic strength.
5883 !CC
5884 !CC     Chris Nolte, 6/16/05
5885 !CC
5886 !C      implicit none
5887 !C      real IN
5888 !C      IF (IN .LE. 0.300000E+02) THEN
5889 !C         ibacpos = MIN(NINT( 0.200000E+02*IN) + 1, 600)
5890 !C      ELSE
5891 !C         ibacpos =   600+NINT( 0.200000E+01*IN- 0.600000E+02)
5892 !C      ENDIF
5893 !C      ibacpos = min(ibacpos, 741)
5894 !C      return
5895 !C      end
5896
5897 !C=======================================================================
5898 !C
5899 !C *** ISORROPIA CODE
5900 !C *** SUBROUTINE KM198
5901 !C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD.
5902 !C     THE COMPUTATIONS HAVE BEEN PERFORMED AND THE RESULTS ARE STORED IN
5903 !C     LOOKUP TABLES. THE IONIC ACTIVITY 'IN' IS INPUT, AND THE ARRAY
5904 !C     'BINARR' IS RETURNED WITH THE BINARY COEFFICIENTS.
5905 !C
5906 !C     TEMPERATURE IS 198K
5907 !C
5908 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
5909 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
5910 !C *** WRITTEN BY ATHANASIOS NENES
5911 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
5912 !C
5913 !C=======================================================================
5914 !C
5915       SUBROUTINE KM1982p1 (IONIC, BINARR)
5916 !C
5917 !C *** Common block definition
5918 !C
5919       COMMON /KMC1982p1/ &
5920       BNC01M(  561),BNC02M(  561),BNC03M(  561),BNC04M(  561),&
5921       BNC05M(  561),BNC06M(  561),BNC07M(  561),BNC08M(  561),&
5922       BNC09M(  561),BNC10M(  561),BNC11M(  561),BNC12M(  561),&
5923       BNC13M(  561),BNC14M(  561),BNC15M(  561),BNC16M(  561),&
5924       BNC17M(  561),BNC18M(  561),BNC19M(  561),BNC20M(  561),&
5925       BNC21M(  561),BNC22M(  561),BNC23M(  561)
5926       REAL Binarr (23), Ionic
5927 !C
5928 !C *** Find position in arrays for bincoef
5929 !C
5930       IF (Ionic.LE. 0.200000E+02) THEN
5931          ipos = MIN(NINT( 0.200000E+02*Ionic) + 1,  400)
5932       ELSE
5933          ipos =   400+NINT( 0.200000E+01*Ionic- 0.400000E+02)
5934       ENDIF
5935       ipos = min(ipos,  561)
5936 !C
5937 !C *** Assign values to return array
5938 !C
5939       Binarr(01) = BNC01M(ipos)
5940       Binarr(02) = BNC02M(ipos)
5941       Binarr(03) = BNC03M(ipos)
5942       Binarr(04) = BNC04M(ipos)
5943       Binarr(05) = BNC05M(ipos)
5944       Binarr(06) = BNC06M(ipos)
5945       Binarr(07) = BNC07M(ipos)
5946       Binarr(08) = BNC08M(ipos)
5947       Binarr(09) = BNC09M(ipos)
5948       Binarr(10) = BNC10M(ipos)
5949       Binarr(11) = BNC11M(ipos)
5950       Binarr(12) = BNC12M(ipos)
5951       Binarr(13) = BNC13M(ipos)
5952       Binarr(14) = BNC14M(ipos)
5953       Binarr(15) = BNC15M(ipos)
5954       Binarr(16) = BNC16M(ipos)
5955       Binarr(17) = BNC17M(ipos)
5956       Binarr(18) = BNC18M(ipos)
5957       Binarr(19) = BNC19M(ipos)
5958       Binarr(20) = BNC20M(ipos)
5959       Binarr(21) = BNC21M(ipos)
5960       Binarr(22) = BNC22M(ipos)
5961       Binarr(23) = BNC23M(ipos)
5962 !C
5963 !C *** Return point ; End of subroutine
5964 !C
5965       RETURN
5966       END
5967
5968
5969       BLOCK DATA KMCF1982p1
5970 !C
5971 !C *** Common block definition
5972 !C
5973       COMMON /KMC1982p1/ &
5974       BNC01M(  561),BNC02M(  561),BNC03M(  561),BNC04M(  561),&
5975       BNC05M(  561),BNC06M(  561),BNC07M(  561),BNC08M(  561),&
5976       BNC09M(  561),BNC10M(  561),BNC11M(  561),BNC12M(  561),&
5977       BNC13M(  561),BNC14M(  561),BNC15M(  561),BNC16M(  561),&
5978       BNC17M(  561),BNC18M(  561),BNC19M(  561),BNC20M(  561),&
5979       BNC21M(  561),BNC22M(  561),BNC23M(  561)
5980
5981 !C
5982 !C *** NaCl
5983 !C
5984       DATA BNC01M/&
5985       -0.050,-0.103,-0.127,-0.142,-0.154,-0.162,-0.169,-0.174,-0.178,&
5986       -0.181,-0.184,-0.186,-0.188,-0.189,-0.190,-0.191,-0.191,-0.192,&
5987       -0.192,-0.191,-0.191,-0.191,-0.190,-0.189,-0.188,-0.188,-0.187,&
5988       -0.185,-0.184,-0.183,-0.182,-0.181,-0.179,-0.178,-0.176,-0.175,&
5989       -0.173,-0.172,-0.170,-0.169,-0.167,-0.166,-0.164,-0.162,-0.161,&
5990       -0.159,-0.157,-0.156,-0.154,-0.152,-0.151,-0.149,-0.147,-0.146,&
5991       -0.144,-0.142,-0.140,-0.139,-0.137,-0.135,-0.134,-0.132,-0.130,&
5992       -0.128,-0.127,-0.125,-0.123,-0.121,-0.120,-0.118,-0.116,-0.114,&
5993       -0.112,-0.111,-0.109,-0.107,-0.105,-0.103,-0.101,-0.099,-0.098,&
5994       -0.096,-0.094,-0.092,-0.090,-0.088,-0.086,-0.084,-0.082,-0.080,&
5995       -0.078,-0.075,-0.073,-0.071,-0.069,-0.067,-0.065,-0.063,-0.060,&
5996       -0.058,-0.056,-0.054,-0.051,-0.049,-0.047,-0.045,-0.042,-0.040,&
5997       -0.038,-0.035,-0.033,-0.031,-0.028,-0.026,-0.024,-0.021,-0.019,&
5998       -0.016,-0.014,-0.012,-0.009,-0.007,-0.004,-0.002, 0.000, 0.003,&
5999       0.005, 0.008, 0.010, 0.012, 0.015, 0.017, 0.020, 0.022, 0.024,&
6000       0.027, 0.029, 0.032, 0.034, 0.036, 0.039, 0.041, 0.044, 0.046,&
6001       0.048, 0.051, 0.053, 0.055, 0.058, 0.060, 0.063, 0.065, 0.067,&
6002       0.070, 0.072, 0.074, 0.077, 0.079, 0.081, 0.084, 0.086, 0.088,&
6003       0.091, 0.093, 0.095, 0.098, 0.100, 0.102, 0.105, 0.107, 0.109,&
6004       0.112, 0.114, 0.116, 0.118, 0.121, 0.123, 0.125, 0.127, 0.130,&
6005       0.132, 0.134, 0.137, 0.139, 0.141, 0.143, 0.146, 0.148, 0.150,&
6006       0.152, 0.154, 0.157, 0.159, 0.161, 0.163, 0.166, 0.168, 0.170,&
6007       0.172, 0.174, 0.176, 0.179, 0.181, 0.183, 0.185, 0.187, 0.190,&
6008       0.192, 0.194, 0.196, 0.198, 0.200, 0.202, 0.205, 0.207, 0.209,&
6009       0.211, 0.213, 0.215, 0.217, 0.219, 0.222, 0.224, 0.226, 0.228,&
6010       0.230, 0.232, 0.234, 0.236, 0.238, 0.240, 0.242, 0.244, 0.246,&
6011       0.249, 0.251, 0.253, 0.255, 0.257, 0.259, 0.261, 0.263, 0.265,&
6012       0.267, 0.269, 0.271, 0.273, 0.275, 0.277, 0.279, 0.281, 0.283,&
6013       0.285, 0.287, 0.289, 0.291, 0.293, 0.295, 0.297, 0.299, 0.301,&
6014       0.303, 0.304, 0.306, 0.308, 0.310, 0.312, 0.314, 0.316, 0.318,&
6015       0.320, 0.322, 0.324, 0.326, 0.328, 0.329, 0.331, 0.333, 0.335,&
6016       0.337, 0.339, 0.341, 0.343, 0.344, 0.346, 0.348, 0.350, 0.352,&
6017       0.354, 0.356, 0.357, 0.359, 0.361, 0.363, 0.365, 0.367, 0.368,&
6018       0.370, 0.372, 0.374, 0.376, 0.377, 0.379, 0.381, 0.383, 0.385,&
6019       0.386, 0.388, 0.390, 0.392, 0.393, 0.395, 0.397, 0.399, 0.401,&
6020       0.402, 0.404, 0.406, 0.408, 0.409, 0.411, 0.413, 0.414, 0.416,&
6021       0.418, 0.420, 0.421, 0.423, 0.425, 0.426, 0.428, 0.430, 0.432,&
6022       0.433, 0.435, 0.437, 0.438, 0.440, 0.442, 0.443, 0.445, 0.447,&
6023       0.448, 0.450, 0.452, 0.453, 0.455, 0.457, 0.458, 0.460, 0.461,&
6024       0.463, 0.465, 0.466, 0.468, 0.470, 0.471, 0.473, 0.474, 0.476,&
6025       0.478, 0.479, 0.481, 0.482, 0.484, 0.486, 0.487, 0.489, 0.490,&
6026       0.492, 0.493, 0.495, 0.497, 0.498, 0.500, 0.501, 0.503, 0.504,&
6027       0.506, 0.508, 0.509, 0.511, 0.512, 0.514, 0.515, 0.517, 0.518,&
6028       0.520, 0.521, 0.523, 0.524, 0.526, 0.527, 0.529, 0.530, 0.532,&
6029       0.533, 0.535, 0.536, 0.538, 0.554, 0.568, 0.582, 0.596, 0.610,&
6030       0.623, 0.636, 0.649, 0.661, 0.674, 0.686, 0.698, 0.709, 0.721,&
6031       0.732, 0.743, 0.754, 0.765, 0.775, 0.786, 0.796, 0.806, 0.815,&
6032       0.825, 0.834, 0.844, 0.853, 0.862, 0.870, 0.879, 0.887, 0.896,&
6033       0.904, 0.912, 0.920, 0.928, 0.935, 0.943, 0.950, 0.957, 0.964,&
6034       0.971, 0.978, 0.985, 0.992, 0.998, 1.005, 1.011, 1.017, 1.023,&
6035       1.029, 1.035, 1.041, 1.047, 1.052, 1.058, 1.063, 1.068, 1.074,&
6036       1.079, 1.084, 1.089, 1.094, 1.099, 1.103, 1.108, 1.112, 1.117,&
6037       1.121, 1.126, 1.130, 1.134, 1.138, 1.142, 1.146, 1.150, 1.154,&
6038       1.158, 1.161, 1.165, 1.169, 1.172, 1.175, 1.179, 1.182, 1.185,&
6039       1.189, 1.192, 1.195, 1.198, 1.201, 1.204, 1.206, 1.209, 1.212,&
6040       1.215, 1.217, 1.220, 1.222, 1.225, 1.227, 1.230, 1.232, 1.234,&
6041       1.236, 1.239, 1.241, 1.243, 1.245, 1.247, 1.249, 1.251, 1.253,&
6042       1.254, 1.256, 1.258, 1.260, 1.261, 1.263, 1.264, 1.266, 1.267,&
6043       1.269, 1.270, 1.272, 1.273, 1.274, 1.276, 1.277, 1.278, 1.279,&
6044       1.280, 1.281, 1.283, 1.284, 1.285, 1.286, 1.286, 1.287, 1.288,&
6045       1.289, 1.290, 1.291, 1.291, 1.292, 1.293, 1.293, 1.294, 1.295,&
6046       1.295, 1.296, 1.296, 1.297, 1.297, 1.297, 1.298, 1.298, 1.298,&
6047       1.299, 1.299, 1.299&
6048       /
6049 !C
6050 !C *** Na2SO4
6051 !C
6052       DATA BNC02M/&
6053      -0.103,-0.225,-0.288,-0.332,-0.367,-0.397,-0.422,-0.445,-0.465,&
6054      -0.484,-0.501,-0.516,-0.531,-0.545,-0.558,-0.570,-0.582,-0.593,&
6055      -0.604,-0.614,-0.624,-0.633,-0.643,-0.651,-0.660,-0.668,-0.676,&
6056      -0.684,-0.692,-0.699,-0.707,-0.714,-0.721,-0.727,-0.734,-0.741,&
6057      -0.747,-0.753,-0.759,-0.765,-0.771,-0.777,-0.783,-0.788,-0.794,&
6058      -0.799,-0.804,-0.810,-0.815,-0.820,-0.825,-0.830,-0.835,-0.840,&
6059      -0.845,-0.849,-0.854,-0.859,-0.863,-0.868,-0.872,-0.877,-0.881,&
6060      -0.885,-0.889,-0.894,-0.898,-0.902,-0.906,-0.910,-0.914,-0.918,&
6061      -0.922,-0.926,-0.930,-0.934,-0.938,-0.942,-0.946,-0.949,-0.953,&
6062      -0.957,-0.961,-0.964,-0.968,-0.971,-0.975,-0.979,-0.982,-0.986,&
6063      -0.989,-0.993,-0.996,-1.000,-1.003,-1.007,-1.010,-1.014,-1.017,&
6064      -1.020,-1.024,-1.027,-1.030,-1.034,-1.037,-1.040,-1.044,-1.047,&
6065      -1.050,-1.053,-1.057,-1.060,-1.063,-1.066,-1.069,-1.072,-1.076,&
6066      -1.079,-1.082,-1.085,-1.088,-1.091,-1.094,-1.097,-1.100,-1.103,&
6067      -1.106,-1.109,-1.112,-1.115,-1.118,-1.121,-1.124,-1.127,-1.130,&
6068      -1.133,-1.136,-1.139,-1.142,-1.145,-1.147,-1.150,-1.153,-1.156,&
6069      -1.159,-1.162,-1.165,-1.167,-1.170,-1.173,-1.176,-1.179,-1.181,&
6070      -1.184,-1.187,-1.190,-1.192,-1.195,-1.198,-1.200,-1.203,-1.206,&
6071      -1.209,-1.211,-1.214,-1.217,-1.219,-1.222,-1.225,-1.227,-1.230,&
6072      -1.232,-1.235,-1.238,-1.240,-1.243,-1.246,-1.248,-1.251,-1.253,&
6073      -1.256,-1.258,-1.261,-1.264,-1.266,-1.269,-1.271,-1.274,-1.276,&
6074      -1.279,-1.281,-1.284,-1.286,-1.289,-1.291,-1.294,-1.296,-1.299,&
6075      -1.301,-1.304,-1.306,-1.309,-1.311,-1.313,-1.316,-1.318,-1.321,&
6076      -1.323,-1.326,-1.328,-1.330,-1.333,-1.335,-1.338,-1.340,-1.342,&
6077      -1.345,-1.347,-1.350,-1.352,-1.354,-1.357,-1.359,-1.361,-1.364,&
6078      -1.366,-1.368,-1.371,-1.373,-1.375,-1.378,-1.380,-1.382,-1.385,&
6079      -1.387,-1.389,-1.392,-1.394,-1.396,-1.399,-1.401,-1.403,-1.405,&
6080      -1.408,-1.410,-1.412,-1.415,-1.417,-1.419,-1.421,-1.424,-1.426,&
6081      -1.428,-1.430,-1.433,-1.435,-1.437,-1.439,-1.442,-1.444,-1.446,&
6082      -1.448,-1.450,-1.453,-1.455,-1.457,-1.459,-1.461,-1.464,-1.466,&
6083      -1.468,-1.470,-1.472,-1.475,-1.477,-1.479,-1.481,-1.483,-1.485,&
6084      -1.488,-1.490,-1.492,-1.494,-1.496,-1.498,-1.501,-1.503,-1.505,&
6085      -1.507,-1.509,-1.511,-1.513,-1.516,-1.518,-1.520,-1.522,-1.524,&
6086      -1.526,-1.528,-1.530,-1.533,-1.535,-1.537,-1.539,-1.541,-1.543,&
6087      -1.545,-1.547,-1.549,-1.551,-1.554,-1.556,-1.558,-1.560,-1.562,&
6088      -1.564,-1.566,-1.568,-1.570,-1.572,-1.574,-1.576,-1.578,-1.580,&
6089      -1.583,-1.585,-1.587,-1.589,-1.591,-1.593,-1.595,-1.597,-1.599,&
6090      -1.601,-1.603,-1.605,-1.607,-1.609,-1.611,-1.613,-1.615,-1.617,&
6091      -1.619,-1.621,-1.623,-1.625,-1.627,-1.629,-1.631,-1.633,-1.635,&
6092      -1.637,-1.639,-1.641,-1.643,-1.645,-1.647,-1.649,-1.651,-1.653,&
6093      -1.655,-1.657,-1.659,-1.661,-1.663,-1.665,-1.667,-1.669,-1.671,&
6094      -1.673,-1.675,-1.677,-1.679,-1.681,-1.683,-1.685,-1.687,-1.689,&
6095      -1.691,-1.693,-1.695,-1.696,-1.698,-1.700,-1.702,-1.704,-1.706,&
6096      -1.708,-1.710,-1.712,-1.714,-1.716,-1.718,-1.720,-1.722,-1.724,&
6097      -1.726,-1.727,-1.729,-1.731,-1.752,-1.771,-1.790,-1.808,-1.827,&
6098      -1.845,-1.864,-1.882,-1.900,-1.918,-1.936,-1.954,-1.972,-1.989,&
6099      -2.007,-2.024,-2.042,-2.059,-2.076,-2.093,-2.110,-2.127,-2.144,&
6100      -2.161,-2.178,-2.194,-2.211,-2.228,-2.244,-2.261,-2.277,-2.293,&
6101      -2.310,-2.326,-2.342,-2.358,-2.374,-2.390,-2.406,-2.422,-2.438,&
6102      -2.454,-2.470,-2.486,-2.501,-2.517,-2.533,-2.548,-2.564,-2.579,&
6103      -2.595,-2.610,-2.626,-2.641,-2.657,-2.672,-2.687,-2.702,-2.718,&
6104      -2.733,-2.748,-2.763,-2.778,-2.793,-2.808,-2.823,-2.838,-2.853,&
6105      -2.868,-2.883,-2.898,-2.913,-2.927,-2.942,-2.957,-2.972,-2.986,&
6106      -3.001,-3.016,-3.030,-3.045,-3.059,-3.074,-3.089,-3.103,-3.118,&
6107      -3.132,-3.147,-3.161,-3.175,-3.190,-3.204,-3.219,-3.233,-3.247,&
6108      -3.261,-3.276,-3.290,-3.304,-3.318,-3.333,-3.347,-3.361,-3.375,&
6109      -3.389,-3.403,-3.417,-3.432,-3.446,-3.460,-3.474,-3.488,-3.502,&
6110      -3.516,-3.530,-3.544,-3.558,-3.571,-3.585,-3.599,-3.613,-3.627,&
6111      -3.641,-3.655,-3.669,-3.682,-3.696,-3.710,-3.724,-3.737,-3.751,&
6112      -3.765,-3.779,-3.792,-3.806,-3.820,-3.833,-3.847,-3.861,-3.874,&
6113      -3.888,-3.901,-3.915,-3.929,-3.942,-3.956,-3.969,-3.983,-3.996,&
6114      -4.010,-4.023,-4.037,-4.050,-4.064,-4.077,-4.091,-4.104,-4.118,&
6115      -4.131,-4.144,-4.158&
6116       /
6117 !C
6118 !C *** NaNO3
6119 !C
6120       DATA BNC03M/&
6121      -0.052,-0.114,-0.145,-0.168,-0.187,-0.202,-0.215,-0.227,-0.238,&
6122      -0.248,-0.257,-0.265,-0.273,-0.281,-0.288,-0.294,-0.301,-0.307,&
6123      -0.313,-0.318,-0.324,-0.329,-0.334,-0.339,-0.344,-0.349,-0.353,&
6124      -0.357,-0.362,-0.366,-0.370,-0.374,-0.378,-0.382,-0.386,-0.389,&
6125      -0.393,-0.396,-0.400,-0.403,-0.407,-0.410,-0.413,-0.416,-0.419,&
6126      -0.423,-0.426,-0.429,-0.432,-0.435,-0.437,-0.440,-0.443,-0.446,&
6127      -0.449,-0.451,-0.454,-0.457,-0.459,-0.462,-0.464,-0.467,-0.469,&
6128      -0.472,-0.474,-0.477,-0.479,-0.482,-0.484,-0.486,-0.489,-0.491,&
6129      -0.493,-0.496,-0.498,-0.500,-0.502,-0.505,-0.507,-0.509,-0.511,&
6130      -0.513,-0.516,-0.518,-0.520,-0.522,-0.524,-0.526,-0.528,-0.530,&
6131      -0.532,-0.534,-0.537,-0.539,-0.541,-0.543,-0.545,-0.547,-0.549,&
6132      -0.551,-0.553,-0.555,-0.557,-0.559,-0.561,-0.562,-0.564,-0.566,&
6133      -0.568,-0.570,-0.572,-0.574,-0.576,-0.578,-0.580,-0.582,-0.583,&
6134      -0.585,-0.587,-0.589,-0.591,-0.593,-0.594,-0.596,-0.598,-0.600,&
6135      -0.602,-0.604,-0.605,-0.607,-0.609,-0.611,-0.612,-0.614,-0.616,&
6136      -0.618,-0.619,-0.621,-0.623,-0.625,-0.626,-0.628,-0.630,-0.631,&
6137      -0.633,-0.635,-0.637,-0.638,-0.640,-0.642,-0.643,-0.645,-0.647,&
6138      -0.648,-0.650,-0.651,-0.653,-0.655,-0.656,-0.658,-0.660,-0.661,&
6139      -0.663,-0.664,-0.666,-0.668,-0.669,-0.671,-0.672,-0.674,-0.676,&
6140      -0.677,-0.679,-0.680,-0.682,-0.683,-0.685,-0.686,-0.688,-0.689,&
6141      -0.691,-0.693,-0.694,-0.696,-0.697,-0.699,-0.700,-0.702,-0.703,&
6142      -0.705,-0.706,-0.708,-0.709,-0.711,-0.712,-0.714,-0.715,-0.717,&
6143      -0.718,-0.719,-0.721,-0.722,-0.724,-0.725,-0.727,-0.728,-0.730,&
6144      -0.731,-0.733,-0.734,-0.735,-0.737,-0.738,-0.740,-0.741,-0.743,&
6145      -0.744,-0.745,-0.747,-0.748,-0.750,-0.751,-0.752,-0.754,-0.755,&
6146      -0.757,-0.758,-0.759,-0.761,-0.762,-0.763,-0.765,-0.766,-0.768,&
6147      -0.769,-0.770,-0.772,-0.773,-0.774,-0.776,-0.777,-0.778,-0.780,&
6148      -0.781,-0.782,-0.784,-0.785,-0.787,-0.788,-0.789,-0.791,-0.792,&
6149      -0.793,-0.794,-0.796,-0.797,-0.798,-0.800,-0.801,-0.802,-0.804,&
6150      -0.805,-0.806,-0.808,-0.809,-0.810,-0.812,-0.813,-0.814,-0.815,&
6151      -0.817,-0.818,-0.819,-0.821,-0.822,-0.823,-0.824,-0.826,-0.827,&
6152      -0.828,-0.829,-0.831,-0.832,-0.833,-0.835,-0.836,-0.837,-0.838,&
6153      -0.840,-0.841,-0.842,-0.843,-0.845,-0.846,-0.847,-0.848,-0.850,&
6154      -0.851,-0.852,-0.853,-0.854,-0.856,-0.857,-0.858,-0.859,-0.861,&
6155      -0.862,-0.863,-0.864,-0.866,-0.867,-0.868,-0.869,-0.870,-0.872,&
6156      -0.873,-0.874,-0.875,-0.876,-0.878,-0.879,-0.880,-0.881,-0.882,&
6157      -0.884,-0.885,-0.886,-0.887,-0.888,-0.890,-0.891,-0.892,-0.893,&
6158      -0.894,-0.896,-0.897,-0.898,-0.899,-0.900,-0.901,-0.903,-0.904,&
6159      -0.905,-0.906,-0.907,-0.908,-0.910,-0.911,-0.912,-0.913,-0.914,&
6160      -0.915,-0.917,-0.918,-0.919,-0.920,-0.921,-0.922,-0.924,-0.925,&
6161      -0.926,-0.927,-0.928,-0.929,-0.930,-0.932,-0.933,-0.934,-0.935,&
6162      -0.936,-0.937,-0.938,-0.940,-0.941,-0.942,-0.943,-0.944,-0.945,&
6163      -0.946,-0.947,-0.949,-0.950,-0.951,-0.952,-0.953,-0.954,-0.955,&
6164      -0.956,-0.958,-0.959,-0.960,-0.961,-0.962,-0.963,-0.964,-0.965,&
6165      -0.966,-0.968,-0.969,-0.970,-0.982,-0.992,-1.003,-1.014,-1.025,&
6166      -1.035,-1.046,-1.056,-1.066,-1.076,-1.087,-1.097,-1.107,-1.117,&
6167      -1.126,-1.136,-1.146,-1.156,-1.165,-1.175,-1.185,-1.194,-1.203,&
6168      -1.213,-1.222,-1.231,-1.241,-1.250,-1.259,-1.268,-1.277,-1.286,&
6169      -1.295,-1.304,-1.313,-1.322,-1.331,-1.340,-1.349,-1.357,-1.366,&
6170      -1.375,-1.383,-1.392,-1.401,-1.409,-1.418,-1.426,-1.435,-1.443,&
6171      -1.452,-1.460,-1.468,-1.477,-1.485,-1.493,-1.502,-1.510,-1.518,&
6172      -1.526,-1.535,-1.543,-1.551,-1.559,-1.567,-1.575,-1.583,-1.591,&
6173      -1.599,-1.607,-1.615,-1.623,-1.631,-1.639,-1.647,-1.655,-1.663,&
6174      -1.671,-1.679,-1.686,-1.694,-1.702,-1.710,-1.718,-1.725,-1.733,&
6175      -1.741,-1.749,-1.756,-1.764,-1.772,-1.779,-1.787,-1.794,-1.802,&
6176      -1.810,-1.817,-1.825,-1.832,-1.840,-1.847,-1.855,-1.862,-1.870,&
6177      -1.877,-1.885,-1.892,-1.900,-1.907,-1.915,-1.922,-1.929,-1.937,&
6178      -1.944,-1.952,-1.959,-1.966,-1.974,-1.981,-1.988,-1.996,-2.003,&
6179      -2.010,-2.018,-2.025,-2.032,-2.039,-2.047,-2.054,-2.061,-2.068,&
6180      -2.075,-2.083,-2.090,-2.097,-2.104,-2.111,-2.118,-2.126,-2.133,&
6181      -2.140,-2.147,-2.154,-2.161,-2.168,-2.175,-2.183,-2.190,-2.197,&
6182      -2.204,-2.211,-2.218,-2.225,-2.232,-2.239,-2.246,-2.253,-2.260,&
6183      -2.267,-2.274,-2.281&
6184       /
6185 !C
6186 !C *** (NH4)2SO4
6187 !C
6188       DATA BNC04M/&
6189       -0.103,-0.226,-0.289,-0.334,-0.369,-0.399,-0.425,-0.448,-0.468,&
6190       -0.487,-0.505,-0.521,-0.536,-0.550,-0.563,-0.576,-0.588,-0.599,&
6191       -0.610,-0.621,-0.631,-0.641,-0.650,-0.659,-0.668,-0.677,-0.685,&
6192       -0.693,-0.701,-0.709,-0.717,-0.724,-0.731,-0.738,-0.745,-0.752,&
6193       -0.758,-0.765,-0.771,-0.777,-0.784,-0.790,-0.796,-0.801,-0.807,&
6194       -0.813,-0.818,-0.824,-0.829,-0.835,-0.840,-0.845,-0.850,-0.855,&
6195       -0.860,-0.865,-0.870,-0.875,-0.880,-0.884,-0.889,-0.894,-0.898,&
6196       -0.903,-0.907,-0.912,-0.916,-0.920,-0.925,-0.929,-0.933,-0.937,&
6197       -0.942,-0.946,-0.950,-0.954,-0.958,-0.962,-0.966,-0.970,-0.974,&
6198       -0.978,-0.982,-0.985,-0.989,-0.993,-0.997,-1.001,-1.004,-1.008,&
6199       -1.012,-1.016,-1.019,-1.023,-1.027,-1.030,-1.034,-1.037,-1.041,&
6200       -1.045,-1.048,-1.052,-1.055,-1.059,-1.062,-1.066,-1.069,-1.072,&
6201       -1.076,-1.079,-1.083,-1.086,-1.089,-1.093,-1.096,-1.099,-1.103,&
6202       -1.106,-1.109,-1.113,-1.116,-1.119,-1.122,-1.126,-1.129,-1.132,&
6203       -1.135,-1.138,-1.142,-1.145,-1.148,-1.151,-1.154,-1.157,-1.160,&
6204       -1.164,-1.167,-1.170,-1.173,-1.176,-1.179,-1.182,-1.185,-1.188,&
6205       -1.191,-1.194,-1.197,-1.200,-1.203,-1.206,-1.209,-1.212,-1.215,&
6206       -1.218,-1.221,-1.223,-1.226,-1.229,-1.232,-1.235,-1.238,-1.241,&
6207       -1.244,-1.246,-1.249,-1.252,-1.255,-1.258,-1.261,-1.263,-1.266,&
6208       -1.269,-1.272,-1.274,-1.277,-1.280,-1.283,-1.285,-1.288,-1.291,&
6209       -1.294,-1.296,-1.299,-1.302,-1.304,-1.307,-1.310,-1.313,-1.315,&
6210       -1.318,-1.321,-1.323,-1.326,-1.328,-1.331,-1.334,-1.336,-1.339,&
6211       -1.342,-1.344,-1.347,-1.349,-1.352,-1.355,-1.357,-1.360,-1.362,&
6212       -1.365,-1.367,-1.370,-1.373,-1.375,-1.378,-1.380,-1.383,-1.385,&
6213       -1.388,-1.390,-1.393,-1.395,-1.398,-1.400,-1.403,-1.405,-1.408,&
6214       -1.410,-1.413,-1.415,-1.418,-1.420,-1.423,-1.425,-1.427,-1.430,&
6215       -1.432,-1.435,-1.437,-1.440,-1.442,-1.445,-1.447,-1.449,-1.452,&
6216       -1.454,-1.457,-1.459,-1.461,-1.464,-1.466,-1.469,-1.471,-1.473,&
6217       -1.476,-1.478,-1.480,-1.483,-1.485,-1.487,-1.490,-1.492,-1.495,&
6218       -1.497,-1.499,-1.502,-1.504,-1.506,-1.509,-1.511,-1.513,-1.515,&
6219       -1.518,-1.520,-1.522,-1.525,-1.527,-1.529,-1.532,-1.534,-1.536,&
6220       -1.538,-1.541,-1.543,-1.545,-1.548,-1.550,-1.552,-1.554,-1.557,&
6221       -1.559,-1.561,-1.563,-1.566,-1.568,-1.570,-1.572,-1.575,-1.577,&
6222       -1.579,-1.581,-1.583,-1.586,-1.588,-1.590,-1.592,-1.595,-1.597,&
6223       -1.599,-1.601,-1.603,-1.606,-1.608,-1.610,-1.612,-1.614,-1.616,&
6224       -1.619,-1.621,-1.623,-1.625,-1.627,-1.630,-1.632,-1.634,-1.636,&
6225       -1.638,-1.640,-1.642,-1.645,-1.647,-1.649,-1.651,-1.653,-1.655,&
6226       -1.658,-1.660,-1.662,-1.664,-1.666,-1.668,-1.670,-1.672,-1.675,&
6227       -1.677,-1.679,-1.681,-1.683,-1.685,-1.687,-1.689,-1.691,-1.694,&
6228       -1.696,-1.698,-1.700,-1.702,-1.704,-1.706,-1.708,-1.710,-1.712,&
6229       -1.714,-1.717,-1.719,-1.721,-1.723,-1.725,-1.727,-1.729,-1.731,&
6230       -1.733,-1.735,-1.737,-1.739,-1.741,-1.743,-1.745,-1.748,-1.750,&
6231       -1.752,-1.754,-1.756,-1.758,-1.760,-1.762,-1.764,-1.766,-1.768,&
6232       -1.770,-1.772,-1.774,-1.776,-1.778,-1.780,-1.782,-1.784,-1.786,&
6233       -1.788,-1.790,-1.792,-1.794,-1.816,-1.836,-1.855,-1.875,-1.894,&
6234       -1.914,-1.933,-1.952,-1.971,-1.989,-2.008,-2.027,-2.045,-2.063,&
6235       -2.082,-2.100,-2.118,-2.136,-2.154,-2.171,-2.189,-2.207,-2.224,&
6236       -2.242,-2.259,-2.276,-2.293,-2.311,-2.328,-2.345,-2.362,-2.379,&
6237       -2.395,-2.412,-2.429,-2.446,-2.462,-2.479,-2.495,-2.512,-2.528,&
6238       -2.544,-2.561,-2.577,-2.593,-2.609,-2.625,-2.642,-2.658,-2.674,&
6239       -2.689,-2.705,-2.721,-2.737,-2.753,-2.768,-2.784,-2.800,-2.815,&
6240       -2.831,-2.847,-2.862,-2.878,-2.893,-2.908,-2.924,-2.939,-2.954,&
6241       -2.970,-2.985,-3.000,-3.015,-3.031,-3.046,-3.061,-3.076,-3.091,&
6242       -3.106,-3.121,-3.136,-3.151,-3.166,-3.181,-3.196,-3.210,-3.225,&
6243       -3.240,-3.255,-3.270,-3.284,-3.299,-3.314,-3.328,-3.343,-3.358,&
6244       -3.372,-3.387,-3.401,-3.416,-3.430,-3.445,-3.459,-3.474,-3.488,&
6245       -3.503,-3.517,-3.531,-3.546,-3.560,-3.574,-3.589,-3.603,-3.617,&
6246       -3.631,-3.646,-3.660,-3.674,-3.688,-3.702,-3.717,-3.731,-3.745,&
6247       -3.759,-3.773,-3.787,-3.801,-3.815,-3.829,-3.843,-3.857,-3.871,&
6248       -3.885,-3.899,-3.913,-3.927,-3.941,-3.955,-3.969,-3.982,-3.996,&
6249       -4.010,-4.024,-4.038,-4.051,-4.065,-4.079,-4.093,-4.107,-4.120,&
6250       -4.134,-4.148,-4.161,-4.175,-4.189,-4.202,-4.216,-4.230,-4.243,&
6251       -4.257,-4.271,-4.284&
6252       /
6253 !C
6254 !C *** NH4NO3
6255 !C
6256       DATA BNC05M/&
6257       -0.052,-0.117,-0.152,-0.178,-0.199,-0.217,-0.232,-0.247,-0.260,&
6258       -0.272,-0.283,-0.294,-0.304,-0.314,-0.323,-0.332,-0.341,-0.349,&
6259       -0.357,-0.365,-0.372,-0.379,-0.386,-0.393,-0.400,-0.407,-0.413,&
6260       -0.419,-0.426,-0.432,-0.437,-0.443,-0.449,-0.455,-0.460,-0.466,&
6261       -0.471,-0.476,-0.481,-0.486,-0.491,-0.496,-0.501,-0.506,-0.511,&
6262       -0.515,-0.520,-0.524,-0.529,-0.533,-0.537,-0.542,-0.546,-0.550,&
6263       -0.554,-0.558,-0.563,-0.567,-0.570,-0.574,-0.578,-0.582,-0.586,&
6264       -0.590,-0.593,-0.597,-0.601,-0.604,-0.608,-0.612,-0.615,-0.619,&
6265       -0.622,-0.626,-0.629,-0.633,-0.636,-0.640,-0.643,-0.646,-0.650,&
6266       -0.653,-0.656,-0.660,-0.663,-0.666,-0.670,-0.673,-0.676,-0.679,&
6267       -0.683,-0.686,-0.689,-0.692,-0.696,-0.699,-0.702,-0.705,-0.708,&
6268       -0.711,-0.715,-0.718,-0.721,-0.724,-0.727,-0.730,-0.733,-0.736,&
6269       -0.739,-0.742,-0.746,-0.749,-0.752,-0.755,-0.758,-0.761,-0.764,&
6270       -0.767,-0.770,-0.773,-0.776,-0.778,-0.781,-0.784,-0.787,-0.790,&
6271       -0.793,-0.796,-0.799,-0.802,-0.805,-0.807,-0.810,-0.813,-0.816,&
6272       -0.819,-0.821,-0.824,-0.827,-0.830,-0.833,-0.835,-0.838,-0.841,&
6273       -0.843,-0.846,-0.849,-0.852,-0.854,-0.857,-0.860,-0.862,-0.865,&
6274       -0.867,-0.870,-0.873,-0.875,-0.878,-0.880,-0.883,-0.886,-0.888,&
6275       -0.891,-0.893,-0.896,-0.898,-0.901,-0.903,-0.906,-0.908,-0.911,&
6276       -0.913,-0.916,-0.918,-0.921,-0.923,-0.926,-0.928,-0.930,-0.933,&
6277       -0.935,-0.938,-0.940,-0.942,-0.945,-0.947,-0.950,-0.952,-0.954,&
6278       -0.957,-0.959,-0.961,-0.964,-0.966,-0.968,-0.971,-0.973,-0.975,&
6279       -0.977,-0.980,-0.982,-0.984,-0.987,-0.989,-0.991,-0.993,-0.996,&
6280       -0.998,-1.000,-1.002,-1.004,-1.007,-1.009,-1.011,-1.013,-1.015,&
6281       -1.018,-1.020,-1.022,-1.024,-1.026,-1.028,-1.031,-1.033,-1.035,&
6282       -1.037,-1.039,-1.041,-1.043,-1.046,-1.048,-1.050,-1.052,-1.054,&
6283       -1.056,-1.058,-1.060,-1.062,-1.064,-1.066,-1.068,-1.070,-1.072,&
6284       -1.075,-1.077,-1.079,-1.081,-1.083,-1.085,-1.087,-1.089,-1.091,&
6285       -1.093,-1.095,-1.097,-1.099,-1.101,-1.103,-1.105,-1.107,-1.109,&
6286       -1.110,-1.112,-1.114,-1.116,-1.118,-1.120,-1.122,-1.124,-1.126,&
6287       -1.128,-1.130,-1.132,-1.134,-1.136,-1.137,-1.139,-1.141,-1.143,&
6288       -1.145,-1.147,-1.149,-1.151,-1.153,-1.154,-1.156,-1.158,-1.160,&
6289       -1.162,-1.164,-1.166,-1.167,-1.169,-1.171,-1.173,-1.175,-1.176,&
6290       -1.178,-1.180,-1.182,-1.184,-1.186,-1.187,-1.189,-1.191,-1.193,&
6291       -1.195,-1.196,-1.198,-1.200,-1.202,-1.203,-1.205,-1.207,-1.209,&
6292       -1.210,-1.212,-1.214,-1.216,-1.217,-1.219,-1.221,-1.223,-1.224,&
6293       -1.226,-1.228,-1.230,-1.231,-1.233,-1.235,-1.236,-1.238,-1.240,&
6294       -1.241,-1.243,-1.245,-1.247,-1.248,-1.250,-1.252,-1.253,-1.255,&
6295       -1.257,-1.258,-1.260,-1.262,-1.263,-1.265,-1.267,-1.268,-1.270,&
6296       -1.272,-1.273,-1.275,-1.276,-1.278,-1.280,-1.281,-1.283,-1.285,&
6297       -1.286,-1.288,-1.289,-1.291,-1.293,-1.294,-1.296,-1.298,-1.299,&
6298       -1.301,-1.302,-1.304,-1.306,-1.307,-1.309,-1.310,-1.312,-1.313,&
6299       -1.315,-1.317,-1.318,-1.320,-1.321,-1.323,-1.324,-1.326,-1.328,&
6300       -1.329,-1.331,-1.332,-1.334,-1.335,-1.337,-1.338,-1.340,-1.341,&
6301       -1.343,-1.345,-1.346,-1.348,-1.364,-1.379,-1.394,-1.408,-1.422,&
6302       -1.436,-1.450,-1.464,-1.478,-1.491,-1.504,-1.518,-1.531,-1.543,&
6303       -1.556,-1.569,-1.581,-1.593,-1.606,-1.618,-1.630,-1.641,-1.653,&
6304       -1.665,-1.676,-1.688,-1.699,-1.710,-1.722,-1.733,-1.744,-1.755,&
6305       -1.765,-1.776,-1.787,-1.797,-1.808,-1.818,-1.829,-1.839,-1.849,&
6306       -1.859,-1.870,-1.880,-1.890,-1.900,-1.909,-1.919,-1.929,-1.939,&
6307       -1.948,-1.958,-1.968,-1.977,-1.986,-1.996,-2.005,-2.015,-2.024,&
6308       -2.033,-2.042,-2.051,-2.060,-2.070,-2.079,-2.088,-2.096,-2.105,&
6309       -2.114,-2.123,-2.132,-2.141,-2.149,-2.158,-2.167,-2.175,-2.184,&
6310       -2.193,-2.201,-2.210,-2.218,-2.226,-2.235,-2.243,-2.252,-2.260,&
6311       -2.268,-2.277,-2.285,-2.293,-2.301,-2.309,-2.318,-2.326,-2.334,&
6312       -2.342,-2.350,-2.358,-2.366,-2.374,-2.382,-2.390,-2.398,-2.406,&
6313       -2.414,-2.422,-2.429,-2.437,-2.445,-2.453,-2.461,-2.468,-2.476,&
6314       -2.484,-2.492,-2.499,-2.507,-2.515,-2.522,-2.530,-2.537,-2.545,&
6315       -2.553,-2.560,-2.568,-2.575,-2.583,-2.590,-2.598,-2.605,-2.613,&
6316       -2.620,-2.628,-2.635,-2.642,-2.650,-2.657,-2.664,-2.672,-2.679,&
6317       -2.686,-2.694,-2.701,-2.708,-2.716,-2.723,-2.730,-2.737,-2.745,&
6318       -2.752,-2.759,-2.766,-2.773,-2.781,-2.788,-2.795,-2.802,-2.809,&
6319       -2.816,-2.823,-2.831&
6320       /
6321 !C
6322 !C *** NH4Cl
6323 !C
6324       DATA BNC06M/&
6325       -0.051,-0.108,-0.136,-0.155,-0.170,-0.182,-0.192,-0.200,-0.207,&
6326       -0.214,-0.220,-0.225,-0.230,-0.234,-0.238,-0.242,-0.245,-0.248,&
6327       -0.251,-0.254,-0.256,-0.259,-0.261,-0.263,-0.265,-0.267,-0.269,&
6328       -0.270,-0.272,-0.274,-0.275,-0.276,-0.278,-0.279,-0.280,-0.281,&
6329       -0.283,-0.284,-0.285,-0.286,-0.287,-0.288,-0.289,-0.289,-0.290,&
6330       -0.291,-0.292,-0.293,-0.293,-0.294,-0.295,-0.296,-0.296,-0.297,&
6331       -0.298,-0.298,-0.299,-0.300,-0.300,-0.301,-0.301,-0.302,-0.302,&
6332       -0.303,-0.303,-0.304,-0.304,-0.305,-0.305,-0.306,-0.306,-0.307,&
6333       -0.307,-0.308,-0.308,-0.308,-0.309,-0.309,-0.309,-0.310,-0.310,&
6334       -0.310,-0.311,-0.311,-0.311,-0.312,-0.312,-0.312,-0.312,-0.313,&
6335       -0.313,-0.313,-0.313,-0.313,-0.314,-0.314,-0.314,-0.314,-0.314,&
6336       -0.314,-0.314,-0.314,-0.315,-0.315,-0.315,-0.315,-0.315,-0.315,&
6337       -0.315,-0.315,-0.315,-0.315,-0.315,-0.315,-0.315,-0.315,-0.315,&
6338       -0.315,-0.315,-0.315,-0.315,-0.315,-0.315,-0.315,-0.315,-0.315,&
6339       -0.315,-0.315,-0.315,-0.315,-0.315,-0.315,-0.315,-0.315,-0.315,&
6340       -0.315,-0.314,-0.314,-0.314,-0.314,-0.314,-0.314,-0.314,-0.314,&
6341       -0.314,-0.314,-0.314,-0.314,-0.314,-0.314,-0.314,-0.314,-0.313,&
6342       -0.313,-0.313,-0.313,-0.313,-0.313,-0.313,-0.313,-0.313,-0.313,&
6343       -0.313,-0.313,-0.313,-0.313,-0.312,-0.312,-0.312,-0.312,-0.312,&
6344       -0.312,-0.312,-0.312,-0.312,-0.312,-0.312,-0.312,-0.312,-0.312,&
6345       -0.311,-0.311,-0.311,-0.311,-0.311,-0.311,-0.311,-0.311,-0.311,&
6346       -0.311,-0.311,-0.311,-0.311,-0.311,-0.310,-0.310,-0.310,-0.310,&
6347       -0.310,-0.310,-0.310,-0.310,-0.310,-0.310,-0.310,-0.310,-0.310,&
6348       -0.310,-0.309,-0.309,-0.309,-0.309,-0.309,-0.309,-0.309,-0.309,&
6349       -0.309,-0.309,-0.309,-0.309,-0.309,-0.309,-0.309,-0.309,-0.308,&
6350       -0.308,-0.308,-0.308,-0.308,-0.308,-0.308,-0.308,-0.308,-0.308,&
6351       -0.308,-0.308,-0.308,-0.308,-0.308,-0.308,-0.308,-0.308,-0.307,&
6352       -0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,&
6353       -0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,&
6354       -0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.306,-0.306,-0.306,&
6355       -0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,&
6356       -0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,&
6357       -0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,&
6358       -0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,&
6359       -0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,&
6360       -0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,&
6361       -0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,&
6362       -0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,&
6363       -0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,&
6364       -0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,&
6365       -0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.307,&
6366       -0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,&
6367       -0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,&
6368       -0.307,-0.307,-0.307,-0.307,-0.307,-0.308,-0.308,-0.308,-0.308,&
6369       -0.308,-0.308,-0.308,-0.308,-0.308,-0.309,-0.310,-0.311,-0.311,&
6370       -0.312,-0.313,-0.314,-0.315,-0.316,-0.317,-0.319,-0.320,-0.321,&
6371       -0.322,-0.324,-0.325,-0.327,-0.328,-0.330,-0.331,-0.333,-0.335,&
6372       -0.336,-0.338,-0.340,-0.342,-0.344,-0.346,-0.348,-0.350,-0.352,&
6373       -0.354,-0.356,-0.358,-0.360,-0.362,-0.365,-0.367,-0.369,-0.371,&
6374       -0.374,-0.376,-0.379,-0.381,-0.383,-0.386,-0.389,-0.391,-0.394,&
6375       -0.396,-0.399,-0.401,-0.404,-0.407,-0.410,-0.412,-0.415,-0.418,&
6376       -0.421,-0.423,-0.426,-0.429,-0.432,-0.435,-0.438,-0.441,-0.444,&
6377       -0.447,-0.450,-0.453,-0.456,-0.459,-0.462,-0.465,-0.468,-0.471,&
6378       -0.475,-0.478,-0.481,-0.484,-0.487,-0.491,-0.494,-0.497,-0.500,&
6379       -0.504,-0.507,-0.510,-0.514,-0.517,-0.520,-0.524,-0.527,-0.531,&
6380       -0.534,-0.537,-0.541,-0.544,-0.548,-0.551,-0.555,-0.558,-0.562,&
6381       -0.565,-0.569,-0.573,-0.576,-0.580,-0.583,-0.587,-0.591,-0.594,&
6382       -0.598,-0.601,-0.605,-0.609,-0.612,-0.616,-0.620,-0.624,-0.627,&
6383       -0.631,-0.635,-0.639,-0.642,-0.646,-0.650,-0.654,-0.657,-0.661,&
6384       -0.665,-0.669,-0.673,-0.677,-0.680,-0.684,-0.688,-0.692,-0.696,&
6385       -0.700,-0.704,-0.708,-0.711,-0.715,-0.719,-0.723,-0.727,-0.731,&
6386       -0.735,-0.739,-0.743,-0.747,-0.751,-0.755,-0.759,-0.763,-0.767,&
6387       -0.771,-0.775,-0.779&
6388       /
6389 !C
6390 !C *** (2H,SO4)
6391 !C
6392       DATA BNC07M/&
6393       -0.103,-0.225,-0.286,-0.330,-0.365,-0.394,-0.419,-0.441,-0.460,&
6394       -0.478,-0.495,-0.510,-0.524,-0.538,-0.550,-0.562,-0.573,-0.584,&
6395       -0.594,-0.604,-0.613,-0.622,-0.631,-0.640,-0.648,-0.656,-0.663,&
6396       -0.671,-0.678,-0.685,-0.692,-0.699,-0.705,-0.711,-0.718,-0.724,&
6397       -0.730,-0.736,-0.741,-0.747,-0.753,-0.758,-0.763,-0.769,-0.774,&
6398       -0.779,-0.784,-0.789,-0.794,-0.798,-0.803,-0.808,-0.812,-0.817,&
6399       -0.821,-0.826,-0.830,-0.834,-0.839,-0.843,-0.847,-0.851,-0.855,&
6400       -0.859,-0.863,-0.867,-0.871,-0.875,-0.879,-0.883,-0.886,-0.890,&
6401       -0.894,-0.897,-0.901,-0.905,-0.908,-0.912,-0.915,-0.919,-0.922,&
6402       -0.926,-0.929,-0.933,-0.936,-0.939,-0.943,-0.946,-0.949,-0.953,&
6403       -0.956,-0.959,-0.962,-0.965,-0.969,-0.972,-0.975,-0.978,-0.981,&
6404       -0.984,-0.987,-0.990,-0.994,-0.997,-1.000,-1.003,-1.006,-1.009,&
6405       -1.012,-1.015,-1.017,-1.020,-1.023,-1.026,-1.029,-1.032,-1.035,&
6406       -1.038,-1.041,-1.043,-1.046,-1.049,-1.052,-1.055,-1.057,-1.060,&
6407       -1.063,-1.066,-1.068,-1.071,-1.074,-1.077,-1.079,-1.082,-1.085,&
6408       -1.087,-1.090,-1.093,-1.095,-1.098,-1.100,-1.103,-1.106,-1.108,&
6409       -1.111,-1.113,-1.116,-1.119,-1.121,-1.124,-1.126,-1.129,-1.131,&
6410       -1.134,-1.136,-1.139,-1.141,-1.144,-1.146,-1.149,-1.151,-1.154,&
6411       -1.156,-1.159,-1.161,-1.163,-1.166,-1.168,-1.171,-1.173,-1.176,&
6412       -1.178,-1.180,-1.183,-1.185,-1.187,-1.190,-1.192,-1.195,-1.197,&
6413       -1.199,-1.202,-1.204,-1.206,-1.209,-1.211,-1.213,-1.216,-1.218,&
6414       -1.220,-1.222,-1.225,-1.227,-1.229,-1.232,-1.234,-1.236,-1.238,&
6415       -1.241,-1.243,-1.245,-1.247,-1.250,-1.252,-1.254,-1.256,-1.258,&
6416       -1.261,-1.263,-1.265,-1.267,-1.270,-1.272,-1.274,-1.276,-1.278,&
6417       -1.280,-1.283,-1.285,-1.287,-1.289,-1.291,-1.293,-1.296,-1.298,&
6418       -1.300,-1.302,-1.304,-1.306,-1.308,-1.311,-1.313,-1.315,-1.317,&
6419       -1.319,-1.321,-1.323,-1.325,-1.328,-1.330,-1.332,-1.334,-1.336,&
6420       -1.338,-1.340,-1.342,-1.344,-1.346,-1.348,-1.350,-1.353,-1.355,&
6421       -1.357,-1.359,-1.361,-1.363,-1.365,-1.367,-1.369,-1.371,-1.373,&
6422       -1.375,-1.377,-1.379,-1.381,-1.383,-1.385,-1.387,-1.389,-1.391,&
6423       -1.393,-1.395,-1.397,-1.399,-1.401,-1.403,-1.405,-1.407,-1.409,&
6424       -1.411,-1.413,-1.415,-1.417,-1.419,-1.421,-1.423,-1.425,-1.427,&
6425       -1.429,-1.431,-1.433,-1.435,-1.437,-1.439,-1.441,-1.443,-1.445,&
6426       -1.447,-1.449,-1.451,-1.453,-1.455,-1.456,-1.458,-1.460,-1.462,&
6427       -1.464,-1.466,-1.468,-1.470,-1.472,-1.474,-1.476,-1.478,-1.480,&
6428       -1.481,-1.483,-1.485,-1.487,-1.489,-1.491,-1.493,-1.495,-1.497,&
6429       -1.499,-1.500,-1.502,-1.504,-1.506,-1.508,-1.510,-1.512,-1.514,&
6430       -1.516,-1.517,-1.519,-1.521,-1.523,-1.525,-1.527,-1.529,-1.531,&
6431       -1.532,-1.534,-1.536,-1.538,-1.540,-1.542,-1.544,-1.545,-1.547,&
6432       -1.549,-1.551,-1.553,-1.555,-1.557,-1.558,-1.560,-1.562,-1.564,&
6433       -1.566,-1.568,-1.569,-1.571,-1.573,-1.575,-1.577,-1.579,-1.580,&
6434       -1.582,-1.584,-1.586,-1.588,-1.589,-1.591,-1.593,-1.595,-1.597,&
6435       -1.598,-1.600,-1.602,-1.604,-1.606,-1.608,-1.609,-1.611,-1.613,&
6436       -1.615,-1.617,-1.618,-1.620,-1.622,-1.624,-1.625,-1.627,-1.629,&
6437       -1.631,-1.633,-1.634,-1.636,-1.655,-1.673,-1.691,-1.708,-1.725,&
6438       -1.742,-1.760,-1.777,-1.793,-1.810,-1.827,-1.844,-1.860,-1.877,&
6439       -1.893,-1.910,-1.926,-1.942,-1.958,-1.974,-1.990,-2.006,-2.022,&
6440       -2.038,-2.054,-2.070,-2.086,-2.101,-2.117,-2.132,-2.148,-2.163,&
6441       -2.179,-2.194,-2.210,-2.225,-2.240,-2.255,-2.271,-2.286,-2.301,&
6442       -2.316,-2.331,-2.346,-2.361,-2.376,-2.391,-2.406,-2.420,-2.435,&
6443       -2.450,-2.465,-2.479,-2.494,-2.509,-2.523,-2.538,-2.553,-2.567,&
6444       -2.582,-2.596,-2.611,-2.625,-2.640,-2.654,-2.668,-2.683,-2.697,&
6445       -2.711,-2.726,-2.740,-2.754,-2.768,-2.783,-2.797,-2.811,-2.825,&
6446       -2.839,-2.853,-2.867,-2.881,-2.895,-2.909,-2.923,-2.937,-2.951,&
6447       -2.965,-2.979,-2.993,-3.007,-3.021,-3.035,-3.049,-3.063,-3.076,&
6448       -3.090,-3.104,-3.118,-3.132,-3.145,-3.159,-3.173,-3.186,-3.200,&
6449       -3.214,-3.227,-3.241,-3.255,-3.268,-3.282,-3.295,-3.309,-3.323,&
6450       -3.336,-3.350,-3.363,-3.377,-3.390,-3.404,-3.417,-3.431,-3.444,&
6451       -3.458,-3.471,-3.484,-3.498,-3.511,-3.525,-3.538,-3.551,-3.565,&
6452       -3.578,-3.591,-3.605,-3.618,-3.631,-3.645,-3.658,-3.671,-3.684,&
6453       -3.698,-3.711,-3.724,-3.737,-3.750,-3.764,-3.777,-3.790,-3.803,&
6454       -3.816,-3.829,-3.843,-3.856,-3.869,-3.882,-3.895,-3.908,-3.921,&
6455       -3.934,-3.947,-3.960&
6456       /
6457 !C
6458 !C *** (H,HSO4)
6459 !C
6460       DATA BNC08M/&
6461       -0.047,-0.093,-0.110,-0.119,-0.125,-0.128,-0.130,-0.130,-0.129,&
6462       -0.128,-0.126,-0.123,-0.119,-0.116,-0.111,-0.107,-0.102,-0.096,&
6463       -0.091,-0.085,-0.079,-0.073,-0.066,-0.059,-0.052,-0.045,-0.037,&
6464       -0.030,-0.022,-0.014,-0.006, 0.003, 0.011, 0.020, 0.028, 0.037,&
6465       0.046, 0.055, 0.065, 0.074, 0.083, 0.093, 0.103, 0.113, 0.122,&
6466       0.132, 0.142, 0.152, 0.163, 0.173, 0.183, 0.194, 0.204, 0.215,&
6467       0.225, 0.236, 0.247, 0.258, 0.268, 0.279, 0.290, 0.301, 0.312,&
6468       0.323, 0.334, 0.346, 0.357, 0.368, 0.380, 0.391, 0.402, 0.414,&
6469       0.425, 0.437, 0.449, 0.461, 0.472, 0.484, 0.496, 0.508, 0.520,&
6470       0.532, 0.544, 0.557, 0.569, 0.581, 0.594, 0.606, 0.619, 0.631,&
6471       0.644, 0.657, 0.669, 0.682, 0.695, 0.708, 0.721, 0.734, 0.747,&
6472       0.761, 0.774, 0.787, 0.800, 0.814, 0.827, 0.841, 0.854, 0.868,&
6473       0.881, 0.895, 0.908, 0.922, 0.936, 0.949, 0.963, 0.977, 0.990,&
6474       1.004, 1.018, 1.031, 1.045, 1.059, 1.072, 1.086, 1.100, 1.114,&
6475       1.127, 1.141, 1.155, 1.168, 1.182, 1.195, 1.209, 1.223, 1.236,&
6476       1.250, 1.263, 1.277, 1.290, 1.304, 1.317, 1.331, 1.344, 1.358,&
6477       1.371, 1.384, 1.398, 1.411, 1.424, 1.437, 1.451, 1.464, 1.477,&
6478       1.490, 1.503, 1.516, 1.529, 1.542, 1.555, 1.568, 1.581, 1.594,&
6479       1.607, 1.620, 1.633, 1.646, 1.659, 1.671, 1.684, 1.697, 1.709,&
6480       1.722, 1.735, 1.747, 1.760, 1.772, 1.785, 1.798, 1.810, 1.822,&
6481       1.835, 1.847, 1.860, 1.872, 1.884, 1.896, 1.909, 1.921, 1.933,&
6482       1.945, 1.957, 1.970, 1.982, 1.994, 2.006, 2.018, 2.030, 2.042,&
6483       2.054, 2.065, 2.077, 2.089, 2.101, 2.113, 2.125, 2.136, 2.148,&
6484       2.160, 2.171, 2.183, 2.195, 2.206, 2.218, 2.229, 2.241, 2.252,&
6485       2.264, 2.275, 2.286, 2.298, 2.309, 2.320, 2.332, 2.343, 2.354,&
6486       2.365, 2.377, 2.388, 2.399, 2.410, 2.421, 2.432, 2.443, 2.454,&
6487       2.465, 2.476, 2.487, 2.498, 2.509, 2.520, 2.531, 2.541, 2.552,&
6488       2.563, 2.574, 2.584, 2.595, 2.606, 2.616, 2.627, 2.638, 2.648,&
6489       2.659, 2.669, 2.680, 2.690, 2.701, 2.711, 2.722, 2.732, 2.742,&
6490       2.753, 2.763, 2.773, 2.784, 2.794, 2.804, 2.814, 2.825, 2.835,&
6491       2.845, 2.855, 2.865, 2.875, 2.885, 2.895, 2.905, 2.915, 2.925,&
6492       2.935, 2.945, 2.955, 2.965, 2.975, 2.985, 2.995, 3.005, 3.014,&
6493       3.024, 3.034, 3.044, 3.053, 3.063, 3.073, 3.082, 3.092, 3.102,&
6494       3.111, 3.121, 3.130, 3.140, 3.149, 3.159, 3.168, 3.178, 3.187,&
6495       3.197, 3.206, 3.215, 3.225, 3.234, 3.243, 3.253, 3.262, 3.271,&
6496       3.280, 3.290, 3.299, 3.308, 3.317, 3.326, 3.336, 3.345, 3.354,&
6497       3.363, 3.372, 3.381, 3.390, 3.399, 3.408, 3.417, 3.426, 3.435,&
6498       3.444, 3.453, 3.462, 3.470, 3.479, 3.488, 3.497, 3.506, 3.514,&
6499       3.523, 3.532, 3.541, 3.549, 3.558, 3.567, 3.575, 3.584, 3.593,&
6500       3.601, 3.610, 3.619, 3.627, 3.636, 3.644, 3.653, 3.661, 3.670,&
6501       3.678, 3.687, 3.695, 3.704, 3.712, 3.720, 3.729, 3.737, 3.745,&
6502       3.754, 3.762, 3.770, 3.779, 3.787, 3.795, 3.803, 3.812, 3.820,&
6503       3.828, 3.836, 3.844, 3.852, 3.861, 3.869, 3.877, 3.885, 3.893,&
6504       3.901, 3.909, 3.917, 3.925, 3.933, 3.941, 3.949, 3.957, 3.965,&
6505       3.973, 3.981, 3.989, 3.997, 4.081, 4.158, 4.233, 4.307, 4.380,&
6506       4.452, 4.522, 4.592, 4.660, 4.727, 4.793, 4.859, 4.923, 4.986,&
6507       5.048, 5.110, 5.171, 5.230, 5.289, 5.347, 5.405, 5.461, 5.517,&
6508       5.572, 5.626, 5.680, 5.733, 5.785, 5.837, 5.888, 5.938, 5.988,&
6509       6.037, 6.085, 6.133, 6.181, 6.228, 6.274, 6.320, 6.365, 6.410,&
6510       6.454, 6.498, 6.541, 6.584, 6.626, 6.668, 6.710, 6.751, 6.792,&
6511       6.832, 6.872, 6.911, 6.950, 6.989, 7.027, 7.065, 7.102, 7.139,&
6512       7.176, 7.212, 7.248, 7.284, 7.319, 7.354, 7.389, 7.424, 7.458,&
6513       7.491, 7.525, 7.558, 7.591, 7.623, 7.656, 7.688, 7.719, 7.751,&
6514       7.782, 7.813, 7.844, 7.874, 7.904, 7.934, 7.964, 7.993, 8.022,&
6515       8.051, 8.080, 8.108, 8.137, 8.165, 8.192, 8.220, 8.247, 8.274,&
6516       8.301, 8.328, 8.354, 8.381, 8.407, 8.433, 8.458, 8.484, 8.509,&
6517       8.534, 8.559, 8.584, 8.609, 8.633, 8.657, 8.681, 8.705, 8.729,&
6518       8.752, 8.776, 8.799, 8.822, 8.845, 8.868, 8.890, 8.913, 8.935,&
6519       8.957, 8.979, 9.001, 9.022, 9.044, 9.065, 9.086, 9.107, 9.128,&
6520       9.149, 9.170, 9.190, 9.211, 9.231, 9.251, 9.271, 9.291, 9.311,&
6521       9.330, 9.350, 9.369, 9.388, 9.407, 9.426, 9.445, 9.464, 9.483,&
6522       9.501, 9.520, 9.538, 9.556, 9.574, 9.592, 9.610, 9.628, 9.645,&
6523       9.663, 9.680, 9.698 &
6524       /
6525 !C
6526 !C *** NH4HSO4
6527 !C
6528       DATA BNC09M/ &
6529       -0.050,-0.107,-0.134,-0.153,-0.167,-0.179,-0.189,-0.197,-0.204,&
6530       -0.211,-0.216,-0.221,-0.226,-0.230,-0.234,-0.237,-0.240,-0.243,&
6531       -0.245,-0.247,-0.249,-0.251,-0.252,-0.254,-0.255,-0.256,-0.256,&
6532       -0.257,-0.257,-0.258,-0.258,-0.258,-0.258,-0.258,-0.257,-0.257,&
6533       -0.256,-0.255,-0.255,-0.254,-0.253,-0.252,-0.250,-0.249,-0.248,&
6534       -0.246,-0.245,-0.243,-0.242,-0.240,-0.238,-0.236,-0.234,-0.232,&
6535       -0.230,-0.228,-0.226,-0.224,-0.221,-0.219,-0.217,-0.214,-0.212,&
6536       -0.209,-0.207,-0.204,-0.201,-0.199,-0.196,-0.193,-0.190,-0.188,&
6537       -0.185,-0.182,-0.179,-0.176,-0.173,-0.170,-0.167,-0.163,-0.160,&
6538       -0.157,-0.154,-0.150,-0.147,-0.144,-0.140,-0.137,-0.133,-0.130,&
6539       -0.126,-0.123,-0.119,-0.116,-0.112,-0.108,-0.104,-0.101,-0.097,&
6540       -0.093,-0.089,-0.086,-0.082,-0.078,-0.074,-0.070,-0.066,-0.062,&
6541       -0.058,-0.054,-0.050,-0.046,-0.042,-0.038,-0.034,-0.030,-0.026,&
6542       -0.022,-0.018,-0.014,-0.010,-0.006,-0.002, 0.002, 0.006, 0.010,&
6543       0.014, 0.018, 0.022, 0.026, 0.030, 0.034, 0.038, 0.042, 0.046,&
6544       0.050, 0.054, 0.058, 0.062, 0.066, 0.070, 0.074, 0.078, 0.082,&
6545       0.086, 0.090, 0.094, 0.098, 0.102, 0.106, 0.110, 0.114, 0.117,&
6546       0.121, 0.125, 0.129, 0.133, 0.137, 0.140, 0.144, 0.148, 0.152,&
6547       0.156, 0.159, 0.163, 0.167, 0.171, 0.174, 0.178, 0.182, 0.186,&
6548       0.189, 0.193, 0.197, 0.200, 0.204, 0.208, 0.211, 0.215, 0.219,&
6549       0.222, 0.226, 0.229, 0.233, 0.237, 0.240, 0.244, 0.247, 0.251,&
6550       0.254, 0.258, 0.261, 0.265, 0.268, 0.272, 0.275, 0.279, 0.282,&
6551       0.286, 0.289, 0.293, 0.296, 0.299, 0.303, 0.306, 0.309, 0.313,&
6552       0.316, 0.320, 0.323, 0.326, 0.330, 0.333, 0.336, 0.339, 0.343,&
6553       0.346, 0.349, 0.353, 0.356, 0.359, 0.362, 0.366, 0.369, 0.372,&
6554       0.375, 0.378, 0.382, 0.385, 0.388, 0.391, 0.394, 0.397, 0.401,&
6555       0.404, 0.407, 0.410, 0.413, 0.416, 0.419, 0.422, 0.425, 0.428,&
6556       0.431, 0.434, 0.438, 0.441, 0.444, 0.447, 0.450, 0.453, 0.456,&
6557       0.459, 0.462, 0.465, 0.467, 0.470, 0.473, 0.476, 0.479, 0.482,&
6558       0.485, 0.488, 0.491, 0.494, 0.497, 0.500, 0.502, 0.505, 0.508,&
6559       0.511, 0.514, 0.517, 0.520, 0.522, 0.525, 0.528, 0.531, 0.534,&
6560       0.536, 0.539, 0.542, 0.545, 0.547, 0.550, 0.553, 0.556, 0.558,&
6561       0.561, 0.564, 0.567, 0.569, 0.572, 0.575, 0.577, 0.580, 0.583,&
6562       0.585, 0.588, 0.591, 0.593, 0.596, 0.599, 0.601, 0.604, 0.607,&
6563       0.609, 0.612, 0.614, 0.617, 0.620, 0.622, 0.625, 0.627, 0.630,&
6564       0.633, 0.635, 0.638, 0.640, 0.643, 0.645, 0.648, 0.650, 0.653,&
6565       0.655, 0.658, 0.660, 0.663, 0.665, 0.668, 0.670, 0.673, 0.675,&
6566       0.678, 0.680, 0.683, 0.685, 0.687, 0.690, 0.692, 0.695, 0.697,&
6567       0.700, 0.702, 0.704, 0.707, 0.709, 0.711, 0.714, 0.716, 0.719,&
6568       0.721, 0.723, 0.726, 0.728, 0.730, 0.733, 0.735, 0.737, 0.740,&
6569       0.742, 0.744, 0.747, 0.749, 0.751, 0.754, 0.756, 0.758, 0.760,&
6570       0.763, 0.765, 0.767, 0.769, 0.772, 0.774, 0.776, 0.778, 0.781,&
6571       0.783, 0.785, 0.787, 0.790, 0.792, 0.794, 0.796, 0.798, 0.801,&
6572       0.803, 0.805, 0.807, 0.809, 0.811, 0.814, 0.816, 0.818, 0.820,&
6573       0.822, 0.824, 0.827, 0.829, 0.851, 0.872, 0.892, 0.912, 0.932,&
6574       0.951, 0.969, 0.988, 1.006, 1.024, 1.041, 1.058, 1.075, 1.091,&
6575       1.107, 1.123, 1.139, 1.154, 1.169, 1.184, 1.199, 1.213, 1.227,&
6576       1.241, 1.255, 1.268, 1.282, 1.295, 1.307, 1.320, 1.332, 1.345,&
6577       1.357, 1.368, 1.380, 1.392, 1.403, 1.414, 1.425, 1.436, 1.446,&
6578       1.457, 1.467, 1.478, 1.488, 1.497, 1.507, 1.517, 1.526, 1.536,&
6579       1.545, 1.554, 1.563, 1.572, 1.580, 1.589, 1.597, 1.606, 1.614,&
6580       1.622, 1.630, 1.638, 1.646, 1.653, 1.661, 1.668, 1.676, 1.683,&
6581       1.690, 1.697, 1.704, 1.711, 1.718, 1.724, 1.731, 1.737, 1.744,&
6582       1.750, 1.756, 1.762, 1.769, 1.775, 1.780, 1.786, 1.792, 1.798,&
6583       1.803, 1.809, 1.814, 1.820, 1.825, 1.830, 1.835, 1.840, 1.845,&
6584       1.850, 1.855, 1.860, 1.865, 1.870, 1.874, 1.879, 1.883, 1.888,&
6585       1.892, 1.896, 1.901, 1.905, 1.909, 1.913, 1.917, 1.921, 1.925,&
6586       1.929, 1.933, 1.936, 1.940, 1.944, 1.947, 1.951, 1.955, 1.958,&
6587       1.961, 1.965, 1.968, 1.971, 1.975, 1.978, 1.981, 1.984, 1.987,&
6588       1.990, 1.993, 1.996, 1.999, 2.001, 2.004, 2.007, 2.010, 2.012,&
6589       2.015, 2.017, 2.020, 2.022, 2.025, 2.027, 2.030, 2.032, 2.034,&
6590       2.037, 2.039, 2.041, 2.043, 2.045, 2.047, 2.049, 2.051, 2.053,&
6591       2.055, 2.057, 2.059       &
6592       /
6593 !C
6594 !C *** (H,NO3)
6595 !C
6596       DATA BNC10M/&
6597       -0.049,-0.102,-0.125,-0.140,-0.150,-0.158,-0.163,-0.168,-0.171,&
6598       -0.174,-0.176,-0.178,-0.179,-0.179,-0.179,-0.179,-0.179,-0.179,&
6599       -0.178,-0.177,-0.176,-0.175,-0.174,-0.172,-0.171,-0.169,-0.168,&
6600       -0.166,-0.164,-0.162,-0.160,-0.158,-0.156,-0.154,-0.152,-0.150,&
6601       -0.148,-0.146,-0.144,-0.141,-0.139,-0.137,-0.135,-0.132,-0.130,&
6602       -0.128,-0.126,-0.123,-0.121,-0.119,-0.116,-0.114,-0.112,-0.109,&
6603       -0.107,-0.105,-0.102,-0.100,-0.098,-0.095,-0.093,-0.091,-0.088,&
6604       -0.086,-0.084,-0.081,-0.079,-0.077,-0.074,-0.072,-0.070,-0.067,&
6605       -0.065,-0.062,-0.060,-0.057,-0.055,-0.052,-0.050,-0.048,-0.045,&
6606       -0.042,-0.040,-0.037,-0.035,-0.032,-0.030,-0.027,-0.024,-0.022,&
6607       -0.019,-0.016,-0.013,-0.011,-0.008,-0.005,-0.002, 0.001, 0.003,&
6608        0.006, 0.009, 0.012, 0.015, 0.018, 0.021, 0.024, 0.027, 0.030,&
6609        0.033, 0.036, 0.039, 0.042, 0.045, 0.048, 0.051, 0.054, 0.057,&
6610        0.060, 0.063, 0.066, 0.069, 0.072, 0.075, 0.078, 0.081, 0.084,&
6611        0.087, 0.091, 0.094, 0.097, 0.100, 0.103, 0.106, 0.109, 0.112,&
6612        0.115, 0.118, 0.121, 0.124, 0.127, 0.130, 0.133, 0.136, 0.139,&
6613        0.142, 0.146, 0.149, 0.152, 0.155, 0.158, 0.161, 0.164, 0.167,&
6614        0.170, 0.173, 0.176, 0.179, 0.182, 0.185, 0.188, 0.191, 0.193,&
6615        0.196, 0.199, 0.202, 0.205, 0.208, 0.211, 0.214, 0.217, 0.220,&
6616        0.223, 0.226, 0.229, 0.232, 0.235, 0.237, 0.240, 0.243, 0.246,&
6617        0.249, 0.252, 0.255, 0.258, 0.260, 0.263, 0.266, 0.269, 0.272,&
6618        0.275, 0.278, 0.280, 0.283, 0.286, 0.289, 0.292, 0.294, 0.297,&
6619        0.300, 0.303, 0.306, 0.308, 0.311, 0.314, 0.317, 0.319, 0.322,&
6620        0.325, 0.328, 0.330, 0.333, 0.336, 0.339, 0.341, 0.344, 0.347,&
6621        0.349, 0.352, 0.355, 0.358, 0.360, 0.363, 0.366, 0.368, 0.371,&
6622        0.374, 0.376, 0.379, 0.382, 0.384, 0.387, 0.389, 0.392, 0.395,&
6623        0.397, 0.400, 0.403, 0.405, 0.408, 0.410, 0.413, 0.415, 0.418,&
6624        0.421, 0.423, 0.426, 0.428, 0.431, 0.433, 0.436, 0.438, 0.441,&
6625        0.444, 0.446, 0.449, 0.451, 0.454, 0.456, 0.459, 0.461, 0.464,&
6626        0.466, 0.469, 0.471, 0.473, 0.476, 0.478, 0.481, 0.483, 0.486,&
6627        0.488, 0.491, 0.493, 0.495, 0.498, 0.500, 0.503, 0.505, 0.508,&
6628        0.510, 0.512, 0.515, 0.517, 0.519, 0.522, 0.524, 0.527, 0.529,&
6629        0.531, 0.534, 0.536, 0.538, 0.541, 0.543, 0.545, 0.548, 0.550,&
6630        0.552, 0.555, 0.557, 0.559, 0.562, 0.564, 0.566, 0.568, 0.571,&
6631        0.573, 0.575, 0.578, 0.580, 0.582, 0.584, 0.587, 0.589, 0.591,&
6632        0.593, 0.595, 0.598, 0.600, 0.602, 0.604, 0.607, 0.609, 0.611,&
6633        0.613, 0.615, 0.618, 0.620, 0.622, 0.624, 0.626, 0.628, 0.631,&
6634        0.633, 0.635, 0.637, 0.639, 0.641, 0.644, 0.646, 0.648, 0.650,&
6635        0.652, 0.654, 0.656, 0.658, 0.660, 0.663, 0.665, 0.667, 0.669,&
6636        0.671, 0.673, 0.675, 0.677, 0.679, 0.681, 0.683, 0.685, 0.688,&
6637        0.690, 0.692, 0.694, 0.696, 0.698, 0.700, 0.702, 0.704, 0.706,&
6638        0.708, 0.710, 0.712, 0.714, 0.716, 0.718, 0.720, 0.722, 0.724,&
6639        0.726, 0.728, 0.730, 0.732, 0.734, 0.736, 0.738, 0.740, 0.742,&
6640        0.743, 0.745, 0.747, 0.749, 0.751, 0.753, 0.755, 0.757, 0.759,&
6641        0.761, 0.763, 0.765, 0.767, 0.787, 0.805, 0.824, 0.841, 0.859,&
6642        0.876, 0.893, 0.909, 0.926, 0.942, 0.957, 0.973, 0.988, 1.003,&
6643        1.017, 1.032, 1.046, 1.060, 1.073, 1.087, 1.100, 1.113, 1.126,&
6644        1.138, 1.151, 1.163, 1.175, 1.187, 1.198, 1.210, 1.221, 1.232,&
6645        1.243, 1.253, 1.264, 1.274, 1.285, 1.295, 1.305, 1.314, 1.324,&
6646        1.333, 1.343, 1.352, 1.361, 1.370, 1.378, 1.387, 1.395, 1.404,&
6647        1.412, 1.420, 1.428, 1.436, 1.444, 1.451, 1.459, 1.466, 1.474,&
6648        1.481, 1.488, 1.495, 1.502, 1.509, 1.515, 1.522, 1.529, 1.535,&
6649        1.541, 1.548, 1.554, 1.560, 1.566, 1.572, 1.577, 1.583, 1.589,&
6650        1.594, 1.600, 1.605, 1.610, 1.616, 1.621, 1.626, 1.631, 1.636,&
6651        1.641, 1.645, 1.650, 1.655, 1.659, 1.664, 1.668, 1.673, 1.677,&
6652        1.681, 1.685, 1.690, 1.694, 1.698, 1.702, 1.705, 1.709, 1.713,&
6653        1.717, 1.720, 1.724, 1.728, 1.731, 1.734, 1.738, 1.741, 1.744,&
6654        1.748, 1.751, 1.754, 1.757, 1.760, 1.763, 1.766, 1.769, 1.772,&
6655        1.775, 1.777, 1.780, 1.783, 1.785, 1.788, 1.790, 1.793, 1.795,&
6656        1.798, 1.800, 1.802, 1.805, 1.807, 1.809, 1.811, 1.813, 1.815,&
6657        1.817, 1.819, 1.821, 1.823, 1.825, 1.827, 1.829, 1.831, 1.832,&
6658        1.834, 1.836, 1.838, 1.839, 1.841, 1.842, 1.844, 1.845, 1.847,&
6659        1.848, 1.849, 1.851 &
6660        /
6661 !C
6662 !C *** (H,Cl)
6663 !C
6664       DATA BNC11M/ &
6665       -0.048,-0.094,-0.112,-0.122,-0.128,-0.131,-0.133,-0.133,-0.133,&
6666       -0.131,-0.129,-0.126,-0.123,-0.119,-0.116,-0.111,-0.107,-0.102,&
6667       -0.097,-0.092,-0.086,-0.080,-0.075,-0.069,-0.062,-0.056,-0.050,&
6668       -0.043,-0.037,-0.030,-0.023,-0.016,-0.009,-0.002, 0.005, 0.012,&
6669        0.020, 0.027, 0.035, 0.042, 0.050, 0.057, 0.065, 0.072, 0.080,&
6670        0.088, 0.095, 0.103, 0.111, 0.119, 0.126, 0.134, 0.142, 0.150,&
6671        0.158, 0.166, 0.174, 0.182, 0.190, 0.198, 0.206, 0.214, 0.222,&
6672        0.230, 0.238, 0.246, 0.254, 0.262, 0.270, 0.278, 0.287, 0.295,&
6673        0.303, 0.311, 0.320, 0.328, 0.336, 0.345, 0.353, 0.362, 0.370,&
6674        0.379, 0.387, 0.396, 0.405, 0.413, 0.422, 0.431, 0.440, 0.449,&
6675        0.457, 0.466, 0.475, 0.484, 0.494, 0.503, 0.512, 0.521, 0.530,&
6676        0.540, 0.549, 0.558, 0.568, 0.577, 0.587, 0.596, 0.606, 0.615,&
6677        0.625, 0.634, 0.644, 0.653, 0.663, 0.673, 0.682, 0.692, 0.702,&
6678        0.711, 0.721, 0.731, 0.740, 0.750, 0.760, 0.769, 0.779, 0.789,&
6679        0.798, 0.808, 0.818, 0.827, 0.837, 0.847, 0.856, 0.866, 0.875,&
6680        0.885, 0.895, 0.904, 0.914, 0.923, 0.933, 0.942, 0.952, 0.961,&
6681        0.971, 0.980, 0.990, 0.999, 1.009, 1.018, 1.027, 1.037, 1.046,&
6682        1.055, 1.065, 1.074, 1.083, 1.093, 1.102, 1.111, 1.120, 1.130,&
6683        1.139, 1.148, 1.157, 1.166, 1.175, 1.184, 1.194, 1.203, 1.212,&
6684        1.221, 1.230, 1.239, 1.248, 1.257, 1.266, 1.275, 1.283, 1.292,&
6685        1.301, 1.310, 1.319, 1.328, 1.336, 1.345, 1.354, 1.363, 1.372,&
6686        1.380, 1.389, 1.398, 1.406, 1.415, 1.423, 1.432, 1.441, 1.449,&
6687        1.458, 1.466, 1.475, 1.483, 1.492, 1.500, 1.509, 1.517, 1.526,&
6688        1.534, 1.542, 1.551, 1.559, 1.567, 1.576, 1.584, 1.592, 1.600,&
6689        1.609, 1.617, 1.625, 1.633, 1.641, 1.649, 1.658, 1.666, 1.674,&
6690        1.682, 1.690, 1.698, 1.706, 1.714, 1.722, 1.730, 1.738, 1.746,&
6691        1.754, 1.762, 1.769, 1.777, 1.785, 1.793, 1.801, 1.809, 1.816,&
6692        1.824, 1.832, 1.840, 1.847, 1.855, 1.863, 1.870, 1.878, 1.886,&
6693        1.893, 1.901, 1.908, 1.916, 1.924, 1.931, 1.939, 1.946, 1.954,&
6694        1.961, 1.969, 1.976, 1.983, 1.991, 1.998, 2.006, 2.013, 2.020,&
6695        2.028, 2.035, 2.042, 2.049, 2.057, 2.064, 2.071, 2.078, 2.086,&
6696        2.093, 2.100, 2.107, 2.114, 2.122, 2.129, 2.136, 2.143, 2.150,&
6697        2.157, 2.164, 2.171, 2.178, 2.185, 2.192, 2.199, 2.206, 2.213,&
6698        2.220, 2.227, 2.234, 2.241, 2.247, 2.254, 2.261, 2.268, 2.275,&
6699        2.282, 2.288, 2.295, 2.302, 2.309, 2.315, 2.322, 2.329, 2.336,&
6700        2.342, 2.349, 2.356, 2.362, 2.369, 2.376, 2.382, 2.389, 2.395,&
6701        2.402, 2.408, 2.415, 2.421, 2.428, 2.434, 2.441, 2.447, 2.454,&
6702        2.460, 2.467, 2.473, 2.480, 2.486, 2.492, 2.499, 2.505, 2.512,&
6703        2.518, 2.524, 2.531, 2.537, 2.543, 2.549, 2.556, 2.562, 2.568,&
6704        2.574, 2.581, 2.587, 2.593, 2.599, 2.605, 2.612, 2.618, 2.624,&
6705        2.630, 2.636, 2.642, 2.648, 2.654, 2.660, 2.666, 2.672, 2.679,&
6706        2.685, 2.691, 2.697, 2.703, 2.709, 2.714, 2.720, 2.726, 2.732,&
6707        2.738, 2.744, 2.750, 2.756, 2.762, 2.768, 2.774, 2.779, 2.785,&
6708        2.791, 2.797, 2.803, 2.808, 2.814, 2.820, 2.826, 2.832, 2.837,&
6709        2.843, 2.849, 2.854, 2.860, 2.921, 2.976, 3.031, 3.084, 3.137,&
6710        3.189, 3.240, 3.290, 3.339, 3.387, 3.435, 3.482, 3.528, 3.574,&
6711        3.619, 3.663, 3.706, 3.749, 3.792, 3.833, 3.874, 3.915, 3.955,&
6712        3.994, 4.033, 4.072, 4.109, 4.147, 4.184, 4.220, 4.256, 4.291,&
6713        4.327, 4.361, 4.395, 4.429, 4.462, 4.495, 4.528, 4.560, 4.592,&
6714        4.623, 4.654, 4.685, 4.716, 4.746, 4.775, 4.805, 4.834, 4.862,&
6715        4.891, 4.919, 4.947, 4.974, 5.001, 5.028, 5.055, 5.081, 5.107,&
6716        5.133, 5.159, 5.184, 5.209, 5.234, 5.259, 5.283, 5.307, 5.331,&
6717        5.355, 5.378, 5.401, 5.424, 5.447, 5.469, 5.492, 5.514, 5.536,&
6718        5.557, 5.579, 5.600, 5.621, 5.642, 5.663, 5.684, 5.704, 5.724,&
6719        5.744, 5.764, 5.784, 5.803, 5.823, 5.842, 5.861, 5.880, 5.898,&
6720        5.917, 5.935, 5.953, 5.972, 5.989, 6.007, 6.025, 6.042, 6.060,&
6721        6.077, 6.094, 6.111, 6.128, 6.144, 6.161, 6.177, 6.194, 6.210,&
6722        6.226, 6.242, 6.257, 6.273, 6.289, 6.304, 6.319, 6.334, 6.350,&
6723        6.365, 6.379, 6.394, 6.409, 6.423, 6.438, 6.452, 6.466, 6.480,&
6724        6.494, 6.508, 6.522, 6.536, 6.549, 6.563, 6.576, 6.589, 6.602,&
6725        6.616, 6.629, 6.641, 6.654, 6.667, 6.680, 6.692, 6.705, 6.717,&
6726        6.729, 6.742, 6.754, 6.766, 6.778, 6.790, 6.801, 6.813, 6.825,&
6727        6.836, 6.848, 6.859 &
6728        /
6729 !C
6730 !C *** NaHSO4
6731 !C
6732       DATA BNC12M/ &
6733       -0.049,-0.101,-0.125,-0.140,-0.151,-0.159,-0.166,-0.171,-0.175,&
6734       -0.178,-0.181,-0.183,-0.184,-0.185,-0.186,-0.186,-0.186,-0.186,&
6735       -0.186,-0.185,-0.184,-0.183,-0.181,-0.180,-0.178,-0.176,-0.174,&
6736       -0.172,-0.170,-0.167,-0.165,-0.162,-0.159,-0.156,-0.153,-0.150,&
6737       -0.147,-0.144,-0.140,-0.137,-0.133,-0.130,-0.126,-0.122,-0.118,&
6738       -0.114,-0.110,-0.106,-0.102,-0.098,-0.094,-0.090,-0.085,-0.081,&
6739       -0.076,-0.072,-0.068,-0.063,-0.058,-0.054,-0.049,-0.044,-0.040,&
6740       -0.035,-0.030,-0.025,-0.020,-0.015,-0.010,-0.005, 0.000, 0.005,&
6741        0.010, 0.015, 0.020, 0.026, 0.031, 0.036, 0.042, 0.047, 0.052,&
6742        0.058, 0.063, 0.069, 0.075, 0.080, 0.086, 0.092, 0.097, 0.103,&
6743        0.109, 0.115, 0.121, 0.127, 0.133, 0.139, 0.145, 0.151, 0.157,&
6744        0.163, 0.169, 0.175, 0.181, 0.188, 0.194, 0.200, 0.206, 0.213,&
6745        0.219, 0.225, 0.232, 0.238, 0.244, 0.251, 0.257, 0.264, 0.270,&
6746        0.276, 0.283, 0.289, 0.296, 0.302, 0.308, 0.315, 0.321, 0.328,&
6747        0.334, 0.341, 0.347, 0.353, 0.360, 0.366, 0.373, 0.379, 0.385,&
6748        0.392, 0.398, 0.404, 0.411, 0.417, 0.423, 0.430, 0.436, 0.442,&
6749        0.448, 0.455, 0.461, 0.467, 0.473, 0.480, 0.486, 0.492, 0.498,&
6750        0.504, 0.510, 0.517, 0.523, 0.529, 0.535, 0.541, 0.547, 0.553,&
6751        0.559, 0.565, 0.571, 0.577, 0.583, 0.589, 0.595, 0.601, 0.607,&
6752        0.613, 0.619, 0.625, 0.631, 0.637, 0.642, 0.648, 0.654, 0.660,&
6753        0.666, 0.671, 0.677, 0.683, 0.689, 0.694, 0.700, 0.706, 0.712,&
6754        0.717, 0.723, 0.729, 0.734, 0.740, 0.746, 0.751, 0.757, 0.762,&
6755        0.768, 0.773, 0.779, 0.785, 0.790, 0.796, 0.801, 0.807, 0.812,&
6756        0.817, 0.823, 0.828, 0.834, 0.839, 0.845, 0.850, 0.855, 0.861,&
6757        0.866, 0.871, 0.877, 0.882, 0.887, 0.893, 0.898, 0.903, 0.908,&
6758        0.914, 0.919, 0.924, 0.929, 0.934, 0.939, 0.945, 0.950, 0.955,&
6759        0.960, 0.965, 0.970, 0.975, 0.980, 0.986, 0.991, 0.996, 1.001,&
6760        1.006, 1.011, 1.016, 1.021, 1.026, 1.031, 1.036, 1.041, 1.046,&
6761        1.050, 1.055, 1.060, 1.065, 1.070, 1.075, 1.080, 1.085, 1.089,&
6762        1.094, 1.099, 1.104, 1.109, 1.114, 1.118, 1.123, 1.128, 1.133,&
6763        1.137, 1.142, 1.147, 1.151, 1.156, 1.161, 1.165, 1.170, 1.175,&
6764        1.179, 1.184, 1.189, 1.193, 1.198, 1.203, 1.207, 1.212, 1.216,&
6765        1.221, 1.225, 1.230, 1.234, 1.239, 1.243, 1.248, 1.252, 1.257,&
6766        1.261, 1.266, 1.270, 1.275, 1.279, 1.284, 1.288, 1.293, 1.297,&
6767        1.301, 1.306, 1.310, 1.314, 1.319, 1.323, 1.327, 1.332, 1.336,&
6768        1.340, 1.345, 1.349, 1.353, 1.358, 1.362, 1.366, 1.370, 1.375,&
6769        1.379, 1.383, 1.387, 1.391, 1.396, 1.400, 1.404, 1.408, 1.412,&
6770        1.417, 1.421, 1.425, 1.429, 1.433, 1.437, 1.441, 1.445, 1.450,&
6771        1.454, 1.458, 1.462, 1.466, 1.470, 1.474, 1.478, 1.482, 1.486,&
6772        1.490, 1.494, 1.498, 1.502, 1.506, 1.510, 1.514, 1.518, 1.522,&
6773        1.526, 1.530, 1.534, 1.538, 1.542, 1.546, 1.549, 1.553, 1.557,&
6774        1.561, 1.565, 1.569, 1.573, 1.577, 1.580, 1.584, 1.588, 1.592,&
6775        1.596, 1.600, 1.603, 1.607, 1.611, 1.615, 1.618, 1.622, 1.626,&
6776        1.630, 1.633, 1.637, 1.641, 1.645, 1.648, 1.652, 1.656, 1.660,&
6777        1.663, 1.667, 1.671, 1.674, 1.714, 1.749, 1.784, 1.819, 1.853,&
6778        1.886, 1.919, 1.951, 1.982, 2.014, 2.044, 2.074, 2.104, 2.133,&
6779        2.162, 2.190, 2.218, 2.246, 2.273, 2.300, 2.326, 2.352, 2.377,&
6780        2.403, 2.427, 2.452, 2.476, 2.500, 2.523, 2.547, 2.569, 2.592,&
6781        2.614, 2.636, 2.658, 2.679, 2.700, 2.721, 2.742, 2.762, 2.782,&
6782        2.802, 2.822, 2.841, 2.860, 2.879, 2.898, 2.916, 2.934, 2.952,&
6783        2.970, 2.988, 3.005, 3.022, 3.039, 3.056, 3.073, 3.089, 3.105,&
6784        3.121, 3.137, 3.153, 3.168, 3.184, 3.199, 3.214, 3.229, 3.244,&
6785        3.258, 3.273, 3.287, 3.301, 3.315, 3.329, 3.342, 3.356, 3.369,&
6786        3.382, 3.395, 3.408, 3.421, 3.434, 3.446, 3.459, 3.471, 3.483,&
6787        3.496, 3.507, 3.519, 3.531, 3.543, 3.554, 3.566, 3.577, 3.588,&
6788        3.599, 3.610, 3.621, 3.632, 3.642, 3.653, 3.663, 3.674, 3.684,&
6789        3.694, 3.704, 3.714, 3.724, 3.734, 3.743, 3.753, 3.762, 3.772,&
6790        3.781, 3.790, 3.800, 3.809, 3.818, 3.826, 3.835, 3.844, 3.853,&
6791        3.861, 3.870, 3.878, 3.887, 3.895, 3.903, 3.911, 3.919, 3.927,&
6792        3.935, 3.943, 3.951, 3.959, 3.966, 3.974, 3.981, 3.989, 3.996,&
6793        4.004, 4.011, 4.018, 4.025, 4.032, 4.039, 4.046, 4.053, 4.060,&
6794        4.067, 4.073, 4.080, 4.087, 4.093, 4.100, 4.106, 4.113, 4.119,&
6795        4.125, 4.131, 4.138 &
6796        /
6797 !C
6798 !C *** (NH4)3H(SO4)2
6799 !C
6800       DATA BNC13M/ &
6801       -0.082,-0.178,-0.227,-0.261,-0.288,-0.311,-0.330,-0.347,-0.363,&
6802       -0.377,-0.389,-0.401,-0.412,-0.422,-0.431,-0.440,-0.449,-0.457,&
6803       -0.464,-0.471,-0.478,-0.485,-0.491,-0.497,-0.503,-0.508,-0.514,&
6804       -0.519,-0.524,-0.529,-0.533,-0.538,-0.542,-0.546,-0.550,-0.554,&
6805       -0.557,-0.561,-0.565,-0.568,-0.571,-0.574,-0.578,-0.581,-0.583,&
6806       -0.586,-0.589,-0.592,-0.594,-0.597,-0.599,-0.602,-0.604,-0.606,&
6807       -0.608,-0.610,-0.612,-0.614,-0.616,-0.618,-0.620,-0.622,-0.624,&
6808       -0.625,-0.627,-0.629,-0.630,-0.632,-0.633,-0.635,-0.636,-0.637,&
6809       -0.639,-0.640,-0.641,-0.643,-0.644,-0.645,-0.646,-0.647,-0.648,&
6810       -0.649,-0.650,-0.651,-0.652,-0.653,-0.654,-0.655,-0.656,-0.657,&
6811       -0.658,-0.658,-0.659,-0.660,-0.661,-0.661,-0.662,-0.663,-0.663,&
6812       -0.664,-0.665,-0.665,-0.666,-0.666,-0.667,-0.667,-0.668,-0.668,&
6813       -0.669,-0.669,-0.670,-0.670,-0.671,-0.671,-0.671,-0.672,-0.672,&
6814       -0.673,-0.673,-0.673,-0.674,-0.674,-0.674,-0.675,-0.675,-0.675,&
6815       -0.676,-0.676,-0.676,-0.676,-0.677,-0.677,-0.677,-0.677,-0.678,&
6816       -0.678,-0.678,-0.679,-0.679,-0.679,-0.679,-0.679,-0.680,-0.680,&
6817       -0.680,-0.680,-0.681,-0.681,-0.681,-0.681,-0.681,-0.682,-0.682,&
6818       -0.682,-0.682,-0.682,-0.683,-0.683,-0.683,-0.683,-0.683,-0.684,&
6819       -0.684,-0.684,-0.684,-0.684,-0.685,-0.685,-0.685,-0.685,-0.685,&
6820       -0.686,-0.686,-0.686,-0.686,-0.686,-0.687,-0.687,-0.687,-0.687,&
6821       -0.687,-0.687,-0.688,-0.688,-0.688,-0.688,-0.688,-0.689,-0.689,&
6822       -0.689,-0.689,-0.689,-0.690,-0.690,-0.690,-0.690,-0.690,-0.691,&
6823       -0.691,-0.691,-0.691,-0.691,-0.691,-0.692,-0.692,-0.692,-0.692,&
6824       -0.692,-0.693,-0.693,-0.693,-0.693,-0.693,-0.694,-0.694,-0.694,&
6825       -0.694,-0.694,-0.695,-0.695,-0.695,-0.695,-0.695,-0.696,-0.696,&
6826       -0.696,-0.696,-0.696,-0.697,-0.697,-0.697,-0.697,-0.698,-0.698,&
6827       -0.698,-0.698,-0.698,-0.699,-0.699,-0.699,-0.699,-0.699,-0.700,&
6828       -0.700,-0.700,-0.700,-0.701,-0.701,-0.701,-0.701,-0.702,-0.702,&
6829       -0.702,-0.702,-0.702,-0.703,-0.703,-0.703,-0.703,-0.704,-0.704,&
6830       -0.704,-0.704,-0.705,-0.705,-0.705,-0.705,-0.706,-0.706,-0.706,&
6831       -0.706,-0.706,-0.707,-0.707,-0.707,-0.707,-0.708,-0.708,-0.708,&
6832       -0.708,-0.709,-0.709,-0.709,-0.710,-0.710,-0.710,-0.710,-0.711,&
6833       -0.711,-0.711,-0.711,-0.712,-0.712,-0.712,-0.712,-0.713,-0.713,&
6834       -0.713,-0.713,-0.714,-0.714,-0.714,-0.715,-0.715,-0.715,-0.715,&
6835       -0.716,-0.716,-0.716,-0.716,-0.717,-0.717,-0.717,-0.718,-0.718,&
6836       -0.718,-0.718,-0.719,-0.719,-0.719,-0.720,-0.720,-0.720,-0.720,&
6837       -0.721,-0.721,-0.721,-0.722,-0.722,-0.722,-0.723,-0.723,-0.723,&
6838       -0.723,-0.724,-0.724,-0.724,-0.725,-0.725,-0.725,-0.726,-0.726,&
6839       -0.726,-0.727,-0.727,-0.727,-0.727,-0.728,-0.728,-0.728,-0.729,&
6840       -0.729,-0.729,-0.730,-0.730,-0.730,-0.731,-0.731,-0.731,-0.732,&
6841       -0.732,-0.732,-0.733,-0.733,-0.733,-0.733,-0.734,-0.734,-0.734,&
6842       -0.735,-0.735,-0.735,-0.736,-0.736,-0.736,-0.737,-0.737,-0.737,&
6843       -0.738,-0.738,-0.738,-0.739,-0.739,-0.740,-0.740,-0.740,-0.741,&
6844       -0.741,-0.741,-0.742,-0.742,-0.742,-0.743,-0.743,-0.743,-0.744,&
6845       -0.744,-0.744,-0.745,-0.745,-0.749,-0.753,-0.756,-0.760,-0.764,&
6846       -0.768,-0.772,-0.776,-0.780,-0.784,-0.788,-0.793,-0.797,-0.801,&
6847       -0.806,-0.810,-0.815,-0.820,-0.824,-0.829,-0.834,-0.839,-0.844,&
6848       -0.848,-0.853,-0.858,-0.863,-0.869,-0.874,-0.879,-0.884,-0.889,&
6849       -0.895,-0.900,-0.905,-0.911,-0.916,-0.922,-0.927,-0.933,-0.938,&
6850       -0.944,-0.950,-0.955,-0.961,-0.967,-0.972,-0.978,-0.984,-0.990,&
6851       -0.996,-1.002,-1.008,-1.014,-1.020,-1.026,-1.032,-1.038,-1.044,&
6852       -1.050,-1.056,-1.062,-1.068,-1.075,-1.081,-1.087,-1.093,-1.100,&
6853       -1.106,-1.112,-1.119,-1.125,-1.131,-1.138,-1.144,-1.151,-1.157,&
6854       -1.164,-1.170,-1.177,-1.183,-1.190,-1.196,-1.203,-1.209,-1.216,&
6855       -1.223,-1.229,-1.236,-1.243,-1.249,-1.256,-1.263,-1.270,-1.276,&
6856       -1.283,-1.290,-1.297,-1.304,-1.310,-1.317,-1.324,-1.331,-1.338,&
6857       -1.345,-1.352,-1.359,-1.365,-1.372,-1.379,-1.386,-1.393,-1.400,&
6858       -1.407,-1.414,-1.421,-1.428,-1.435,-1.442,-1.450,-1.457,-1.464,&
6859       -1.471,-1.478,-1.485,-1.492,-1.499,-1.506,-1.514,-1.521,-1.528,&
6860       -1.535,-1.542,-1.549,-1.557,-1.564,-1.571,-1.578,-1.586,-1.593,&
6861       -1.600,-1.607,-1.615,-1.622,-1.629,-1.636,-1.644,-1.651,-1.658,&
6862       -1.666,-1.673,-1.680,-1.688,-1.695,-1.702,-1.710,-1.717,-1.725,&
6863       -1.732,-1.739,-1.747&
6864       /
6865 !C
6866 !C *** CASO4
6867 !C
6868       DATA BNC14M/ &
6869        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6870        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6871        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6872        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6873        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6874        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6875        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6876        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6877        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6878        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6879        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6880        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6881        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6882        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6883        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6884        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6885        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6886        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6887        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6888        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6889        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6890        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6891        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6892        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6893        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6894        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6895        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6896        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6897        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6898        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6899        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6900        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6901        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6902        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6903        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6904        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6905        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6906        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6907        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6908        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6909        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6910        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6911        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6912        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6913        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6914        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6915        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6916        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6917        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6918        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6919        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6920        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6921        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6922        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6923        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6924        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6925        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6926        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6927        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6928        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6929        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6930        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
6931        0.000, 0.000, 0.000 &
6932        /
6933 !C
6934 !C *** CANO32
6935 !C
6936       DATA BNC15M/&
6937       -0.101,-0.216,-0.271,-0.308,-0.337,-0.360,-0.379,-0.396,-0.410,&
6938       -0.422,-0.433,-0.443,-0.452,-0.460,-0.468,-0.475,-0.481,-0.487,&
6939       -0.492,-0.497,-0.502,-0.506,-0.510,-0.514,-0.517,-0.520,-0.524,&
6940       -0.526,-0.529,-0.532,-0.534,-0.537,-0.539,-0.541,-0.543,-0.545,&
6941       -0.547,-0.549,-0.550,-0.552,-0.553,-0.555,-0.556,-0.558,-0.559,&
6942       -0.560,-0.561,-0.563,-0.564,-0.565,-0.566,-0.567,-0.568,-0.569,&
6943       -0.570,-0.571,-0.572,-0.572,-0.573,-0.574,-0.575,-0.576,-0.576,&
6944       -0.577,-0.578,-0.578,-0.579,-0.580,-0.580,-0.581,-0.581,-0.582,&
6945       -0.582,-0.583,-0.583,-0.584,-0.584,-0.585,-0.585,-0.585,-0.586,&
6946       -0.586,-0.586,-0.586,-0.587,-0.587,-0.587,-0.587,-0.587,-0.587,&
6947       -0.587,-0.588,-0.588,-0.588,-0.588,-0.588,-0.587,-0.587,-0.587,&
6948       -0.587,-0.587,-0.587,-0.587,-0.587,-0.586,-0.586,-0.586,-0.586,&
6949       -0.585,-0.585,-0.585,-0.585,-0.584,-0.584,-0.584,-0.583,-0.583,&
6950       -0.583,-0.582,-0.582,-0.581,-0.581,-0.581,-0.580,-0.580,-0.579,&
6951       -0.579,-0.579,-0.578,-0.578,-0.577,-0.577,-0.576,-0.576,-0.576,&
6952       -0.575,-0.575,-0.574,-0.574,-0.573,-0.573,-0.572,-0.572,-0.571,&
6953       -0.571,-0.570,-0.570,-0.570,-0.569,-0.569,-0.568,-0.568,-0.567,&
6954       -0.567,-0.566,-0.566,-0.565,-0.565,-0.564,-0.564,-0.563,-0.563,&
6955       -0.562,-0.562,-0.562,-0.561,-0.561,-0.560,-0.560,-0.559,-0.559,&
6956       -0.558,-0.558,-0.557,-0.557,-0.556,-0.556,-0.555,-0.555,-0.554,&
6957       -0.554,-0.554,-0.553,-0.553,-0.552,-0.552,-0.551,-0.551,-0.550,&
6958       -0.550,-0.549,-0.549,-0.548,-0.548,-0.548,-0.547,-0.547,-0.546,&
6959       -0.546,-0.545,-0.545,-0.544,-0.544,-0.544,-0.543,-0.543,-0.542,&
6960       -0.542,-0.541,-0.541,-0.540,-0.540,-0.540,-0.539,-0.539,-0.538,&
6961       -0.538,-0.537,-0.537,-0.537,-0.536,-0.536,-0.535,-0.535,-0.535,&
6962       -0.534,-0.534,-0.533,-0.533,-0.533,-0.532,-0.532,-0.531,-0.531,&
6963       -0.531,-0.530,-0.530,-0.529,-0.529,-0.529,-0.528,-0.528,-0.527,&
6964       -0.527,-0.527,-0.526,-0.526,-0.525,-0.525,-0.525,-0.524,-0.524,&
6965       -0.524,-0.523,-0.523,-0.523,-0.522,-0.522,-0.521,-0.521,-0.521,&
6966       -0.520,-0.520,-0.520,-0.519,-0.519,-0.519,-0.518,-0.518,-0.518,&
6967       -0.517,-0.517,-0.517,-0.516,-0.516,-0.516,-0.515,-0.515,-0.515,&
6968       -0.514,-0.514,-0.514,-0.513,-0.513,-0.513,-0.512,-0.512,-0.512,&
6969       -0.512,-0.511,-0.511,-0.511,-0.510,-0.510,-0.510,-0.509,-0.509,&
6970       -0.509,-0.509,-0.508,-0.508,-0.508,-0.507,-0.507,-0.507,-0.507,&
6971       -0.506,-0.506,-0.506,-0.506,-0.505,-0.505,-0.505,-0.504,-0.504,&
6972       -0.504,-0.504,-0.503,-0.503,-0.503,-0.503,-0.502,-0.502,-0.502,&
6973       -0.502,-0.501,-0.501,-0.501,-0.501,-0.501,-0.500,-0.500,-0.500,&
6974       -0.500,-0.499,-0.499,-0.499,-0.499,-0.499,-0.498,-0.498,-0.498,&
6975       -0.498,-0.497,-0.497,-0.497,-0.497,-0.497,-0.496,-0.496,-0.496,&
6976       -0.496,-0.496,-0.495,-0.495,-0.495,-0.495,-0.495,-0.495,-0.494,&
6977       -0.494,-0.494,-0.494,-0.494,-0.493,-0.493,-0.493,-0.493,-0.493,&
6978       -0.493,-0.492,-0.492,-0.492,-0.492,-0.492,-0.492,-0.491,-0.491,&
6979       -0.491,-0.491,-0.491,-0.491,-0.491,-0.490,-0.490,-0.490,-0.490,&
6980       -0.490,-0.490,-0.490,-0.489,-0.489,-0.489,-0.489,-0.489,-0.489,&
6981       -0.489,-0.489,-0.488,-0.488,-0.487,-0.486,-0.485,-0.485,-0.484,&
6982       -0.484,-0.484,-0.484,-0.484,-0.484,-0.484,-0.485,-0.485,-0.486,&
6983       -0.487,-0.488,-0.489,-0.490,-0.491,-0.492,-0.494,-0.495,-0.497,&
6984       -0.499,-0.501,-0.503,-0.505,-0.507,-0.509,-0.511,-0.514,-0.516,&
6985       -0.519,-0.522,-0.524,-0.527,-0.530,-0.533,-0.536,-0.539,-0.543,&
6986       -0.546,-0.549,-0.553,-0.556,-0.560,-0.563,-0.567,-0.571,-0.575,&
6987       -0.578,-0.582,-0.586,-0.590,-0.595,-0.599,-0.603,-0.607,-0.612,&
6988       -0.616,-0.620,-0.625,-0.629,-0.634,-0.639,-0.643,-0.648,-0.653,&
6989       -0.658,-0.663,-0.668,-0.673,-0.678,-0.683,-0.688,-0.693,-0.698,&
6990       -0.703,-0.709,-0.714,-0.719,-0.725,-0.730,-0.736,-0.741,-0.747,&
6991       -0.752,-0.758,-0.764,-0.769,-0.775,-0.781,-0.787,-0.792,-0.798,&
6992       -0.804,-0.810,-0.816,-0.822,-0.828,-0.834,-0.840,-0.846,-0.853,&
6993       -0.859,-0.865,-0.871,-0.877,-0.884,-0.890,-0.896,-0.903,-0.909,&
6994       -0.916,-0.922,-0.929,-0.935,-0.942,-0.948,-0.955,-0.961,-0.968,&
6995       -0.975,-0.981,-0.988,-0.995,-1.001,-1.008,-1.015,-1.022,-1.029,&
6996       -1.036,-1.042,-1.049,-1.056,-1.063,-1.070,-1.077,-1.084,-1.091,&
6997       -1.098,-1.105,-1.112,-1.119,-1.127,-1.134,-1.141,-1.148,-1.155,&
6998       -1.162,-1.170,-1.177,-1.184,-1.191,-1.199,-1.206,-1.213,-1.221,&
6999       -1.228,-1.235,-1.243                                           &
7000        /
7001 !C
7002 !C *** CACL2
7003 !C
7004       DATA BNC16M/                                                   &
7005       -0.099,-0.205,-0.252,-0.282,-0.304,-0.320,-0.332,-0.342,-0.350,&
7006       -0.356,-0.361,-0.364,-0.367,-0.369,-0.370,-0.371,-0.371,-0.371,&
7007       -0.370,-0.370,-0.368,-0.367,-0.365,-0.363,-0.361,-0.358,-0.356,&
7008       -0.353,-0.350,-0.347,-0.344,-0.341,-0.337,-0.334,-0.330,-0.327,&
7009       -0.323,-0.320,-0.316,-0.312,-0.308,-0.305,-0.301,-0.297,-0.293,&
7010       -0.289,-0.285,-0.281,-0.277,-0.273,-0.269,-0.265,-0.262,-0.258,&
7011       -0.254,-0.250,-0.246,-0.242,-0.238,-0.234,-0.230,-0.226,-0.222,&
7012       -0.218,-0.213,-0.209,-0.205,-0.201,-0.197,-0.193,-0.189,-0.185,&
7013       -0.181,-0.176,-0.172,-0.168,-0.164,-0.160,-0.155,-0.151,-0.146,&
7014       -0.142,-0.138,-0.133,-0.129,-0.124,-0.120,-0.115,-0.110,-0.106,&
7015       -0.101,-0.096,-0.091,-0.086,-0.082,-0.077,-0.072,-0.067,-0.062,&
7016       -0.057,-0.052,-0.047,-0.042,-0.036,-0.031,-0.026,-0.021,-0.016,&
7017       -0.010,-0.005, 0.000, 0.005, 0.011, 0.016, 0.021, 0.027, 0.032,&
7018        0.037, 0.043, 0.048, 0.054, 0.059, 0.064, 0.070, 0.075, 0.081,&
7019        0.086, 0.092, 0.097, 0.102, 0.108, 0.113, 0.119, 0.124, 0.129,&
7020        0.135, 0.140, 0.146, 0.151, 0.156, 0.162, 0.167, 0.173, 0.178,&
7021        0.183, 0.189, 0.194, 0.199, 0.205, 0.210, 0.215, 0.221, 0.226,&
7022        0.231, 0.237, 0.242, 0.247, 0.252, 0.258, 0.263, 0.268, 0.273,&
7023        0.279, 0.284, 0.289, 0.294, 0.299, 0.305, 0.310, 0.315, 0.320,&
7024        0.325, 0.331, 0.336, 0.341, 0.346, 0.351, 0.356, 0.361, 0.366,&
7025        0.371, 0.377, 0.382, 0.387, 0.392, 0.397, 0.402, 0.407, 0.412,&
7026        0.417, 0.422, 0.427, 0.432, 0.437, 0.442, 0.447, 0.452, 0.457,&
7027        0.462, 0.467, 0.472, 0.476, 0.481, 0.486, 0.491, 0.496, 0.501,&
7028        0.506, 0.511, 0.515, 0.520, 0.525, 0.530, 0.535, 0.539, 0.544,&
7029        0.549, 0.554, 0.559, 0.563, 0.568, 0.573, 0.578, 0.582, 0.587,&
7030        0.592, 0.596, 0.601, 0.606, 0.610, 0.615, 0.620, 0.624, 0.629,&
7031        0.634, 0.638, 0.643, 0.647, 0.652, 0.657, 0.661, 0.666, 0.670,&
7032        0.675, 0.679, 0.684, 0.688, 0.693, 0.697, 0.702, 0.706, 0.711,&
7033        0.715, 0.720, 0.724, 0.729, 0.733, 0.737, 0.742, 0.746, 0.751,&
7034        0.755, 0.759, 0.764, 0.768, 0.773, 0.777, 0.781, 0.786, 0.790,&
7035        0.794, 0.798, 0.803, 0.807, 0.811, 0.816, 0.820, 0.824, 0.828,&
7036        0.833, 0.837, 0.841, 0.845, 0.849, 0.854, 0.858, 0.862, 0.866,&
7037        0.870, 0.874, 0.879, 0.883, 0.887, 0.891, 0.895, 0.899, 0.903,&
7038        0.907, 0.912, 0.916, 0.920, 0.924, 0.928, 0.932, 0.936, 0.940,&
7039        0.944, 0.948, 0.952, 0.956, 0.960, 0.964, 0.968, 0.972, 0.976,&
7040        0.980, 0.984, 0.988, 0.992, 0.995, 0.999, 1.003, 1.007, 1.011,&
7041        1.015, 1.019, 1.023, 1.026, 1.030, 1.034, 1.038, 1.042, 1.046,&
7042        1.049, 1.053, 1.057, 1.061, 1.065, 1.068, 1.072, 1.076, 1.080,&
7043        1.083, 1.087, 1.091, 1.095, 1.098, 1.102, 1.106, 1.109, 1.113,&
7044        1.117, 1.120, 1.124, 1.128, 1.131, 1.135, 1.139, 1.142, 1.146,&
7045        1.150, 1.153, 1.157, 1.160, 1.164, 1.168, 1.171, 1.175, 1.178,&
7046        1.182, 1.185, 1.189, 1.192, 1.196, 1.200, 1.203, 1.207, 1.210,&
7047        1.214, 1.217, 1.221, 1.224, 1.227, 1.231, 1.234, 1.238, 1.241,&
7048        1.245, 1.248, 1.252, 1.255, 1.258, 1.262, 1.265, 1.269, 1.272,&
7049        1.275, 1.279, 1.282, 1.285, 1.321, 1.354, 1.386, 1.417, 1.448,&
7050        1.478, 1.508, 1.537, 1.565, 1.593, 1.621, 1.648, 1.674, 1.700,&
7051        1.726, 1.751, 1.776, 1.800, 1.824, 1.848, 1.871, 1.893, 1.916,&
7052        1.938, 1.959, 1.980, 2.001, 2.022, 2.042, 2.061, 2.081, 2.100,&
7053        2.119, 2.137, 2.156, 2.173, 2.191, 2.208, 2.225, 2.242, 2.259,&
7054        2.275, 2.291, 2.307, 2.322, 2.337, 2.352, 2.367, 2.382, 2.396,&
7055        2.410, 2.424, 2.438, 2.451, 2.464, 2.477, 2.490, 2.502, 2.515,&
7056        2.527, 2.539, 2.551, 2.562, 2.574, 2.585, 2.596, 2.607, 2.618,&
7057        2.628, 2.639, 2.649, 2.659, 2.669, 2.679, 2.688, 2.698, 2.707,&
7058        2.716, 2.725, 2.734, 2.743, 2.751, 2.760, 2.768, 2.776, 2.784,&
7059        2.792, 2.800, 2.808, 2.815, 2.823, 2.830, 2.837, 2.844, 2.851,&
7060        2.858, 2.865, 2.871, 2.878, 2.884, 2.890, 2.896, 2.902, 2.908,&
7061        2.914, 2.920, 2.925, 2.931, 2.936, 2.942, 2.947, 2.952, 2.957,&
7062        2.962, 2.967, 2.972, 2.976, 2.981, 2.985, 2.990, 2.994, 2.998,&
7063        3.003, 3.007, 3.011, 3.014, 3.018, 3.022, 3.026, 3.029, 3.033,&
7064        3.036, 3.040, 3.043, 3.046, 3.049, 3.052, 3.055, 3.058, 3.061,&
7065        3.064, 3.066, 3.069, 3.072, 3.074, 3.077, 3.079, 3.081, 3.083,&
7066        3.086, 3.088, 3.090, 3.092, 3.094, 3.096, 3.097, 3.099, 3.101,&
7067        3.102, 3.104, 3.105                                           &
7068        /
7069 !C
7070 !C *** K2SO4
7071 !C
7072       DATA BNC17M/                                                   &
7073       -0.103,-0.226,-0.289,-0.334,-0.369,-0.399,-0.425,-0.448,-0.468,&
7074       -0.487,-0.505,-0.521,-0.536,-0.550,-0.563,-0.576,-0.588,-0.599,&
7075       -0.610,-0.621,-0.631,-0.641,-0.650,-0.659,-0.668,-0.677,-0.685,&
7076       -0.693,-0.701,-0.709,-0.717,-0.724,-0.731,-0.738,-0.745,-0.752,&
7077       -0.758,-0.765,-0.771,-0.777,-0.784,-0.790,-0.796,-0.801,-0.807,&
7078       -0.813,-0.818,-0.824,-0.829,-0.835,-0.840,-0.845,-0.850,-0.855,&
7079       -0.860,-0.865,-0.870,-0.875,-0.880,-0.884,-0.889,-0.894,-0.898,&
7080       -0.903,-0.907,-0.912,-0.916,-0.920,-0.925,-0.929,-0.933,-0.937,&
7081       -0.942,-0.946,-0.950,-0.954,-0.958,-0.962,-0.966,-0.970,-0.974,&
7082       -0.978,-0.982,-0.985,-0.989,-0.993,-0.997,-1.001,-1.004,-1.008,&
7083       -1.012,-1.016,-1.019,-1.023,-1.027,-1.030,-1.034,-1.037,-1.041,&
7084       -1.045,-1.048,-1.052,-1.055,-1.059,-1.062,-1.066,-1.069,-1.072,&
7085       -1.076,-1.079,-1.083,-1.086,-1.089,-1.093,-1.096,-1.099,-1.103,&
7086       -1.106,-1.109,-1.113,-1.116,-1.119,-1.122,-1.126,-1.129,-1.132,&
7087       -1.135,-1.138,-1.142,-1.145,-1.148,-1.151,-1.154,-1.157,-1.160,&
7088       -1.164,-1.167,-1.170,-1.173,-1.176,-1.179,-1.182,-1.185,-1.188,&
7089       -1.191,-1.194,-1.197,-1.200,-1.203,-1.206,-1.209,-1.212,-1.215,&
7090       -1.218,-1.221,-1.223,-1.226,-1.229,-1.232,-1.235,-1.238,-1.241,&
7091       -1.244,-1.246,-1.249,-1.252,-1.255,-1.258,-1.261,-1.263,-1.266,&
7092       -1.269,-1.272,-1.274,-1.277,-1.280,-1.283,-1.285,-1.288,-1.291,&
7093       -1.294,-1.296,-1.299,-1.302,-1.304,-1.307,-1.310,-1.313,-1.315,&
7094       -1.318,-1.321,-1.323,-1.326,-1.328,-1.331,-1.334,-1.336,-1.339,&
7095       -1.342,-1.344,-1.347,-1.349,-1.352,-1.355,-1.357,-1.360,-1.362,&
7096       -1.365,-1.367,-1.370,-1.373,-1.375,-1.378,-1.380,-1.383,-1.385,&
7097       -1.388,-1.390,-1.393,-1.395,-1.398,-1.400,-1.403,-1.405,-1.408,&
7098       -1.410,-1.413,-1.415,-1.418,-1.420,-1.423,-1.425,-1.427,-1.430,&
7099       -1.432,-1.435,-1.437,-1.440,-1.442,-1.445,-1.447,-1.449,-1.452,&
7100       -1.454,-1.457,-1.459,-1.461,-1.464,-1.466,-1.469,-1.471,-1.473,&
7101       -1.476,-1.478,-1.480,-1.483,-1.485,-1.487,-1.490,-1.492,-1.495,&
7102       -1.497,-1.499,-1.502,-1.504,-1.506,-1.509,-1.511,-1.513,-1.515,&
7103       -1.518,-1.520,-1.522,-1.525,-1.527,-1.529,-1.532,-1.534,-1.536,&
7104       -1.538,-1.541,-1.543,-1.545,-1.548,-1.550,-1.552,-1.554,-1.557,&
7105       -1.559,-1.561,-1.563,-1.566,-1.568,-1.570,-1.572,-1.575,-1.577,&
7106       -1.579,-1.581,-1.583,-1.586,-1.588,-1.590,-1.592,-1.595,-1.597,&
7107       -1.599,-1.601,-1.603,-1.606,-1.608,-1.610,-1.612,-1.614,-1.616,&
7108       -1.619,-1.621,-1.623,-1.625,-1.627,-1.630,-1.632,-1.634,-1.636,&
7109       -1.638,-1.640,-1.642,-1.645,-1.647,-1.649,-1.651,-1.653,-1.655,&
7110       -1.658,-1.660,-1.662,-1.664,-1.666,-1.668,-1.670,-1.672,-1.675,&
7111       -1.677,-1.679,-1.681,-1.683,-1.685,-1.687,-1.689,-1.691,-1.694,&
7112       -1.696,-1.698,-1.700,-1.702,-1.704,-1.706,-1.708,-1.710,-1.712,&
7113       -1.714,-1.717,-1.719,-1.721,-1.723,-1.725,-1.727,-1.729,-1.731,&
7114       -1.733,-1.735,-1.737,-1.739,-1.741,-1.743,-1.745,-1.748,-1.750,&
7115       -1.752,-1.754,-1.756,-1.758,-1.760,-1.762,-1.764,-1.766,-1.768,&
7116       -1.770,-1.772,-1.774,-1.776,-1.778,-1.780,-1.782,-1.784,-1.786,&
7117       -1.788,-1.790,-1.792,-1.794,-1.816,-1.836,-1.855,-1.875,-1.894,&
7118       -1.914,-1.933,-1.952,-1.971,-1.989,-2.008,-2.027,-2.045,-2.063,&
7119       -2.082,-2.100,-2.118,-2.136,-2.154,-2.171,-2.189,-2.207,-2.224,&
7120       -2.242,-2.259,-2.276,-2.293,-2.311,-2.328,-2.345,-2.362,-2.379,&
7121       -2.395,-2.412,-2.429,-2.446,-2.462,-2.479,-2.495,-2.512,-2.528,&
7122       -2.544,-2.561,-2.577,-2.593,-2.609,-2.625,-2.642,-2.658,-2.674,&
7123       -2.689,-2.705,-2.721,-2.737,-2.753,-2.768,-2.784,-2.800,-2.815,&
7124       -2.831,-2.847,-2.862,-2.878,-2.893,-2.908,-2.924,-2.939,-2.954,&
7125       -2.970,-2.985,-3.000,-3.015,-3.031,-3.046,-3.061,-3.076,-3.091,&
7126       -3.106,-3.121,-3.136,-3.151,-3.166,-3.181,-3.196,-3.210,-3.225,&
7127       -3.240,-3.255,-3.270,-3.284,-3.299,-3.314,-3.328,-3.343,-3.358,&
7128       -3.372,-3.387,-3.401,-3.416,-3.430,-3.445,-3.459,-3.474,-3.488,&
7129       -3.503,-3.517,-3.531,-3.546,-3.560,-3.574,-3.589,-3.603,-3.617,&
7130       -3.631,-3.646,-3.660,-3.674,-3.688,-3.702,-3.717,-3.731,-3.745,&
7131       -3.759,-3.773,-3.787,-3.801,-3.815,-3.829,-3.843,-3.857,-3.871,&
7132       -3.885,-3.899,-3.913,-3.927,-3.941,-3.955,-3.969,-3.982,-3.996,&
7133       -4.010,-4.024,-4.038,-4.051,-4.065,-4.079,-4.093,-4.107,-4.120,&
7134       -4.134,-4.148,-4.161,-4.175,-4.189,-4.202,-4.216,-4.230,-4.243,&
7135       -4.257,-4.271,-4.284                                           &
7136        /
7137 !C
7138 !C *** KHSO4
7139 !C
7140       DATA BNC18M/                                                   &
7141       -0.050,-0.106,-0.133,-0.152,-0.166,-0.177,-0.187,-0.195,-0.202,&
7142       -0.208,-0.214,-0.218,-0.223,-0.227,-0.230,-0.233,-0.236,-0.238,&
7143       -0.240,-0.242,-0.244,-0.246,-0.247,-0.248,-0.249,-0.250,-0.250,&
7144       -0.250,-0.251,-0.251,-0.251,-0.251,-0.250,-0.250,-0.249,-0.249,&
7145       -0.248,-0.247,-0.246,-0.245,-0.244,-0.242,-0.241,-0.240,-0.238,&
7146       -0.236,-0.235,-0.233,-0.231,-0.229,-0.227,-0.225,-0.223,-0.221,&
7147       -0.219,-0.216,-0.214,-0.212,-0.209,-0.207,-0.204,-0.202,-0.199,&
7148       -0.196,-0.193,-0.191,-0.188,-0.185,-0.182,-0.179,-0.176,-0.173,&
7149       -0.170,-0.167,-0.164,-0.161,-0.158,-0.154,-0.151,-0.148,-0.144,&
7150       -0.141,-0.138,-0.134,-0.131,-0.127,-0.124,-0.120,-0.116,-0.113,&
7151       -0.109,-0.105,-0.102,-0.098,-0.094,-0.090,-0.086,-0.082,-0.078,&
7152       -0.074,-0.071,-0.067,-0.063,-0.059,-0.054,-0.050,-0.046,-0.042,&
7153       -0.038,-0.034,-0.030,-0.026,-0.022,-0.017,-0.013,-0.009,-0.005,&
7154       -0.001, 0.004, 0.008, 0.012, 0.016, 0.020, 0.025, 0.029, 0.033,&
7155        0.037, 0.041, 0.046, 0.050, 0.054, 0.058, 0.062, 0.067, 0.071,&
7156        0.075, 0.079, 0.083, 0.087, 0.091, 0.096, 0.100, 0.104, 0.108,&
7157        0.112, 0.116, 0.120, 0.124, 0.128, 0.132, 0.136, 0.141, 0.145,&
7158        0.149, 0.153, 0.157, 0.161, 0.165, 0.169, 0.173, 0.176, 0.180,&
7159        0.184, 0.188, 0.192, 0.196, 0.200, 0.204, 0.208, 0.212, 0.215,&
7160        0.219, 0.223, 0.227, 0.231, 0.235, 0.238, 0.242, 0.246, 0.250,&
7161        0.254, 0.257, 0.261, 0.265, 0.268, 0.272, 0.276, 0.280, 0.283,&
7162        0.287, 0.291, 0.294, 0.298, 0.302, 0.305, 0.309, 0.312, 0.316,&
7163        0.320, 0.323, 0.327, 0.330, 0.334, 0.337, 0.341, 0.344, 0.348,&
7164        0.351, 0.355, 0.358, 0.362, 0.365, 0.369, 0.372, 0.376, 0.379,&
7165        0.382, 0.386, 0.389, 0.393, 0.396, 0.399, 0.403, 0.406, 0.409,&
7166        0.413, 0.416, 0.419, 0.423, 0.426, 0.429, 0.433, 0.436, 0.439,&
7167        0.442, 0.446, 0.449, 0.452, 0.455, 0.459, 0.462, 0.465, 0.468,&
7168        0.471, 0.475, 0.478, 0.481, 0.484, 0.487, 0.490, 0.493, 0.497,&
7169        0.500, 0.503, 0.506, 0.509, 0.512, 0.515, 0.518, 0.521, 0.524,&
7170        0.527, 0.530, 0.533, 0.536, 0.539, 0.542, 0.545, 0.548, 0.551,&
7171        0.554, 0.557, 0.560, 0.563, 0.566, 0.569, 0.572, 0.575, 0.578,&
7172        0.581, 0.584, 0.587, 0.590, 0.592, 0.595, 0.598, 0.601, 0.604,&
7173        0.607, 0.610, 0.612, 0.615, 0.618, 0.621, 0.624, 0.627, 0.629,&
7174        0.632, 0.635, 0.638, 0.640, 0.643, 0.646, 0.649, 0.651, 0.654,&
7175        0.657, 0.660, 0.662, 0.665, 0.668, 0.671, 0.673, 0.676, 0.679,&
7176        0.681, 0.684, 0.687, 0.689, 0.692, 0.695, 0.697, 0.700, 0.702,&
7177        0.705, 0.708, 0.710, 0.713, 0.716, 0.718, 0.721, 0.723, 0.726,&
7178        0.728, 0.731, 0.734, 0.736, 0.739, 0.741, 0.744, 0.746, 0.749,&
7179        0.751, 0.754, 0.756, 0.759, 0.761, 0.764, 0.766, 0.769, 0.771,&
7180        0.774, 0.776, 0.779, 0.781, 0.784, 0.786, 0.788, 0.791, 0.793,&
7181        0.796, 0.798, 0.801, 0.803, 0.805, 0.808, 0.810, 0.813, 0.815,&
7182        0.817, 0.820, 0.822, 0.824, 0.827, 0.829, 0.832, 0.834, 0.836,&
7183        0.839, 0.841, 0.843, 0.846, 0.848, 0.850, 0.852, 0.855, 0.857,&
7184        0.859, 0.862, 0.864, 0.866, 0.868, 0.871, 0.873, 0.875, 0.878,&
7185        0.880, 0.882, 0.884, 0.887, 0.910, 0.932, 0.953, 0.974, 0.995,&
7186        1.015, 1.034, 1.054, 1.072, 1.091, 1.109, 1.127, 1.145, 1.162,&
7187        1.179, 1.196, 1.213, 1.229, 1.245, 1.260, 1.276, 1.291, 1.306,&
7188        1.320, 1.335, 1.349, 1.363, 1.377, 1.390, 1.404, 1.417, 1.430,&
7189        1.442, 1.455, 1.467, 1.479, 1.491, 1.503, 1.515, 1.526, 1.538,&
7190        1.549, 1.560, 1.570, 1.581, 1.592, 1.602, 1.612, 1.622, 1.632,&
7191        1.642, 1.652, 1.661, 1.671, 1.680, 1.689, 1.698, 1.707, 1.716,&
7192        1.724, 1.733, 1.741, 1.750, 1.758, 1.766, 1.774, 1.782, 1.789,&
7193        1.797, 1.805, 1.812, 1.820, 1.827, 1.834, 1.841, 1.848, 1.855,&
7194        1.862, 1.868, 1.875, 1.882, 1.888, 1.894, 1.901, 1.907, 1.913,&
7195        1.919, 1.925, 1.931, 1.937, 1.943, 1.948, 1.954, 1.959, 1.965,&
7196        1.970, 1.976, 1.981, 1.986, 1.991, 1.996, 2.001, 2.006, 2.011,&
7197        2.016, 2.020, 2.025, 2.030, 2.034, 2.039, 2.043, 2.048, 2.052,&
7198        2.056, 2.060, 2.064, 2.069, 2.073, 2.077, 2.080, 2.084, 2.088,&
7199        2.092, 2.096, 2.099, 2.103, 2.107, 2.110, 2.114, 2.117, 2.120,&
7200        2.124, 2.127, 2.130, 2.133, 2.137, 2.140, 2.143, 2.146, 2.149,&
7201        2.152, 2.155, 2.158, 2.160, 2.163, 2.166, 2.169, 2.171, 2.174,&
7202        2.176, 2.179, 2.181, 2.184, 2.186, 2.189, 2.191, 2.193, 2.196,&
7203        2.198, 2.200, 2.202                                           &
7204        /
7205 !C
7206 !C *** KNO3
7207 !C
7208       DATA BNC19M/                                                   &
7209       -0.053,-0.124,-0.164,-0.194,-0.219,-0.242,-0.262,-0.281,-0.298,&
7210       -0.314,-0.330,-0.345,-0.359,-0.372,-0.385,-0.398,-0.411,-0.423,&
7211       -0.434,-0.446,-0.457,-0.468,-0.478,-0.489,-0.499,-0.509,-0.519,&
7212       -0.528,-0.538,-0.547,-0.556,-0.565,-0.574,-0.583,-0.592,-0.600,&
7213       -0.608,-0.617,-0.625,-0.633,-0.641,-0.648,-0.656,-0.664,-0.671,&
7214       -0.678,-0.686,-0.693,-0.700,-0.707,-0.714,-0.721,-0.727,-0.734,&
7215       -0.741,-0.747,-0.754,-0.760,-0.766,-0.773,-0.779,-0.785,-0.791,&
7216       -0.797,-0.803,-0.809,-0.815,-0.821,-0.827,-0.832,-0.838,-0.844,&
7217       -0.849,-0.855,-0.861,-0.866,-0.872,-0.877,-0.883,-0.888,-0.894,&
7218       -0.899,-0.904,-0.910,-0.915,-0.920,-0.926,-0.931,-0.936,-0.942,&
7219       -0.947,-0.952,-0.957,-0.963,-0.968,-0.973,-0.978,-0.983,-0.988,&
7220       -0.994,-0.999,-1.004,-1.009,-1.014,-1.019,-1.024,-1.029,-1.034,&
7221       -1.039,-1.044,-1.049,-1.054,-1.059,-1.064,-1.069,-1.074,-1.079,&
7222       -1.083,-1.088,-1.093,-1.098,-1.103,-1.107,-1.112,-1.117,-1.122,&
7223       -1.126,-1.131,-1.136,-1.140,-1.145,-1.149,-1.154,-1.158,-1.163,&
7224       -1.168,-1.172,-1.176,-1.181,-1.185,-1.190,-1.194,-1.199,-1.203,&
7225       -1.207,-1.212,-1.216,-1.220,-1.224,-1.229,-1.233,-1.237,-1.241,&
7226       -1.245,-1.250,-1.254,-1.258,-1.262,-1.266,-1.270,-1.274,-1.278,&
7227       -1.282,-1.286,-1.290,-1.294,-1.298,-1.302,-1.306,-1.310,-1.314,&
7228       -1.318,-1.321,-1.325,-1.329,-1.333,-1.337,-1.341,-1.344,-1.348,&
7229       -1.352,-1.355,-1.359,-1.363,-1.367,-1.370,-1.374,-1.378,-1.381,&
7230       -1.385,-1.388,-1.392,-1.395,-1.399,-1.403,-1.406,-1.410,-1.413,&
7231       -1.417,-1.420,-1.423,-1.427,-1.430,-1.434,-1.437,-1.441,-1.444,&
7232       -1.447,-1.451,-1.454,-1.457,-1.461,-1.464,-1.467,-1.470,-1.474,&
7233       -1.477,-1.480,-1.483,-1.487,-1.490,-1.493,-1.496,-1.499,-1.503,&
7234       -1.506,-1.509,-1.512,-1.515,-1.518,-1.521,-1.524,-1.528,-1.531,&
7235       -1.534,-1.537,-1.540,-1.543,-1.546,-1.549,-1.552,-1.555,-1.558,&
7236       -1.561,-1.564,-1.566,-1.569,-1.572,-1.575,-1.578,-1.581,-1.584,&
7237       -1.587,-1.590,-1.592,-1.595,-1.598,-1.601,-1.604,-1.607,-1.609,&
7238       -1.612,-1.615,-1.618,-1.620,-1.623,-1.626,-1.629,-1.631,-1.634,&
7239       -1.637,-1.639,-1.642,-1.645,-1.647,-1.650,-1.653,-1.655,-1.658,&
7240       -1.661,-1.663,-1.666,-1.668,-1.671,-1.674,-1.676,-1.679,-1.681,&
7241       -1.684,-1.686,-1.689,-1.691,-1.694,-1.696,-1.699,-1.701,-1.704,&
7242       -1.706,-1.709,-1.711,-1.714,-1.716,-1.719,-1.721,-1.724,-1.726,&
7243       -1.728,-1.731,-1.733,-1.736,-1.738,-1.740,-1.743,-1.745,-1.747,&
7244       -1.750,-1.752,-1.754,-1.757,-1.759,-1.761,-1.764,-1.766,-1.768,&
7245       -1.771,-1.773,-1.775,-1.777,-1.780,-1.782,-1.784,-1.786,-1.789,&
7246       -1.791,-1.793,-1.795,-1.797,-1.800,-1.802,-1.804,-1.806,-1.808,&
7247       -1.811,-1.813,-1.815,-1.817,-1.819,-1.821,-1.823,-1.826,-1.828,&
7248       -1.830,-1.832,-1.834,-1.836,-1.838,-1.840,-1.842,-1.844,-1.847,&
7249       -1.849,-1.851,-1.853,-1.855,-1.857,-1.859,-1.861,-1.863,-1.865,&
7250       -1.867,-1.869,-1.871,-1.873,-1.875,-1.877,-1.879,-1.881,-1.883,&
7251       -1.885,-1.887,-1.889,-1.891,-1.893,-1.895,-1.897,-1.898,-1.900,&
7252       -1.902,-1.904,-1.906,-1.908,-1.910,-1.912,-1.914,-1.916,-1.917,&
7253       -1.919,-1.921,-1.923,-1.925,-1.945,-1.963,-1.980,-1.997,-2.014,&
7254       -2.030,-2.046,-2.062,-2.077,-2.092,-2.107,-2.122,-2.136,-2.150,&
7255       -2.163,-2.177,-2.190,-2.203,-2.216,-2.228,-2.241,-2.253,-2.265,&
7256       -2.277,-2.289,-2.300,-2.311,-2.323,-2.334,-2.345,-2.356,-2.366,&
7257       -2.377,-2.387,-2.398,-2.408,-2.418,-2.428,-2.438,-2.448,-2.457,&
7258       -2.467,-2.477,-2.486,-2.496,-2.505,-2.514,-2.523,-2.532,-2.541,&
7259       -2.550,-2.559,-2.568,-2.577,-2.586,-2.594,-2.603,-2.611,-2.620,&
7260       -2.628,-2.637,-2.645,-2.653,-2.662,-2.670,-2.678,-2.686,-2.694,&
7261       -2.702,-2.710,-2.718,-2.726,-2.734,-2.742,-2.750,-2.758,-2.765,&
7262       -2.773,-2.781,-2.789,-2.796,-2.804,-2.811,-2.819,-2.827,-2.834,&
7263       -2.842,-2.849,-2.857,-2.864,-2.871,-2.879,-2.886,-2.893,-2.901,&
7264       -2.908,-2.915,-2.923,-2.930,-2.937,-2.944,-2.951,-2.959,-2.966,&
7265       -2.973,-2.980,-2.987,-2.994,-3.001,-3.008,-3.015,-3.022,-3.029,&
7266       -3.036,-3.043,-3.050,-3.057,-3.064,-3.071,-3.078,-3.085,-3.092,&
7267       -3.099,-3.106,-3.113,-3.119,-3.126,-3.133,-3.140,-3.147,-3.154,&
7268       -3.160,-3.167,-3.174,-3.181,-3.187,-3.194,-3.201,-3.208,-3.214,&
7269       -3.221,-3.228,-3.234,-3.241,-3.248,-3.254,-3.261,-3.268,-3.274,&
7270       -3.281,-3.287,-3.294,-3.301,-3.307,-3.314,-3.320,-3.327,-3.334,&
7271       -3.340,-3.347,-3.353                                           &
7272        /
7273 !C
7274 !C *** KCL
7275 !C
7276       DATA BNC20M/                                                   &
7277       -0.051,-0.108,-0.135,-0.154,-0.169,-0.180,-0.190,-0.198,-0.205,&
7278       -0.211,-0.217,-0.222,-0.226,-0.231,-0.234,-0.238,-0.241,-0.244,&
7279       -0.246,-0.249,-0.251,-0.253,-0.255,-0.257,-0.259,-0.261,-0.262,&
7280       -0.264,-0.265,-0.267,-0.268,-0.269,-0.270,-0.271,-0.272,-0.273,&
7281       -0.274,-0.275,-0.276,-0.277,-0.278,-0.278,-0.279,-0.280,-0.280,&
7282       -0.281,-0.282,-0.282,-0.283,-0.283,-0.284,-0.285,-0.285,-0.286,&
7283       -0.286,-0.287,-0.287,-0.287,-0.288,-0.288,-0.289,-0.289,-0.289,&
7284       -0.290,-0.290,-0.291,-0.291,-0.291,-0.292,-0.292,-0.292,-0.292,&
7285       -0.293,-0.293,-0.293,-0.293,-0.294,-0.294,-0.294,-0.294,-0.294,&
7286       -0.295,-0.295,-0.295,-0.295,-0.295,-0.295,-0.295,-0.295,-0.295,&
7287       -0.295,-0.296,-0.296,-0.296,-0.296,-0.296,-0.296,-0.296,-0.296,&
7288       -0.295,-0.295,-0.295,-0.295,-0.295,-0.295,-0.295,-0.295,-0.295,&
7289       -0.295,-0.295,-0.294,-0.294,-0.294,-0.294,-0.294,-0.294,-0.294,&
7290       -0.293,-0.293,-0.293,-0.293,-0.293,-0.293,-0.292,-0.292,-0.292,&
7291       -0.292,-0.292,-0.291,-0.291,-0.291,-0.291,-0.291,-0.290,-0.290,&
7292       -0.290,-0.290,-0.290,-0.289,-0.289,-0.289,-0.289,-0.289,-0.288,&
7293       -0.288,-0.288,-0.288,-0.287,-0.287,-0.287,-0.287,-0.287,-0.286,&
7294       -0.286,-0.286,-0.286,-0.285,-0.285,-0.285,-0.285,-0.285,-0.284,&
7295       -0.284,-0.284,-0.284,-0.283,-0.283,-0.283,-0.283,-0.283,-0.282,&
7296       -0.282,-0.282,-0.282,-0.281,-0.281,-0.281,-0.281,-0.281,-0.280,&
7297       -0.280,-0.280,-0.280,-0.279,-0.279,-0.279,-0.279,-0.279,-0.278,&
7298       -0.278,-0.278,-0.278,-0.278,-0.277,-0.277,-0.277,-0.277,-0.276,&
7299       -0.276,-0.276,-0.276,-0.276,-0.275,-0.275,-0.275,-0.275,-0.275,&
7300       -0.274,-0.274,-0.274,-0.274,-0.274,-0.273,-0.273,-0.273,-0.273,&
7301       -0.273,-0.272,-0.272,-0.272,-0.272,-0.272,-0.271,-0.271,-0.271,&
7302       -0.271,-0.271,-0.270,-0.270,-0.270,-0.270,-0.270,-0.270,-0.269,&
7303       -0.269,-0.269,-0.269,-0.269,-0.268,-0.268,-0.268,-0.268,-0.268,&
7304       -0.268,-0.267,-0.267,-0.267,-0.267,-0.267,-0.266,-0.266,-0.266,&
7305       -0.266,-0.266,-0.266,-0.265,-0.265,-0.265,-0.265,-0.265,-0.265,&
7306       -0.264,-0.264,-0.264,-0.264,-0.264,-0.264,-0.263,-0.263,-0.263,&
7307       -0.263,-0.263,-0.263,-0.263,-0.262,-0.262,-0.262,-0.262,-0.262,&
7308       -0.262,-0.261,-0.261,-0.261,-0.261,-0.261,-0.261,-0.261,-0.260,&
7309       -0.260,-0.260,-0.260,-0.260,-0.260,-0.260,-0.260,-0.259,-0.259,&
7310       -0.259,-0.259,-0.259,-0.259,-0.259,-0.258,-0.258,-0.258,-0.258,&
7311       -0.258,-0.258,-0.258,-0.258,-0.257,-0.257,-0.257,-0.257,-0.257,&
7312       -0.257,-0.257,-0.257,-0.257,-0.256,-0.256,-0.256,-0.256,-0.256,&
7313       -0.256,-0.256,-0.256,-0.256,-0.255,-0.255,-0.255,-0.255,-0.255,&
7314       -0.255,-0.255,-0.255,-0.255,-0.255,-0.254,-0.254,-0.254,-0.254,&
7315       -0.254,-0.254,-0.254,-0.254,-0.254,-0.254,-0.253,-0.253,-0.253,&
7316       -0.253,-0.253,-0.253,-0.253,-0.253,-0.253,-0.253,-0.253,-0.253,&
7317       -0.252,-0.252,-0.252,-0.252,-0.252,-0.252,-0.252,-0.252,-0.252,&
7318       -0.252,-0.252,-0.252,-0.252,-0.252,-0.251,-0.251,-0.251,-0.251,&
7319       -0.251,-0.251,-0.251,-0.251,-0.251,-0.251,-0.251,-0.251,-0.251,&
7320       -0.251,-0.251,-0.251,-0.250,-0.250,-0.250,-0.250,-0.250,-0.250,&
7321       -0.250,-0.250,-0.250,-0.250,-0.250,-0.249,-0.249,-0.249,-0.248,&
7322       -0.248,-0.248,-0.248,-0.249,-0.249,-0.249,-0.249,-0.250,-0.250,&
7323       -0.251,-0.251,-0.252,-0.252,-0.253,-0.254,-0.255,-0.255,-0.256,&
7324       -0.257,-0.258,-0.259,-0.261,-0.262,-0.263,-0.264,-0.265,-0.267,&
7325       -0.268,-0.269,-0.271,-0.272,-0.274,-0.276,-0.277,-0.279,-0.280,&
7326       -0.282,-0.284,-0.286,-0.287,-0.289,-0.291,-0.293,-0.295,-0.297,&
7327       -0.299,-0.301,-0.303,-0.305,-0.307,-0.309,-0.312,-0.314,-0.316,&
7328       -0.318,-0.321,-0.323,-0.325,-0.328,-0.330,-0.332,-0.335,-0.337,&
7329       -0.340,-0.342,-0.345,-0.347,-0.350,-0.352,-0.355,-0.358,-0.360,&
7330       -0.363,-0.366,-0.368,-0.371,-0.374,-0.377,-0.379,-0.382,-0.385,&
7331       -0.388,-0.391,-0.394,-0.396,-0.399,-0.402,-0.405,-0.408,-0.411,&
7332       -0.414,-0.417,-0.420,-0.423,-0.426,-0.429,-0.432,-0.436,-0.439,&
7333       -0.442,-0.445,-0.448,-0.451,-0.454,-0.458,-0.461,-0.464,-0.467,&
7334       -0.471,-0.474,-0.477,-0.480,-0.484,-0.487,-0.490,-0.494,-0.497,&
7335       -0.500,-0.504,-0.507,-0.511,-0.514,-0.517,-0.521,-0.524,-0.528,&
7336       -0.531,-0.535,-0.538,-0.542,-0.545,-0.549,-0.552,-0.556,-0.559,&
7337       -0.563,-0.566,-0.570,-0.574,-0.577,-0.581,-0.584,-0.588,-0.592,&
7338       -0.595,-0.599,-0.603,-0.606,-0.610,-0.614,-0.617,-0.621,-0.625,&
7339       -0.628,-0.632,-0.636                                           &
7340        /
7341 !C
7342 !C *** MGSO4
7343 !C
7344       DATA BNC21M/                                                   &
7345       -0.205,-0.445,-0.564,-0.649,-0.715,-0.770,-0.817,-0.858,-0.895,&
7346       -0.928,-0.958,-0.986,-1.012,-1.036,-1.058,-1.079,-1.099,-1.118,&
7347       -1.136,-1.153,-1.170,-1.185,-1.200,-1.215,-1.229,-1.242,-1.255,&
7348       -1.268,-1.280,-1.292,-1.303,-1.315,-1.325,-1.336,-1.346,-1.357,&
7349       -1.366,-1.376,-1.386,-1.395,-1.404,-1.413,-1.421,-1.430,-1.438,&
7350       -1.447,-1.455,-1.463,-1.471,-1.478,-1.486,-1.494,-1.501,-1.508,&
7351       -1.515,-1.523,-1.530,-1.536,-1.543,-1.550,-1.557,-1.563,-1.570,&
7352       -1.576,-1.583,-1.589,-1.595,-1.601,-1.607,-1.613,-1.619,-1.625,&
7353       -1.631,-1.637,-1.643,-1.648,-1.654,-1.659,-1.665,-1.670,-1.676,&
7354       -1.681,-1.687,-1.692,-1.697,-1.702,-1.707,-1.713,-1.718,-1.723,&
7355       -1.728,-1.733,-1.738,-1.742,-1.747,-1.752,-1.757,-1.762,-1.766,&
7356       -1.771,-1.776,-1.780,-1.785,-1.789,-1.794,-1.798,-1.803,-1.807,&
7357       -1.812,-1.816,-1.820,-1.825,-1.829,-1.833,-1.838,-1.842,-1.846,&
7358       -1.850,-1.854,-1.858,-1.863,-1.867,-1.871,-1.875,-1.879,-1.883,&
7359       -1.887,-1.891,-1.895,-1.899,-1.903,-1.907,-1.911,-1.915,-1.919,&
7360       -1.922,-1.926,-1.930,-1.934,-1.938,-1.942,-1.945,-1.949,-1.953,&
7361       -1.957,-1.960,-1.964,-1.968,-1.972,-1.975,-1.979,-1.983,-1.986,&
7362       -1.990,-1.994,-1.997,-2.001,-2.004,-2.008,-2.012,-2.015,-2.019,&
7363       -2.022,-2.026,-2.029,-2.033,-2.036,-2.040,-2.043,-2.047,-2.050,&
7364       -2.054,-2.057,-2.061,-2.064,-2.068,-2.071,-2.074,-2.078,-2.081,&
7365       -2.085,-2.088,-2.091,-2.095,-2.098,-2.102,-2.105,-2.108,-2.112,&
7366       -2.115,-2.118,-2.122,-2.125,-2.128,-2.132,-2.135,-2.138,-2.141,&
7367       -2.145,-2.148,-2.151,-2.154,-2.158,-2.161,-2.164,-2.167,-2.171,&
7368       -2.174,-2.177,-2.180,-2.184,-2.187,-2.190,-2.193,-2.196,-2.200,&
7369       -2.203,-2.206,-2.209,-2.212,-2.215,-2.219,-2.222,-2.225,-2.228,&
7370       -2.231,-2.234,-2.237,-2.241,-2.244,-2.247,-2.250,-2.253,-2.256,&
7371       -2.259,-2.262,-2.265,-2.269,-2.272,-2.275,-2.278,-2.281,-2.284,&
7372       -2.287,-2.290,-2.293,-2.296,-2.299,-2.302,-2.305,-2.308,-2.311,&
7373       -2.314,-2.317,-2.320,-2.324,-2.327,-2.330,-2.333,-2.336,-2.339,&
7374       -2.342,-2.345,-2.348,-2.351,-2.354,-2.357,-2.360,-2.363,-2.366,&
7375       -2.369,-2.371,-2.374,-2.377,-2.380,-2.383,-2.386,-2.389,-2.392,&
7376       -2.395,-2.398,-2.401,-2.404,-2.407,-2.410,-2.413,-2.416,-2.419,&
7377       -2.422,-2.425,-2.427,-2.430,-2.433,-2.436,-2.439,-2.442,-2.445,&
7378       -2.448,-2.451,-2.454,-2.457,-2.460,-2.462,-2.465,-2.468,-2.471,&
7379       -2.474,-2.477,-2.480,-2.483,-2.485,-2.488,-2.491,-2.494,-2.497,&
7380       -2.500,-2.503,-2.506,-2.508,-2.511,-2.514,-2.517,-2.520,-2.523,&
7381       -2.526,-2.528,-2.531,-2.534,-2.537,-2.540,-2.543,-2.546,-2.548,&
7382       -2.551,-2.554,-2.557,-2.560,-2.563,-2.565,-2.568,-2.571,-2.574,&
7383       -2.577,-2.579,-2.582,-2.585,-2.588,-2.591,-2.594,-2.596,-2.599,&
7384       -2.602,-2.605,-2.608,-2.610,-2.613,-2.616,-2.619,-2.622,-2.624,&
7385       -2.627,-2.630,-2.633,-2.635,-2.638,-2.641,-2.644,-2.647,-2.649,&
7386       -2.652,-2.655,-2.658,-2.661,-2.663,-2.666,-2.669,-2.672,-2.674,&
7387       -2.677,-2.680,-2.683,-2.685,-2.688,-2.691,-2.694,-2.696,-2.699,&
7388       -2.702,-2.705,-2.707,-2.710,-2.713,-2.716,-2.718,-2.721,-2.724,&
7389       -2.727,-2.729,-2.732,-2.735,-2.765,-2.792,-2.819,-2.846,-2.873,&
7390       -2.900,-2.927,-2.953,-2.980,-3.006,-3.033,-3.059,-3.086,-3.112,&
7391       -3.138,-3.164,-3.191,-3.217,-3.243,-3.269,-3.295,-3.321,-3.346,&
7392       -3.372,-3.398,-3.424,-3.449,-3.475,-3.501,-3.526,-3.552,-3.578,&
7393       -3.603,-3.629,-3.654,-3.679,-3.705,-3.730,-3.755,-3.781,-3.806,&
7394       -3.831,-3.857,-3.882,-3.907,-3.932,-3.957,-3.982,-4.008,-4.033,&
7395       -4.058,-4.083,-4.108,-4.133,-4.158,-4.183,-4.208,-4.233,-4.258,&
7396       -4.282,-4.307,-4.332,-4.357,-4.382,-4.407,-4.431,-4.456,-4.481,&
7397       -4.506,-4.530,-4.555,-4.580,-4.605,-4.629,-4.654,-4.679,-4.703,&
7398       -4.728,-4.752,-4.777,-4.802,-4.826,-4.851,-4.875,-4.900,-4.924,&
7399       -4.949,-4.973,-4.998,-5.022,-5.047,-5.071,-5.096,-5.120,-5.145,&
7400       -5.169,-5.193,-5.218,-5.242,-5.267,-5.291,-5.315,-5.340,-5.364,&
7401       -5.388,-5.413,-5.437,-5.461,-5.485,-5.510,-5.534,-5.558,-5.582,&
7402       -5.607,-5.631,-5.655,-5.679,-5.703,-5.728,-5.752,-5.776,-5.800,&
7403       -5.824,-5.848,-5.873,-5.897,-5.921,-5.945,-5.969,-5.993,-6.017,&
7404       -6.041,-6.065,-6.089,-6.113,-6.137,-6.161,-6.186,-6.210,-6.234,&
7405       -6.258,-6.282,-6.306,-6.329,-6.353,-6.377,-6.401,-6.425,-6.449,&
7406       -6.473,-6.497,-6.521,-6.545,-6.569,-6.593,-6.617,-6.641,-6.664,&
7407       -6.688,-6.712,-6.736                                           &
7408        /
7409 !C
7410 !C *** MGNO32
7411 !C
7412       DATA BNC22M/                                                   &
7413       -0.099,-0.205,-0.253,-0.283,-0.305,-0.322,-0.335,-0.345,-0.353,&
7414       -0.359,-0.364,-0.368,-0.371,-0.374,-0.375,-0.376,-0.377,-0.377,&
7415       -0.376,-0.376,-0.375,-0.373,-0.372,-0.370,-0.368,-0.366,-0.364,&
7416       -0.361,-0.359,-0.356,-0.353,-0.350,-0.347,-0.344,-0.341,-0.338,&
7417       -0.334,-0.331,-0.328,-0.324,-0.321,-0.317,-0.314,-0.310,-0.306,&
7418       -0.303,-0.299,-0.295,-0.292,-0.288,-0.284,-0.281,-0.277,-0.273,&
7419       -0.270,-0.266,-0.262,-0.258,-0.255,-0.251,-0.247,-0.243,-0.240,&
7420       -0.236,-0.232,-0.228,-0.225,-0.221,-0.217,-0.213,-0.209,-0.205,&
7421       -0.201,-0.197,-0.194,-0.190,-0.186,-0.182,-0.177,-0.173,-0.169,&
7422       -0.165,-0.161,-0.157,-0.153,-0.148,-0.144,-0.140,-0.135,-0.131,&
7423       -0.126,-0.122,-0.117,-0.113,-0.108,-0.104,-0.099,-0.094,-0.090,&
7424       -0.085,-0.080,-0.075,-0.070,-0.066,-0.061,-0.056,-0.051,-0.046,&
7425       -0.041,-0.036,-0.031,-0.026,-0.021,-0.016,-0.011,-0.006,-0.001,&
7426        0.004, 0.010, 0.015, 0.020, 0.025, 0.030, 0.035, 0.040, 0.045,&
7427        0.050, 0.056, 0.061, 0.066, 0.071, 0.076, 0.081, 0.086, 0.092,&
7428        0.097, 0.102, 0.107, 0.112, 0.117, 0.122, 0.127, 0.132, 0.137,&
7429        0.143, 0.148, 0.153, 0.158, 0.163, 0.168, 0.173, 0.178, 0.183,&
7430        0.188, 0.193, 0.198, 0.203, 0.208, 0.213, 0.218, 0.223, 0.228,&
7431        0.233, 0.238, 0.243, 0.248, 0.253, 0.258, 0.262, 0.267, 0.272,&
7432        0.277, 0.282, 0.287, 0.292, 0.297, 0.302, 0.306, 0.311, 0.316,&
7433        0.321, 0.326, 0.331, 0.335, 0.340, 0.345, 0.350, 0.354, 0.359,&
7434        0.364, 0.369, 0.373, 0.378, 0.383, 0.388, 0.392, 0.397, 0.402,&
7435        0.406, 0.411, 0.416, 0.420, 0.425, 0.430, 0.434, 0.439, 0.444,&
7436        0.448, 0.453, 0.457, 0.462, 0.466, 0.471, 0.476, 0.480, 0.485,&
7437        0.489, 0.494, 0.498, 0.503, 0.507, 0.512, 0.516, 0.521, 0.525,&
7438        0.530, 0.534, 0.538, 0.543, 0.547, 0.552, 0.556, 0.561, 0.565,&
7439        0.569, 0.574, 0.578, 0.582, 0.587, 0.591, 0.595, 0.600, 0.604,&
7440        0.608, 0.613, 0.617, 0.621, 0.625, 0.630, 0.634, 0.638, 0.642,&
7441        0.647, 0.651, 0.655, 0.659, 0.664, 0.668, 0.672, 0.676, 0.680,&
7442        0.684, 0.689, 0.693, 0.697, 0.701, 0.705, 0.709, 0.713, 0.717,&
7443        0.721, 0.726, 0.730, 0.734, 0.738, 0.742, 0.746, 0.750, 0.754,&
7444        0.758, 0.762, 0.766, 0.770, 0.774, 0.778, 0.782, 0.786, 0.790,&
7445        0.794, 0.798, 0.801, 0.805, 0.809, 0.813, 0.817, 0.821, 0.825,&
7446        0.829, 0.833, 0.836, 0.840, 0.844, 0.848, 0.852, 0.856, 0.859,&
7447        0.863, 0.867, 0.871, 0.875, 0.878, 0.882, 0.886, 0.890, 0.893,&
7448        0.897, 0.901, 0.905, 0.908, 0.912, 0.916, 0.919, 0.923, 0.927,&
7449        0.931, 0.934, 0.938, 0.941, 0.945, 0.949, 0.952, 0.956, 0.960,&
7450        0.963, 0.967, 0.970, 0.974, 0.978, 0.981, 0.985, 0.988, 0.992,&
7451        0.995, 0.999, 1.002, 1.006, 1.010, 1.013, 1.017, 1.020, 1.024,&
7452        1.027, 1.031, 1.034, 1.037, 1.041, 1.044, 1.048, 1.051, 1.055,&
7453        1.058, 1.061, 1.065, 1.068, 1.072, 1.075, 1.078, 1.082, 1.085,&
7454        1.089, 1.092, 1.095, 1.099, 1.102, 1.105, 1.109, 1.112, 1.115,&
7455        1.119, 1.122, 1.125, 1.128, 1.132, 1.135, 1.138, 1.142, 1.145,&
7456        1.148, 1.151, 1.155, 1.158, 1.161, 1.164, 1.167, 1.171, 1.174,&
7457        1.177, 1.180, 1.183, 1.187, 1.220, 1.251, 1.281, 1.311, 1.340,&
7458        1.369, 1.397, 1.424, 1.451, 1.477, 1.503, 1.529, 1.554, 1.579,&
7459        1.603, 1.627, 1.650, 1.673, 1.695, 1.717, 1.739, 1.760, 1.781,&
7460        1.802, 1.822, 1.842, 1.862, 1.881, 1.900, 1.918, 1.937, 1.955,&
7461        1.972, 1.990, 2.007, 2.024, 2.040, 2.056, 2.072, 2.088, 2.103,&
7462        2.119, 2.134, 2.148, 2.163, 2.177, 2.191, 2.205, 2.218, 2.231,&
7463        2.245, 2.257, 2.270, 2.283, 2.295, 2.307, 2.319, 2.330, 2.342,&
7464        2.353, 2.364, 2.375, 2.386, 2.397, 2.407, 2.417, 2.427, 2.437,&
7465        2.447, 2.456, 2.466, 2.475, 2.484, 2.493, 2.502, 2.511, 2.519,&
7466        2.528, 2.536, 2.544, 2.552, 2.560, 2.567, 2.575, 2.582, 2.590,&
7467        2.597, 2.604, 2.611, 2.618, 2.624, 2.631, 2.637, 2.644, 2.650,&
7468        2.656, 2.662, 2.668, 2.674, 2.680, 2.685, 2.691, 2.696, 2.701,&
7469        2.706, 2.712, 2.717, 2.721, 2.726, 2.731, 2.735, 2.740, 2.744,&
7470        2.749, 2.753, 2.757, 2.761, 2.765, 2.769, 2.773, 2.777, 2.780,&
7471        2.784, 2.787, 2.791, 2.794, 2.797, 2.801, 2.804, 2.807, 2.810,&
7472        2.812, 2.815, 2.818, 2.821, 2.823, 2.826, 2.828, 2.831, 2.833,&
7473        2.835, 2.837, 2.839, 2.841, 2.843, 2.845, 2.847, 2.849, 2.851,&
7474        2.852, 2.854, 2.856, 2.857, 2.859, 2.860, 2.861, 2.862, 2.864,&
7475        2.865, 2.866, 2.867                                           &
7476        /
7477 !C
7478 !C *** MGCL2
7479 !C
7480       DATA BNC23M/                                                   &
7481       -0.098,-0.202,-0.247,-0.275,-0.294,-0.308,-0.319,-0.327,-0.333,&
7482       -0.337,-0.340,-0.342,-0.343,-0.343,-0.343,-0.341,-0.340,-0.338,&
7483       -0.336,-0.333,-0.330,-0.326,-0.323,-0.319,-0.315,-0.311,-0.306,&
7484       -0.302,-0.297,-0.293,-0.288,-0.283,-0.278,-0.273,-0.267,-0.262,&
7485       -0.257,-0.251,-0.246,-0.241,-0.235,-0.230,-0.224,-0.218,-0.213,&
7486       -0.207,-0.202,-0.196,-0.190,-0.185,-0.179,-0.174,-0.168,-0.162,&
7487       -0.157,-0.151,-0.145,-0.140,-0.134,-0.128,-0.123,-0.117,-0.111,&
7488       -0.106,-0.100,-0.094,-0.089,-0.083,-0.077,-0.071,-0.066,-0.060,&
7489       -0.054,-0.048,-0.042,-0.037,-0.031,-0.025,-0.019,-0.013,-0.007,&
7490       -0.001, 0.006, 0.012, 0.018, 0.024, 0.030, 0.037, 0.043, 0.049,&
7491        0.056, 0.062, 0.069, 0.075, 0.082, 0.089, 0.095, 0.102, 0.109,&
7492        0.116, 0.122, 0.129, 0.136, 0.143, 0.150, 0.157, 0.164, 0.171,&
7493        0.178, 0.185, 0.192, 0.199, 0.207, 0.214, 0.221, 0.228, 0.235,&
7494        0.242, 0.250, 0.257, 0.264, 0.271, 0.278, 0.286, 0.293, 0.300,&
7495        0.307, 0.315, 0.322, 0.329, 0.336, 0.344, 0.351, 0.358, 0.365,&
7496        0.372, 0.380, 0.387, 0.394, 0.401, 0.408, 0.416, 0.423, 0.430,&
7497        0.437, 0.444, 0.451, 0.458, 0.466, 0.473, 0.480, 0.487, 0.494,&
7498        0.501, 0.508, 0.515, 0.522, 0.529, 0.536, 0.543, 0.550, 0.557,&
7499        0.564, 0.571, 0.578, 0.585, 0.592, 0.599, 0.606, 0.613, 0.620,&
7500        0.626, 0.633, 0.640, 0.647, 0.654, 0.661, 0.667, 0.674, 0.681,&
7501        0.688, 0.695, 0.701, 0.708, 0.715, 0.722, 0.728, 0.735, 0.742,&
7502        0.748, 0.755, 0.762, 0.768, 0.775, 0.782, 0.788, 0.795, 0.801,&
7503        0.808, 0.815, 0.821, 0.828, 0.834, 0.841, 0.847, 0.854, 0.860,&
7504        0.867, 0.873, 0.879, 0.886, 0.892, 0.899, 0.905, 0.912, 0.918,&
7505        0.924, 0.931, 0.937, 0.943, 0.950, 0.956, 0.962, 0.968, 0.975,&
7506        0.981, 0.987, 0.993, 1.000, 1.006, 1.012, 1.018, 1.024, 1.031,&
7507        1.037, 1.043, 1.049, 1.055, 1.061, 1.067, 1.073, 1.080, 1.086,&
7508        1.092, 1.098, 1.104, 1.110, 1.116, 1.122, 1.128, 1.134, 1.140,&
7509        1.146, 1.151, 1.157, 1.163, 1.169, 1.175, 1.181, 1.187, 1.193,&
7510        1.199, 1.204, 1.210, 1.216, 1.222, 1.228, 1.233, 1.239, 1.245,&
7511        1.251, 1.256, 1.262, 1.268, 1.273, 1.279, 1.285, 1.291, 1.296,&
7512        1.302, 1.307, 1.313, 1.319, 1.324, 1.330, 1.335, 1.341, 1.347,&
7513        1.352, 1.358, 1.363, 1.369, 1.374, 1.380, 1.385, 1.391, 1.396,&
7514        1.402, 1.407, 1.412, 1.418, 1.423, 1.429, 1.434, 1.439, 1.445,&
7515        1.450, 1.455, 1.461, 1.466, 1.471, 1.477, 1.482, 1.487, 1.493,&
7516        1.498, 1.503, 1.508, 1.514, 1.519, 1.524, 1.529, 1.534, 1.540,&
7517        1.545, 1.550, 1.555, 1.560, 1.565, 1.570, 1.576, 1.581, 1.586,&
7518        1.591, 1.596, 1.601, 1.606, 1.611, 1.616, 1.621, 1.626, 1.631,&
7519        1.636, 1.641, 1.646, 1.651, 1.656, 1.661, 1.666, 1.671, 1.676,&
7520        1.681, 1.686, 1.691, 1.695, 1.700, 1.705, 1.710, 1.715, 1.720,&
7521        1.725, 1.729, 1.734, 1.739, 1.744, 1.749, 1.753, 1.758, 1.763,&
7522        1.768, 1.772, 1.777, 1.782, 1.786, 1.791, 1.796, 1.801, 1.805,&
7523        1.810, 1.815, 1.819, 1.824, 1.829, 1.833, 1.838, 1.842, 1.847,&
7524        1.852, 1.856, 1.861, 1.865, 1.870, 1.874, 1.879, 1.883, 1.888,&
7525        1.892, 1.897, 1.902, 1.906, 1.954, 1.998, 2.040, 2.082, 2.124,&
7526        2.164, 2.204, 2.243, 2.282, 2.319, 2.356, 2.393, 2.429, 2.464,&
7527        2.499, 2.533, 2.567, 2.600, 2.632, 2.664, 2.695, 2.726, 2.757,&
7528        2.787, 2.816, 2.845, 2.874, 2.902, 2.930, 2.957, 2.984, 3.010,&
7529        3.036, 3.062, 3.087, 3.112, 3.137, 3.161, 3.185, 3.208, 3.232,&
7530        3.254, 3.277, 3.299, 3.321, 3.342, 3.364, 3.385, 3.405, 3.426,&
7531        3.446, 3.466, 3.485, 3.504, 3.523, 3.542, 3.561, 3.579, 3.597,&
7532        3.615, 3.632, 3.649, 3.666, 3.683, 3.700, 3.716, 3.732, 3.748,&
7533        3.764, 3.779, 3.795, 3.810, 3.825, 3.839, 3.854, 3.868, 3.882,&
7534        3.896, 3.910, 3.924, 3.937, 3.950, 3.964, 3.976, 3.989, 4.002,&
7535        4.014, 4.026, 4.039, 4.050, 4.062, 4.074, 4.085, 4.097, 4.108,&
7536        4.119, 4.130, 4.141, 4.151, 4.162, 4.172, 4.182, 4.192, 4.202,&
7537        4.212, 4.222, 4.231, 4.241, 4.250, 4.259, 4.268, 4.277, 4.286,&
7538        4.295, 4.304, 4.312, 4.321, 4.329, 4.337, 4.345, 4.353, 4.361,&
7539        4.369, 4.376, 4.384, 4.391, 4.399, 4.406, 4.413, 4.420, 4.427,&
7540        4.434, 4.441, 4.447, 4.454, 4.460, 4.467, 4.473, 4.479, 4.485,&
7541        4.491, 4.497, 4.503, 4.509, 4.515, 4.520, 4.526, 4.531, 4.537,&
7542        4.542, 4.547, 4.552, 4.557, 4.562, 4.567, 4.572, 4.577, 4.582,&
7543        4.586, 4.591, 4.595 &
7544        /
7545       END
7546
7547 !C=======================================================================
7548 !C
7549 !C *** ISORROPIA CODE
7550 !C *** SUBROUTINE KM223
7551 !C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD.
7552 !C     THE COMPUTATIONS HAVE BEEN PERFORMED AND THE RESULTS ARE STORED IN
7553 !C     LOOKUP TABLES. THE IONIC ACTIVITY 'IN' IS INPUT, AND THE ARRAY
7554 !C     'BINARR' IS RETURNED WITH THE BINARY COEFFICIENTS.
7555 !C
7556 !C     TEMPERATURE IS 223K
7557 !C
7558 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
7559 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
7560 !C *** WRITTEN BY ATHANASIOS NENES
7561 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
7562 !C
7563 !C=======================================================================
7564 !C
7565       SUBROUTINE KM2232p1 (IONIC, BINARR)
7566 !C
7567 !C *** Common block definition
7568 !C
7569       COMMON /KMC2232p1/                                         &
7570       BNC01M(  561),BNC02M(  561),BNC03M(  561),BNC04M(  561),&
7571       BNC05M(  561),BNC06M(  561),BNC07M(  561),BNC08M(  561),&
7572       BNC09M(  561),BNC10M(  561),BNC11M(  561),BNC12M(  561),&
7573       BNC13M(  561),BNC14M(  561),BNC15M(  561),BNC16M(  561),&
7574       BNC17M(  561),BNC18M(  561),BNC19M(  561),BNC20M(  561),&
7575       BNC21M(  561),BNC22M(  561),BNC23M(  561)
7576       REAL Binarr (23), Ionic
7577 !C
7578 !C *** Find position in arrays for bincoef
7579 !C
7580       IF (Ionic.LE. 0.200000E+02) THEN
7581          ipos = MIN(NINT( 0.200000E+02*Ionic) + 1,  400)
7582       ELSE
7583          ipos =   400+NINT( 0.200000E+01*Ionic- 0.400000E+02)
7584       ENDIF
7585       ipos = min(ipos,  561)
7586 !C
7587 !C *** Assign values to return array
7588 !C
7589       Binarr(01) = BNC01M(ipos)
7590       Binarr(02) = BNC02M(ipos)
7591       Binarr(03) = BNC03M(ipos)
7592       Binarr(04) = BNC04M(ipos)
7593       Binarr(05) = BNC05M(ipos)
7594       Binarr(06) = BNC06M(ipos)
7595       Binarr(07) = BNC07M(ipos)
7596       Binarr(08) = BNC08M(ipos)
7597       Binarr(09) = BNC09M(ipos)
7598       Binarr(10) = BNC10M(ipos)
7599       Binarr(11) = BNC11M(ipos)
7600       Binarr(12) = BNC12M(ipos)
7601       Binarr(13) = BNC13M(ipos)
7602       Binarr(14) = BNC14M(ipos)
7603       Binarr(15) = BNC15M(ipos)
7604       Binarr(16) = BNC16M(ipos)
7605       Binarr(17) = BNC17M(ipos)
7606       Binarr(18) = BNC18M(ipos)
7607       Binarr(19) = BNC19M(ipos)
7608       Binarr(20) = BNC20M(ipos)
7609       Binarr(21) = BNC21M(ipos)
7610       Binarr(22) = BNC22M(ipos)
7611       Binarr(23) = BNC23M(ipos)
7612 !C
7613 !C *** Return point ; End of subroutine
7614 !C
7615       RETURN
7616       END
7617
7618
7619       BLOCK DATA KMCF2232p1
7620 !C
7621 !C *** Common block definition
7622 !C
7623       COMMON /KMC2232p1/&
7624       BNC01M(  561),BNC02M(  561),BNC03M(  561),BNC04M(  561),&
7625       BNC05M(  561),BNC06M(  561),BNC07M(  561),BNC08M(  561),&
7626       BNC09M(  561),BNC10M(  561),BNC11M(  561),BNC12M(  561),&
7627       BNC13M(  561),BNC14M(  561),BNC15M(  561),BNC16M(  561),&
7628       BNC17M(  561),BNC18M(  561),BNC19M(  561),BNC20M(  561),&
7629       BNC21M(  561),BNC22M(  561),BNC23M(  561)
7630
7631 !C
7632 !C *** NaCl
7633 !C
7634       DATA BNC01M/                                                   &
7635       -0.049,-0.101,-0.124,-0.140,-0.151,-0.159,-0.166,-0.171,-0.175,&
7636       -0.178,-0.181,-0.183,-0.185,-0.187,-0.188,-0.188,-0.189,-0.189,&
7637       -0.189,-0.189,-0.189,-0.189,-0.188,-0.187,-0.187,-0.186,-0.185,&
7638       -0.184,-0.183,-0.182,-0.181,-0.180,-0.178,-0.177,-0.176,-0.174,&
7639       -0.173,-0.172,-0.170,-0.169,-0.167,-0.166,-0.164,-0.163,-0.161,&
7640       -0.159,-0.158,-0.156,-0.155,-0.153,-0.151,-0.150,-0.148,-0.147,&
7641       -0.145,-0.143,-0.142,-0.140,-0.138,-0.137,-0.135,-0.134,-0.132,&
7642       -0.130,-0.128,-0.127,-0.125,-0.123,-0.122,-0.120,-0.118,-0.117,&
7643       -0.115,-0.113,-0.111,-0.110,-0.108,-0.106,-0.104,-0.102,-0.101,&
7644       -0.099,-0.097,-0.095,-0.093,-0.091,-0.089,-0.087,-0.085,-0.083,&
7645       -0.081,-0.079,-0.077,-0.075,-0.073,-0.071,-0.069,-0.067,-0.065,&
7646       -0.063,-0.061,-0.058,-0.056,-0.054,-0.052,-0.050,-0.048,-0.045,&
7647       -0.043,-0.041,-0.039,-0.036,-0.034,-0.032,-0.030,-0.027,-0.025,&
7648       -0.023,-0.020,-0.018,-0.016,-0.014,-0.011,-0.009,-0.007,-0.004,&
7649       -0.002, 0.000, 0.003, 0.005, 0.007, 0.010, 0.012, 0.014, 0.016,&
7650        0.019, 0.021, 0.023, 0.026, 0.028, 0.030, 0.033, 0.035, 0.037,&
7651        0.039, 0.042, 0.044, 0.046, 0.049, 0.051, 0.053, 0.055, 0.058,&
7652        0.060, 0.062, 0.064, 0.067, 0.069, 0.071, 0.073, 0.076, 0.078,&
7653        0.080, 0.082, 0.085, 0.087, 0.089, 0.091, 0.094, 0.096, 0.098,&
7654        0.100, 0.102, 0.105, 0.107, 0.109, 0.111, 0.113, 0.116, 0.118,&
7655        0.120, 0.122, 0.124, 0.126, 0.129, 0.131, 0.133, 0.135, 0.137,&
7656        0.139, 0.142, 0.144, 0.146, 0.148, 0.150, 0.152, 0.154, 0.157,&
7657        0.159, 0.161, 0.163, 0.165, 0.167, 0.169, 0.171, 0.173, 0.175,&
7658        0.178, 0.180, 0.182, 0.184, 0.186, 0.188, 0.190, 0.192, 0.194,&
7659        0.196, 0.198, 0.200, 0.202, 0.204, 0.206, 0.208, 0.211, 0.213,&
7660        0.215, 0.217, 0.219, 0.221, 0.223, 0.225, 0.227, 0.229, 0.231,&
7661        0.233, 0.235, 0.237, 0.239, 0.241, 0.243, 0.245, 0.246, 0.248,&
7662        0.250, 0.252, 0.254, 0.256, 0.258, 0.260, 0.262, 0.264, 0.266,&
7663        0.268, 0.270, 0.272, 0.274, 0.276, 0.277, 0.279, 0.281, 0.283,&
7664        0.285, 0.287, 0.289, 0.291, 0.293, 0.295, 0.296, 0.298, 0.300,&
7665        0.302, 0.304, 0.306, 0.308, 0.309, 0.311, 0.313, 0.315, 0.317,&
7666        0.319, 0.320, 0.322, 0.324, 0.326, 0.328, 0.330, 0.331, 0.333,&
7667        0.335, 0.337, 0.339, 0.340, 0.342, 0.344, 0.346, 0.348, 0.349,&
7668        0.351, 0.353, 0.355, 0.356, 0.358, 0.360, 0.362, 0.363, 0.365,&
7669        0.367, 0.369, 0.370, 0.372, 0.374, 0.376, 0.377, 0.379, 0.381,&
7670        0.383, 0.384, 0.386, 0.388, 0.389, 0.391, 0.393, 0.394, 0.396,&
7671        0.398, 0.400, 0.401, 0.403, 0.405, 0.406, 0.408, 0.410, 0.411,&
7672        0.413, 0.415, 0.416, 0.418, 0.420, 0.421, 0.423, 0.424, 0.426,&
7673        0.428, 0.429, 0.431, 0.433, 0.434, 0.436, 0.437, 0.439, 0.441,&
7674        0.442, 0.444, 0.446, 0.447, 0.449, 0.450, 0.452, 0.453, 0.455,&
7675        0.457, 0.458, 0.460, 0.461, 0.463, 0.464, 0.466, 0.468, 0.469,&
7676        0.471, 0.472, 0.474, 0.475, 0.477, 0.478, 0.480, 0.482, 0.483,&
7677        0.485, 0.486, 0.488, 0.489, 0.491, 0.492, 0.494, 0.495, 0.497,&
7678        0.498, 0.500, 0.501, 0.503, 0.504, 0.506, 0.507, 0.509, 0.510,&
7679        0.512, 0.513, 0.515, 0.516, 0.532, 0.546, 0.560, 0.574, 0.588,&
7680        0.601, 0.614, 0.627, 0.639, 0.652, 0.664, 0.676, 0.688, 0.700,&
7681        0.711, 0.722, 0.733, 0.744, 0.755, 0.765, 0.776, 0.786, 0.796,&
7682        0.806, 0.816, 0.825, 0.835, 0.844, 0.853, 0.862, 0.871, 0.880,&
7683        0.888, 0.897, 0.905, 0.913, 0.921, 0.929, 0.937, 0.945, 0.952,&
7684        0.960, 0.967, 0.975, 0.982, 0.989, 0.996, 1.003, 1.009, 1.016,&
7685        1.023, 1.029, 1.036, 1.042, 1.048, 1.054, 1.060, 1.066, 1.072,&
7686        1.078, 1.084, 1.089, 1.095, 1.100, 1.106, 1.111, 1.116, 1.121,&
7687        1.126, 1.131, 1.136, 1.141, 1.146, 1.151, 1.156, 1.160, 1.165,&
7688        1.169, 1.174, 1.178, 1.182, 1.187, 1.191, 1.195, 1.199, 1.203,&
7689        1.207, 1.211, 1.215, 1.219, 1.223, 1.226, 1.230, 1.234, 1.237,&
7690        1.241, 1.244, 1.247, 1.251, 1.254, 1.257, 1.261, 1.264, 1.267,&
7691        1.270, 1.273, 1.276, 1.279, 1.282, 1.285, 1.288, 1.291, 1.293,&
7692        1.296, 1.299, 1.301, 1.304, 1.306, 1.309, 1.311, 1.314, 1.316,&
7693        1.319, 1.321, 1.323, 1.326, 1.328, 1.330, 1.332, 1.334, 1.336,&
7694        1.339, 1.341, 1.343, 1.345, 1.347, 1.348, 1.350, 1.352, 1.354,&
7695        1.356, 1.358, 1.359, 1.361, 1.363, 1.364, 1.366, 1.368, 1.369,&
7696        1.371, 1.372, 1.374, 1.375, 1.377, 1.378, 1.379, 1.381, 1.382,&
7697        1.383, 1.385, 1.386                                           &
7698        /
7699 !C
7700 !C *** Na2SO4
7701 !C
7702       DATA BNC02M/                                                   &
7703       -0.100,-0.220,-0.280,-0.323,-0.357,-0.385,-0.409,-0.431,-0.450,&
7704       -0.468,-0.484,-0.499,-0.513,-0.526,-0.538,-0.549,-0.560,-0.571,&
7705       -0.581,-0.590,-0.600,-0.608,-0.617,-0.625,-0.633,-0.641,-0.648,&
7706       -0.655,-0.662,-0.669,-0.676,-0.682,-0.689,-0.695,-0.701,-0.707,&
7707       -0.713,-0.718,-0.724,-0.729,-0.735,-0.740,-0.745,-0.750,-0.755,&
7708       -0.760,-0.765,-0.769,-0.774,-0.779,-0.783,-0.788,-0.792,-0.796,&
7709       -0.800,-0.805,-0.809,-0.813,-0.817,-0.821,-0.825,-0.829,-0.833,&
7710       -0.836,-0.840,-0.844,-0.848,-0.851,-0.855,-0.858,-0.862,-0.866,&
7711       -0.869,-0.873,-0.876,-0.879,-0.883,-0.886,-0.889,-0.893,-0.896,&
7712       -0.899,-0.902,-0.906,-0.909,-0.912,-0.915,-0.918,-0.921,-0.924,&
7713       -0.927,-0.930,-0.933,-0.936,-0.939,-0.942,-0.945,-0.948,-0.951,&
7714       -0.954,-0.957,-0.960,-0.963,-0.966,-0.968,-0.971,-0.974,-0.977,&
7715       -0.980,-0.982,-0.985,-0.988,-0.991,-0.993,-0.996,-0.999,-1.001,&
7716       -1.004,-1.007,-1.009,-1.012,-1.015,-1.017,-1.020,-1.022,-1.025,&
7717       -1.028,-1.030,-1.033,-1.035,-1.038,-1.040,-1.043,-1.045,-1.048,&
7718       -1.050,-1.053,-1.055,-1.058,-1.060,-1.062,-1.065,-1.067,-1.070,&
7719       -1.072,-1.074,-1.077,-1.079,-1.082,-1.084,-1.086,-1.089,-1.091,&
7720       -1.093,-1.096,-1.098,-1.100,-1.102,-1.105,-1.107,-1.109,-1.112,&
7721       -1.114,-1.116,-1.118,-1.121,-1.123,-1.125,-1.127,-1.129,-1.132,&
7722       -1.134,-1.136,-1.138,-1.140,-1.143,-1.145,-1.147,-1.149,-1.151,&
7723       -1.153,-1.155,-1.158,-1.160,-1.162,-1.164,-1.166,-1.168,-1.170,&
7724       -1.172,-1.174,-1.177,-1.179,-1.181,-1.183,-1.185,-1.187,-1.189,&
7725       -1.191,-1.193,-1.195,-1.197,-1.199,-1.201,-1.203,-1.205,-1.207,&
7726       -1.209,-1.211,-1.213,-1.215,-1.217,-1.219,-1.221,-1.223,-1.225,&
7727       -1.227,-1.229,-1.231,-1.233,-1.235,-1.237,-1.239,-1.241,-1.243,&
7728       -1.245,-1.247,-1.248,-1.250,-1.252,-1.254,-1.256,-1.258,-1.260,&
7729       -1.262,-1.264,-1.266,-1.268,-1.269,-1.271,-1.273,-1.275,-1.277,&
7730       -1.279,-1.281,-1.283,-1.284,-1.286,-1.288,-1.290,-1.292,-1.294,&
7731       -1.296,-1.297,-1.299,-1.301,-1.303,-1.305,-1.306,-1.308,-1.310,&
7732       -1.312,-1.314,-1.316,-1.317,-1.319,-1.321,-1.323,-1.325,-1.326,&
7733       -1.328,-1.330,-1.332,-1.333,-1.335,-1.337,-1.339,-1.341,-1.342,&
7734       -1.344,-1.346,-1.348,-1.349,-1.351,-1.353,-1.355,-1.356,-1.358,&
7735       -1.360,-1.362,-1.363,-1.365,-1.367,-1.369,-1.370,-1.372,-1.374,&
7736       -1.375,-1.377,-1.379,-1.381,-1.382,-1.384,-1.386,-1.387,-1.389,&
7737       -1.391,-1.393,-1.394,-1.396,-1.398,-1.399,-1.401,-1.403,-1.404,&
7738       -1.406,-1.408,-1.409,-1.411,-1.413,-1.414,-1.416,-1.418,-1.419,&
7739       -1.421,-1.423,-1.424,-1.426,-1.428,-1.429,-1.431,-1.433,-1.434,&
7740       -1.436,-1.438,-1.439,-1.441,-1.442,-1.444,-1.446,-1.447,-1.449,&
7741       -1.451,-1.452,-1.454,-1.456,-1.457,-1.459,-1.460,-1.462,-1.464,&
7742       -1.465,-1.467,-1.468,-1.470,-1.472,-1.473,-1.475,-1.476,-1.478,&
7743       -1.480,-1.481,-1.483,-1.484,-1.486,-1.488,-1.489,-1.491,-1.492,&
7744       -1.494,-1.496,-1.497,-1.499,-1.500,-1.502,-1.503,-1.505,-1.507,&
7745       -1.508,-1.510,-1.511,-1.513,-1.514,-1.516,-1.518,-1.519,-1.521,&
7746       -1.522,-1.524,-1.525,-1.527,-1.528,-1.530,-1.531,-1.533,-1.535,&
7747       -1.536,-1.538,-1.539,-1.541,-1.557,-1.572,-1.587,-1.602,-1.617,&
7748       -1.632,-1.647,-1.661,-1.675,-1.690,-1.704,-1.718,-1.732,-1.746,&
7749       -1.760,-1.774,-1.787,-1.801,-1.815,-1.828,-1.841,-1.855,-1.868,&
7750       -1.881,-1.895,-1.908,-1.921,-1.934,-1.947,-1.960,-1.972,-1.985,&
7751       -1.998,-2.011,-2.023,-2.036,-2.048,-2.061,-2.074,-2.086,-2.098,&
7752       -2.111,-2.123,-2.135,-2.148,-2.160,-2.172,-2.184,-2.196,-2.208,&
7753       -2.220,-2.232,-2.244,-2.256,-2.268,-2.280,-2.292,-2.304,-2.315,&
7754       -2.327,-2.339,-2.351,-2.362,-2.374,-2.386,-2.397,-2.409,-2.420,&
7755       -2.432,-2.443,-2.455,-2.466,-2.478,-2.489,-2.501,-2.512,-2.523,&
7756       -2.535,-2.546,-2.557,-2.568,-2.580,-2.591,-2.602,-2.613,-2.625,&
7757       -2.636,-2.647,-2.658,-2.669,-2.680,-2.691,-2.702,-2.713,-2.724,&
7758       -2.735,-2.746,-2.757,-2.768,-2.779,-2.790,-2.801,-2.812,-2.823,&
7759       -2.833,-2.844,-2.855,-2.866,-2.877,-2.888,-2.898,-2.909,-2.920,&
7760       -2.930,-2.941,-2.952,-2.963,-2.973,-2.984,-2.995,-3.005,-3.016,&
7761       -3.026,-3.037,-3.048,-3.058,-3.069,-3.079,-3.090,-3.100,-3.111,&
7762       -3.121,-3.132,-3.142,-3.153,-3.163,-3.174,-3.184,-3.195,-3.205,&
7763       -3.215,-3.226,-3.236,-3.247,-3.257,-3.267,-3.278,-3.288,-3.298,&
7764       -3.309,-3.319,-3.329,-3.340,-3.350,-3.360,-3.370,-3.381,-3.391,&
7765       -3.401,-3.411,-3.422                                           &
7766        /
7767 !C
7768 !C *** NaNO3
7769 !C
7770       DATA BNC03M/                                                   &
7771       -0.050,-0.111,-0.141,-0.164,-0.181,-0.196,-0.209,-0.220,-0.230,&
7772       -0.239,-0.248,-0.256,-0.263,-0.270,-0.277,-0.283,-0.289,-0.295,&
7773       -0.300,-0.306,-0.311,-0.316,-0.320,-0.325,-0.329,-0.334,-0.338,&
7774       -0.342,-0.346,-0.350,-0.353,-0.357,-0.360,-0.364,-0.367,-0.371,&
7775       -0.374,-0.377,-0.380,-0.384,-0.387,-0.390,-0.392,-0.395,-0.398,&
7776       -0.401,-0.404,-0.406,-0.409,-0.412,-0.414,-0.417,-0.419,-0.422,&
7777       -0.424,-0.427,-0.429,-0.432,-0.434,-0.436,-0.438,-0.441,-0.443,&
7778       -0.445,-0.447,-0.449,-0.452,-0.454,-0.456,-0.458,-0.460,-0.462,&
7779       -0.464,-0.466,-0.468,-0.470,-0.472,-0.474,-0.476,-0.478,-0.480,&
7780       -0.482,-0.484,-0.485,-0.487,-0.489,-0.491,-0.493,-0.495,-0.496,&
7781       -0.498,-0.500,-0.502,-0.504,-0.505,-0.507,-0.509,-0.511,-0.512,&
7782       -0.514,-0.516,-0.518,-0.519,-0.521,-0.523,-0.524,-0.526,-0.528,&
7783       -0.529,-0.531,-0.533,-0.534,-0.536,-0.538,-0.539,-0.541,-0.543,&
7784       -0.544,-0.546,-0.547,-0.549,-0.551,-0.552,-0.554,-0.555,-0.557,&
7785       -0.558,-0.560,-0.561,-0.563,-0.564,-0.566,-0.568,-0.569,-0.571,&
7786       -0.572,-0.574,-0.575,-0.576,-0.578,-0.579,-0.581,-0.582,-0.584,&
7787       -0.585,-0.587,-0.588,-0.590,-0.591,-0.592,-0.594,-0.595,-0.597,&
7788       -0.598,-0.600,-0.601,-0.602,-0.604,-0.605,-0.606,-0.608,-0.609,&
7789       -0.611,-0.612,-0.613,-0.615,-0.616,-0.617,-0.619,-0.620,-0.621,&
7790       -0.623,-0.624,-0.625,-0.627,-0.628,-0.629,-0.631,-0.632,-0.633,&
7791       -0.635,-0.636,-0.637,-0.638,-0.640,-0.641,-0.642,-0.643,-0.645,&
7792       -0.646,-0.647,-0.649,-0.650,-0.651,-0.652,-0.654,-0.655,-0.656,&
7793       -0.657,-0.659,-0.660,-0.661,-0.662,-0.663,-0.665,-0.666,-0.667,&
7794       -0.668,-0.670,-0.671,-0.672,-0.673,-0.674,-0.676,-0.677,-0.678,&
7795       -0.679,-0.680,-0.681,-0.683,-0.684,-0.685,-0.686,-0.687,-0.689,&
7796       -0.690,-0.691,-0.692,-0.693,-0.694,-0.695,-0.697,-0.698,-0.699,&
7797       -0.700,-0.701,-0.702,-0.703,-0.705,-0.706,-0.707,-0.708,-0.709,&
7798       -0.710,-0.711,-0.712,-0.714,-0.715,-0.716,-0.717,-0.718,-0.719,&
7799       -0.720,-0.721,-0.722,-0.724,-0.725,-0.726,-0.727,-0.728,-0.729,&
7800       -0.730,-0.731,-0.732,-0.733,-0.734,-0.736,-0.737,-0.738,-0.739,&
7801       -0.740,-0.741,-0.742,-0.743,-0.744,-0.745,-0.746,-0.747,-0.748,&
7802       -0.749,-0.750,-0.751,-0.753,-0.754,-0.755,-0.756,-0.757,-0.758,&
7803       -0.759,-0.760,-0.761,-0.762,-0.763,-0.764,-0.765,-0.766,-0.767,&
7804       -0.768,-0.769,-0.770,-0.771,-0.772,-0.773,-0.774,-0.775,-0.776,&
7805       -0.777,-0.778,-0.779,-0.780,-0.781,-0.782,-0.783,-0.784,-0.785,&
7806       -0.786,-0.787,-0.788,-0.789,-0.790,-0.791,-0.792,-0.793,-0.794,&
7807       -0.795,-0.796,-0.797,-0.798,-0.799,-0.800,-0.801,-0.802,-0.803,&
7808       -0.804,-0.805,-0.806,-0.807,-0.808,-0.809,-0.810,-0.811,-0.812,&
7809       -0.813,-0.814,-0.815,-0.816,-0.817,-0.818,-0.818,-0.819,-0.820,&
7810       -0.821,-0.822,-0.823,-0.824,-0.825,-0.826,-0.827,-0.828,-0.829,&
7811       -0.830,-0.831,-0.832,-0.833,-0.834,-0.835,-0.835,-0.836,-0.837,&
7812       -0.838,-0.839,-0.840,-0.841,-0.842,-0.843,-0.844,-0.845,-0.846,&
7813       -0.847,-0.848,-0.848,-0.849,-0.850,-0.851,-0.852,-0.853,-0.854,&
7814       -0.855,-0.856,-0.857,-0.858,-0.859,-0.859,-0.860,-0.861,-0.862,&
7815       -0.863,-0.864,-0.865,-0.866,-0.875,-0.884,-0.893,-0.902,-0.910,&
7816       -0.919,-0.927,-0.936,-0.944,-0.952,-0.961,-0.969,-0.977,-0.985,&
7817       -0.993,-1.001,-1.008,-1.016,-1.024,-1.032,-1.039,-1.047,-1.054,&
7818       -1.062,-1.069,-1.077,-1.084,-1.092,-1.099,-1.106,-1.113,-1.121,&
7819       -1.128,-1.135,-1.142,-1.149,-1.156,-1.163,-1.170,-1.177,-1.184,&
7820       -1.191,-1.198,-1.204,-1.211,-1.218,-1.225,-1.231,-1.238,-1.245,&
7821       -1.251,-1.258,-1.265,-1.271,-1.278,-1.284,-1.291,-1.297,-1.304,&
7822       -1.310,-1.317,-1.323,-1.330,-1.336,-1.342,-1.349,-1.355,-1.361,&
7823       -1.368,-1.374,-1.380,-1.386,-1.393,-1.399,-1.405,-1.411,-1.417,&
7824       -1.423,-1.430,-1.436,-1.442,-1.448,-1.454,-1.460,-1.466,-1.472,&
7825       -1.478,-1.484,-1.490,-1.496,-1.502,-1.508,-1.514,-1.520,-1.526,&
7826       -1.532,-1.538,-1.543,-1.549,-1.555,-1.561,-1.567,-1.573,-1.578,&
7827       -1.584,-1.590,-1.596,-1.602,-1.607,-1.613,-1.619,-1.625,-1.630,&
7828       -1.636,-1.642,-1.648,-1.653,-1.659,-1.665,-1.670,-1.676,-1.682,&
7829       -1.687,-1.693,-1.698,-1.704,-1.710,-1.715,-1.721,-1.726,-1.732,&
7830       -1.738,-1.743,-1.749,-1.754,-1.760,-1.765,-1.771,-1.776,-1.782,&
7831       -1.787,-1.793,-1.798,-1.804,-1.809,-1.815,-1.820,-1.826,-1.831,&
7832       -1.837,-1.842,-1.847,-1.853,-1.858,-1.864,-1.869,-1.875,-1.880,&
7833       -1.885,-1.891,-1.896                                           &
7834        /
7835 !C
7836 !C *** (NH4)2SO4
7837 !C
7838       DATA BNC04M/                                                   &
7839       -0.101,-0.220,-0.281,-0.324,-0.358,-0.387,-0.412,-0.434,-0.453,&
7840       -0.471,-0.487,-0.503,-0.517,-0.530,-0.543,-0.555,-0.566,-0.577,&
7841       -0.587,-0.597,-0.606,-0.615,-0.624,-0.632,-0.641,-0.649,-0.656,&
7842       -0.664,-0.671,-0.678,-0.685,-0.692,-0.698,-0.705,-0.711,-0.717,&
7843       -0.723,-0.729,-0.735,-0.740,-0.746,-0.752,-0.757,-0.762,-0.767,&
7844       -0.772,-0.777,-0.782,-0.787,-0.792,-0.797,-0.801,-0.806,-0.810,&
7845       -0.815,-0.819,-0.824,-0.828,-0.832,-0.836,-0.840,-0.844,-0.848,&
7846       -0.852,-0.856,-0.860,-0.864,-0.868,-0.872,-0.876,-0.879,-0.883,&
7847       -0.887,-0.890,-0.894,-0.897,-0.901,-0.904,-0.908,-0.911,-0.915,&
7848       -0.918,-0.922,-0.925,-0.928,-0.932,-0.935,-0.938,-0.942,-0.945,&
7849       -0.948,-0.951,-0.954,-0.958,-0.961,-0.964,-0.967,-0.970,-0.973,&
7850       -0.976,-0.979,-0.982,-0.985,-0.988,-0.991,-0.994,-0.997,-1.000,&
7851       -1.003,-1.006,-1.009,-1.012,-1.015,-1.018,-1.021,-1.024,-1.026,&
7852       -1.029,-1.032,-1.035,-1.038,-1.040,-1.043,-1.046,-1.049,-1.051,&
7853       -1.054,-1.057,-1.060,-1.062,-1.065,-1.068,-1.070,-1.073,-1.076,&
7854       -1.078,-1.081,-1.083,-1.086,-1.089,-1.091,-1.094,-1.096,-1.099,&
7855       -1.102,-1.104,-1.107,-1.109,-1.112,-1.114,-1.117,-1.119,-1.122,&
7856       -1.124,-1.127,-1.129,-1.131,-1.134,-1.136,-1.139,-1.141,-1.144,&
7857       -1.146,-1.148,-1.151,-1.153,-1.155,-1.158,-1.160,-1.163,-1.165,&
7858       -1.167,-1.170,-1.172,-1.174,-1.177,-1.179,-1.181,-1.183,-1.186,&
7859       -1.188,-1.190,-1.193,-1.195,-1.197,-1.199,-1.202,-1.204,-1.206,&
7860       -1.208,-1.210,-1.213,-1.215,-1.217,-1.219,-1.221,-1.224,-1.226,&
7861       -1.228,-1.230,-1.232,-1.235,-1.237,-1.239,-1.241,-1.243,-1.245,&
7862       -1.247,-1.250,-1.252,-1.254,-1.256,-1.258,-1.260,-1.262,-1.264,&
7863       -1.266,-1.269,-1.271,-1.273,-1.275,-1.277,-1.279,-1.281,-1.283,&
7864       -1.285,-1.287,-1.289,-1.291,-1.293,-1.295,-1.297,-1.299,-1.301,&
7865       -1.303,-1.305,-1.307,-1.309,-1.311,-1.313,-1.315,-1.317,-1.319,&
7866       -1.321,-1.323,-1.325,-1.327,-1.329,-1.331,-1.333,-1.335,-1.337,&
7867       -1.339,-1.341,-1.343,-1.345,-1.347,-1.349,-1.351,-1.353,-1.355,&
7868       -1.357,-1.358,-1.360,-1.362,-1.364,-1.366,-1.368,-1.370,-1.372,&
7869       -1.374,-1.376,-1.377,-1.379,-1.381,-1.383,-1.385,-1.387,-1.389,&
7870       -1.391,-1.392,-1.394,-1.396,-1.398,-1.400,-1.402,-1.404,-1.405,&
7871       -1.407,-1.409,-1.411,-1.413,-1.415,-1.417,-1.418,-1.420,-1.422,&
7872       -1.424,-1.426,-1.427,-1.429,-1.431,-1.433,-1.435,-1.437,-1.438,&
7873       -1.440,-1.442,-1.444,-1.445,-1.447,-1.449,-1.451,-1.453,-1.454,&
7874       -1.456,-1.458,-1.460,-1.462,-1.463,-1.465,-1.467,-1.469,-1.470,&
7875       -1.472,-1.474,-1.476,-1.477,-1.479,-1.481,-1.483,-1.484,-1.486,&
7876       -1.488,-1.490,-1.491,-1.493,-1.495,-1.496,-1.498,-1.500,-1.502,&
7877       -1.503,-1.505,-1.507,-1.509,-1.510,-1.512,-1.514,-1.515,-1.517,&
7878       -1.519,-1.520,-1.522,-1.524,-1.526,-1.527,-1.529,-1.531,-1.532,&
7879       -1.534,-1.536,-1.537,-1.539,-1.541,-1.542,-1.544,-1.546,-1.547,&
7880       -1.549,-1.551,-1.552,-1.554,-1.556,-1.557,-1.559,-1.561,-1.562,&
7881       -1.564,-1.566,-1.567,-1.569,-1.571,-1.572,-1.574,-1.576,-1.577,&
7882       -1.579,-1.580,-1.582,-1.584,-1.585,-1.587,-1.589,-1.590,-1.592,&
7883       -1.594,-1.595,-1.597,-1.598,-1.616,-1.632,-1.648,-1.663,-1.679,&
7884       -1.694,-1.710,-1.725,-1.740,-1.755,-1.770,-1.785,-1.799,-1.814,&
7885       -1.828,-1.843,-1.857,-1.871,-1.885,-1.900,-1.914,-1.928,-1.941,&
7886       -1.955,-1.969,-1.983,-1.996,-2.010,-2.023,-2.037,-2.050,-2.063,&
7887       -2.077,-2.090,-2.103,-2.116,-2.129,-2.142,-2.155,-2.168,-2.181,&
7888       -2.194,-2.206,-2.219,-2.232,-2.244,-2.257,-2.269,-2.282,-2.294,&
7889       -2.307,-2.319,-2.332,-2.344,-2.356,-2.369,-2.381,-2.393,-2.405,&
7890       -2.417,-2.429,-2.441,-2.454,-2.466,-2.478,-2.489,-2.501,-2.513,&
7891       -2.525,-2.537,-2.549,-2.561,-2.572,-2.584,-2.596,-2.608,-2.619,&
7892       -2.631,-2.642,-2.654,-2.666,-2.677,-2.689,-2.700,-2.712,-2.723,&
7893       -2.735,-2.746,-2.757,-2.769,-2.780,-2.792,-2.803,-2.814,-2.825,&
7894       -2.837,-2.848,-2.859,-2.870,-2.882,-2.893,-2.904,-2.915,-2.926,&
7895       -2.937,-2.948,-2.959,-2.971,-2.982,-2.993,-3.004,-3.015,-3.026,&
7896       -3.037,-3.048,-3.058,-3.069,-3.080,-3.091,-3.102,-3.113,-3.124,&
7897       -3.135,-3.145,-3.156,-3.167,-3.178,-3.189,-3.199,-3.210,-3.221,&
7898       -3.232,-3.242,-3.253,-3.264,-3.274,-3.285,-3.296,-3.306,-3.317,&
7899       -3.327,-3.338,-3.349,-3.359,-3.370,-3.380,-3.391,-3.401,-3.412,&
7900       -3.422,-3.433,-3.443,-3.454,-3.464,-3.475,-3.485,-3.496,-3.506,&
7901       -3.517,-3.527,-3.537                                           &
7902        /
7903 !C
7904 !C *** NH4NO3
7905 !C
7906       DATA BNC05M/                                                   &
7907       -0.051,-0.114,-0.148,-0.172,-0.192,-0.209,-0.224,-0.238,-0.250,&
7908       -0.262,-0.272,-0.282,-0.292,-0.301,-0.310,-0.318,-0.326,-0.333,&
7909       -0.341,-0.348,-0.355,-0.362,-0.368,-0.375,-0.381,-0.387,-0.393,&
7910       -0.398,-0.404,-0.410,-0.415,-0.420,-0.426,-0.431,-0.436,-0.441,&
7911       -0.446,-0.450,-0.455,-0.460,-0.464,-0.469,-0.473,-0.477,-0.482,&
7912       -0.486,-0.490,-0.494,-0.498,-0.502,-0.506,-0.510,-0.514,-0.518,&
7913       -0.521,-0.525,-0.529,-0.532,-0.536,-0.539,-0.543,-0.546,-0.550,&
7914       -0.553,-0.556,-0.560,-0.563,-0.566,-0.570,-0.573,-0.576,-0.579,&
7915       -0.582,-0.585,-0.588,-0.592,-0.595,-0.598,-0.601,-0.604,-0.607,&
7916       -0.610,-0.613,-0.616,-0.619,-0.622,-0.624,-0.627,-0.630,-0.633,&
7917       -0.636,-0.639,-0.642,-0.645,-0.647,-0.650,-0.653,-0.656,-0.659,&
7918       -0.662,-0.664,-0.667,-0.670,-0.673,-0.675,-0.678,-0.681,-0.684,&
7919       -0.686,-0.689,-0.692,-0.694,-0.697,-0.700,-0.702,-0.705,-0.708,&
7920       -0.710,-0.713,-0.716,-0.718,-0.721,-0.723,-0.726,-0.729,-0.731,&
7921       -0.734,-0.736,-0.739,-0.741,-0.744,-0.746,-0.749,-0.751,-0.754,&
7922       -0.756,-0.759,-0.761,-0.764,-0.766,-0.768,-0.771,-0.773,-0.776,&
7923       -0.778,-0.780,-0.783,-0.785,-0.787,-0.790,-0.792,-0.794,-0.797,&
7924       -0.799,-0.801,-0.804,-0.806,-0.808,-0.810,-0.813,-0.815,-0.817,&
7925       -0.819,-0.822,-0.824,-0.826,-0.828,-0.831,-0.833,-0.835,-0.837,&
7926       -0.839,-0.841,-0.844,-0.846,-0.848,-0.850,-0.852,-0.854,-0.856,&
7927       -0.858,-0.860,-0.863,-0.865,-0.867,-0.869,-0.871,-0.873,-0.875,&
7928       -0.877,-0.879,-0.881,-0.883,-0.885,-0.887,-0.889,-0.891,-0.893,&
7929       -0.895,-0.897,-0.899,-0.901,-0.903,-0.905,-0.907,-0.909,-0.911,&
7930       -0.913,-0.915,-0.917,-0.919,-0.920,-0.922,-0.924,-0.926,-0.928,&
7931       -0.930,-0.932,-0.934,-0.936,-0.938,-0.939,-0.941,-0.943,-0.945,&
7932       -0.947,-0.949,-0.950,-0.952,-0.954,-0.956,-0.958,-0.960,-0.961,&
7933       -0.963,-0.965,-0.967,-0.969,-0.970,-0.972,-0.974,-0.976,-0.977,&
7934       -0.979,-0.981,-0.983,-0.984,-0.986,-0.988,-0.990,-0.991,-0.993,&
7935       -0.995,-0.997,-0.998,-1.000,-1.002,-1.003,-1.005,-1.007,-1.008,&
7936       -1.010,-1.012,-1.013,-1.015,-1.017,-1.019,-1.020,-1.022,-1.023,&
7937       -1.025,-1.027,-1.028,-1.030,-1.032,-1.033,-1.035,-1.037,-1.038,&
7938       -1.040,-1.041,-1.043,-1.045,-1.046,-1.048,-1.049,-1.051,-1.053,&
7939       -1.054,-1.056,-1.057,-1.059,-1.061,-1.062,-1.064,-1.065,-1.067,&
7940       -1.068,-1.070,-1.071,-1.073,-1.075,-1.076,-1.078,-1.079,-1.081,&
7941       -1.082,-1.084,-1.085,-1.087,-1.088,-1.090,-1.091,-1.093,-1.094,&
7942       -1.096,-1.097,-1.099,-1.100,-1.102,-1.103,-1.105,-1.106,-1.108,&
7943       -1.109,-1.111,-1.112,-1.114,-1.115,-1.116,-1.118,-1.119,-1.121,&
7944       -1.122,-1.124,-1.125,-1.127,-1.128,-1.129,-1.131,-1.132,-1.134,&
7945       -1.135,-1.137,-1.138,-1.139,-1.141,-1.142,-1.144,-1.145,-1.146,&
7946       -1.148,-1.149,-1.151,-1.152,-1.153,-1.155,-1.156,-1.158,-1.159,&
7947       -1.160,-1.162,-1.163,-1.164,-1.166,-1.167,-1.168,-1.170,-1.171,&
7948       -1.173,-1.174,-1.175,-1.177,-1.178,-1.179,-1.181,-1.182,-1.183,&
7949       -1.185,-1.186,-1.187,-1.189,-1.190,-1.191,-1.193,-1.194,-1.195,&
7950       -1.197,-1.198,-1.199,-1.200,-1.202,-1.203,-1.204,-1.206,-1.207,&
7951       -1.208,-1.210,-1.211,-1.212,-1.226,-1.238,-1.251,-1.263,-1.275,&
7952       -1.287,-1.298,-1.310,-1.321,-1.333,-1.344,-1.355,-1.365,-1.376,&
7953       -1.387,-1.397,-1.407,-1.417,-1.427,-1.437,-1.447,-1.457,-1.467,&
7954       -1.476,-1.486,-1.495,-1.505,-1.514,-1.523,-1.532,-1.541,-1.550,&
7955       -1.559,-1.567,-1.576,-1.585,-1.593,-1.602,-1.610,-1.619,-1.627,&
7956       -1.635,-1.643,-1.651,-1.659,-1.667,-1.675,-1.683,-1.691,-1.699,&
7957       -1.707,-1.715,-1.722,-1.730,-1.737,-1.745,-1.752,-1.760,-1.767,&
7958       -1.775,-1.782,-1.789,-1.797,-1.804,-1.811,-1.818,-1.825,-1.832,&
7959       -1.840,-1.847,-1.854,-1.861,-1.867,-1.874,-1.881,-1.888,-1.895,&
7960       -1.902,-1.908,-1.915,-1.922,-1.929,-1.935,-1.942,-1.948,-1.955,&
7961       -1.962,-1.968,-1.975,-1.981,-1.988,-1.994,-2.000,-2.007,-2.013,&
7962       -2.020,-2.026,-2.032,-2.039,-2.045,-2.051,-2.057,-2.064,-2.070,&
7963       -2.076,-2.082,-2.088,-2.094,-2.100,-2.107,-2.113,-2.119,-2.125,&
7964       -2.131,-2.137,-2.143,-2.149,-2.155,-2.161,-2.167,-2.173,-2.179,&
7965       -2.184,-2.190,-2.196,-2.202,-2.208,-2.214,-2.220,-2.225,-2.231,&
7966       -2.237,-2.243,-2.248,-2.254,-2.260,-2.266,-2.271,-2.277,-2.283,&
7967       -2.288,-2.294,-2.300,-2.305,-2.311,-2.317,-2.322,-2.328,-2.333,&
7968       -2.339,-2.345,-2.350,-2.356,-2.361,-2.367,-2.372,-2.378,-2.383,&
7969       -2.389,-2.394,-2.400                                           &
7970        /
7971 !C
7972 !C *** NH4Cl
7973 !C
7974       DATA BNC06M/                                                   &
7975       -0.049,-0.106,-0.133,-0.151,-0.166,-0.177,-0.187,-0.195,-0.202,&
7976       -0.208,-0.214,-0.219,-0.224,-0.228,-0.231,-0.235,-0.238,-0.241,&
7977       -0.244,-0.246,-0.249,-0.251,-0.253,-0.255,-0.257,-0.259,-0.260,&
7978       -0.262,-0.264,-0.265,-0.266,-0.268,-0.269,-0.270,-0.271,-0.272,&
7979       -0.273,-0.274,-0.275,-0.276,-0.277,-0.278,-0.278,-0.279,-0.280,&
7980       -0.281,-0.281,-0.282,-0.283,-0.283,-0.284,-0.284,-0.285,-0.285,&
7981       -0.286,-0.287,-0.287,-0.288,-0.288,-0.288,-0.289,-0.289,-0.290,&
7982       -0.290,-0.291,-0.291,-0.291,-0.292,-0.292,-0.292,-0.293,-0.293,&
7983       -0.293,-0.294,-0.294,-0.294,-0.294,-0.295,-0.295,-0.295,-0.295,&
7984       -0.296,-0.296,-0.296,-0.296,-0.296,-0.296,-0.297,-0.297,-0.297,&
7985       -0.297,-0.297,-0.297,-0.297,-0.297,-0.297,-0.297,-0.297,-0.297,&
7986       -0.297,-0.297,-0.297,-0.297,-0.297,-0.297,-0.297,-0.297,-0.297,&
7987       -0.297,-0.297,-0.297,-0.297,-0.297,-0.297,-0.297,-0.297,-0.297,&
7988       -0.296,-0.296,-0.296,-0.296,-0.296,-0.296,-0.296,-0.296,-0.296,&
7989       -0.295,-0.295,-0.295,-0.295,-0.295,-0.295,-0.295,-0.294,-0.294,&
7990       -0.294,-0.294,-0.294,-0.294,-0.294,-0.293,-0.293,-0.293,-0.293,&
7991       -0.293,-0.293,-0.292,-0.292,-0.292,-0.292,-0.292,-0.292,-0.291,&
7992       -0.291,-0.291,-0.291,-0.291,-0.291,-0.290,-0.290,-0.290,-0.290,&
7993       -0.290,-0.290,-0.289,-0.289,-0.289,-0.289,-0.289,-0.288,-0.288,&
7994       -0.288,-0.288,-0.288,-0.288,-0.287,-0.287,-0.287,-0.287,-0.287,&
7995       -0.287,-0.286,-0.286,-0.286,-0.286,-0.286,-0.286,-0.285,-0.285,&
7996       -0.285,-0.285,-0.285,-0.284,-0.284,-0.284,-0.284,-0.284,-0.284,&
7997       -0.283,-0.283,-0.283,-0.283,-0.283,-0.283,-0.282,-0.282,-0.282,&
7998       -0.282,-0.282,-0.282,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,&
7999       -0.280,-0.280,-0.280,-0.280,-0.280,-0.280,-0.279,-0.279,-0.279,&
8000       -0.279,-0.279,-0.279,-0.278,-0.278,-0.278,-0.278,-0.278,-0.278,&
8001       -0.277,-0.277,-0.277,-0.277,-0.277,-0.277,-0.276,-0.276,-0.276,&
8002       -0.276,-0.276,-0.276,-0.276,-0.275,-0.275,-0.275,-0.275,-0.275,&
8003       -0.275,-0.275,-0.274,-0.274,-0.274,-0.274,-0.274,-0.274,-0.273,&
8004       -0.273,-0.273,-0.273,-0.273,-0.273,-0.273,-0.272,-0.272,-0.272,&
8005       -0.272,-0.272,-0.272,-0.272,-0.271,-0.271,-0.271,-0.271,-0.271,&
8006       -0.271,-0.271,-0.271,-0.270,-0.270,-0.270,-0.270,-0.270,-0.270,&
8007       -0.270,-0.270,-0.269,-0.269,-0.269,-0.269,-0.269,-0.269,-0.269,&
8008       -0.268,-0.268,-0.268,-0.268,-0.268,-0.268,-0.268,-0.268,-0.268,&
8009       -0.267,-0.267,-0.267,-0.267,-0.267,-0.267,-0.267,-0.267,-0.266,&
8010       -0.266,-0.266,-0.266,-0.266,-0.266,-0.266,-0.266,-0.266,-0.265,&
8011       -0.265,-0.265,-0.265,-0.265,-0.265,-0.265,-0.265,-0.265,-0.265,&
8012       -0.264,-0.264,-0.264,-0.264,-0.264,-0.264,-0.264,-0.264,-0.264,&
8013       -0.264,-0.263,-0.263,-0.263,-0.263,-0.263,-0.263,-0.263,-0.263,&
8014       -0.263,-0.263,-0.263,-0.262,-0.262,-0.262,-0.262,-0.262,-0.262,&
8015       -0.262,-0.262,-0.262,-0.262,-0.262,-0.262,-0.261,-0.261,-0.261,&
8016       -0.261,-0.261,-0.261,-0.261,-0.261,-0.261,-0.261,-0.261,-0.261,&
8017       -0.261,-0.260,-0.260,-0.260,-0.260,-0.260,-0.260,-0.260,-0.260,&
8018       -0.260,-0.260,-0.260,-0.260,-0.260,-0.260,-0.259,-0.259,-0.259,&
8019       -0.259,-0.259,-0.259,-0.259,-0.258,-0.258,-0.257,-0.257,-0.257,&
8020       -0.256,-0.256,-0.256,-0.256,-0.256,-0.255,-0.255,-0.256,-0.256,&
8021       -0.256,-0.256,-0.256,-0.256,-0.257,-0.257,-0.257,-0.258,-0.258,&
8022       -0.259,-0.259,-0.260,-0.260,-0.261,-0.262,-0.262,-0.263,-0.264,&
8023       -0.265,-0.265,-0.266,-0.267,-0.268,-0.269,-0.270,-0.271,-0.272,&
8024       -0.273,-0.274,-0.275,-0.277,-0.278,-0.279,-0.280,-0.281,-0.283,&
8025       -0.284,-0.285,-0.287,-0.288,-0.289,-0.291,-0.292,-0.294,-0.295,&
8026       -0.297,-0.298,-0.300,-0.301,-0.303,-0.304,-0.306,-0.308,-0.309,&
8027       -0.311,-0.313,-0.314,-0.316,-0.318,-0.320,-0.321,-0.323,-0.325,&
8028       -0.327,-0.329,-0.331,-0.332,-0.334,-0.336,-0.338,-0.340,-0.342,&
8029       -0.344,-0.346,-0.348,-0.350,-0.352,-0.354,-0.356,-0.358,-0.360,&
8030       -0.362,-0.364,-0.367,-0.369,-0.371,-0.373,-0.375,-0.377,-0.379,&
8031       -0.382,-0.384,-0.386,-0.388,-0.391,-0.393,-0.395,-0.397,-0.400,&
8032       -0.402,-0.404,-0.406,-0.409,-0.411,-0.413,-0.416,-0.418,-0.421,&
8033       -0.423,-0.425,-0.428,-0.430,-0.433,-0.435,-0.437,-0.440,-0.442,&
8034       -0.445,-0.447,-0.450,-0.452,-0.455,-0.457,-0.460,-0.462,-0.465,&
8035       -0.467,-0.470,-0.472,-0.475,-0.477,-0.480,-0.483,-0.485,-0.488,&
8036       -0.490,-0.493,-0.496,-0.498,-0.501,-0.503,-0.506,-0.509,-0.511,&
8037       -0.514,-0.517,-0.519                                           &
8038        /
8039 !C
8040 !C *** (2H,SO4)
8041 !C
8042       DATA BNC07M/                                                   &
8043       -0.100,-0.219,-0.279,-0.321,-0.354,-0.382,-0.406,-0.427,-0.446,&
8044       -0.463,-0.479,-0.493,-0.506,-0.519,-0.531,-0.542,-0.552,-0.562,&
8045       -0.572,-0.581,-0.590,-0.598,-0.606,-0.614,-0.622,-0.629,-0.636,&
8046       -0.643,-0.650,-0.656,-0.662,-0.668,-0.674,-0.680,-0.686,-0.692,&
8047       -0.697,-0.702,-0.707,-0.713,-0.718,-0.722,-0.727,-0.732,-0.737,&
8048       -0.741,-0.746,-0.750,-0.754,-0.759,-0.763,-0.767,-0.771,-0.775,&
8049       -0.779,-0.783,-0.787,-0.791,-0.794,-0.798,-0.802,-0.805,-0.809,&
8050       -0.813,-0.816,-0.820,-0.823,-0.826,-0.830,-0.833,-0.836,-0.840,&
8051       -0.843,-0.846,-0.849,-0.852,-0.855,-0.859,-0.862,-0.865,-0.868,&
8052       -0.871,-0.874,-0.877,-0.879,-0.882,-0.885,-0.888,-0.891,-0.894,&
8053       -0.897,-0.899,-0.902,-0.905,-0.908,-0.910,-0.913,-0.916,-0.918,&
8054       -0.921,-0.924,-0.926,-0.929,-0.932,-0.934,-0.937,-0.939,-0.942,&
8055       -0.944,-0.947,-0.949,-0.952,-0.954,-0.957,-0.959,-0.962,-0.964,&
8056       -0.967,-0.969,-0.971,-0.974,-0.976,-0.978,-0.981,-0.983,-0.985,&
8057       -0.988,-0.990,-0.992,-0.995,-0.997,-0.999,-1.002,-1.004,-1.006,&
8058       -1.008,-1.011,-1.013,-1.015,-1.017,-1.019,-1.022,-1.024,-1.026,&
8059       -1.028,-1.030,-1.032,-1.034,-1.037,-1.039,-1.041,-1.043,-1.045,&
8060       -1.047,-1.049,-1.051,-1.053,-1.056,-1.058,-1.060,-1.062,-1.064,&
8061       -1.066,-1.068,-1.070,-1.072,-1.074,-1.076,-1.078,-1.080,-1.082,&
8062       -1.084,-1.086,-1.088,-1.090,-1.092,-1.094,-1.096,-1.098,-1.099,&
8063       -1.101,-1.103,-1.105,-1.107,-1.109,-1.111,-1.113,-1.115,-1.117,&
8064       -1.119,-1.121,-1.122,-1.124,-1.126,-1.128,-1.130,-1.132,-1.134,&
8065       -1.135,-1.137,-1.139,-1.141,-1.143,-1.145,-1.146,-1.148,-1.150,&
8066       -1.152,-1.154,-1.156,-1.157,-1.159,-1.161,-1.163,-1.165,-1.166,&
8067       -1.168,-1.170,-1.172,-1.173,-1.175,-1.177,-1.179,-1.180,-1.182,&
8068       -1.184,-1.186,-1.187,-1.189,-1.191,-1.193,-1.194,-1.196,-1.198,&
8069       -1.200,-1.201,-1.203,-1.205,-1.206,-1.208,-1.210,-1.212,-1.213,&
8070       -1.215,-1.217,-1.218,-1.220,-1.222,-1.223,-1.225,-1.227,-1.228,&
8071       -1.230,-1.232,-1.233,-1.235,-1.237,-1.238,-1.240,-1.242,-1.243,&
8072       -1.245,-1.247,-1.248,-1.250,-1.251,-1.253,-1.255,-1.256,-1.258,&
8073       -1.260,-1.261,-1.263,-1.264,-1.266,-1.268,-1.269,-1.271,-1.273,&
8074       -1.274,-1.276,-1.277,-1.279,-1.280,-1.282,-1.284,-1.285,-1.287,&
8075       -1.288,-1.290,-1.292,-1.293,-1.295,-1.296,-1.298,-1.299,-1.301,&
8076       -1.303,-1.304,-1.306,-1.307,-1.309,-1.310,-1.312,-1.313,-1.315,&
8077       -1.317,-1.318,-1.320,-1.321,-1.323,-1.324,-1.326,-1.327,-1.329,&
8078       -1.330,-1.332,-1.333,-1.335,-1.337,-1.338,-1.340,-1.341,-1.343,&
8079       -1.344,-1.346,-1.347,-1.349,-1.350,-1.352,-1.353,-1.355,-1.356,&
8080       -1.358,-1.359,-1.361,-1.362,-1.364,-1.365,-1.367,-1.368,-1.370,&
8081       -1.371,-1.373,-1.374,-1.376,-1.377,-1.379,-1.380,-1.381,-1.383,&
8082       -1.384,-1.386,-1.387,-1.389,-1.390,-1.392,-1.393,-1.395,-1.396,&
8083       -1.398,-1.399,-1.401,-1.402,-1.403,-1.405,-1.406,-1.408,-1.409,&
8084       -1.411,-1.412,-1.414,-1.415,-1.416,-1.418,-1.419,-1.421,-1.422,&
8085       -1.424,-1.425,-1.427,-1.428,-1.429,-1.431,-1.432,-1.434,-1.435,&
8086       -1.437,-1.438,-1.439,-1.441,-1.442,-1.444,-1.445,-1.447,-1.448,&
8087       -1.449,-1.451,-1.452,-1.454,-1.469,-1.483,-1.497,-1.510,-1.524,&
8088       -1.537,-1.551,-1.564,-1.578,-1.591,-1.604,-1.617,-1.630,-1.643,&
8089       -1.656,-1.669,-1.681,-1.694,-1.707,-1.719,-1.732,-1.744,-1.756,&
8090       -1.769,-1.781,-1.793,-1.806,-1.818,-1.830,-1.842,-1.854,-1.866,&
8091       -1.878,-1.890,-1.902,-1.914,-1.925,-1.937,-1.949,-1.961,-1.972,&
8092       -1.984,-1.996,-2.007,-2.019,-2.030,-2.042,-2.053,-2.065,-2.076,&
8093       -2.087,-2.099,-2.110,-2.121,-2.133,-2.144,-2.155,-2.166,-2.178,&
8094       -2.189,-2.200,-2.211,-2.222,-2.233,-2.244,-2.255,-2.266,-2.277,&
8095       -2.288,-2.299,-2.310,-2.321,-2.332,-2.343,-2.354,-2.365,-2.375,&
8096       -2.386,-2.397,-2.408,-2.419,-2.429,-2.440,-2.451,-2.461,-2.472,&
8097       -2.483,-2.494,-2.504,-2.515,-2.525,-2.536,-2.547,-2.557,-2.568,&
8098       -2.578,-2.589,-2.599,-2.610,-2.620,-2.631,-2.641,-2.652,-2.662,&
8099       -2.673,-2.683,-2.693,-2.704,-2.714,-2.725,-2.735,-2.745,-2.756,&
8100       -2.766,-2.776,-2.787,-2.797,-2.807,-2.817,-2.828,-2.838,-2.848,&
8101       -2.858,-2.869,-2.879,-2.889,-2.899,-2.909,-2.920,-2.930,-2.940,&
8102       -2.950,-2.960,-2.970,-2.980,-2.991,-3.001,-3.011,-3.021,-3.031,&
8103       -3.041,-3.051,-3.061,-3.071,-3.081,-3.091,-3.101,-3.111,-3.121,&
8104       -3.131,-3.141,-3.151,-3.161,-3.171,-3.181,-3.191,-3.201,-3.211,&
8105       -3.221,-3.231,-3.241                                           &
8106        /
8107 !C
8108 !C *** (H,HSO4)
8109 !C
8110       DATA BNC08M/                                                   &
8111       -0.047,-0.091,-0.109,-0.119,-0.125,-0.128,-0.130,-0.131,-0.130,&
8112       -0.129,-0.128,-0.125,-0.122,-0.119,-0.115,-0.111,-0.107,-0.102,&
8113       -0.097,-0.092,-0.086,-0.080,-0.074,-0.068,-0.062,-0.055,-0.048,&
8114       -0.041,-0.034,-0.027,-0.019,-0.012,-0.004, 0.004, 0.012, 0.020,&
8115        0.028, 0.037, 0.045, 0.054, 0.063, 0.071, 0.080, 0.089, 0.098,&
8116        0.108, 0.117, 0.126, 0.136, 0.145, 0.155, 0.164, 0.174, 0.184,&
8117        0.193, 0.203, 0.213, 0.223, 0.233, 0.243, 0.253, 0.263, 0.274,&
8118        0.284, 0.294, 0.304, 0.315, 0.325, 0.336, 0.346, 0.357, 0.368,&
8119        0.378, 0.389, 0.400, 0.411, 0.421, 0.432, 0.443, 0.455, 0.466,&
8120        0.477, 0.488, 0.499, 0.511, 0.522, 0.534, 0.545, 0.557, 0.568,&
8121        0.580, 0.592, 0.604, 0.615, 0.627, 0.639, 0.651, 0.664, 0.676,&
8122        0.688, 0.700, 0.712, 0.725, 0.737, 0.749, 0.762, 0.774, 0.787,&
8123        0.799, 0.812, 0.824, 0.837, 0.849, 0.862, 0.875, 0.887, 0.900,&
8124        0.913, 0.925, 0.938, 0.951, 0.963, 0.976, 0.989, 1.001, 1.014,&
8125        1.027, 1.039, 1.052, 1.064, 1.077, 1.090, 1.102, 1.115, 1.127,&
8126        1.140, 1.152, 1.165, 1.177, 1.190, 1.202, 1.215, 1.227, 1.239,&
8127        1.252, 1.264, 1.276, 1.289, 1.301, 1.313, 1.325, 1.338, 1.350,&
8128        1.362, 1.374, 1.386, 1.398, 1.410, 1.422, 1.434, 1.446, 1.458,&
8129        1.470, 1.482, 1.494, 1.506, 1.518, 1.530, 1.541, 1.553, 1.565,&
8130        1.577, 1.588, 1.600, 1.612, 1.623, 1.635, 1.646, 1.658, 1.669,&
8131        1.681, 1.692, 1.704, 1.715, 1.727, 1.738, 1.749, 1.761, 1.772,&
8132        1.783, 1.794, 1.806, 1.817, 1.828, 1.839, 1.850, 1.861, 1.872,&
8133        1.883, 1.894, 1.905, 1.916, 1.927, 1.938, 1.949, 1.960, 1.971,&
8134        1.982, 1.992, 2.003, 2.014, 2.025, 2.035, 2.046, 2.057, 2.067,&
8135        2.078, 2.088, 2.099, 2.109, 2.120, 2.130, 2.141, 2.151, 2.162,&
8136        2.172, 2.182, 2.193, 2.203, 2.213, 2.224, 2.234, 2.244, 2.254,&
8137        2.265, 2.275, 2.285, 2.295, 2.305, 2.315, 2.325, 2.335, 2.345,&
8138        2.355, 2.365, 2.375, 2.385, 2.395, 2.405, 2.415, 2.424, 2.434,&
8139        2.444, 2.454, 2.464, 2.473, 2.483, 2.493, 2.502, 2.512, 2.522,&
8140        2.531, 2.541, 2.550, 2.560, 2.569, 2.579, 2.588, 2.598, 2.607,&
8141        2.617, 2.626, 2.635, 2.645, 2.654, 2.663, 2.673, 2.682, 2.691,&
8142        2.701, 2.710, 2.719, 2.728, 2.737, 2.746, 2.756, 2.765, 2.774,&
8143        2.783, 2.792, 2.801, 2.810, 2.819, 2.828, 2.837, 2.846, 2.855,&
8144        2.864, 2.873, 2.881, 2.890, 2.899, 2.908, 2.917, 2.925, 2.934,&
8145        2.943, 2.952, 2.960, 2.969, 2.978, 2.986, 2.995, 3.004, 3.012,&
8146        3.021, 3.029, 3.038, 3.047, 3.055, 3.064, 3.072, 3.080, 3.089,&
8147        3.097, 3.106, 3.114, 3.123, 3.131, 3.139, 3.148, 3.156, 3.164,&
8148        3.173, 3.181, 3.189, 3.197, 3.206, 3.214, 3.222, 3.230, 3.238,&
8149        3.246, 3.255, 3.263, 3.271, 3.279, 3.287, 3.295, 3.303, 3.311,&
8150        3.319, 3.327, 3.335, 3.343, 3.351, 3.359, 3.367, 3.375, 3.383,&
8151        3.390, 3.398, 3.406, 3.414, 3.422, 3.430, 3.437, 3.445, 3.453,&
8152        3.461, 3.468, 3.476, 3.484, 3.492, 3.499, 3.507, 3.515, 3.522,&
8153        3.530, 3.537, 3.545, 3.553, 3.560, 3.568, 3.575, 3.583, 3.590,&
8154        3.598, 3.605, 3.613, 3.620, 3.628, 3.635, 3.642, 3.650, 3.657,&
8155        3.665, 3.672, 3.679, 3.687, 3.765, 3.837, 3.907, 3.976, 4.044,&
8156        4.111, 4.176, 4.241, 4.305, 4.368, 4.429, 4.490, 4.550, 4.609,&
8157        4.668, 4.725, 4.782, 4.838, 4.893, 4.947, 5.001, 5.054, 5.106,&
8158        5.157, 5.208, 5.259, 5.308, 5.357, 5.406, 5.453, 5.501, 5.547,&
8159        5.593, 5.639, 5.684, 5.729, 5.773, 5.816, 5.859, 5.902, 5.944,&
8160        5.986, 6.027, 6.068, 6.108, 6.148, 6.188, 6.227, 6.265, 6.304,&
8161        6.342, 6.379, 6.416, 6.453, 6.490, 6.526, 6.562, 6.597, 6.632,&
8162        6.667, 6.701, 6.735, 6.769, 6.803, 6.836, 6.869, 6.901, 6.934,&
8163        6.966, 6.997, 7.029, 7.060, 7.091, 7.122, 7.152, 7.182, 7.212,&
8164        7.242, 7.271, 7.300, 7.329, 7.358, 7.386, 7.415, 7.443, 7.470,&
8165        7.498, 7.525, 7.552, 7.579, 7.606, 7.633, 7.659, 7.685, 7.711,&
8166        7.737, 7.762, 7.788, 7.813, 7.838, 7.862, 7.887, 7.912, 7.936,&
8167        7.960, 7.984, 8.008, 8.031, 8.055, 8.078, 8.101, 8.124, 8.147,&
8168        8.169, 8.192, 8.214, 8.236, 8.258, 8.280, 8.302, 8.323, 8.345,&
8169        8.366, 8.387, 8.408, 8.429, 8.450, 8.470, 8.491, 8.511, 8.531,&
8170        8.552, 8.572, 8.591, 8.611, 8.631, 8.650, 8.670, 8.689, 8.708,&
8171        8.727, 8.746, 8.765, 8.783, 8.802, 8.820, 8.839, 8.857, 8.875,&
8172        8.893, 8.911, 8.929, 8.946, 8.964, 8.981, 8.999, 9.016, 9.033,&
8173        9.050, 9.067, 9.084                                           &
8174        /
8175 !C
8176 !C *** NH4HSO4
8177 !C
8178       DATA BNC09M/                                                   &
8179       -0.049,-0.104,-0.131,-0.149,-0.163,-0.174,-0.184,-0.192,-0.199,&
8180       -0.205,-0.211,-0.216,-0.220,-0.224,-0.228,-0.231,-0.234,-0.236,&
8181       -0.238,-0.240,-0.242,-0.244,-0.245,-0.247,-0.248,-0.248,-0.249,&
8182       -0.250,-0.250,-0.250,-0.251,-0.251,-0.250,-0.250,-0.250,-0.249,&
8183       -0.249,-0.248,-0.247,-0.247,-0.246,-0.245,-0.243,-0.242,-0.241,&
8184       -0.240,-0.238,-0.237,-0.235,-0.233,-0.232,-0.230,-0.228,-0.226,&
8185       -0.224,-0.222,-0.220,-0.218,-0.216,-0.214,-0.211,-0.209,-0.207,&
8186       -0.204,-0.202,-0.199,-0.197,-0.194,-0.192,-0.189,-0.187,-0.184,&
8187       -0.181,-0.178,-0.176,-0.173,-0.170,-0.167,-0.164,-0.161,-0.158,&
8188       -0.155,-0.152,-0.149,-0.146,-0.142,-0.139,-0.136,-0.133,-0.129,&
8189       -0.126,-0.123,-0.119,-0.116,-0.112,-0.109,-0.105,-0.102,-0.098,&
8190       -0.095,-0.091,-0.088,-0.084,-0.080,-0.077,-0.073,-0.069,-0.066,&
8191       -0.062,-0.058,-0.055,-0.051,-0.047,-0.043,-0.039,-0.036,-0.032,&
8192       -0.028,-0.024,-0.020,-0.017,-0.013,-0.009,-0.005,-0.001, 0.002,&
8193        0.006, 0.010, 0.014, 0.018, 0.021, 0.025, 0.029, 0.033, 0.037,&
8194        0.040, 0.044, 0.048, 0.052, 0.055, 0.059, 0.063, 0.067, 0.070,&
8195        0.074, 0.078, 0.081, 0.085, 0.089, 0.093, 0.096, 0.100, 0.104,&
8196        0.107, 0.111, 0.114, 0.118, 0.122, 0.125, 0.129, 0.133, 0.136,&
8197        0.140, 0.143, 0.147, 0.150, 0.154, 0.157, 0.161, 0.165, 0.168,&
8198        0.172, 0.175, 0.178, 0.182, 0.185, 0.189, 0.192, 0.196, 0.199,&
8199        0.203, 0.206, 0.209, 0.213, 0.216, 0.220, 0.223, 0.226, 0.230,&
8200        0.233, 0.236, 0.240, 0.243, 0.246, 0.250, 0.253, 0.256, 0.259,&
8201        0.263, 0.266, 0.269, 0.272, 0.276, 0.279, 0.282, 0.285, 0.289,&
8202        0.292, 0.295, 0.298, 0.301, 0.304, 0.308, 0.311, 0.314, 0.317,&
8203        0.320, 0.323, 0.326, 0.329, 0.332, 0.336, 0.339, 0.342, 0.345,&
8204        0.348, 0.351, 0.354, 0.357, 0.360, 0.363, 0.366, 0.369, 0.372,&
8205        0.375, 0.378, 0.381, 0.384, 0.387, 0.390, 0.393, 0.395, 0.398,&
8206        0.401, 0.404, 0.407, 0.410, 0.413, 0.416, 0.419, 0.421, 0.424,&
8207        0.427, 0.430, 0.433, 0.436, 0.438, 0.441, 0.444, 0.447, 0.450,&
8208        0.452, 0.455, 0.458, 0.461, 0.464, 0.466, 0.469, 0.472, 0.475,&
8209        0.477, 0.480, 0.483, 0.485, 0.488, 0.491, 0.493, 0.496, 0.499,&
8210        0.501, 0.504, 0.507, 0.509, 0.512, 0.515, 0.517, 0.520, 0.523,&
8211        0.525, 0.528, 0.530, 0.533, 0.536, 0.538, 0.541, 0.543, 0.546,&
8212        0.548, 0.551, 0.554, 0.556, 0.559, 0.561, 0.564, 0.566, 0.569,&
8213        0.571, 0.574, 0.576, 0.579, 0.581, 0.584, 0.586, 0.589, 0.591,&
8214        0.594, 0.596, 0.598, 0.601, 0.603, 0.606, 0.608, 0.611, 0.613,&
8215        0.615, 0.618, 0.620, 0.623, 0.625, 0.627, 0.630, 0.632, 0.635,&
8216        0.637, 0.639, 0.642, 0.644, 0.646, 0.649, 0.651, 0.653, 0.656,&
8217        0.658, 0.660, 0.663, 0.665, 0.667, 0.670, 0.672, 0.674, 0.676,&
8218        0.679, 0.681, 0.683, 0.685, 0.688, 0.690, 0.692, 0.694, 0.697,&
8219        0.699, 0.701, 0.703, 0.706, 0.708, 0.710, 0.712, 0.714, 0.717,&
8220        0.719, 0.721, 0.723, 0.725, 0.728, 0.730, 0.732, 0.734, 0.736,&
8221        0.738, 0.741, 0.743, 0.745, 0.747, 0.749, 0.751, 0.753, 0.756,&
8222        0.758, 0.760, 0.762, 0.764, 0.766, 0.768, 0.770, 0.772, 0.774,&
8223        0.777, 0.779, 0.781, 0.783, 0.805, 0.825, 0.845, 0.864, 0.883,&
8224        0.901, 0.920, 0.938, 0.955, 0.973, 0.990, 1.006, 1.023, 1.039,&
8225        1.055, 1.071, 1.086, 1.101, 1.116, 1.131, 1.145, 1.160, 1.174,&
8226        1.188, 1.201, 1.215, 1.228, 1.241, 1.254, 1.266, 1.279, 1.291,&
8227        1.303, 1.315, 1.327, 1.339, 1.350, 1.361, 1.372, 1.383, 1.394,&
8228        1.405, 1.416, 1.426, 1.436, 1.446, 1.456, 1.466, 1.476, 1.486,&
8229        1.495, 1.505, 1.514, 1.523, 1.532, 1.541, 1.550, 1.559, 1.567,&
8230        1.576, 1.584, 1.592, 1.601, 1.609, 1.617, 1.625, 1.632, 1.640,&
8231        1.648, 1.655, 1.663, 1.670, 1.677, 1.684, 1.692, 1.699, 1.706,&
8232        1.712, 1.719, 1.726, 1.732, 1.739, 1.746, 1.752, 1.758, 1.765,&
8233        1.771, 1.777, 1.783, 1.789, 1.795, 1.801, 1.806, 1.812, 1.818,&
8234        1.823, 1.829, 1.834, 1.840, 1.845, 1.850, 1.856, 1.861, 1.866,&
8235        1.871, 1.876, 1.881, 1.886, 1.891, 1.896, 1.900, 1.905, 1.910,&
8236        1.914, 1.919, 1.923, 1.928, 1.932, 1.937, 1.941, 1.945, 1.949,&
8237        1.953, 1.958, 1.962, 1.966, 1.970, 1.974, 1.978, 1.981, 1.985,&
8238        1.989, 1.993, 1.996, 2.000, 2.004, 2.007, 2.011, 2.014, 2.018,&
8239        2.021, 2.025, 2.028, 2.031, 2.035, 2.038, 2.041, 2.044, 2.047,&
8240        2.050, 2.053, 2.056, 2.059, 2.062, 2.065, 2.068, 2.071, 2.074,&
8241        2.077, 2.080, 2.082                                           &
8242        /
8243 !C
8244 !C *** (H,NO3)
8245 !C
8246       DATA BNC10M/                                                   &
8247       -0.048,-0.100,-0.123,-0.137,-0.147,-0.155,-0.161,-0.165,-0.169,&
8248       -0.172,-0.174,-0.175,-0.177,-0.177,-0.178,-0.178,-0.178,-0.177,&
8249       -0.177,-0.176,-0.175,-0.174,-0.173,-0.172,-0.171,-0.169,-0.168,&
8250       -0.166,-0.165,-0.163,-0.161,-0.159,-0.157,-0.156,-0.154,-0.152,&
8251       -0.150,-0.148,-0.146,-0.144,-0.141,-0.139,-0.137,-0.135,-0.133,&
8252       -0.131,-0.129,-0.127,-0.124,-0.122,-0.120,-0.118,-0.116,-0.113,&
8253       -0.111,-0.109,-0.107,-0.105,-0.102,-0.100,-0.098,-0.096,-0.094,&
8254       -0.091,-0.089,-0.087,-0.085,-0.082,-0.080,-0.078,-0.076,-0.073,&
8255       -0.071,-0.069,-0.067,-0.064,-0.062,-0.060,-0.057,-0.055,-0.052,&
8256       -0.050,-0.048,-0.045,-0.043,-0.040,-0.038,-0.035,-0.033,-0.030,&
8257       -0.027,-0.025,-0.022,-0.020,-0.017,-0.014,-0.012,-0.009,-0.006,&
8258       -0.004,-0.001, 0.002, 0.005, 0.007, 0.010, 0.013, 0.016, 0.019,&
8259        0.021, 0.024, 0.027, 0.030, 0.033, 0.036, 0.039, 0.041, 0.044,&
8260        0.047, 0.050, 0.053, 0.056, 0.059, 0.062, 0.065, 0.068, 0.071,&
8261        0.073, 0.076, 0.079, 0.082, 0.085, 0.088, 0.091, 0.094, 0.097,&
8262        0.100, 0.103, 0.105, 0.108, 0.111, 0.114, 0.117, 0.120, 0.123,&
8263        0.126, 0.129, 0.131, 0.134, 0.137, 0.140, 0.143, 0.146, 0.149,&
8264        0.152, 0.154, 0.157, 0.160, 0.163, 0.166, 0.169, 0.171, 0.174,&
8265        0.177, 0.180, 0.183, 0.186, 0.188, 0.191, 0.194, 0.197, 0.200,&
8266        0.202, 0.205, 0.208, 0.211, 0.213, 0.216, 0.219, 0.222, 0.224,&
8267        0.227, 0.230, 0.233, 0.235, 0.238, 0.241, 0.244, 0.246, 0.249,&
8268        0.252, 0.254, 0.257, 0.260, 0.263, 0.265, 0.268, 0.271, 0.273,&
8269        0.276, 0.279, 0.281, 0.284, 0.287, 0.289, 0.292, 0.294, 0.297,&
8270        0.300, 0.302, 0.305, 0.308, 0.310, 0.313, 0.315, 0.318, 0.321,&
8271        0.323, 0.326, 0.328, 0.331, 0.333, 0.336, 0.339, 0.341, 0.344,&
8272        0.346, 0.349, 0.351, 0.354, 0.356, 0.359, 0.361, 0.364, 0.366,&
8273        0.369, 0.372, 0.374, 0.376, 0.379, 0.381, 0.384, 0.386, 0.389,&
8274        0.391, 0.394, 0.396, 0.399, 0.401, 0.404, 0.406, 0.409, 0.411,&
8275        0.413, 0.416, 0.418, 0.421, 0.423, 0.425, 0.428, 0.430, 0.433,&
8276        0.435, 0.437, 0.440, 0.442, 0.445, 0.447, 0.449, 0.452, 0.454,&
8277        0.456, 0.459, 0.461, 0.463, 0.466, 0.468, 0.470, 0.473, 0.475,&
8278        0.477, 0.480, 0.482, 0.484, 0.486, 0.489, 0.491, 0.493, 0.496,&
8279        0.498, 0.500, 0.502, 0.505, 0.507, 0.509, 0.511, 0.514, 0.516,&
8280        0.518, 0.520, 0.523, 0.525, 0.527, 0.529, 0.531, 0.534, 0.536,&
8281        0.538, 0.540, 0.542, 0.545, 0.547, 0.549, 0.551, 0.553, 0.555,&
8282        0.558, 0.560, 0.562, 0.564, 0.566, 0.568, 0.570, 0.573, 0.575,&
8283        0.577, 0.579, 0.581, 0.583, 0.585, 0.587, 0.590, 0.592, 0.594,&
8284        0.596, 0.598, 0.600, 0.602, 0.604, 0.606, 0.608, 0.610, 0.612,&
8285        0.614, 0.617, 0.619, 0.621, 0.623, 0.625, 0.627, 0.629, 0.631,&
8286        0.633, 0.635, 0.637, 0.639, 0.641, 0.643, 0.645, 0.647, 0.649,&
8287        0.651, 0.653, 0.655, 0.657, 0.659, 0.661, 0.663, 0.665, 0.667,&
8288        0.669, 0.671, 0.673, 0.674, 0.676, 0.678, 0.680, 0.682, 0.684,&
8289        0.686, 0.688, 0.690, 0.692, 0.694, 0.696, 0.698, 0.700, 0.701,&
8290        0.703, 0.705, 0.707, 0.709, 0.711, 0.713, 0.715, 0.716, 0.718,&
8291        0.720, 0.722, 0.724, 0.726, 0.746, 0.764, 0.781, 0.799, 0.816,&
8292        0.833, 0.849, 0.866, 0.882, 0.897, 0.913, 0.928, 0.943, 0.958,&
8293        0.972, 0.987, 1.001, 1.015, 1.028, 1.042, 1.055, 1.068, 1.081,&
8294        1.093, 1.106, 1.118, 1.130, 1.142, 1.154, 1.165, 1.177, 1.188,&
8295        1.199, 1.210, 1.221, 1.231, 1.242, 1.252, 1.262, 1.272, 1.282,&
8296        1.292, 1.301, 1.311, 1.320, 1.329, 1.338, 1.347, 1.356, 1.365,&
8297        1.374, 1.382, 1.391, 1.399, 1.407, 1.415, 1.423, 1.431, 1.439,&
8298        1.446, 1.454, 1.462, 1.469, 1.476, 1.483, 1.491, 1.498, 1.505,&
8299        1.511, 1.518, 1.525, 1.531, 1.538, 1.544, 1.551, 1.557, 1.563,&
8300        1.569, 1.576, 1.582, 1.587, 1.593, 1.599, 1.605, 1.610, 1.616,&
8301        1.622, 1.627, 1.632, 1.638, 1.643, 1.648, 1.653, 1.658, 1.663,&
8302        1.668, 1.673, 1.678, 1.683, 1.688, 1.692, 1.697, 1.701, 1.706,&
8303        1.710, 1.715, 1.719, 1.723, 1.728, 1.732, 1.736, 1.740, 1.744,&
8304        1.748, 1.752, 1.756, 1.760, 1.764, 1.768, 1.771, 1.775, 1.779,&
8305        1.782, 1.786, 1.789, 1.793, 1.796, 1.800, 1.803, 1.806, 1.810,&
8306        1.813, 1.816, 1.819, 1.822, 1.825, 1.828, 1.831, 1.834, 1.837,&
8307        1.840, 1.843, 1.846, 1.849, 1.852, 1.854, 1.857, 1.860, 1.862,&
8308        1.865, 1.867, 1.870, 1.872, 1.875, 1.877, 1.880, 1.882, 1.885,&
8309        1.887, 1.889, 1.891                                           &
8310        /
8311 !C
8312 !C *** (H,Cl)
8313 !C
8314       DATA BNC11M/                                                   &
8315       -0.047,-0.093,-0.111,-0.121,-0.127,-0.131,-0.133,-0.134,-0.133,&
8316       -0.132,-0.131,-0.128,-0.126,-0.123,-0.119,-0.115,-0.111,-0.107,&
8317       -0.102,-0.098,-0.093,-0.088,-0.082,-0.077,-0.071,-0.065,-0.060,&
8318       -0.054,-0.048,-0.041,-0.035,-0.029,-0.022,-0.016,-0.009,-0.003,&
8319        0.004, 0.011, 0.018, 0.025, 0.032, 0.038, 0.045, 0.053, 0.060,&
8320        0.067, 0.074, 0.081, 0.088, 0.095, 0.103, 0.110, 0.117, 0.124,&
8321        0.132, 0.139, 0.146, 0.154, 0.161, 0.168, 0.176, 0.183, 0.191,&
8322        0.198, 0.206, 0.213, 0.221, 0.228, 0.236, 0.243, 0.251, 0.258,&
8323        0.266, 0.274, 0.281, 0.289, 0.297, 0.305, 0.312, 0.320, 0.328,&
8324        0.336, 0.344, 0.352, 0.360, 0.368, 0.376, 0.384, 0.393, 0.401,&
8325        0.409, 0.417, 0.426, 0.434, 0.443, 0.451, 0.460, 0.468, 0.477,&
8326        0.485, 0.494, 0.503, 0.511, 0.520, 0.529, 0.538, 0.546, 0.555,&
8327        0.564, 0.573, 0.582, 0.591, 0.600, 0.608, 0.617, 0.626, 0.635,&
8328        0.644, 0.653, 0.662, 0.671, 0.680, 0.689, 0.698, 0.707, 0.716,&
8329        0.725, 0.734, 0.743, 0.752, 0.761, 0.770, 0.779, 0.788, 0.796,&
8330        0.805, 0.814, 0.823, 0.832, 0.841, 0.850, 0.859, 0.867, 0.876,&
8331        0.885, 0.894, 0.903, 0.911, 0.920, 0.929, 0.937, 0.946, 0.955,&
8332        0.964, 0.972, 0.981, 0.989, 0.998, 1.007, 1.015, 1.024, 1.032,&
8333        1.041, 1.049, 1.058, 1.066, 1.075, 1.083, 1.092, 1.100, 1.109,&
8334        1.117, 1.125, 1.134, 1.142, 1.150, 1.159, 1.167, 1.175, 1.183,&
8335        1.192, 1.200, 1.208, 1.216, 1.224, 1.233, 1.241, 1.249, 1.257,&
8336        1.265, 1.273, 1.281, 1.289, 1.297, 1.305, 1.313, 1.321, 1.329,&
8337        1.337, 1.345, 1.353, 1.361, 1.369, 1.377, 1.384, 1.392, 1.400,&
8338        1.408, 1.416, 1.423, 1.431, 1.439, 1.447, 1.454, 1.462, 1.470,&
8339        1.477, 1.485, 1.493, 1.500, 1.508, 1.515, 1.523, 1.530, 1.538,&
8340        1.545, 1.553, 1.560, 1.568, 1.575, 1.583, 1.590, 1.598, 1.605,&
8341        1.612, 1.620, 1.627, 1.634, 1.642, 1.649, 1.656, 1.663, 1.671,&
8342        1.678, 1.685, 1.692, 1.699, 1.707, 1.714, 1.721, 1.728, 1.735,&
8343        1.742, 1.749, 1.756, 1.763, 1.770, 1.778, 1.785, 1.791, 1.798,&
8344        1.805, 1.812, 1.819, 1.826, 1.833, 1.840, 1.847, 1.854, 1.861,&
8345        1.867, 1.874, 1.881, 1.888, 1.895, 1.901, 1.908, 1.915, 1.922,&
8346        1.928, 1.935, 1.942, 1.948, 1.955, 1.962, 1.968, 1.975, 1.981,&
8347        1.988, 1.995, 2.001, 2.008, 2.014, 2.021, 2.027, 2.034, 2.040,&
8348        2.047, 2.053, 2.060, 2.066, 2.072, 2.079, 2.085, 2.092, 2.098,&
8349        2.104, 2.111, 2.117, 2.123, 2.130, 2.136, 2.142, 2.148, 2.155,&
8350        2.161, 2.167, 2.173, 2.180, 2.186, 2.192, 2.198, 2.204, 2.210,&
8351        2.216, 2.223, 2.229, 2.235, 2.241, 2.247, 2.253, 2.259, 2.265,&
8352        2.271, 2.277, 2.283, 2.289, 2.295, 2.301, 2.307, 2.313, 2.319,&
8353        2.325, 2.331, 2.337, 2.343, 2.348, 2.354, 2.360, 2.366, 2.372,&
8354        2.378, 2.383, 2.389, 2.395, 2.401, 2.407, 2.412, 2.418, 2.424,&
8355        2.430, 2.435, 2.441, 2.447, 2.452, 2.458, 2.464, 2.469, 2.475,&
8356        2.481, 2.486, 2.492, 2.497, 2.503, 2.509, 2.514, 2.520, 2.525,&
8357        2.531, 2.536, 2.542, 2.547, 2.553, 2.558, 2.564, 2.569, 2.575,&
8358        2.580, 2.586, 2.591, 2.597, 2.602, 2.607, 2.613, 2.618, 2.624,&
8359        2.629, 2.634, 2.640, 2.645, 2.702, 2.754, 2.805, 2.855, 2.904,&
8360        2.953, 3.001, 3.048, 3.094, 3.139, 3.184, 3.228, 3.272, 3.315,&
8361        3.357, 3.399, 3.440, 3.480, 3.520, 3.559, 3.598, 3.636, 3.674,&
8362        3.711, 3.748, 3.784, 3.820, 3.855, 3.890, 3.925, 3.959, 3.992,&
8363        4.026, 4.058, 4.091, 4.123, 4.155, 4.186, 4.217, 4.247, 4.278,&
8364        4.308, 4.337, 4.366, 4.395, 4.424, 4.452, 4.480, 4.508, 4.535,&
8365        4.562, 4.589, 4.616, 4.642, 4.668, 4.694, 4.719, 4.745, 4.770,&
8366        4.794, 4.819, 4.843, 4.867, 4.891, 4.915, 4.938, 4.961, 4.984,&
8367        5.007, 5.029, 5.052, 5.074, 5.096, 5.117, 5.139, 5.160, 5.181,&
8368        5.202, 5.223, 5.244, 5.264, 5.285, 5.305, 5.324, 5.344, 5.364,&
8369        5.383, 5.402, 5.422, 5.441, 5.459, 5.478, 5.496, 5.515, 5.533,&
8370        5.551, 5.569, 5.587, 5.604, 5.622, 5.639, 5.656, 5.673, 5.690,&
8371        5.707, 5.724, 5.740, 5.757, 5.773, 5.789, 5.806, 5.821, 5.837,&
8372        5.853, 5.869, 5.884, 5.900, 5.915, 5.930, 5.945, 5.960, 5.975,&
8373        5.990, 6.004, 6.019, 6.033, 6.048, 6.062, 6.076, 6.090, 6.104,&
8374        6.118, 6.132, 6.145, 6.159, 6.172, 6.186, 6.199, 6.212, 6.225,&
8375        6.238, 6.251, 6.264, 6.277, 6.290, 6.302, 6.315, 6.327, 6.340,&
8376        6.352, 6.364, 6.377, 6.389, 6.401, 6.413, 6.424, 6.436, 6.448,&
8377        6.459, 6.471, 6.482                                           &
8378        /
8379 !C
8380 !C *** NaHSO4
8381 !C
8382       DATA BNC12M/                                                   &
8383       -0.048,-0.099,-0.122,-0.137,-0.148,-0.156,-0.163,-0.168,-0.172,&
8384       -0.175,-0.178,-0.180,-0.182,-0.183,-0.184,-0.184,-0.184,-0.184,&
8385       -0.184,-0.183,-0.182,-0.181,-0.180,-0.179,-0.177,-0.176,-0.174,&
8386       -0.172,-0.170,-0.167,-0.165,-0.163,-0.160,-0.157,-0.155,-0.152,&
8387       -0.149,-0.146,-0.143,-0.139,-0.136,-0.133,-0.129,-0.126,-0.122,&
8388       -0.118,-0.115,-0.111,-0.107,-0.103,-0.099,-0.095,-0.091,-0.087,&
8389       -0.083,-0.079,-0.075,-0.071,-0.066,-0.062,-0.058,-0.053,-0.049,&
8390       -0.044,-0.040,-0.035,-0.031,-0.026,-0.022,-0.017,-0.012,-0.007,&
8391       -0.003, 0.002, 0.007, 0.012, 0.017, 0.022, 0.027, 0.032, 0.037,&
8392        0.042, 0.047, 0.052, 0.058, 0.063, 0.068, 0.073, 0.079, 0.084,&
8393        0.090, 0.095, 0.101, 0.106, 0.112, 0.117, 0.123, 0.128, 0.134,&
8394        0.140, 0.146, 0.151, 0.157, 0.163, 0.169, 0.175, 0.180, 0.186,&
8395        0.192, 0.198, 0.204, 0.210, 0.216, 0.222, 0.228, 0.234, 0.240,&
8396        0.246, 0.252, 0.258, 0.264, 0.270, 0.276, 0.282, 0.288, 0.294,&
8397        0.300, 0.306, 0.312, 0.318, 0.323, 0.329, 0.335, 0.341, 0.347,&
8398        0.353, 0.359, 0.365, 0.371, 0.377, 0.383, 0.389, 0.394, 0.400,&
8399        0.406, 0.412, 0.418, 0.424, 0.429, 0.435, 0.441, 0.447, 0.453,&
8400        0.458, 0.464, 0.470, 0.476, 0.481, 0.487, 0.493, 0.498, 0.504,&
8401        0.510, 0.515, 0.521, 0.526, 0.532, 0.538, 0.543, 0.549, 0.554,&
8402        0.560, 0.565, 0.571, 0.576, 0.582, 0.587, 0.593, 0.598, 0.604,&
8403        0.609, 0.615, 0.620, 0.625, 0.631, 0.636, 0.641, 0.647, 0.652,&
8404        0.657, 0.663, 0.668, 0.673, 0.679, 0.684, 0.689, 0.694, 0.700,&
8405        0.705, 0.710, 0.715, 0.720, 0.726, 0.731, 0.736, 0.741, 0.746,&
8406        0.751, 0.756, 0.761, 0.766, 0.772, 0.777, 0.782, 0.787, 0.792,&
8407        0.797, 0.802, 0.807, 0.812, 0.817, 0.822, 0.826, 0.831, 0.836,&
8408        0.841, 0.846, 0.851, 0.856, 0.861, 0.866, 0.870, 0.875, 0.880,&
8409        0.885, 0.890, 0.894, 0.899, 0.904, 0.909, 0.914, 0.918, 0.923,&
8410        0.928, 0.932, 0.937, 0.942, 0.946, 0.951, 0.956, 0.960, 0.965,&
8411        0.970, 0.974, 0.979, 0.984, 0.988, 0.993, 0.997, 1.002, 1.006,&
8412        1.011, 1.015, 1.020, 1.024, 1.029, 1.033, 1.038, 1.042, 1.047,&
8413        1.051, 1.056, 1.060, 1.065, 1.069, 1.073, 1.078, 1.082, 1.087,&
8414        1.091, 1.095, 1.100, 1.104, 1.108, 1.113, 1.117, 1.121, 1.126,&
8415        1.130, 1.134, 1.138, 1.143, 1.147, 1.151, 1.155, 1.160, 1.164,&
8416        1.168, 1.172, 1.177, 1.181, 1.185, 1.189, 1.193, 1.197, 1.202,&
8417        1.206, 1.210, 1.214, 1.218, 1.222, 1.226, 1.230, 1.234, 1.238,&
8418        1.243, 1.247, 1.251, 1.255, 1.259, 1.263, 1.267, 1.271, 1.275,&
8419        1.279, 1.283, 1.287, 1.291, 1.295, 1.299, 1.303, 1.306, 1.310,&
8420        1.314, 1.318, 1.322, 1.326, 1.330, 1.334, 1.338, 1.342, 1.345,&
8421        1.349, 1.353, 1.357, 1.361, 1.365, 1.368, 1.372, 1.376, 1.380,&
8422        1.384, 1.387, 1.391, 1.395, 1.399, 1.403, 1.406, 1.410, 1.414,&
8423        1.418, 1.421, 1.425, 1.429, 1.432, 1.436, 1.440, 1.443, 1.447,&
8424        1.451, 1.454, 1.458, 1.462, 1.465, 1.469, 1.473, 1.476, 1.480,&
8425        1.484, 1.487, 1.491, 1.494, 1.498, 1.501, 1.505, 1.509, 1.512,&
8426        1.516, 1.519, 1.523, 1.526, 1.530, 1.533, 1.537, 1.540, 1.544,&
8427        1.547, 1.551, 1.554, 1.558, 1.595, 1.629, 1.662, 1.695, 1.727,&
8428        1.759, 1.790, 1.820, 1.850, 1.880, 1.909, 1.938, 1.966, 1.994,&
8429        2.022, 2.049, 2.076, 2.102, 2.128, 2.153, 2.179, 2.203, 2.228,&
8430        2.252, 2.276, 2.300, 2.323, 2.346, 2.368, 2.391, 2.413, 2.435,&
8431        2.456, 2.477, 2.498, 2.519, 2.539, 2.560, 2.580, 2.599, 2.619,&
8432        2.638, 2.657, 2.676, 2.695, 2.713, 2.731, 2.749, 2.767, 2.785,&
8433        2.802, 2.819, 2.836, 2.853, 2.870, 2.886, 2.902, 2.918, 2.934,&
8434        2.950, 2.966, 2.981, 2.997, 3.012, 3.027, 3.042, 3.056, 3.071,&
8435        3.085, 3.099, 3.114, 3.128, 3.141, 3.155, 3.169, 3.182, 3.195,&
8436        3.209, 3.222, 3.235, 3.247, 3.260, 3.273, 3.285, 3.298, 3.310,&
8437        3.322, 3.334, 3.346, 3.358, 3.369, 3.381, 3.392, 3.404, 3.415,&
8438        3.426, 3.437, 3.448, 3.459, 3.470, 3.481, 3.491, 3.502, 3.512,&
8439        3.523, 3.533, 3.543, 3.553, 3.563, 3.573, 3.583, 3.593, 3.603,&
8440        3.612, 3.622, 3.631, 3.640, 3.650, 3.659, 3.668, 3.677, 3.686,&
8441        3.695, 3.704, 3.713, 3.721, 3.730, 3.739, 3.747, 3.756, 3.764,&
8442        3.772, 3.781, 3.789, 3.797, 3.805, 3.813, 3.821, 3.829, 3.836,&
8443        3.844, 3.852, 3.860, 3.867, 3.875, 3.882, 3.889, 3.897, 3.904,&
8444        3.911, 3.919, 3.926, 3.933, 3.940, 3.947, 3.954, 3.961, 3.967,&
8445        3.974, 3.981, 3.988                                           &
8446        /
8447 !C
8448 !C *** (NH4)3H(SO4)2
8449 !C
8450       DATA BNC13M/                                                   &
8451       -0.080,-0.174,-0.221,-0.254,-0.280,-0.302,-0.321,-0.337,-0.352,&
8452       -0.365,-0.377,-0.388,-0.398,-0.408,-0.417,-0.425,-0.433,-0.440,&
8453       -0.447,-0.454,-0.461,-0.467,-0.472,-0.478,-0.483,-0.488,-0.493,&
8454       -0.498,-0.503,-0.507,-0.511,-0.515,-0.519,-0.523,-0.527,-0.530,&
8455       -0.533,-0.537,-0.540,-0.543,-0.546,-0.549,-0.551,-0.554,-0.557,&
8456       -0.559,-0.562,-0.564,-0.566,-0.569,-0.571,-0.573,-0.575,-0.577,&
8457       -0.579,-0.580,-0.582,-0.584,-0.586,-0.587,-0.589,-0.590,-0.592,&
8458       -0.593,-0.595,-0.596,-0.597,-0.599,-0.600,-0.601,-0.602,-0.603,&
8459       -0.604,-0.605,-0.607,-0.608,-0.609,-0.609,-0.610,-0.611,-0.612,&
8460       -0.613,-0.614,-0.614,-0.615,-0.616,-0.617,-0.617,-0.618,-0.619,&
8461       -0.619,-0.620,-0.620,-0.621,-0.621,-0.622,-0.622,-0.623,-0.623,&
8462       -0.624,-0.624,-0.624,-0.625,-0.625,-0.626,-0.626,-0.626,-0.626,&
8463       -0.627,-0.627,-0.627,-0.628,-0.628,-0.628,-0.628,-0.628,-0.629,&
8464       -0.629,-0.629,-0.629,-0.629,-0.629,-0.630,-0.630,-0.630,-0.630,&
8465       -0.630,-0.630,-0.630,-0.630,-0.630,-0.631,-0.631,-0.631,-0.631,&
8466       -0.631,-0.631,-0.631,-0.631,-0.631,-0.631,-0.631,-0.631,-0.631,&
8467       -0.631,-0.631,-0.631,-0.631,-0.631,-0.631,-0.631,-0.632,-0.632,&
8468       -0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,&
8469       -0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,&
8470       -0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,&
8471       -0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,&
8472       -0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,&
8473       -0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,&
8474       -0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,&
8475       -0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,&
8476       -0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,&
8477       -0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,&
8478       -0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.633,-0.633,&
8479       -0.633,-0.633,-0.633,-0.633,-0.633,-0.633,-0.633,-0.633,-0.633,&
8480       -0.633,-0.633,-0.633,-0.633,-0.633,-0.633,-0.633,-0.633,-0.633,&
8481       -0.633,-0.633,-0.633,-0.633,-0.634,-0.634,-0.634,-0.634,-0.634,&
8482       -0.634,-0.634,-0.634,-0.634,-0.634,-0.634,-0.634,-0.634,-0.634,&
8483       -0.634,-0.634,-0.634,-0.634,-0.635,-0.635,-0.635,-0.635,-0.635,&
8484       -0.635,-0.635,-0.635,-0.635,-0.635,-0.635,-0.635,-0.635,-0.635,&
8485       -0.636,-0.636,-0.636,-0.636,-0.636,-0.636,-0.636,-0.636,-0.636,&
8486       -0.636,-0.636,-0.636,-0.637,-0.637,-0.637,-0.637,-0.637,-0.637,&
8487       -0.637,-0.637,-0.637,-0.637,-0.637,-0.638,-0.638,-0.638,-0.638,&
8488       -0.638,-0.638,-0.638,-0.638,-0.638,-0.638,-0.639,-0.639,-0.639,&
8489       -0.639,-0.639,-0.639,-0.639,-0.639,-0.639,-0.639,-0.640,-0.640,&
8490       -0.640,-0.640,-0.640,-0.640,-0.640,-0.640,-0.640,-0.641,-0.641,&
8491       -0.641,-0.641,-0.641,-0.641,-0.641,-0.641,-0.642,-0.642,-0.642,&
8492       -0.642,-0.642,-0.642,-0.642,-0.642,-0.643,-0.643,-0.643,-0.643,&
8493       -0.643,-0.643,-0.643,-0.643,-0.644,-0.644,-0.644,-0.644,-0.644,&
8494       -0.644,-0.644,-0.645,-0.645,-0.645,-0.645,-0.645,-0.645,-0.645,&
8495       -0.646,-0.646,-0.646,-0.646,-0.648,-0.649,-0.651,-0.652,-0.654,&
8496       -0.656,-0.658,-0.660,-0.662,-0.664,-0.666,-0.668,-0.670,-0.673,&
8497       -0.675,-0.677,-0.680,-0.682,-0.685,-0.687,-0.690,-0.693,-0.695,&
8498       -0.698,-0.701,-0.704,-0.707,-0.709,-0.712,-0.715,-0.718,-0.722,&
8499       -0.725,-0.728,-0.731,-0.734,-0.737,-0.741,-0.744,-0.747,-0.751,&
8500       -0.754,-0.758,-0.761,-0.764,-0.768,-0.772,-0.775,-0.779,-0.782,&
8501       -0.786,-0.790,-0.793,-0.797,-0.801,-0.805,-0.809,-0.812,-0.816,&
8502       -0.820,-0.824,-0.828,-0.832,-0.836,-0.840,-0.844,-0.848,-0.852,&
8503       -0.856,-0.860,-0.864,-0.868,-0.873,-0.877,-0.881,-0.885,-0.889,&
8504       -0.894,-0.898,-0.902,-0.906,-0.911,-0.915,-0.919,-0.924,-0.928,&
8505       -0.932,-0.937,-0.941,-0.946,-0.950,-0.955,-0.959,-0.964,-0.968,&
8506       -0.973,-0.977,-0.982,-0.986,-0.991,-0.995,-1.000,-1.005,-1.009,&
8507       -1.014,-1.019,-1.023,-1.028,-1.033,-1.037,-1.042,-1.047,-1.051,&
8508       -1.056,-1.061,-1.066,-1.071,-1.075,-1.080,-1.085,-1.090,-1.095,&
8509       -1.099,-1.104,-1.109,-1.114,-1.119,-1.124,-1.129,-1.134,-1.138,&
8510       -1.143,-1.148,-1.153,-1.158,-1.163,-1.168,-1.173,-1.178,-1.183,&
8511       -1.188,-1.193,-1.198,-1.203,-1.208,-1.213,-1.218,-1.223,-1.228,&
8512       -1.233,-1.238,-1.244,-1.249,-1.254,-1.259,-1.264,-1.269,-1.274,&
8513       -1.279,-1.284,-1.290                                           &
8514        /
8515 !C
8516 !C *** CASO4
8517 !C
8518       DATA BNC14M/                                                   &
8519        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8520        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8521        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8522        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8523        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8524        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8525        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8526        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8527        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8528        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8529        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8530        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8531        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8532        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8533        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8534        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8535        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8536        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8537        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8538        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8539        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8540        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8541        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8542        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8543        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8544        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8545        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8546        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8547        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8548        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8549        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8550        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8551        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8552        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8553        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8554        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8555        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8556        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8557        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8558        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8559        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8560        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8561        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8562        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8563        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8564        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8565        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8566        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8567        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8568        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8569        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8570        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8571        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8572        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8573        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8574        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8575        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8576        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8577        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8578        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8579        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8580        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
8581        0.000, 0.000, 0.000                                           &
8582        /
8583 !C
8584 !C *** CANO32
8585 !C
8586       DATA BNC15M/                                                   &
8587       -0.099,-0.211,-0.264,-0.301,-0.329,-0.351,-0.370,-0.386,-0.399,&
8588       -0.411,-0.422,-0.432,-0.440,-0.448,-0.455,-0.462,-0.468,-0.473,&
8589       -0.478,-0.483,-0.487,-0.491,-0.495,-0.499,-0.502,-0.505,-0.508,&
8590       -0.511,-0.513,-0.516,-0.518,-0.520,-0.522,-0.524,-0.526,-0.528,&
8591       -0.529,-0.531,-0.532,-0.534,-0.535,-0.536,-0.537,-0.539,-0.540,&
8592       -0.541,-0.542,-0.543,-0.544,-0.545,-0.545,-0.546,-0.547,-0.548,&
8593       -0.549,-0.549,-0.550,-0.551,-0.551,-0.552,-0.552,-0.553,-0.553,&
8594       -0.554,-0.554,-0.555,-0.555,-0.556,-0.556,-0.556,-0.557,-0.557,&
8595       -0.557,-0.558,-0.558,-0.558,-0.558,-0.559,-0.559,-0.559,-0.559,&
8596       -0.559,-0.559,-0.559,-0.559,-0.559,-0.559,-0.559,-0.559,-0.559,&
8597       -0.559,-0.559,-0.559,-0.559,-0.558,-0.558,-0.558,-0.558,-0.557,&
8598       -0.557,-0.557,-0.556,-0.556,-0.556,-0.555,-0.555,-0.555,-0.554,&
8599       -0.554,-0.553,-0.553,-0.552,-0.552,-0.551,-0.551,-0.550,-0.550,&
8600       -0.549,-0.549,-0.548,-0.548,-0.547,-0.547,-0.546,-0.545,-0.545,&
8601       -0.544,-0.544,-0.543,-0.542,-0.542,-0.541,-0.541,-0.540,-0.539,&
8602       -0.539,-0.538,-0.538,-0.537,-0.536,-0.536,-0.535,-0.534,-0.534,&
8603       -0.533,-0.533,-0.532,-0.531,-0.531,-0.530,-0.529,-0.529,-0.528,&
8604       -0.527,-0.527,-0.526,-0.525,-0.525,-0.524,-0.524,-0.523,-0.522,&
8605       -0.522,-0.521,-0.520,-0.520,-0.519,-0.518,-0.518,-0.517,-0.516,&
8606       -0.516,-0.515,-0.514,-0.514,-0.513,-0.513,-0.512,-0.511,-0.511,&
8607       -0.510,-0.509,-0.509,-0.508,-0.507,-0.507,-0.506,-0.505,-0.505,&
8608       -0.504,-0.504,-0.503,-0.502,-0.502,-0.501,-0.500,-0.500,-0.499,&
8609       -0.499,-0.498,-0.497,-0.497,-0.496,-0.495,-0.495,-0.494,-0.494,&
8610       -0.493,-0.492,-0.492,-0.491,-0.490,-0.490,-0.489,-0.489,-0.488,&
8611       -0.487,-0.487,-0.486,-0.486,-0.485,-0.484,-0.484,-0.483,-0.483,&
8612       -0.482,-0.481,-0.481,-0.480,-0.480,-0.479,-0.478,-0.478,-0.477,&
8613       -0.477,-0.476,-0.475,-0.475,-0.474,-0.474,-0.473,-0.473,-0.472,&
8614       -0.471,-0.471,-0.470,-0.470,-0.469,-0.469,-0.468,-0.468,-0.467,&
8615       -0.466,-0.466,-0.465,-0.465,-0.464,-0.464,-0.463,-0.463,-0.462,&
8616       -0.461,-0.461,-0.460,-0.460,-0.459,-0.459,-0.458,-0.458,-0.457,&
8617       -0.457,-0.456,-0.456,-0.455,-0.455,-0.454,-0.453,-0.453,-0.452,&
8618       -0.452,-0.451,-0.451,-0.450,-0.450,-0.449,-0.449,-0.448,-0.448,&
8619       -0.447,-0.447,-0.446,-0.446,-0.445,-0.445,-0.444,-0.444,-0.443,&
8620       -0.443,-0.442,-0.442,-0.441,-0.441,-0.440,-0.440,-0.440,-0.439,&
8621       -0.439,-0.438,-0.438,-0.437,-0.437,-0.436,-0.436,-0.435,-0.435,&
8622       -0.434,-0.434,-0.433,-0.433,-0.433,-0.432,-0.432,-0.431,-0.431,&
8623       -0.430,-0.430,-0.429,-0.429,-0.429,-0.428,-0.428,-0.427,-0.427,&
8624       -0.426,-0.426,-0.426,-0.425,-0.425,-0.424,-0.424,-0.423,-0.423,&
8625       -0.423,-0.422,-0.422,-0.421,-0.421,-0.421,-0.420,-0.420,-0.419,&
8626       -0.419,-0.419,-0.418,-0.418,-0.417,-0.417,-0.417,-0.416,-0.416,&
8627       -0.415,-0.415,-0.415,-0.414,-0.414,-0.413,-0.413,-0.413,-0.412,&
8628       -0.412,-0.412,-0.411,-0.411,-0.410,-0.410,-0.410,-0.409,-0.409,&
8629       -0.409,-0.408,-0.408,-0.408,-0.407,-0.407,-0.407,-0.406,-0.406,&
8630       -0.405,-0.405,-0.405,-0.404,-0.404,-0.404,-0.403,-0.403,-0.403,&
8631       -0.402,-0.402,-0.402,-0.401,-0.398,-0.395,-0.392,-0.389,-0.386,&
8632       -0.384,-0.381,-0.379,-0.377,-0.375,-0.373,-0.371,-0.369,-0.368,&
8633       -0.366,-0.365,-0.364,-0.363,-0.362,-0.361,-0.360,-0.359,-0.358,&
8634       -0.358,-0.357,-0.357,-0.357,-0.356,-0.356,-0.356,-0.356,-0.356,&
8635       -0.356,-0.357,-0.357,-0.357,-0.358,-0.358,-0.359,-0.360,-0.361,&
8636       -0.361,-0.362,-0.363,-0.364,-0.365,-0.367,-0.368,-0.369,-0.370,&
8637       -0.372,-0.373,-0.375,-0.376,-0.378,-0.380,-0.381,-0.383,-0.385,&
8638       -0.387,-0.389,-0.391,-0.393,-0.395,-0.397,-0.399,-0.401,-0.404,&
8639       -0.406,-0.408,-0.411,-0.413,-0.416,-0.418,-0.421,-0.423,-0.426,&
8640       -0.429,-0.431,-0.434,-0.437,-0.440,-0.442,-0.445,-0.448,-0.451,&
8641       -0.454,-0.457,-0.460,-0.463,-0.467,-0.470,-0.473,-0.476,-0.480,&
8642       -0.483,-0.486,-0.490,-0.493,-0.496,-0.500,-0.503,-0.507,-0.510,&
8643       -0.514,-0.517,-0.521,-0.525,-0.528,-0.532,-0.536,-0.540,-0.543,&
8644       -0.547,-0.551,-0.555,-0.559,-0.563,-0.566,-0.570,-0.574,-0.578,&
8645       -0.582,-0.586,-0.590,-0.595,-0.599,-0.603,-0.607,-0.611,-0.615,&
8646       -0.619,-0.624,-0.628,-0.632,-0.637,-0.641,-0.645,-0.650,-0.654,&
8647       -0.658,-0.663,-0.667,-0.672,-0.676,-0.680,-0.685,-0.689,-0.694,&
8648       -0.699,-0.703,-0.708,-0.712,-0.717,-0.722,-0.726,-0.731,-0.736,&
8649       -0.740,-0.745,-0.750                                           &
8650        /
8651 !C
8652 !C *** CACL2
8653 !C
8654       DATA BNC16M/                                                   &
8655       -0.097,-0.201,-0.247,-0.277,-0.298,-0.314,-0.327,-0.337,-0.345,&
8656       -0.351,-0.356,-0.359,-0.362,-0.365,-0.366,-0.367,-0.367,-0.367,&
8657       -0.367,-0.366,-0.365,-0.364,-0.362,-0.361,-0.359,-0.356,-0.354,&
8658       -0.352,-0.349,-0.346,-0.343,-0.340,-0.337,-0.334,-0.331,-0.328,&
8659       -0.324,-0.321,-0.317,-0.314,-0.310,-0.307,-0.303,-0.300,-0.296,&
8660       -0.292,-0.289,-0.285,-0.281,-0.277,-0.274,-0.270,-0.266,-0.262,&
8661       -0.259,-0.255,-0.251,-0.247,-0.244,-0.240,-0.236,-0.232,-0.228,&
8662       -0.224,-0.221,-0.217,-0.213,-0.209,-0.205,-0.201,-0.197,-0.193,&
8663       -0.189,-0.185,-0.181,-0.177,-0.173,-0.169,-0.165,-0.161,-0.157,&
8664       -0.152,-0.148,-0.144,-0.139,-0.135,-0.131,-0.126,-0.122,-0.117,&
8665       -0.113,-0.108,-0.104,-0.099,-0.095,-0.090,-0.085,-0.080,-0.076,&
8666       -0.071,-0.066,-0.061,-0.056,-0.051,-0.047,-0.042,-0.037,-0.032,&
8667       -0.027,-0.022,-0.017,-0.012,-0.006,-0.001, 0.004, 0.009, 0.014,&
8668        0.019, 0.024, 0.029, 0.034, 0.040, 0.045, 0.050, 0.055, 0.060,&
8669        0.065, 0.071, 0.076, 0.081, 0.086, 0.091, 0.096, 0.102, 0.107,&
8670        0.112, 0.117, 0.122, 0.127, 0.133, 0.138, 0.143, 0.148, 0.153,&
8671        0.158, 0.163, 0.168, 0.174, 0.179, 0.184, 0.189, 0.194, 0.199,&
8672        0.204, 0.209, 0.214, 0.219, 0.224, 0.229, 0.234, 0.239, 0.244,&
8673        0.249, 0.254, 0.259, 0.264, 0.269, 0.274, 0.279, 0.284, 0.289,&
8674        0.294, 0.299, 0.304, 0.309, 0.314, 0.319, 0.324, 0.329, 0.334,&
8675        0.338, 0.343, 0.348, 0.353, 0.358, 0.363, 0.368, 0.372, 0.377,&
8676        0.382, 0.387, 0.392, 0.396, 0.401, 0.406, 0.411, 0.415, 0.420,&
8677        0.425, 0.430, 0.434, 0.439, 0.444, 0.449, 0.453, 0.458, 0.463,&
8678        0.467, 0.472, 0.477, 0.481, 0.486, 0.491, 0.495, 0.500, 0.504,&
8679        0.509, 0.514, 0.518, 0.523, 0.527, 0.532, 0.536, 0.541, 0.545,&
8680        0.550, 0.555, 0.559, 0.564, 0.568, 0.573, 0.577, 0.581, 0.586,&
8681        0.590, 0.595, 0.599, 0.604, 0.608, 0.613, 0.617, 0.621, 0.626,&
8682        0.630, 0.635, 0.639, 0.643, 0.648, 0.652, 0.656, 0.661, 0.665,&
8683        0.669, 0.674, 0.678, 0.682, 0.686, 0.691, 0.695, 0.699, 0.703,&
8684        0.708, 0.712, 0.716, 0.720, 0.725, 0.729, 0.733, 0.737, 0.741,&
8685        0.746, 0.750, 0.754, 0.758, 0.762, 0.766, 0.770, 0.775, 0.779,&
8686        0.783, 0.787, 0.791, 0.795, 0.799, 0.803, 0.807, 0.811, 0.815,&
8687        0.819, 0.823, 0.827, 0.831, 0.835, 0.839, 0.843, 0.847, 0.851,&
8688        0.855, 0.859, 0.863, 0.867, 0.871, 0.875, 0.879, 0.883, 0.887,&
8689        0.891, 0.895, 0.899, 0.902, 0.906, 0.910, 0.914, 0.918, 0.922,&
8690        0.926, 0.929, 0.933, 0.937, 0.941, 0.945, 0.949, 0.952, 0.956,&
8691        0.960, 0.964, 0.967, 0.971, 0.975, 0.979, 0.982, 0.986, 0.990,&
8692        0.994, 0.997, 1.001, 1.005, 1.008, 1.012, 1.016, 1.019, 1.023,&
8693        1.027, 1.030, 1.034, 1.038, 1.041, 1.045, 1.049, 1.052, 1.056,&
8694        1.059, 1.063, 1.067, 1.070, 1.074, 1.077, 1.081, 1.084, 1.088,&
8695        1.091, 1.095, 1.098, 1.102, 1.106, 1.109, 1.113, 1.116, 1.119,&
8696        1.123, 1.126, 1.130, 1.133, 1.137, 1.140, 1.144, 1.147, 1.151,&
8697        1.154, 1.157, 1.161, 1.164, 1.168, 1.171, 1.174, 1.178, 1.181,&
8698        1.185, 1.188, 1.191, 1.195, 1.198, 1.201, 1.205, 1.208, 1.211,&
8699        1.215, 1.218, 1.221, 1.225, 1.260, 1.292, 1.323, 1.354, 1.385,&
8700        1.415, 1.444, 1.473, 1.501, 1.529, 1.557, 1.584, 1.610, 1.636,&
8701        1.662, 1.687, 1.712, 1.737, 1.761, 1.784, 1.808, 1.831, 1.853,&
8702        1.876, 1.898, 1.919, 1.940, 1.961, 1.982, 2.002, 2.022, 2.042,&
8703        2.062, 2.081, 2.100, 2.118, 2.137, 2.155, 2.172, 2.190, 2.207,&
8704        2.224, 2.241, 2.258, 2.274, 2.290, 2.306, 2.322, 2.337, 2.353,&
8705        2.368, 2.382, 2.397, 2.412, 2.426, 2.440, 2.454, 2.467, 2.481,&
8706        2.494, 2.507, 2.520, 2.533, 2.546, 2.558, 2.571, 2.583, 2.595,&
8707        2.606, 2.618, 2.630, 2.641, 2.652, 2.663, 2.674, 2.685, 2.696,&
8708        2.706, 2.717, 2.727, 2.737, 2.747, 2.757, 2.767, 2.776, 2.786,&
8709        2.795, 2.804, 2.813, 2.822, 2.831, 2.840, 2.849, 2.857, 2.866,&
8710        2.874, 2.882, 2.891, 2.899, 2.907, 2.914, 2.922, 2.930, 2.937,&
8711        2.945, 2.952, 2.959, 2.966, 2.973, 2.980, 2.987, 2.994, 3.001,&
8712        3.007, 3.014, 3.020, 3.027, 3.033, 3.039, 3.045, 3.051, 3.057,&
8713        3.063, 3.069, 3.075, 3.081, 3.086, 3.092, 3.097, 3.102, 3.108,&
8714        3.113, 3.118, 3.123, 3.128, 3.133, 3.138, 3.143, 3.147, 3.152,&
8715        3.157, 3.161, 3.166, 3.170, 3.175, 3.179, 3.183, 3.187, 3.191,&
8716        3.195, 3.199, 3.203, 3.207, 3.211, 3.215, 3.219, 3.222, 3.226,&
8717        3.229, 3.233, 3.236                                           &
8718        /
8719 !C
8720 !C *** K2SO4
8721 !C
8722       DATA BNC17M/                                                   &
8723       -0.101,-0.220,-0.281,-0.324,-0.358,-0.387,-0.412,-0.434,-0.453,&
8724       -0.471,-0.487,-0.503,-0.517,-0.530,-0.543,-0.555,-0.566,-0.577,&
8725       -0.587,-0.597,-0.606,-0.615,-0.624,-0.632,-0.641,-0.649,-0.656,&
8726       -0.664,-0.671,-0.678,-0.685,-0.692,-0.698,-0.705,-0.711,-0.717,&
8727       -0.723,-0.729,-0.735,-0.740,-0.746,-0.752,-0.757,-0.762,-0.767,&
8728       -0.772,-0.777,-0.782,-0.787,-0.792,-0.797,-0.801,-0.806,-0.810,&
8729       -0.815,-0.819,-0.824,-0.828,-0.832,-0.836,-0.840,-0.844,-0.848,&
8730       -0.852,-0.856,-0.860,-0.864,-0.868,-0.872,-0.876,-0.879,-0.883,&
8731       -0.887,-0.890,-0.894,-0.897,-0.901,-0.904,-0.908,-0.911,-0.915,&
8732       -0.918,-0.922,-0.925,-0.928,-0.932,-0.935,-0.938,-0.942,-0.945,&
8733       -0.948,-0.951,-0.954,-0.958,-0.961,-0.964,-0.967,-0.970,-0.973,&
8734       -0.976,-0.979,-0.982,-0.985,-0.988,-0.991,-0.994,-0.997,-1.000,&
8735       -1.003,-1.006,-1.009,-1.012,-1.015,-1.018,-1.021,-1.024,-1.026,&
8736       -1.029,-1.032,-1.035,-1.038,-1.040,-1.043,-1.046,-1.049,-1.051,&
8737       -1.054,-1.057,-1.060,-1.062,-1.065,-1.068,-1.070,-1.073,-1.076,&
8738       -1.078,-1.081,-1.083,-1.086,-1.089,-1.091,-1.094,-1.096,-1.099,&
8739       -1.102,-1.104,-1.107,-1.109,-1.112,-1.114,-1.117,-1.119,-1.122,&
8740       -1.124,-1.127,-1.129,-1.131,-1.134,-1.136,-1.139,-1.141,-1.144,&
8741       -1.146,-1.148,-1.151,-1.153,-1.155,-1.158,-1.160,-1.163,-1.165,&
8742       -1.167,-1.170,-1.172,-1.174,-1.177,-1.179,-1.181,-1.183,-1.186,&
8743       -1.188,-1.190,-1.193,-1.195,-1.197,-1.199,-1.202,-1.204,-1.206,&
8744       -1.208,-1.210,-1.213,-1.215,-1.217,-1.219,-1.221,-1.224,-1.226,&
8745       -1.228,-1.230,-1.232,-1.235,-1.237,-1.239,-1.241,-1.243,-1.245,&
8746       -1.247,-1.250,-1.252,-1.254,-1.256,-1.258,-1.260,-1.262,-1.264,&
8747       -1.266,-1.269,-1.271,-1.273,-1.275,-1.277,-1.279,-1.281,-1.283,&
8748       -1.285,-1.287,-1.289,-1.291,-1.293,-1.295,-1.297,-1.299,-1.301,&
8749       -1.303,-1.305,-1.307,-1.309,-1.311,-1.313,-1.315,-1.317,-1.319,&
8750       -1.321,-1.323,-1.325,-1.327,-1.329,-1.331,-1.333,-1.335,-1.337,&
8751       -1.339,-1.341,-1.343,-1.345,-1.347,-1.349,-1.351,-1.353,-1.355,&
8752       -1.357,-1.358,-1.360,-1.362,-1.364,-1.366,-1.368,-1.370,-1.372,&
8753       -1.374,-1.376,-1.377,-1.379,-1.381,-1.383,-1.385,-1.387,-1.389,&
8754       -1.391,-1.392,-1.394,-1.396,-1.398,-1.400,-1.402,-1.404,-1.405,&
8755       -1.407,-1.409,-1.411,-1.413,-1.415,-1.417,-1.418,-1.420,-1.422,&
8756       -1.424,-1.426,-1.427,-1.429,-1.431,-1.433,-1.435,-1.437,-1.438,&
8757       -1.440,-1.442,-1.444,-1.445,-1.447,-1.449,-1.451,-1.453,-1.454,&
8758       -1.456,-1.458,-1.460,-1.462,-1.463,-1.465,-1.467,-1.469,-1.470,&
8759       -1.472,-1.474,-1.476,-1.477,-1.479,-1.481,-1.483,-1.484,-1.486,&
8760       -1.488,-1.490,-1.491,-1.493,-1.495,-1.496,-1.498,-1.500,-1.502,&
8761       -1.503,-1.505,-1.507,-1.509,-1.510,-1.512,-1.514,-1.515,-1.517,&
8762       -1.519,-1.520,-1.522,-1.524,-1.526,-1.527,-1.529,-1.531,-1.532,&
8763       -1.534,-1.536,-1.537,-1.539,-1.541,-1.542,-1.544,-1.546,-1.547,&
8764       -1.549,-1.551,-1.552,-1.554,-1.556,-1.557,-1.559,-1.561,-1.562,&
8765       -1.564,-1.566,-1.567,-1.569,-1.571,-1.572,-1.574,-1.576,-1.577,&
8766       -1.579,-1.580,-1.582,-1.584,-1.585,-1.587,-1.589,-1.590,-1.592,&
8767       -1.594,-1.595,-1.597,-1.598,-1.616,-1.632,-1.648,-1.663,-1.679,&
8768       -1.694,-1.710,-1.725,-1.740,-1.755,-1.770,-1.785,-1.799,-1.814,&
8769       -1.828,-1.843,-1.857,-1.871,-1.885,-1.900,-1.914,-1.928,-1.941,&
8770       -1.955,-1.969,-1.983,-1.996,-2.010,-2.023,-2.037,-2.050,-2.063,&
8771       -2.077,-2.090,-2.103,-2.116,-2.129,-2.142,-2.155,-2.168,-2.181,&
8772       -2.194,-2.206,-2.219,-2.232,-2.244,-2.257,-2.269,-2.282,-2.294,&
8773       -2.307,-2.319,-2.332,-2.344,-2.356,-2.369,-2.381,-2.393,-2.405,&
8774       -2.417,-2.429,-2.441,-2.454,-2.466,-2.478,-2.489,-2.501,-2.513,&
8775       -2.525,-2.537,-2.549,-2.561,-2.572,-2.584,-2.596,-2.608,-2.619,&
8776       -2.631,-2.642,-2.654,-2.666,-2.677,-2.689,-2.700,-2.712,-2.723,&
8777       -2.735,-2.746,-2.757,-2.769,-2.780,-2.792,-2.803,-2.814,-2.825,&
8778       -2.837,-2.848,-2.859,-2.870,-2.882,-2.893,-2.904,-2.915,-2.926,&
8779       -2.937,-2.948,-2.959,-2.971,-2.982,-2.993,-3.004,-3.015,-3.026,&
8780       -3.037,-3.048,-3.058,-3.069,-3.080,-3.091,-3.102,-3.113,-3.124,&
8781       -3.135,-3.145,-3.156,-3.167,-3.178,-3.189,-3.199,-3.210,-3.221,&
8782       -3.232,-3.242,-3.253,-3.264,-3.274,-3.285,-3.296,-3.306,-3.317,&
8783       -3.327,-3.338,-3.349,-3.359,-3.370,-3.380,-3.391,-3.401,-3.412,&
8784       -3.422,-3.433,-3.443,-3.454,-3.464,-3.475,-3.485,-3.496,-3.506,&
8785       -3.517,-3.527,-3.537                                           &
8786        /
8787 !C
8788 !C *** KHSO4
8789 !C
8790       DATA BNC18M/                                                   &
8791       -0.049,-0.104,-0.130,-0.148,-0.162,-0.173,-0.182,-0.190,-0.197,&
8792       -0.203,-0.208,-0.213,-0.217,-0.221,-0.224,-0.227,-0.230,-0.232,&
8793       -0.234,-0.236,-0.238,-0.239,-0.240,-0.241,-0.242,-0.243,-0.243,&
8794       -0.244,-0.244,-0.244,-0.244,-0.244,-0.243,-0.243,-0.242,-0.242,&
8795       -0.241,-0.240,-0.239,-0.238,-0.237,-0.236,-0.235,-0.233,-0.232,&
8796       -0.230,-0.229,-0.227,-0.225,-0.223,-0.222,-0.220,-0.218,-0.216,&
8797       -0.214,-0.211,-0.209,-0.207,-0.205,-0.202,-0.200,-0.197,-0.195,&
8798       -0.192,-0.190,-0.187,-0.185,-0.182,-0.179,-0.176,-0.174,-0.171,&
8799       -0.168,-0.165,-0.162,-0.159,-0.156,-0.153,-0.150,-0.147,-0.143,&
8800       -0.140,-0.137,-0.134,-0.131,-0.127,-0.124,-0.120,-0.117,-0.114,&
8801       -0.110,-0.107,-0.103,-0.100,-0.096,-0.092,-0.089,-0.085,-0.081,&
8802       -0.078,-0.074,-0.070,-0.066,-0.063,-0.059,-0.055,-0.051,-0.047,&
8803       -0.043,-0.040,-0.036,-0.032,-0.028,-0.024,-0.020,-0.016,-0.012,&
8804       -0.008,-0.004, 0.000, 0.004, 0.008, 0.012, 0.015, 0.019, 0.023,&
8805        0.027, 0.031, 0.035, 0.039, 0.043, 0.047, 0.051, 0.055, 0.059,&
8806        0.063, 0.067, 0.071, 0.075, 0.078, 0.082, 0.086, 0.090, 0.094,&
8807        0.098, 0.102, 0.106, 0.109, 0.113, 0.117, 0.121, 0.125, 0.128,&
8808        0.132, 0.136, 0.140, 0.144, 0.147, 0.151, 0.155, 0.159, 0.162,&
8809        0.166, 0.170, 0.173, 0.177, 0.181, 0.184, 0.188, 0.192, 0.195,&
8810        0.199, 0.203, 0.206, 0.210, 0.213, 0.217, 0.221, 0.224, 0.228,&
8811        0.231, 0.235, 0.238, 0.242, 0.245, 0.249, 0.252, 0.256, 0.259,&
8812        0.263, 0.266, 0.270, 0.273, 0.277, 0.280, 0.284, 0.287, 0.290,&
8813        0.294, 0.297, 0.301, 0.304, 0.307, 0.311, 0.314, 0.317, 0.321,&
8814        0.324, 0.327, 0.331, 0.334, 0.337, 0.340, 0.344, 0.347, 0.350,&
8815        0.353, 0.357, 0.360, 0.363, 0.366, 0.369, 0.373, 0.376, 0.379,&
8816        0.382, 0.385, 0.389, 0.392, 0.395, 0.398, 0.401, 0.404, 0.407,&
8817        0.410, 0.413, 0.417, 0.420, 0.423, 0.426, 0.429, 0.432, 0.435,&
8818        0.438, 0.441, 0.444, 0.447, 0.450, 0.453, 0.456, 0.459, 0.462,&
8819        0.465, 0.468, 0.471, 0.474, 0.477, 0.480, 0.482, 0.485, 0.488,&
8820        0.491, 0.494, 0.497, 0.500, 0.503, 0.506, 0.508, 0.511, 0.514,&
8821        0.517, 0.520, 0.523, 0.525, 0.528, 0.531, 0.534, 0.537, 0.539,&
8822        0.542, 0.545, 0.548, 0.551, 0.553, 0.556, 0.559, 0.562, 0.564,&
8823        0.567, 0.570, 0.572, 0.575, 0.578, 0.581, 0.583, 0.586, 0.589,&
8824        0.591, 0.594, 0.597, 0.599, 0.602, 0.604, 0.607, 0.610, 0.612,&
8825        0.615, 0.618, 0.620, 0.623, 0.625, 0.628, 0.631, 0.633, 0.636,&
8826        0.638, 0.641, 0.643, 0.646, 0.648, 0.651, 0.654, 0.656, 0.659,&
8827        0.661, 0.664, 0.666, 0.669, 0.671, 0.674, 0.676, 0.679, 0.681,&
8828        0.684, 0.686, 0.688, 0.691, 0.693, 0.696, 0.698, 0.701, 0.703,&
8829        0.706, 0.708, 0.710, 0.713, 0.715, 0.718, 0.720, 0.722, 0.725,&
8830        0.727, 0.729, 0.732, 0.734, 0.737, 0.739, 0.741, 0.744, 0.746,&
8831        0.748, 0.751, 0.753, 0.755, 0.758, 0.760, 0.762, 0.764, 0.767,&
8832        0.769, 0.771, 0.774, 0.776, 0.778, 0.780, 0.783, 0.785, 0.787,&
8833        0.789, 0.792, 0.794, 0.796, 0.798, 0.801, 0.803, 0.805, 0.807,&
8834        0.810, 0.812, 0.814, 0.816, 0.818, 0.821, 0.823, 0.825, 0.827,&
8835        0.829, 0.831, 0.834, 0.836, 0.859, 0.880, 0.900, 0.921, 0.940,&
8836        0.960, 0.979, 0.998, 1.016, 1.034, 1.052, 1.070, 1.087, 1.104,&
8837        1.121, 1.137, 1.154, 1.169, 1.185, 1.201, 1.216, 1.231, 1.246,&
8838        1.260, 1.274, 1.289, 1.302, 1.316, 1.330, 1.343, 1.356, 1.369,&
8839        1.382, 1.394, 1.407, 1.419, 1.431, 1.443, 1.455, 1.466, 1.478,&
8840        1.489, 1.500, 1.511, 1.522, 1.533, 1.543, 1.554, 1.564, 1.574,&
8841        1.584, 1.594, 1.604, 1.614, 1.623, 1.633, 1.642, 1.651, 1.660,&
8842        1.670, 1.678, 1.687, 1.696, 1.704, 1.713, 1.721, 1.730, 1.738,&
8843        1.746, 1.754, 1.762, 1.770, 1.777, 1.785, 1.793, 1.800, 1.807,&
8844        1.815, 1.822, 1.829, 1.836, 1.843, 1.850, 1.857, 1.864, 1.870,&
8845        1.877, 1.883, 1.890, 1.896, 1.903, 1.909, 1.915, 1.921, 1.927,&
8846        1.933, 1.939, 1.945, 1.951, 1.957, 1.962, 1.968, 1.973, 1.979,&
8847        1.984, 1.990, 1.995, 2.000, 2.006, 2.011, 2.016, 2.021, 2.026,&
8848        2.031, 2.036, 2.041, 2.045, 2.050, 2.055, 2.059, 2.064, 2.069,&
8849        2.073, 2.078, 2.082, 2.086, 2.091, 2.095, 2.099, 2.103, 2.108,&
8850        2.112, 2.116, 2.120, 2.124, 2.128, 2.132, 2.135, 2.139, 2.143,&
8851        2.147, 2.150, 2.154, 2.158, 2.161, 2.165, 2.168, 2.172, 2.175,&
8852        2.179, 2.182, 2.185, 2.189, 2.192, 2.195, 2.198, 2.201, 2.205,&
8853        2.208, 2.211, 2.214                                           &
8854        /
8855 !C
8856 !C *** KNO3
8857 !C
8858       DATA BNC19M/                                                   &
8859       -0.052,-0.120,-0.158,-0.187,-0.211,-0.232,-0.251,-0.269,-0.285,&
8860       -0.300,-0.315,-0.329,-0.342,-0.354,-0.367,-0.378,-0.390,-0.401,&
8861       -0.412,-0.422,-0.432,-0.443,-0.452,-0.462,-0.471,-0.481,-0.490,&
8862       -0.498,-0.507,-0.516,-0.524,-0.532,-0.540,-0.548,-0.556,-0.564,&
8863       -0.572,-0.579,-0.587,-0.594,-0.601,-0.608,-0.615,-0.622,-0.629,&
8864       -0.636,-0.642,-0.649,-0.655,-0.661,-0.668,-0.674,-0.680,-0.686,&
8865       -0.692,-0.698,-0.704,-0.710,-0.715,-0.721,-0.727,-0.732,-0.738,&
8866       -0.743,-0.749,-0.754,-0.759,-0.765,-0.770,-0.775,-0.780,-0.785,&
8867       -0.790,-0.796,-0.801,-0.806,-0.811,-0.816,-0.820,-0.825,-0.830,&
8868       -0.835,-0.840,-0.845,-0.850,-0.854,-0.859,-0.864,-0.869,-0.873,&
8869       -0.878,-0.883,-0.888,-0.892,-0.897,-0.902,-0.906,-0.911,-0.916,&
8870       -0.920,-0.925,-0.929,-0.934,-0.938,-0.943,-0.948,-0.952,-0.957,&
8871       -0.961,-0.966,-0.970,-0.974,-0.979,-0.983,-0.988,-0.992,-0.996,&
8872       -1.001,-1.005,-1.009,-1.014,-1.018,-1.022,-1.026,-1.031,-1.035,&
8873       -1.039,-1.043,-1.047,-1.052,-1.056,-1.060,-1.064,-1.068,-1.072,&
8874       -1.076,-1.080,-1.084,-1.088,-1.092,-1.096,-1.100,-1.104,-1.108,&
8875       -1.112,-1.115,-1.119,-1.123,-1.127,-1.131,-1.134,-1.138,-1.142,&
8876       -1.146,-1.149,-1.153,-1.157,-1.160,-1.164,-1.168,-1.171,-1.175,&
8877       -1.178,-1.182,-1.185,-1.189,-1.192,-1.196,-1.199,-1.203,-1.206,&
8878       -1.210,-1.213,-1.217,-1.220,-1.223,-1.227,-1.230,-1.234,-1.237,&
8879       -1.240,-1.243,-1.247,-1.250,-1.253,-1.257,-1.260,-1.263,-1.266,&
8880       -1.269,-1.273,-1.276,-1.279,-1.282,-1.285,-1.288,-1.291,-1.295,&
8881       -1.298,-1.301,-1.304,-1.307,-1.310,-1.313,-1.316,-1.319,-1.322,&
8882       -1.325,-1.328,-1.331,-1.334,-1.337,-1.340,-1.342,-1.345,-1.348,&
8883       -1.351,-1.354,-1.357,-1.360,-1.362,-1.365,-1.368,-1.371,-1.374,&
8884       -1.376,-1.379,-1.382,-1.385,-1.387,-1.390,-1.393,-1.396,-1.398,&
8885       -1.401,-1.404,-1.406,-1.409,-1.412,-1.414,-1.417,-1.420,-1.422,&
8886       -1.425,-1.427,-1.430,-1.432,-1.435,-1.438,-1.440,-1.443,-1.445,&
8887       -1.448,-1.450,-1.453,-1.455,-1.458,-1.460,-1.463,-1.465,-1.468,&
8888       -1.470,-1.472,-1.475,-1.477,-1.480,-1.482,-1.484,-1.487,-1.489,&
8889       -1.492,-1.494,-1.496,-1.499,-1.501,-1.503,-1.506,-1.508,-1.510,&
8890       -1.512,-1.515,-1.517,-1.519,-1.522,-1.524,-1.526,-1.528,-1.531,&
8891       -1.533,-1.535,-1.537,-1.539,-1.542,-1.544,-1.546,-1.548,-1.550,&
8892       -1.552,-1.555,-1.557,-1.559,-1.561,-1.563,-1.565,-1.567,-1.569,&
8893       -1.572,-1.574,-1.576,-1.578,-1.580,-1.582,-1.584,-1.586,-1.588,&
8894       -1.590,-1.592,-1.594,-1.596,-1.598,-1.600,-1.602,-1.604,-1.606,&
8895       -1.608,-1.610,-1.612,-1.614,-1.616,-1.618,-1.620,-1.622,-1.624,&
8896       -1.626,-1.628,-1.630,-1.632,-1.633,-1.635,-1.637,-1.639,-1.641,&
8897       -1.643,-1.645,-1.647,-1.648,-1.650,-1.652,-1.654,-1.656,-1.658,&
8898       -1.660,-1.661,-1.663,-1.665,-1.667,-1.669,-1.670,-1.672,-1.674,&
8899       -1.676,-1.678,-1.679,-1.681,-1.683,-1.685,-1.686,-1.688,-1.690,&
8900       -1.692,-1.693,-1.695,-1.697,-1.698,-1.700,-1.702,-1.704,-1.705,&
8901       -1.707,-1.709,-1.710,-1.712,-1.714,-1.715,-1.717,-1.719,-1.720,&
8902       -1.722,-1.724,-1.725,-1.727,-1.729,-1.730,-1.732,-1.733,-1.735,&
8903       -1.737,-1.738,-1.740,-1.741,-1.758,-1.774,-1.789,-1.803,-1.817,&
8904       -1.831,-1.845,-1.858,-1.871,-1.884,-1.896,-1.908,-1.920,-1.932,&
8905       -1.943,-1.954,-1.965,-1.976,-1.987,-1.997,-2.008,-2.018,-2.028,&
8906       -2.037,-2.047,-2.056,-2.066,-2.075,-2.084,-2.093,-2.102,-2.111,&
8907       -2.119,-2.128,-2.136,-2.144,-2.152,-2.161,-2.169,-2.176,-2.184,&
8908       -2.192,-2.200,-2.207,-2.215,-2.222,-2.230,-2.237,-2.244,-2.251,&
8909       -2.259,-2.266,-2.273,-2.280,-2.287,-2.293,-2.300,-2.307,-2.314,&
8910       -2.320,-2.327,-2.334,-2.340,-2.347,-2.353,-2.360,-2.366,-2.372,&
8911       -2.379,-2.385,-2.391,-2.397,-2.403,-2.410,-2.416,-2.422,-2.428,&
8912       -2.434,-2.440,-2.446,-2.452,-2.458,-2.464,-2.470,-2.475,-2.481,&
8913       -2.487,-2.493,-2.499,-2.504,-2.510,-2.516,-2.522,-2.527,-2.533,&
8914       -2.539,-2.544,-2.550,-2.555,-2.561,-2.566,-2.572,-2.578,-2.583,&
8915       -2.588,-2.594,-2.599,-2.605,-2.610,-2.616,-2.621,-2.627,-2.632,&
8916       -2.637,-2.643,-2.648,-2.653,-2.659,-2.664,-2.669,-2.675,-2.680,&
8917       -2.685,-2.690,-2.696,-2.701,-2.706,-2.711,-2.716,-2.722,-2.727,&
8918       -2.732,-2.737,-2.742,-2.748,-2.753,-2.758,-2.763,-2.768,-2.773,&
8919       -2.778,-2.783,-2.788,-2.794,-2.799,-2.804,-2.809,-2.814,-2.819,&
8920       -2.824,-2.829,-2.834,-2.839,-2.844,-2.849,-2.854,-2.859,-2.864,&
8921       -2.869,-2.874,-2.879                                           &
8922        /
8923 !C
8924 !C *** KCL
8925 !C
8926       DATA BNC20M/                                                   &
8927       -0.049,-0.105,-0.132,-0.151,-0.164,-0.176,-0.185,-0.193,-0.200,&
8928       -0.206,-0.211,-0.216,-0.221,-0.224,-0.228,-0.231,-0.234,-0.237,&
8929       -0.240,-0.242,-0.244,-0.246,-0.248,-0.250,-0.252,-0.253,-0.255,&
8930       -0.256,-0.257,-0.258,-0.260,-0.261,-0.262,-0.263,-0.264,-0.265,&
8931       -0.265,-0.266,-0.267,-0.268,-0.268,-0.269,-0.270,-0.270,-0.271,&
8932       -0.271,-0.272,-0.272,-0.273,-0.273,-0.274,-0.274,-0.275,-0.275,&
8933       -0.275,-0.276,-0.276,-0.276,-0.277,-0.277,-0.277,-0.278,-0.278,&
8934       -0.278,-0.278,-0.279,-0.279,-0.279,-0.279,-0.280,-0.280,-0.280,&
8935       -0.280,-0.280,-0.280,-0.280,-0.281,-0.281,-0.281,-0.281,-0.281,&
8936       -0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,&
8937       -0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.280,-0.280,&
8938       -0.280,-0.280,-0.280,-0.280,-0.280,-0.279,-0.279,-0.279,-0.279,&
8939       -0.279,-0.278,-0.278,-0.278,-0.278,-0.278,-0.277,-0.277,-0.277,&
8940       -0.277,-0.276,-0.276,-0.276,-0.276,-0.275,-0.275,-0.275,-0.275,&
8941       -0.274,-0.274,-0.274,-0.273,-0.273,-0.273,-0.273,-0.272,-0.272,&
8942       -0.272,-0.271,-0.271,-0.271,-0.270,-0.270,-0.270,-0.270,-0.269,&
8943       -0.269,-0.269,-0.268,-0.268,-0.268,-0.267,-0.267,-0.267,-0.267,&
8944       -0.266,-0.266,-0.266,-0.265,-0.265,-0.265,-0.264,-0.264,-0.264,&
8945       -0.263,-0.263,-0.263,-0.262,-0.262,-0.262,-0.262,-0.261,-0.261,&
8946       -0.261,-0.260,-0.260,-0.260,-0.259,-0.259,-0.259,-0.258,-0.258,&
8947       -0.258,-0.258,-0.257,-0.257,-0.257,-0.256,-0.256,-0.256,-0.255,&
8948       -0.255,-0.255,-0.254,-0.254,-0.254,-0.254,-0.253,-0.253,-0.253,&
8949       -0.252,-0.252,-0.252,-0.251,-0.251,-0.251,-0.251,-0.250,-0.250,&
8950       -0.250,-0.249,-0.249,-0.249,-0.248,-0.248,-0.248,-0.248,-0.247,&
8951       -0.247,-0.247,-0.246,-0.246,-0.246,-0.246,-0.245,-0.245,-0.245,&
8952       -0.244,-0.244,-0.244,-0.244,-0.243,-0.243,-0.243,-0.242,-0.242,&
8953       -0.242,-0.242,-0.241,-0.241,-0.241,-0.241,-0.240,-0.240,-0.240,&
8954       -0.239,-0.239,-0.239,-0.239,-0.238,-0.238,-0.238,-0.238,-0.237,&
8955       -0.237,-0.237,-0.236,-0.236,-0.236,-0.236,-0.235,-0.235,-0.235,&
8956       -0.235,-0.234,-0.234,-0.234,-0.234,-0.233,-0.233,-0.233,-0.233,&
8957       -0.232,-0.232,-0.232,-0.232,-0.231,-0.231,-0.231,-0.231,-0.230,&
8958       -0.230,-0.230,-0.230,-0.229,-0.229,-0.229,-0.229,-0.228,-0.228,&
8959       -0.228,-0.228,-0.227,-0.227,-0.227,-0.227,-0.226,-0.226,-0.226,&
8960       -0.226,-0.226,-0.225,-0.225,-0.225,-0.225,-0.224,-0.224,-0.224,&
8961       -0.224,-0.223,-0.223,-0.223,-0.223,-0.223,-0.222,-0.222,-0.222,&
8962       -0.222,-0.221,-0.221,-0.221,-0.221,-0.221,-0.220,-0.220,-0.220,&
8963       -0.220,-0.220,-0.219,-0.219,-0.219,-0.219,-0.218,-0.218,-0.218,&
8964       -0.218,-0.218,-0.217,-0.217,-0.217,-0.217,-0.217,-0.216,-0.216,&
8965       -0.216,-0.216,-0.216,-0.215,-0.215,-0.215,-0.215,-0.215,-0.215,&
8966       -0.214,-0.214,-0.214,-0.214,-0.214,-0.213,-0.213,-0.213,-0.213,&
8967       -0.213,-0.212,-0.212,-0.212,-0.212,-0.212,-0.212,-0.211,-0.211,&
8968       -0.211,-0.211,-0.211,-0.210,-0.210,-0.210,-0.210,-0.210,-0.210,&
8969       -0.209,-0.209,-0.209,-0.209,-0.209,-0.209,-0.208,-0.208,-0.208,&
8970       -0.208,-0.208,-0.208,-0.207,-0.207,-0.207,-0.207,-0.207,-0.207,&
8971       -0.206,-0.206,-0.206,-0.206,-0.204,-0.203,-0.202,-0.200,-0.199,&
8972       -0.198,-0.197,-0.196,-0.195,-0.194,-0.193,-0.192,-0.191,-0.190,&
8973       -0.190,-0.189,-0.189,-0.188,-0.188,-0.187,-0.187,-0.187,-0.186,&
8974       -0.186,-0.186,-0.186,-0.186,-0.186,-0.186,-0.186,-0.186,-0.186,&
8975       -0.186,-0.186,-0.187,-0.187,-0.187,-0.187,-0.188,-0.188,-0.189,&
8976       -0.189,-0.190,-0.190,-0.191,-0.191,-0.192,-0.193,-0.193,-0.194,&
8977       -0.195,-0.196,-0.196,-0.197,-0.198,-0.199,-0.200,-0.201,-0.202,&
8978       -0.203,-0.204,-0.205,-0.206,-0.207,-0.208,-0.209,-0.210,-0.212,&
8979       -0.213,-0.214,-0.215,-0.217,-0.218,-0.219,-0.220,-0.222,-0.223,&
8980       -0.225,-0.226,-0.227,-0.229,-0.230,-0.232,-0.233,-0.235,-0.236,&
8981       -0.238,-0.239,-0.241,-0.243,-0.244,-0.246,-0.247,-0.249,-0.251,&
8982       -0.252,-0.254,-0.256,-0.258,-0.259,-0.261,-0.263,-0.265,-0.266,&
8983       -0.268,-0.270,-0.272,-0.274,-0.276,-0.278,-0.280,-0.281,-0.283,&
8984       -0.285,-0.287,-0.289,-0.291,-0.293,-0.295,-0.297,-0.299,-0.301,&
8985       -0.303,-0.305,-0.307,-0.309,-0.311,-0.314,-0.316,-0.318,-0.320,&
8986       -0.322,-0.324,-0.326,-0.329,-0.331,-0.333,-0.335,-0.337,-0.340,&
8987       -0.342,-0.344,-0.346,-0.348,-0.351,-0.353,-0.355,-0.358,-0.360,&
8988       -0.362,-0.364,-0.367,-0.369,-0.371,-0.374,-0.376,-0.379,-0.381,&
8989       -0.383,-0.386,-0.388                                           &
8990        /
8991 !C
8992 !C *** MGSO4
8993 !C
8994       DATA BNC21M/                                                   &
8995       -0.200,-0.434,-0.550,-0.632,-0.696,-0.748,-0.793,-0.833,-0.868,&
8996       -0.900,-0.928,-0.955,-0.979,-1.002,-1.023,-1.043,-1.062,-1.079,&
8997       -1.096,-1.112,-1.127,-1.142,-1.156,-1.170,-1.182,-1.195,-1.207,&
8998       -1.218,-1.230,-1.241,-1.251,-1.261,-1.271,-1.281,-1.290,-1.300,&
8999       -1.309,-1.317,-1.326,-1.334,-1.342,-1.350,-1.358,-1.366,-1.373,&
9000       -1.381,-1.388,-1.395,-1.402,-1.409,-1.416,-1.422,-1.429,-1.435,&
9001       -1.442,-1.448,-1.454,-1.460,-1.466,-1.472,-1.478,-1.484,-1.489,&
9002       -1.495,-1.500,-1.506,-1.511,-1.517,-1.522,-1.527,-1.532,-1.537,&
9003       -1.542,-1.547,-1.552,-1.557,-1.562,-1.567,-1.571,-1.576,-1.581,&
9004       -1.585,-1.590,-1.594,-1.599,-1.603,-1.608,-1.612,-1.616,-1.620,&
9005       -1.625,-1.629,-1.633,-1.637,-1.641,-1.645,-1.649,-1.653,-1.657,&
9006       -1.661,-1.665,-1.669,-1.672,-1.676,-1.680,-1.684,-1.687,-1.691,&
9007       -1.695,-1.698,-1.702,-1.706,-1.709,-1.713,-1.716,-1.720,-1.723,&
9008       -1.727,-1.730,-1.733,-1.737,-1.740,-1.744,-1.747,-1.750,-1.753,&
9009       -1.757,-1.760,-1.763,-1.766,-1.770,-1.773,-1.776,-1.779,-1.782,&
9010       -1.786,-1.789,-1.792,-1.795,-1.798,-1.801,-1.804,-1.807,-1.810,&
9011       -1.813,-1.816,-1.819,-1.822,-1.825,-1.828,-1.831,-1.834,-1.837,&
9012       -1.840,-1.843,-1.846,-1.849,-1.851,-1.854,-1.857,-1.860,-1.863,&
9013       -1.866,-1.868,-1.871,-1.874,-1.877,-1.880,-1.882,-1.885,-1.888,&
9014       -1.891,-1.894,-1.896,-1.899,-1.902,-1.904,-1.907,-1.910,-1.913,&
9015       -1.915,-1.918,-1.921,-1.923,-1.926,-1.929,-1.931,-1.934,-1.936,&
9016       -1.939,-1.942,-1.944,-1.947,-1.950,-1.952,-1.955,-1.957,-1.960,&
9017       -1.962,-1.965,-1.968,-1.970,-1.973,-1.975,-1.978,-1.980,-1.983,&
9018       -1.985,-1.988,-1.990,-1.993,-1.995,-1.998,-2.000,-2.003,-2.005,&
9019       -2.008,-2.010,-2.013,-2.015,-2.018,-2.020,-2.023,-2.025,-2.028,&
9020       -2.030,-2.032,-2.035,-2.037,-2.040,-2.042,-2.044,-2.047,-2.049,&
9021       -2.052,-2.054,-2.057,-2.059,-2.061,-2.064,-2.066,-2.068,-2.071,&
9022       -2.073,-2.076,-2.078,-2.080,-2.083,-2.085,-2.087,-2.090,-2.092,&
9023       -2.094,-2.097,-2.099,-2.101,-2.104,-2.106,-2.108,-2.111,-2.113,&
9024       -2.115,-2.118,-2.120,-2.122,-2.124,-2.127,-2.129,-2.131,-2.134,&
9025       -2.136,-2.138,-2.141,-2.143,-2.145,-2.147,-2.150,-2.152,-2.154,&
9026       -2.156,-2.159,-2.161,-2.163,-2.165,-2.168,-2.170,-2.172,-2.174,&
9027       -2.177,-2.179,-2.181,-2.183,-2.186,-2.188,-2.190,-2.192,-2.195,&
9028       -2.197,-2.199,-2.201,-2.203,-2.206,-2.208,-2.210,-2.212,-2.214,&
9029       -2.217,-2.219,-2.221,-2.223,-2.225,-2.228,-2.230,-2.232,-2.234,&
9030       -2.236,-2.239,-2.241,-2.243,-2.245,-2.247,-2.249,-2.252,-2.254,&
9031       -2.256,-2.258,-2.260,-2.262,-2.265,-2.267,-2.269,-2.271,-2.273,&
9032       -2.275,-2.278,-2.280,-2.282,-2.284,-2.286,-2.288,-2.290,-2.293,&
9033       -2.295,-2.297,-2.299,-2.301,-2.303,-2.305,-2.308,-2.310,-2.312,&
9034       -2.314,-2.316,-2.318,-2.320,-2.322,-2.325,-2.327,-2.329,-2.331,&
9035       -2.333,-2.335,-2.337,-2.339,-2.341,-2.344,-2.346,-2.348,-2.350,&
9036       -2.352,-2.354,-2.356,-2.358,-2.360,-2.362,-2.365,-2.367,-2.369,&
9037       -2.371,-2.373,-2.375,-2.377,-2.379,-2.381,-2.383,-2.385,-2.388,&
9038       -2.390,-2.392,-2.394,-2.396,-2.398,-2.400,-2.402,-2.404,-2.406,&
9039       -2.408,-2.410,-2.412,-2.415,-2.437,-2.457,-2.478,-2.498,-2.518,&
9040       -2.539,-2.559,-2.579,-2.599,-2.619,-2.638,-2.658,-2.678,-2.698,&
9041       -2.717,-2.737,-2.756,-2.776,-2.795,-2.815,-2.834,-2.854,-2.873,&
9042       -2.892,-2.911,-2.931,-2.950,-2.969,-2.988,-3.007,-3.026,-3.045,&
9043       -3.064,-3.083,-3.102,-3.121,-3.140,-3.159,-3.178,-3.197,-3.215,&
9044       -3.234,-3.253,-3.272,-3.291,-3.309,-3.328,-3.347,-3.365,-3.384,&
9045       -3.403,-3.421,-3.440,-3.459,-3.477,-3.496,-3.514,-3.533,-3.551,&
9046       -3.570,-3.588,-3.607,-3.625,-3.644,-3.662,-3.681,-3.699,-3.718,&
9047       -3.736,-3.754,-3.773,-3.791,-3.810,-3.828,-3.846,-3.865,-3.883,&
9048       -3.901,-3.920,-3.938,-3.956,-3.974,-3.993,-4.011,-4.029,-4.047,&
9049       -4.066,-4.084,-4.102,-4.120,-4.139,-4.157,-4.175,-4.193,-4.211,&
9050       -4.229,-4.248,-4.266,-4.284,-4.302,-4.320,-4.338,-4.356,-4.374,&
9051       -4.392,-4.411,-4.429,-4.447,-4.465,-4.483,-4.501,-4.519,-4.537,&
9052       -4.555,-4.573,-4.591,-4.609,-4.627,-4.645,-4.663,-4.681,-4.699,&
9053       -4.717,-4.735,-4.753,-4.771,-4.789,-4.807,-4.825,-4.842,-4.860,&
9054       -4.878,-4.896,-4.914,-4.932,-4.950,-4.968,-4.986,-5.004,-5.021,&
9055       -5.039,-5.057,-5.075,-5.093,-5.111,-5.129,-5.146,-5.164,-5.182,&
9056       -5.200,-5.218,-5.235,-5.253,-5.271,-5.289,-5.307,-5.324,-5.342,&
9057       -5.360,-5.378,-5.395                                           &
9058        /
9059 !C
9060 !C *** MGNO32
9061 !C
9062       DATA BNC22M/                                                   &
9063       -0.097,-0.201,-0.248,-0.278,-0.300,-0.316,-0.329,-0.339,-0.347,&
9064       -0.354,-0.359,-0.363,-0.366,-0.369,-0.370,-0.372,-0.372,-0.373,&
9065       -0.372,-0.372,-0.371,-0.370,-0.369,-0.367,-0.366,-0.364,-0.362,&
9066       -0.359,-0.357,-0.354,-0.352,-0.349,-0.346,-0.344,-0.341,-0.338,&
9067       -0.334,-0.331,-0.328,-0.325,-0.322,-0.318,-0.315,-0.312,-0.308,&
9068       -0.305,-0.301,-0.298,-0.294,-0.291,-0.287,-0.284,-0.280,-0.277,&
9069       -0.273,-0.270,-0.266,-0.263,-0.259,-0.256,-0.252,-0.248,-0.245,&
9070       -0.241,-0.238,-0.234,-0.230,-0.227,-0.223,-0.219,-0.216,-0.212,&
9071       -0.208,-0.204,-0.201,-0.197,-0.193,-0.189,-0.185,-0.181,-0.177,&
9072       -0.173,-0.169,-0.165,-0.161,-0.157,-0.153,-0.149,-0.145,-0.141,&
9073       -0.136,-0.132,-0.128,-0.123,-0.119,-0.115,-0.110,-0.106,-0.101,&
9074       -0.097,-0.092,-0.087,-0.083,-0.078,-0.073,-0.069,-0.064,-0.059,&
9075       -0.055,-0.050,-0.045,-0.040,-0.035,-0.031,-0.026,-0.021,-0.016,&
9076       -0.011,-0.006,-0.001, 0.003, 0.008, 0.013, 0.018, 0.023, 0.028,&
9077        0.033, 0.038, 0.043, 0.048, 0.052, 0.057, 0.062, 0.067, 0.072,&
9078        0.077, 0.082, 0.087, 0.092, 0.097, 0.101, 0.106, 0.111, 0.116,&
9079        0.121, 0.126, 0.131, 0.135, 0.140, 0.145, 0.150, 0.155, 0.160,&
9080        0.164, 0.169, 0.174, 0.179, 0.184, 0.188, 0.193, 0.198, 0.203,&
9081        0.207, 0.212, 0.217, 0.222, 0.226, 0.231, 0.236, 0.241, 0.245,&
9082        0.250, 0.255, 0.259, 0.264, 0.269, 0.273, 0.278, 0.283, 0.287,&
9083        0.292, 0.297, 0.301, 0.306, 0.311, 0.315, 0.320, 0.324, 0.329,&
9084        0.333, 0.338, 0.343, 0.347, 0.352, 0.356, 0.361, 0.365, 0.370,&
9085        0.374, 0.379, 0.383, 0.388, 0.392, 0.397, 0.401, 0.406, 0.410,&
9086        0.414, 0.419, 0.423, 0.428, 0.432, 0.437, 0.441, 0.445, 0.450,&
9087        0.454, 0.458, 0.463, 0.467, 0.472, 0.476, 0.480, 0.484, 0.489,&
9088        0.493, 0.497, 0.502, 0.506, 0.510, 0.514, 0.519, 0.523, 0.527,&
9089        0.531, 0.536, 0.540, 0.544, 0.548, 0.553, 0.557, 0.561, 0.565,&
9090        0.569, 0.573, 0.578, 0.582, 0.586, 0.590, 0.594, 0.598, 0.602,&
9091        0.606, 0.610, 0.615, 0.619, 0.623, 0.627, 0.631, 0.635, 0.639,&
9092        0.643, 0.647, 0.651, 0.655, 0.659, 0.663, 0.667, 0.671, 0.675,&
9093        0.679, 0.683, 0.687, 0.691, 0.695, 0.699, 0.703, 0.706, 0.710,&
9094        0.714, 0.718, 0.722, 0.726, 0.730, 0.734, 0.738, 0.741, 0.745,&
9095        0.749, 0.753, 0.757, 0.761, 0.764, 0.768, 0.772, 0.776, 0.779,&
9096        0.783, 0.787, 0.791, 0.795, 0.798, 0.802, 0.806, 0.809, 0.813,&
9097        0.817, 0.821, 0.824, 0.828, 0.832, 0.835, 0.839, 0.843, 0.846,&
9098        0.850, 0.854, 0.857, 0.861, 0.865, 0.868, 0.872, 0.875, 0.879,&
9099        0.883, 0.886, 0.890, 0.893, 0.897, 0.900, 0.904, 0.907, 0.911,&
9100        0.915, 0.918, 0.922, 0.925, 0.929, 0.932, 0.936, 0.939, 0.943,&
9101        0.946, 0.950, 0.953, 0.956, 0.960, 0.963, 0.967, 0.970, 0.974,&
9102        0.977, 0.980, 0.984, 0.987, 0.991, 0.994, 0.997, 1.001, 1.004,&
9103        1.007, 1.011, 1.014, 1.018, 1.021, 1.024, 1.028, 1.031, 1.034,&
9104        1.037, 1.041, 1.044, 1.047, 1.051, 1.054, 1.057, 1.060, 1.064,&
9105        1.067, 1.070, 1.073, 1.077, 1.080, 1.083, 1.086, 1.090, 1.093,&
9106        1.096, 1.099, 1.102, 1.106, 1.109, 1.112, 1.115, 1.118, 1.121,&
9107        1.125, 1.128, 1.131, 1.134, 1.167, 1.198, 1.228, 1.257, 1.286,&
9108        1.314, 1.342, 1.370, 1.397, 1.423, 1.449, 1.475, 1.500, 1.525,&
9109        1.549, 1.573, 1.597, 1.620, 1.643, 1.665, 1.687, 1.709, 1.730,&
9110        1.751, 1.772, 1.793, 1.813, 1.833, 1.852, 1.871, 1.890, 1.909,&
9111        1.927, 1.945, 1.963, 1.981, 1.998, 2.015, 2.032, 2.049, 2.065,&
9112        2.081, 2.097, 2.112, 2.128, 2.143, 2.158, 2.173, 2.187, 2.202,&
9113        2.216, 2.230, 2.244, 2.257, 2.271, 2.284, 2.297, 2.310, 2.322,&
9114        2.335, 2.347, 2.359, 2.371, 2.383, 2.395, 2.406, 2.418, 2.429,&
9115        2.440, 2.451, 2.462, 2.472, 2.483, 2.493, 2.503, 2.513, 2.523,&
9116        2.533, 2.543, 2.552, 2.562, 2.571, 2.580, 2.589, 2.598, 2.607,&
9117        2.616, 2.624, 2.633, 2.641, 2.650, 2.658, 2.666, 2.674, 2.681,&
9118        2.689, 2.697, 2.704, 2.712, 2.719, 2.726, 2.733, 2.740, 2.747,&
9119        2.754, 2.761, 2.768, 2.774, 2.781, 2.787, 2.793, 2.800, 2.806,&
9120        2.812, 2.818, 2.824, 2.830, 2.835, 2.841, 2.847, 2.852, 2.858,&
9121        2.863, 2.868, 2.873, 2.879, 2.884, 2.889, 2.893, 2.898, 2.903,&
9122        2.908, 2.912, 2.917, 2.922, 2.926, 2.930, 2.935, 2.939, 2.943,&
9123        2.947, 2.951, 2.955, 2.959, 2.963, 2.967, 2.971, 2.974, 2.978,&
9124        2.982, 2.985, 2.989, 2.992, 2.996, 2.999, 3.002, 3.005, 3.009,&
9125        3.012, 3.015, 3.018                                           &
9126        /
9127 !C
9128 !C *** MGCL2
9129 !C
9130       DATA BNC23M/                                                   &
9131       -0.096,-0.198,-0.242,-0.270,-0.290,-0.304,-0.315,-0.323,-0.329,&
9132       -0.333,-0.337,-0.339,-0.340,-0.341,-0.340,-0.340,-0.339,-0.337,&
9133       -0.335,-0.333,-0.330,-0.327,-0.324,-0.320,-0.317,-0.313,-0.309,&
9134       -0.305,-0.301,-0.296,-0.292,-0.287,-0.283,-0.278,-0.273,-0.268,&
9135       -0.263,-0.258,-0.253,-0.248,-0.243,-0.238,-0.233,-0.228,-0.222,&
9136       -0.217,-0.212,-0.207,-0.202,-0.196,-0.191,-0.186,-0.180,-0.175,&
9137       -0.170,-0.164,-0.159,-0.154,-0.149,-0.143,-0.138,-0.133,-0.127,&
9138       -0.122,-0.117,-0.111,-0.106,-0.100,-0.095,-0.090,-0.084,-0.079,&
9139       -0.073,-0.068,-0.062,-0.057,-0.051,-0.045,-0.040,-0.034,-0.028,&
9140       -0.023,-0.017,-0.011,-0.005, 0.001, 0.007, 0.013, 0.019, 0.025,&
9141        0.031, 0.037, 0.043, 0.049, 0.055, 0.062, 0.068, 0.074, 0.081,&
9142        0.087, 0.094, 0.100, 0.107, 0.113, 0.120, 0.126, 0.133, 0.140,&
9143        0.146, 0.153, 0.160, 0.166, 0.173, 0.180, 0.187, 0.193, 0.200,&
9144        0.207, 0.214, 0.220, 0.227, 0.234, 0.241, 0.248, 0.255, 0.261,&
9145        0.268, 0.275, 0.282, 0.289, 0.296, 0.302, 0.309, 0.316, 0.323,&
9146        0.330, 0.337, 0.343, 0.350, 0.357, 0.364, 0.371, 0.377, 0.384,&
9147        0.391, 0.398, 0.404, 0.411, 0.418, 0.425, 0.431, 0.438, 0.445,&
9148        0.451, 0.458, 0.465, 0.471, 0.478, 0.485, 0.491, 0.498, 0.505,&
9149        0.511, 0.518, 0.524, 0.531, 0.537, 0.544, 0.551, 0.557, 0.564,&
9150        0.570, 0.577, 0.583, 0.590, 0.596, 0.603, 0.609, 0.616, 0.622,&
9151        0.628, 0.635, 0.641, 0.648, 0.654, 0.660, 0.667, 0.673, 0.679,&
9152        0.686, 0.692, 0.698, 0.705, 0.711, 0.717, 0.724, 0.730, 0.736,&
9153        0.742, 0.749, 0.755, 0.761, 0.767, 0.773, 0.780, 0.786, 0.792,&
9154        0.798, 0.804, 0.810, 0.816, 0.823, 0.829, 0.835, 0.841, 0.847,&
9155        0.853, 0.859, 0.865, 0.871, 0.877, 0.883, 0.889, 0.895, 0.901,&
9156        0.907, 0.913, 0.919, 0.925, 0.931, 0.937, 0.942, 0.948, 0.954,&
9157        0.960, 0.966, 0.972, 0.978, 0.983, 0.989, 0.995, 1.001, 1.007,&
9158        1.012, 1.018, 1.024, 1.030, 1.035, 1.041, 1.047, 1.052, 1.058,&
9159        1.064, 1.069, 1.075, 1.081, 1.086, 1.092, 1.098, 1.103, 1.109,&
9160        1.114, 1.120, 1.125, 1.131, 1.136, 1.142, 1.148, 1.153, 1.159,&
9161        1.164, 1.169, 1.175, 1.180, 1.186, 1.191, 1.197, 1.202, 1.208,&
9162        1.213, 1.218, 1.224, 1.229, 1.234, 1.240, 1.245, 1.250, 1.256,&
9163        1.261, 1.266, 1.272, 1.277, 1.282, 1.287, 1.293, 1.298, 1.303,&
9164        1.308, 1.314, 1.319, 1.324, 1.329, 1.334, 1.339, 1.345, 1.350,&
9165        1.355, 1.360, 1.365, 1.370, 1.375, 1.380, 1.385, 1.390, 1.396,&
9166        1.401, 1.406, 1.411, 1.416, 1.421, 1.426, 1.431, 1.436, 1.441,&
9167        1.446, 1.451, 1.456, 1.460, 1.465, 1.470, 1.475, 1.480, 1.485,&
9168        1.490, 1.495, 1.500, 1.504, 1.509, 1.514, 1.519, 1.524, 1.529,&
9169        1.533, 1.538, 1.543, 1.548, 1.553, 1.557, 1.562, 1.567, 1.572,&
9170        1.576, 1.581, 1.586, 1.590, 1.595, 1.600, 1.604, 1.609, 1.614,&
9171        1.618, 1.623, 1.628, 1.632, 1.637, 1.642, 1.646, 1.651, 1.655,&
9172        1.660, 1.664, 1.669, 1.674, 1.678, 1.683, 1.687, 1.692, 1.696,&
9173        1.701, 1.705, 1.710, 1.714, 1.719, 1.723, 1.728, 1.732, 1.736,&
9174        1.741, 1.745, 1.750, 1.754, 1.759, 1.763, 1.767, 1.772, 1.776,&
9175        1.780, 1.785, 1.789, 1.793, 1.840, 1.882, 1.923, 1.964, 2.004,&
9176        2.044, 2.082, 2.120, 2.158, 2.195, 2.231, 2.267, 2.302, 2.336,&
9177        2.370, 2.404, 2.437, 2.469, 2.501, 2.533, 2.564, 2.594, 2.624,&
9178        2.654, 2.683, 2.712, 2.741, 2.768, 2.796, 2.823, 2.850, 2.877,&
9179        2.903, 2.928, 2.954, 2.979, 3.003, 3.028, 3.052, 3.076, 3.099,&
9180        3.122, 3.145, 3.167, 3.190, 3.211, 3.233, 3.254, 3.276, 3.296,&
9181        3.317, 3.337, 3.357, 3.377, 3.397, 3.416, 3.435, 3.454, 3.473,&
9182        3.491, 3.509, 3.527, 3.545, 3.563, 3.580, 3.597, 3.614, 3.631,&
9183        3.647, 3.664, 3.680, 3.696, 3.712, 3.727, 3.743, 3.758, 3.773,&
9184        3.788, 3.803, 3.817, 3.832, 3.846, 3.860, 3.874, 3.888, 3.902,&
9185        3.915, 3.928, 3.942, 3.955, 3.968, 3.980, 3.993, 4.006, 4.018,&
9186        4.030, 4.042, 4.054, 4.066, 4.078, 4.089, 4.101, 4.112, 4.123,&
9187        4.134, 4.145, 4.156, 4.167, 4.178, 4.188, 4.199, 4.209, 4.219,&
9188        4.229, 4.239, 4.249, 4.259, 4.269, 4.278, 4.288, 4.297, 4.306,&
9189        4.316, 4.325, 4.334, 4.343, 4.351, 4.360, 4.369, 4.377, 4.386,&
9190        4.394, 4.402, 4.411, 4.419, 4.427, 4.435, 4.442, 4.450, 4.458,&
9191        4.466, 4.473, 4.480, 4.488, 4.495, 4.502, 4.510, 4.517, 4.524,&
9192        4.531, 4.537, 4.544, 4.551, 4.558, 4.564, 4.571, 4.577, 4.583,&
9193        4.590, 4.596, 4.602                                           &
9194        /
9195       END
9196 !C
9197 !C=======================================================================
9198 !C
9199 !C *** ISORROPIA CODE
9200 !C *** SUBROUTINE KM248
9201 !C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD.
9202 !C     THE COMPUTATIONS HAVE BEEN PERFORMED AND THE RESULTS ARE STORED IN
9203 !C     LOOKUP TABLES. THE IONIC ACTIVITY 'IN' IS INPUT, AND THE ARRAY
9204 !C     'BINARR' IS RETURNED WITH THE BINARY COEFFICIENTS.
9205 !C
9206 !C     TEMPERATURE IS 248K
9207 !C
9208 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
9209 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
9210 !C *** WRITTEN BY ATHANASIOS NENES
9211 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
9212 !C
9213 !C=======================================================================
9214 !C
9215       SUBROUTINE KM2482p1 (IONIC, BINARR)
9216 !C
9217 !C *** Common block definition
9218 !C
9219       COMMON /KMC2482p1/                                         &
9220       BNC01M(  561),BNC02M(  561),BNC03M(  561),BNC04M(  561),&
9221       BNC05M(  561),BNC06M(  561),BNC07M(  561),BNC08M(  561),&
9222       BNC09M(  561),BNC10M(  561),BNC11M(  561),BNC12M(  561),&
9223       BNC13M(  561),BNC14M(  561),BNC15M(  561),BNC16M(  561),&
9224       BNC17M(  561),BNC18M(  561),BNC19M(  561),BNC20M(  561),&
9225       BNC21M(  561),BNC22M(  561),BNC23M(  561)
9226       REAL Binarr (23), Ionic
9227 !C
9228 !C *** Find position in arrays for bincoef
9229 !C
9230       IF (Ionic.LE. 0.200000E+02) THEN
9231          ipos = MIN(NINT( 0.200000E+02*Ionic) + 1,  400)
9232       ELSE
9233          ipos =   400+NINT( 0.200000E+01*Ionic- 0.400000E+02)
9234       ENDIF
9235       ipos = min(ipos,  561)
9236 !C
9237 !C *** Assign values to return array
9238 !C
9239       Binarr(01) = BNC01M(ipos)
9240       Binarr(02) = BNC02M(ipos)
9241       Binarr(03) = BNC03M(ipos)
9242       Binarr(04) = BNC04M(ipos)
9243       Binarr(05) = BNC05M(ipos)
9244       Binarr(06) = BNC06M(ipos)
9245       Binarr(07) = BNC07M(ipos)
9246       Binarr(08) = BNC08M(ipos)
9247       Binarr(09) = BNC09M(ipos)
9248       Binarr(10) = BNC10M(ipos)
9249       Binarr(11) = BNC11M(ipos)
9250       Binarr(12) = BNC12M(ipos)
9251       Binarr(13) = BNC13M(ipos)
9252       Binarr(14) = BNC14M(ipos)
9253       Binarr(15) = BNC15M(ipos)
9254       Binarr(16) = BNC16M(ipos)
9255       Binarr(17) = BNC17M(ipos)
9256       Binarr(18) = BNC18M(ipos)
9257       Binarr(19) = BNC19M(ipos)
9258       Binarr(20) = BNC20M(ipos)
9259       Binarr(21) = BNC21M(ipos)
9260       Binarr(22) = BNC22M(ipos)
9261       Binarr(23) = BNC23M(ipos)
9262 !C
9263 !C *** Return point ; End of subroutine
9264 !C
9265       RETURN
9266       END
9267
9268
9269       BLOCK DATA KMCF2482p1
9270 !C
9271 !C *** Common block definition
9272 !C
9273       COMMON /KMC2482p1/                                         &
9274       BNC01M(  561),BNC02M(  561),BNC03M(  561),BNC04M(  561),&
9275       BNC05M(  561),BNC06M(  561),BNC07M(  561),BNC08M(  561),&
9276       BNC09M(  561),BNC10M(  561),BNC11M(  561),BNC12M(  561),&
9277       BNC13M(  561),BNC14M(  561),BNC15M(  561),BNC16M(  561),&
9278       BNC17M(  561),BNC18M(  561),BNC19M(  561),BNC20M(  561),&
9279       BNC21M(  561),BNC22M(  561),BNC23M(  561)
9280
9281 !C
9282 !C *** NaCl
9283 !C
9284       DATA BNC01M/                                                   &
9285       -0.047,-0.099,-0.122,-0.137,-0.148,-0.156,-0.163,-0.168,-0.172,&
9286       -0.176,-0.178,-0.181,-0.182,-0.184,-0.185,-0.186,-0.186,-0.187,&
9287       -0.187,-0.187,-0.187,-0.187,-0.186,-0.186,-0.185,-0.184,-0.184,&
9288       -0.183,-0.182,-0.181,-0.180,-0.179,-0.178,-0.176,-0.175,-0.174,&
9289       -0.173,-0.171,-0.170,-0.168,-0.167,-0.166,-0.164,-0.163,-0.161,&
9290       -0.160,-0.158,-0.157,-0.155,-0.154,-0.152,-0.151,-0.149,-0.148,&
9291       -0.146,-0.145,-0.143,-0.141,-0.140,-0.138,-0.137,-0.135,-0.134,&
9292       -0.132,-0.130,-0.129,-0.127,-0.126,-0.124,-0.122,-0.121,-0.119,&
9293       -0.117,-0.116,-0.114,-0.112,-0.111,-0.109,-0.107,-0.105,-0.104,&
9294       -0.102,-0.100,-0.098,-0.096,-0.095,-0.093,-0.091,-0.089,-0.087,&
9295       -0.085,-0.083,-0.081,-0.079,-0.077,-0.075,-0.073,-0.071,-0.069,&
9296       -0.067,-0.065,-0.063,-0.061,-0.059,-0.057,-0.055,-0.053,-0.051,&
9297       -0.048,-0.046,-0.044,-0.042,-0.040,-0.038,-0.036,-0.033,-0.031,&
9298       -0.029,-0.027,-0.025,-0.022,-0.020,-0.018,-0.016,-0.014,-0.011,&
9299       -0.009,-0.007,-0.005,-0.003, 0.000, 0.002, 0.004, 0.006, 0.008,&
9300        0.011, 0.013, 0.015, 0.017, 0.020, 0.022, 0.024, 0.026, 0.028,&
9301        0.030, 0.033, 0.035, 0.037, 0.039, 0.041, 0.044, 0.046, 0.048,&
9302        0.050, 0.052, 0.054, 0.057, 0.059, 0.061, 0.063, 0.065, 0.067,&
9303        0.070, 0.072, 0.074, 0.076, 0.078, 0.080, 0.082, 0.085, 0.087,&
9304        0.089, 0.091, 0.093, 0.095, 0.097, 0.099, 0.102, 0.104, 0.106,&
9305        0.108, 0.110, 0.112, 0.114, 0.116, 0.118, 0.120, 0.122, 0.125,&
9306        0.127, 0.129, 0.131, 0.133, 0.135, 0.137, 0.139, 0.141, 0.143,&
9307        0.145, 0.147, 0.149, 0.151, 0.153, 0.155, 0.157, 0.159, 0.161,&
9308        0.163, 0.165, 0.167, 0.169, 0.171, 0.173, 0.175, 0.177, 0.179,&
9309        0.181, 0.183, 0.185, 0.187, 0.189, 0.191, 0.193, 0.195, 0.197,&
9310        0.199, 0.201, 0.203, 0.205, 0.207, 0.209, 0.211, 0.213, 0.215,&
9311        0.217, 0.219, 0.221, 0.223, 0.224, 0.226, 0.228, 0.230, 0.232,&
9312        0.234, 0.236, 0.238, 0.240, 0.242, 0.243, 0.245, 0.247, 0.249,&
9313        0.251, 0.253, 0.255, 0.257, 0.258, 0.260, 0.262, 0.264, 0.266,&
9314        0.268, 0.270, 0.271, 0.273, 0.275, 0.277, 0.279, 0.281, 0.282,&
9315        0.284, 0.286, 0.288, 0.290, 0.291, 0.293, 0.295, 0.297, 0.299,&
9316        0.300, 0.302, 0.304, 0.306, 0.308, 0.309, 0.311, 0.313, 0.315,&
9317        0.316, 0.318, 0.320, 0.322, 0.323, 0.325, 0.327, 0.329, 0.330,&
9318        0.332, 0.334, 0.336, 0.337, 0.339, 0.341, 0.342, 0.344, 0.346,&
9319        0.348, 0.349, 0.351, 0.353, 0.354, 0.356, 0.358, 0.359, 0.361,&
9320        0.363, 0.364, 0.366, 0.368, 0.370, 0.371, 0.373, 0.374, 0.376,&
9321        0.378, 0.379, 0.381, 0.383, 0.384, 0.386, 0.388, 0.389, 0.391,&
9322        0.393, 0.394, 0.396, 0.397, 0.399, 0.401, 0.402, 0.404, 0.406,&
9323        0.407, 0.409, 0.410, 0.412, 0.414, 0.415, 0.417, 0.418, 0.420,&
9324        0.421, 0.423, 0.425, 0.426, 0.428, 0.429, 0.431, 0.433, 0.434,&
9325        0.436, 0.437, 0.439, 0.440, 0.442, 0.443, 0.445, 0.446, 0.448,&
9326        0.450, 0.451, 0.453, 0.454, 0.456, 0.457, 0.459, 0.460, 0.462,&
9327        0.463, 0.465, 0.466, 0.468, 0.469, 0.471, 0.472, 0.474, 0.475,&
9328        0.477, 0.478, 0.480, 0.481, 0.483, 0.484, 0.486, 0.487, 0.489,&
9329        0.490, 0.491, 0.493, 0.494, 0.510, 0.524, 0.538, 0.552, 0.566,&
9330        0.579, 0.592, 0.605, 0.618, 0.630, 0.642, 0.655, 0.667, 0.678,&
9331        0.690, 0.701, 0.713, 0.724, 0.735, 0.745, 0.756, 0.766, 0.777,&
9332        0.787, 0.797, 0.807, 0.817, 0.826, 0.836, 0.845, 0.854, 0.864,&
9333        0.873, 0.881, 0.890, 0.899, 0.907, 0.916, 0.924, 0.932, 0.940,&
9334        0.948, 0.956, 0.964, 0.972, 0.979, 0.987, 0.994, 1.002, 1.009,&
9335        1.016, 1.023, 1.030, 1.037, 1.044, 1.051, 1.057, 1.064, 1.070,&
9336        1.077, 1.083, 1.089, 1.096, 1.102, 1.108, 1.114, 1.120, 1.126,&
9337        1.132, 1.137, 1.143, 1.149, 1.154, 1.160, 1.165, 1.170, 1.176,&
9338        1.181, 1.186, 1.191, 1.196, 1.201, 1.206, 1.211, 1.216, 1.221,&
9339        1.226, 1.231, 1.235, 1.240, 1.244, 1.249, 1.253, 1.258, 1.262,&
9340        1.267, 1.271, 1.275, 1.279, 1.284, 1.288, 1.292, 1.296, 1.300,&
9341        1.304, 1.308, 1.312, 1.315, 1.319, 1.323, 1.327, 1.330, 1.334,&
9342        1.338, 1.341, 1.345, 1.348, 1.352, 1.355, 1.358, 1.362, 1.365,&
9343        1.368, 1.372, 1.375, 1.378, 1.381, 1.384, 1.388, 1.391, 1.394,&
9344        1.397, 1.400, 1.403, 1.406, 1.409, 1.411, 1.414, 1.417, 1.420,&
9345        1.423, 1.425, 1.428, 1.431, 1.433, 1.436, 1.439, 1.441, 1.444,&
9346        1.446, 1.449, 1.451, 1.454, 1.456, 1.458, 1.461, 1.463, 1.466,&
9347        1.468, 1.470, 1.472                                           &
9348        /
9349 !C
9350 !C *** Na2SO4
9351 !C
9352       DATA BNC02M/                                                   &
9353       -0.098,-0.214,-0.272,-0.313,-0.346,-0.373,-0.396,-0.417,-0.435,&
9354       -0.452,-0.467,-0.481,-0.494,-0.506,-0.518,-0.529,-0.539,-0.549,&
9355       -0.558,-0.567,-0.575,-0.583,-0.591,-0.599,-0.606,-0.613,-0.620,&
9356       -0.627,-0.633,-0.639,-0.645,-0.651,-0.657,-0.662,-0.668,-0.673,&
9357       -0.678,-0.683,-0.688,-0.693,-0.698,-0.703,-0.707,-0.712,-0.716,&
9358       -0.721,-0.725,-0.729,-0.733,-0.737,-0.741,-0.745,-0.749,-0.753,&
9359       -0.756,-0.760,-0.764,-0.767,-0.771,-0.774,-0.778,-0.781,-0.784,&
9360       -0.788,-0.791,-0.794,-0.797,-0.801,-0.804,-0.807,-0.810,-0.813,&
9361       -0.816,-0.819,-0.822,-0.825,-0.827,-0.830,-0.833,-0.836,-0.839,&
9362       -0.841,-0.844,-0.847,-0.850,-0.852,-0.855,-0.858,-0.860,-0.863,&
9363       -0.865,-0.868,-0.871,-0.873,-0.876,-0.878,-0.881,-0.883,-0.885,&
9364       -0.888,-0.890,-0.893,-0.895,-0.897,-0.900,-0.902,-0.905,-0.907,&
9365       -0.909,-0.911,-0.914,-0.916,-0.918,-0.921,-0.923,-0.925,-0.927,&
9366       -0.929,-0.932,-0.934,-0.936,-0.938,-0.940,-0.942,-0.945,-0.947,&
9367       -0.949,-0.951,-0.953,-0.955,-0.957,-0.959,-0.961,-0.963,-0.965,&
9368       -0.967,-0.969,-0.971,-0.973,-0.975,-0.977,-0.979,-0.981,-0.983,&
9369       -0.985,-0.987,-0.989,-0.991,-0.993,-0.995,-0.997,-0.999,-1.001,&
9370       -1.002,-1.004,-1.006,-1.008,-1.010,-1.012,-1.014,-1.015,-1.017,&
9371       -1.019,-1.021,-1.023,-1.025,-1.026,-1.028,-1.030,-1.032,-1.033,&
9372       -1.035,-1.037,-1.039,-1.040,-1.042,-1.044,-1.046,-1.047,-1.049,&
9373       -1.051,-1.053,-1.054,-1.056,-1.058,-1.059,-1.061,-1.063,-1.064,&
9374       -1.066,-1.068,-1.069,-1.071,-1.073,-1.074,-1.076,-1.078,-1.079,&
9375       -1.081,-1.082,-1.084,-1.086,-1.087,-1.089,-1.090,-1.092,-1.094,&
9376       -1.095,-1.097,-1.098,-1.100,-1.102,-1.103,-1.105,-1.106,-1.108,&
9377       -1.109,-1.111,-1.112,-1.114,-1.116,-1.117,-1.119,-1.120,-1.122,&
9378       -1.123,-1.125,-1.126,-1.128,-1.129,-1.131,-1.132,-1.134,-1.135,&
9379       -1.137,-1.138,-1.140,-1.141,-1.143,-1.144,-1.146,-1.147,-1.148,&
9380       -1.150,-1.151,-1.153,-1.154,-1.156,-1.157,-1.159,-1.160,-1.161,&
9381       -1.163,-1.164,-1.166,-1.167,-1.169,-1.170,-1.171,-1.173,-1.174,&
9382       -1.176,-1.177,-1.178,-1.180,-1.181,-1.183,-1.184,-1.185,-1.187,&
9383       -1.188,-1.190,-1.191,-1.192,-1.194,-1.195,-1.196,-1.198,-1.199,&
9384       -1.201,-1.202,-1.203,-1.205,-1.206,-1.207,-1.209,-1.210,-1.211,&
9385       -1.213,-1.214,-1.215,-1.217,-1.218,-1.219,-1.221,-1.222,-1.223,&
9386       -1.225,-1.226,-1.227,-1.229,-1.230,-1.231,-1.233,-1.234,-1.235,&
9387       -1.236,-1.238,-1.239,-1.240,-1.242,-1.243,-1.244,-1.246,-1.247,&
9388       -1.248,-1.249,-1.251,-1.252,-1.253,-1.255,-1.256,-1.257,-1.258,&
9389       -1.260,-1.261,-1.262,-1.263,-1.265,-1.266,-1.267,-1.268,-1.270,&
9390       -1.271,-1.272,-1.273,-1.275,-1.276,-1.277,-1.278,-1.280,-1.281,&
9391       -1.282,-1.283,-1.285,-1.286,-1.287,-1.288,-1.290,-1.291,-1.292,&
9392       -1.293,-1.294,-1.296,-1.297,-1.298,-1.299,-1.301,-1.302,-1.303,&
9393       -1.304,-1.305,-1.307,-1.308,-1.309,-1.310,-1.311,-1.313,-1.314,&
9394       -1.315,-1.316,-1.317,-1.319,-1.320,-1.321,-1.322,-1.323,-1.324,&
9395       -1.326,-1.327,-1.328,-1.329,-1.330,-1.332,-1.333,-1.334,-1.335,&
9396       -1.336,-1.337,-1.339,-1.340,-1.341,-1.342,-1.343,-1.344,-1.346,&
9397       -1.347,-1.348,-1.349,-1.350,-1.363,-1.374,-1.385,-1.396,-1.407,&
9398       -1.418,-1.429,-1.440,-1.451,-1.461,-1.472,-1.482,-1.492,-1.503,&
9399       -1.513,-1.523,-1.533,-1.543,-1.553,-1.563,-1.573,-1.582,-1.592,&
9400       -1.602,-1.611,-1.621,-1.630,-1.640,-1.649,-1.658,-1.668,-1.677,&
9401       -1.686,-1.695,-1.704,-1.714,-1.723,-1.732,-1.741,-1.750,-1.758,&
9402       -1.767,-1.776,-1.785,-1.794,-1.802,-1.811,-1.820,-1.828,-1.837,&
9403       -1.846,-1.854,-1.863,-1.871,-1.880,-1.888,-1.897,-1.905,-1.913,&
9404       -1.922,-1.930,-1.938,-1.947,-1.955,-1.963,-1.971,-1.979,-1.988,&
9405       -1.996,-2.004,-2.012,-2.020,-2.028,-2.036,-2.044,-2.052,-2.060,&
9406       -2.068,-2.076,-2.084,-2.092,-2.100,-2.108,-2.116,-2.124,-2.131,&
9407       -2.139,-2.147,-2.155,-2.163,-2.170,-2.178,-2.186,-2.194,-2.201,&
9408       -2.209,-2.217,-2.224,-2.232,-2.240,-2.247,-2.255,-2.262,-2.270,&
9409       -2.278,-2.285,-2.293,-2.300,-2.308,-2.315,-2.323,-2.330,-2.338,&
9410       -2.345,-2.353,-2.360,-2.368,-2.375,-2.382,-2.390,-2.397,-2.405,&
9411       -2.412,-2.419,-2.427,-2.434,-2.441,-2.449,-2.456,-2.463,-2.471,&
9412       -2.478,-2.485,-2.492,-2.500,-2.507,-2.514,-2.521,-2.529,-2.536,&
9413       -2.543,-2.550,-2.557,-2.565,-2.572,-2.579,-2.586,-2.593,-2.600,&
9414       -2.608,-2.615,-2.622,-2.629,-2.636,-2.643,-2.650,-2.657,-2.664,&
9415       -2.671,-2.679,-2.686                                           &
9416        /
9417 !C
9418 !C *** NaNO3
9419 !C
9420       DATA BNC03M/                                                   &
9421       -0.049,-0.108,-0.137,-0.159,-0.175,-0.190,-0.202,-0.212,-0.222,&
9422       -0.231,-0.239,-0.247,-0.254,-0.260,-0.266,-0.272,-0.278,-0.283,&
9423       -0.288,-0.293,-0.298,-0.302,-0.306,-0.311,-0.315,-0.319,-0.322,&
9424       -0.326,-0.330,-0.333,-0.337,-0.340,-0.343,-0.346,-0.349,-0.352,&
9425       -0.355,-0.358,-0.361,-0.364,-0.367,-0.369,-0.372,-0.374,-0.377,&
9426       -0.379,-0.382,-0.384,-0.387,-0.389,-0.391,-0.394,-0.396,-0.398,&
9427       -0.400,-0.402,-0.404,-0.406,-0.408,-0.410,-0.412,-0.414,-0.416,&
9428       -0.418,-0.420,-0.422,-0.424,-0.426,-0.428,-0.429,-0.431,-0.433,&
9429       -0.435,-0.436,-0.438,-0.440,-0.442,-0.443,-0.445,-0.447,-0.448,&
9430       -0.450,-0.452,-0.453,-0.455,-0.456,-0.458,-0.459,-0.461,-0.463,&
9431       -0.464,-0.466,-0.467,-0.469,-0.470,-0.472,-0.473,-0.475,-0.476,&
9432       -0.478,-0.479,-0.481,-0.482,-0.483,-0.485,-0.486,-0.488,-0.489,&
9433       -0.491,-0.492,-0.493,-0.495,-0.496,-0.498,-0.499,-0.500,-0.502,&
9434       -0.503,-0.504,-0.506,-0.507,-0.508,-0.510,-0.511,-0.512,-0.514,&
9435       -0.515,-0.516,-0.518,-0.519,-0.520,-0.521,-0.523,-0.524,-0.525,&
9436       -0.526,-0.528,-0.529,-0.530,-0.531,-0.533,-0.534,-0.535,-0.536,&
9437       -0.537,-0.539,-0.540,-0.541,-0.542,-0.543,-0.545,-0.546,-0.547,&
9438       -0.548,-0.549,-0.550,-0.552,-0.553,-0.554,-0.555,-0.556,-0.557,&
9439       -0.558,-0.559,-0.561,-0.562,-0.563,-0.564,-0.565,-0.566,-0.567,&
9440       -0.568,-0.569,-0.570,-0.572,-0.573,-0.574,-0.575,-0.576,-0.577,&
9441       -0.578,-0.579,-0.580,-0.581,-0.582,-0.583,-0.584,-0.585,-0.586,&
9442       -0.587,-0.588,-0.589,-0.590,-0.592,-0.593,-0.594,-0.595,-0.596,&
9443       -0.597,-0.598,-0.599,-0.600,-0.601,-0.602,-0.603,-0.604,-0.605,&
9444       -0.606,-0.607,-0.607,-0.608,-0.609,-0.610,-0.611,-0.612,-0.613,&
9445       -0.614,-0.615,-0.616,-0.617,-0.618,-0.619,-0.620,-0.621,-0.622,&
9446       -0.623,-0.624,-0.625,-0.626,-0.627,-0.627,-0.628,-0.629,-0.630,&
9447       -0.631,-0.632,-0.633,-0.634,-0.635,-0.636,-0.637,-0.638,-0.638,&
9448       -0.639,-0.640,-0.641,-0.642,-0.643,-0.644,-0.645,-0.646,-0.646,&
9449       -0.647,-0.648,-0.649,-0.650,-0.651,-0.652,-0.653,-0.654,-0.654,&
9450       -0.655,-0.656,-0.657,-0.658,-0.659,-0.660,-0.660,-0.661,-0.662,&
9451       -0.663,-0.664,-0.665,-0.666,-0.666,-0.667,-0.668,-0.669,-0.670,&
9452       -0.671,-0.671,-0.672,-0.673,-0.674,-0.675,-0.676,-0.676,-0.677,&
9453       -0.678,-0.679,-0.680,-0.681,-0.681,-0.682,-0.683,-0.684,-0.685,&
9454       -0.685,-0.686,-0.687,-0.688,-0.689,-0.689,-0.690,-0.691,-0.692,&
9455       -0.693,-0.693,-0.694,-0.695,-0.696,-0.697,-0.697,-0.698,-0.699,&
9456       -0.700,-0.701,-0.701,-0.702,-0.703,-0.704,-0.704,-0.705,-0.706,&
9457       -0.707,-0.708,-0.708,-0.709,-0.710,-0.711,-0.711,-0.712,-0.713,&
9458       -0.714,-0.714,-0.715,-0.716,-0.717,-0.718,-0.718,-0.719,-0.720,&
9459       -0.721,-0.721,-0.722,-0.723,-0.724,-0.724,-0.725,-0.726,-0.727,&
9460       -0.727,-0.728,-0.729,-0.729,-0.730,-0.731,-0.732,-0.732,-0.733,&
9461       -0.734,-0.735,-0.735,-0.736,-0.737,-0.738,-0.738,-0.739,-0.740,&
9462       -0.740,-0.741,-0.742,-0.743,-0.743,-0.744,-0.745,-0.746,-0.746,&
9463       -0.747,-0.748,-0.748,-0.749,-0.750,-0.751,-0.751,-0.752,-0.753,&
9464       -0.753,-0.754,-0.755,-0.756,-0.756,-0.757,-0.758,-0.758,-0.759,&
9465       -0.760,-0.760,-0.761,-0.762,-0.769,-0.776,-0.783,-0.790,-0.796,&
9466       -0.803,-0.809,-0.816,-0.822,-0.828,-0.835,-0.841,-0.847,-0.853,&
9467       -0.859,-0.865,-0.871,-0.877,-0.883,-0.888,-0.894,-0.900,-0.905,&
9468       -0.911,-0.917,-0.922,-0.928,-0.933,-0.939,-0.944,-0.949,-0.955,&
9469       -0.960,-0.965,-0.971,-0.976,-0.981,-0.986,-0.991,-0.997,-1.002,&
9470       -1.007,-1.012,-1.017,-1.022,-1.027,-1.032,-1.037,-1.042,-1.046,&
9471       -1.051,-1.056,-1.061,-1.066,-1.071,-1.075,-1.080,-1.085,-1.089,&
9472       -1.094,-1.099,-1.104,-1.108,-1.113,-1.117,-1.122,-1.127,-1.131,&
9473       -1.136,-1.140,-1.145,-1.149,-1.154,-1.158,-1.163,-1.167,-1.172,&
9474       -1.176,-1.180,-1.185,-1.189,-1.194,-1.198,-1.202,-1.207,-1.211,&
9475       -1.215,-1.220,-1.224,-1.228,-1.232,-1.237,-1.241,-1.245,-1.249,&
9476       -1.254,-1.258,-1.262,-1.266,-1.270,-1.275,-1.279,-1.283,-1.287,&
9477       -1.291,-1.295,-1.299,-1.304,-1.308,-1.312,-1.316,-1.320,-1.324,&
9478       -1.328,-1.332,-1.336,-1.340,-1.344,-1.348,-1.352,-1.356,-1.360,&
9479       -1.364,-1.368,-1.372,-1.376,-1.380,-1.384,-1.388,-1.392,-1.396,&
9480       -1.400,-1.404,-1.408,-1.412,-1.415,-1.419,-1.423,-1.427,-1.431,&
9481       -1.435,-1.439,-1.443,-1.446,-1.450,-1.454,-1.458,-1.462,-1.466,&
9482       -1.469,-1.473,-1.477,-1.481,-1.485,-1.488,-1.492,-1.496,-1.500,&
9483       -1.504,-1.507,-1.511                                           &
9484        /
9485 !C
9486 !C *** (NH4)2SO4
9487 !C
9488       DATA BNC04M/                                                   &
9489       -0.098,-0.214,-0.273,-0.315,-0.347,-0.375,-0.399,-0.419,-0.438,&
9490       -0.455,-0.470,-0.485,-0.498,-0.511,-0.522,-0.533,-0.544,-0.554,&
9491       -0.563,-0.572,-0.581,-0.590,-0.598,-0.605,-0.613,-0.620,-0.627,&
9492       -0.634,-0.641,-0.647,-0.653,-0.660,-0.666,-0.671,-0.677,-0.683,&
9493       -0.688,-0.693,-0.698,-0.703,-0.708,-0.713,-0.718,-0.723,-0.727,&
9494       -0.732,-0.736,-0.741,-0.745,-0.749,-0.753,-0.757,-0.762,-0.765,&
9495       -0.769,-0.773,-0.777,-0.781,-0.784,-0.788,-0.792,-0.795,-0.799,&
9496       -0.802,-0.806,-0.809,-0.812,-0.816,-0.819,-0.822,-0.825,-0.829,&
9497       -0.832,-0.835,-0.838,-0.841,-0.844,-0.847,-0.850,-0.853,-0.856,&
9498       -0.859,-0.862,-0.865,-0.867,-0.870,-0.873,-0.876,-0.879,-0.881,&
9499       -0.884,-0.887,-0.890,-0.892,-0.895,-0.898,-0.900,-0.903,-0.905,&
9500       -0.908,-0.911,-0.913,-0.916,-0.918,-0.921,-0.923,-0.926,-0.928,&
9501       -0.931,-0.933,-0.936,-0.938,-0.940,-0.943,-0.945,-0.948,-0.950,&
9502       -0.952,-0.955,-0.957,-0.959,-0.962,-0.964,-0.966,-0.969,-0.971,&
9503       -0.973,-0.975,-0.978,-0.980,-0.982,-0.984,-0.986,-0.989,-0.991,&
9504       -0.993,-0.995,-0.997,-0.999,-1.002,-1.004,-1.006,-1.008,-1.010,&
9505       -1.012,-1.014,-1.016,-1.018,-1.020,-1.022,-1.024,-1.026,-1.028,&
9506       -1.030,-1.032,-1.034,-1.036,-1.038,-1.040,-1.042,-1.044,-1.046,&
9507       -1.048,-1.050,-1.052,-1.054,-1.056,-1.058,-1.060,-1.062,-1.064,&
9508       -1.066,-1.067,-1.069,-1.071,-1.073,-1.075,-1.077,-1.079,-1.080,&
9509       -1.082,-1.084,-1.086,-1.088,-1.090,-1.091,-1.093,-1.095,-1.097,&
9510       -1.099,-1.100,-1.102,-1.104,-1.106,-1.107,-1.109,-1.111,-1.113,&
9511       -1.114,-1.116,-1.118,-1.120,-1.121,-1.123,-1.125,-1.127,-1.128,&
9512       -1.130,-1.132,-1.133,-1.135,-1.137,-1.138,-1.140,-1.142,-1.143,&
9513       -1.145,-1.147,-1.148,-1.150,-1.152,-1.153,-1.155,-1.157,-1.158,&
9514       -1.160,-1.162,-1.163,-1.165,-1.166,-1.168,-1.170,-1.171,-1.173,&
9515       -1.174,-1.176,-1.178,-1.179,-1.181,-1.182,-1.184,-1.185,-1.187,&
9516       -1.189,-1.190,-1.192,-1.193,-1.195,-1.196,-1.198,-1.199,-1.201,&
9517       -1.203,-1.204,-1.206,-1.207,-1.209,-1.210,-1.212,-1.213,-1.215,&
9518       -1.216,-1.218,-1.219,-1.221,-1.222,-1.224,-1.225,-1.227,-1.228,&
9519       -1.230,-1.231,-1.233,-1.234,-1.236,-1.237,-1.238,-1.240,-1.241,&
9520       -1.243,-1.244,-1.246,-1.247,-1.249,-1.250,-1.252,-1.253,-1.254,&
9521       -1.256,-1.257,-1.259,-1.260,-1.262,-1.263,-1.264,-1.266,-1.267,&
9522       -1.269,-1.270,-1.271,-1.273,-1.274,-1.276,-1.277,-1.278,-1.280,&
9523       -1.281,-1.283,-1.284,-1.285,-1.287,-1.288,-1.290,-1.291,-1.292,&
9524       -1.294,-1.295,-1.296,-1.298,-1.299,-1.301,-1.302,-1.303,-1.305,&
9525       -1.306,-1.307,-1.309,-1.310,-1.311,-1.313,-1.314,-1.315,-1.317,&
9526       -1.318,-1.319,-1.321,-1.322,-1.323,-1.325,-1.326,-1.327,-1.329,&
9527       -1.330,-1.331,-1.333,-1.334,-1.335,-1.337,-1.338,-1.339,-1.341,&
9528       -1.342,-1.343,-1.344,-1.346,-1.347,-1.348,-1.350,-1.351,-1.352,&
9529       -1.354,-1.355,-1.356,-1.357,-1.359,-1.360,-1.361,-1.363,-1.364,&
9530       -1.365,-1.366,-1.368,-1.369,-1.370,-1.371,-1.373,-1.374,-1.375,&
9531       -1.376,-1.378,-1.379,-1.380,-1.381,-1.383,-1.384,-1.385,-1.387,&
9532       -1.388,-1.389,-1.390,-1.391,-1.393,-1.394,-1.395,-1.396,-1.398,&
9533       -1.399,-1.400,-1.401,-1.403,-1.416,-1.428,-1.440,-1.452,-1.463,&
9534       -1.475,-1.487,-1.498,-1.509,-1.520,-1.532,-1.543,-1.554,-1.564,&
9535       -1.575,-1.586,-1.596,-1.607,-1.617,-1.628,-1.638,-1.648,-1.659,&
9536       -1.669,-1.679,-1.689,-1.699,-1.709,-1.719,-1.729,-1.738,-1.748,&
9537       -1.758,-1.767,-1.777,-1.786,-1.796,-1.805,-1.815,-1.824,-1.833,&
9538       -1.843,-1.852,-1.861,-1.870,-1.879,-1.888,-1.897,-1.906,-1.915,&
9539       -1.924,-1.933,-1.942,-1.951,-1.960,-1.969,-1.977,-1.986,-1.995,&
9540       -2.004,-2.012,-2.021,-2.029,-2.038,-2.047,-2.055,-2.064,-2.072,&
9541       -2.081,-2.089,-2.097,-2.106,-2.114,-2.123,-2.131,-2.139,-2.147,&
9542       -2.156,-2.164,-2.172,-2.180,-2.189,-2.197,-2.205,-2.213,-2.221,&
9543       -2.229,-2.237,-2.245,-2.253,-2.261,-2.269,-2.277,-2.285,-2.293,&
9544       -2.301,-2.309,-2.317,-2.325,-2.333,-2.341,-2.349,-2.356,-2.364,&
9545       -2.372,-2.380,-2.388,-2.395,-2.403,-2.411,-2.419,-2.426,-2.434,&
9546       -2.442,-2.449,-2.457,-2.465,-2.472,-2.480,-2.488,-2.495,-2.503,&
9547       -2.510,-2.518,-2.525,-2.533,-2.541,-2.548,-2.556,-2.563,-2.571,&
9548       -2.578,-2.586,-2.593,-2.600,-2.608,-2.615,-2.623,-2.630,-2.638,&
9549       -2.645,-2.652,-2.660,-2.667,-2.674,-2.682,-2.689,-2.696,-2.704,&
9550       -2.711,-2.718,-2.726,-2.733,-2.740,-2.747,-2.755,-2.762,-2.769,&
9551       -2.776,-2.784,-2.791                                           &
9552        /
9553 !C
9554 !C *** NH4NO3
9555 !C
9556       DATA BNC05M/                                                   &
9557       -0.050,-0.111,-0.143,-0.166,-0.185,-0.202,-0.216,-0.229,-0.240,&
9558       -0.251,-0.261,-0.271,-0.279,-0.288,-0.296,-0.304,-0.311,-0.318,&
9559       -0.325,-0.331,-0.338,-0.344,-0.350,-0.356,-0.361,-0.367,-0.372,&
9560       -0.378,-0.383,-0.388,-0.393,-0.398,-0.402,-0.407,-0.412,-0.416,&
9561       -0.420,-0.425,-0.429,-0.433,-0.437,-0.441,-0.445,-0.449,-0.453,&
9562       -0.457,-0.460,-0.464,-0.468,-0.471,-0.475,-0.478,-0.482,-0.485,&
9563       -0.488,-0.491,-0.495,-0.498,-0.501,-0.504,-0.507,-0.510,-0.513,&
9564       -0.516,-0.519,-0.522,-0.525,-0.528,-0.531,-0.534,-0.537,-0.539,&
9565       -0.542,-0.545,-0.548,-0.550,-0.553,-0.556,-0.558,-0.561,-0.564,&
9566       -0.566,-0.569,-0.572,-0.574,-0.577,-0.579,-0.582,-0.584,-0.587,&
9567       -0.589,-0.592,-0.594,-0.597,-0.599,-0.602,-0.604,-0.607,-0.609,&
9568       -0.612,-0.614,-0.617,-0.619,-0.621,-0.624,-0.626,-0.629,-0.631,&
9569       -0.633,-0.636,-0.638,-0.640,-0.643,-0.645,-0.647,-0.650,-0.652,&
9570       -0.654,-0.656,-0.659,-0.661,-0.663,-0.665,-0.668,-0.670,-0.672,&
9571       -0.674,-0.677,-0.679,-0.681,-0.683,-0.685,-0.687,-0.690,-0.692,&
9572       -0.694,-0.696,-0.698,-0.700,-0.702,-0.704,-0.706,-0.709,-0.711,&
9573       -0.713,-0.715,-0.717,-0.719,-0.721,-0.723,-0.725,-0.727,-0.729,&
9574       -0.731,-0.733,-0.735,-0.737,-0.739,-0.741,-0.742,-0.744,-0.746,&
9575       -0.748,-0.750,-0.752,-0.754,-0.756,-0.758,-0.760,-0.761,-0.763,&
9576       -0.765,-0.767,-0.769,-0.771,-0.772,-0.774,-0.776,-0.778,-0.780,&
9577       -0.782,-0.783,-0.785,-0.787,-0.789,-0.790,-0.792,-0.794,-0.796,&
9578       -0.797,-0.799,-0.801,-0.803,-0.804,-0.806,-0.808,-0.809,-0.811,&
9579       -0.813,-0.814,-0.816,-0.818,-0.820,-0.821,-0.823,-0.824,-0.826,&
9580       -0.828,-0.829,-0.831,-0.833,-0.834,-0.836,-0.838,-0.839,-0.841,&
9581       -0.842,-0.844,-0.846,-0.847,-0.849,-0.850,-0.852,-0.853,-0.855,&
9582       -0.857,-0.858,-0.860,-0.861,-0.863,-0.864,-0.866,-0.867,-0.869,&
9583       -0.870,-0.872,-0.873,-0.875,-0.876,-0.878,-0.879,-0.881,-0.882,&
9584       -0.884,-0.885,-0.887,-0.888,-0.890,-0.891,-0.893,-0.894,-0.896,&
9585       -0.897,-0.898,-0.900,-0.901,-0.903,-0.904,-0.906,-0.907,-0.908,&
9586       -0.910,-0.911,-0.913,-0.914,-0.915,-0.917,-0.918,-0.920,-0.921,&
9587       -0.922,-0.924,-0.925,-0.926,-0.928,-0.929,-0.931,-0.932,-0.933,&
9588       -0.935,-0.936,-0.937,-0.939,-0.940,-0.941,-0.943,-0.944,-0.945,&
9589       -0.947,-0.948,-0.949,-0.951,-0.952,-0.953,-0.954,-0.956,-0.957,&
9590       -0.958,-0.960,-0.961,-0.962,-0.963,-0.965,-0.966,-0.967,-0.969,&
9591       -0.970,-0.971,-0.972,-0.974,-0.975,-0.976,-0.977,-0.979,-0.980,&
9592       -0.981,-0.982,-0.984,-0.985,-0.986,-0.987,-0.988,-0.990,-0.991,&
9593       -0.992,-0.993,-0.995,-0.996,-0.997,-0.998,-0.999,-1.001,-1.002,&
9594       -1.003,-1.004,-1.005,-1.007,-1.008,-1.009,-1.010,-1.011,-1.012,&
9595       -1.014,-1.015,-1.016,-1.017,-1.018,-1.019,-1.021,-1.022,-1.023,&
9596       -1.024,-1.025,-1.026,-1.027,-1.029,-1.030,-1.031,-1.032,-1.033,&
9597       -1.034,-1.035,-1.037,-1.038,-1.039,-1.040,-1.041,-1.042,-1.043,&
9598       -1.044,-1.045,-1.047,-1.048,-1.049,-1.050,-1.051,-1.052,-1.053,&
9599       -1.054,-1.055,-1.056,-1.058,-1.059,-1.060,-1.061,-1.062,-1.063,&
9600       -1.064,-1.065,-1.066,-1.067,-1.068,-1.069,-1.070,-1.071,-1.072,&
9601       -1.074,-1.075,-1.076,-1.077,-1.088,-1.098,-1.108,-1.118,-1.128,&
9602       -1.137,-1.147,-1.156,-1.165,-1.174,-1.183,-1.192,-1.200,-1.209,&
9603       -1.217,-1.225,-1.233,-1.241,-1.249,-1.257,-1.265,-1.273,-1.280,&
9604       -1.288,-1.295,-1.303,-1.310,-1.317,-1.324,-1.331,-1.338,-1.345,&
9605       -1.352,-1.359,-1.365,-1.372,-1.379,-1.385,-1.392,-1.398,-1.404,&
9606       -1.411,-1.417,-1.423,-1.429,-1.435,-1.441,-1.447,-1.453,-1.459,&
9607       -1.465,-1.471,-1.477,-1.483,-1.488,-1.494,-1.500,-1.505,-1.511,&
9608       -1.516,-1.522,-1.527,-1.533,-1.538,-1.544,-1.549,-1.554,-1.560,&
9609       -1.565,-1.570,-1.575,-1.580,-1.586,-1.591,-1.596,-1.601,-1.606,&
9610       -1.611,-1.616,-1.621,-1.626,-1.631,-1.635,-1.640,-1.645,-1.650,&
9611       -1.655,-1.660,-1.664,-1.669,-1.674,-1.679,-1.683,-1.688,-1.693,&
9612       -1.697,-1.702,-1.706,-1.711,-1.716,-1.720,-1.725,-1.729,-1.734,&
9613       -1.738,-1.743,-1.747,-1.751,-1.756,-1.760,-1.765,-1.769,-1.773,&
9614       -1.778,-1.782,-1.786,-1.791,-1.795,-1.799,-1.803,-1.808,-1.812,&
9615       -1.816,-1.820,-1.825,-1.829,-1.833,-1.837,-1.841,-1.845,-1.850,&
9616       -1.854,-1.858,-1.862,-1.866,-1.870,-1.874,-1.878,-1.882,-1.886,&
9617       -1.890,-1.894,-1.898,-1.902,-1.906,-1.910,-1.914,-1.918,-1.922,&
9618       -1.926,-1.930,-1.934,-1.938,-1.942,-1.946,-1.950,-1.954,-1.958,&
9619       -1.961,-1.965,-1.969                                           &
9620        /
9621 !C
9622 !C *** NH4Cl
9623 !C
9624       DATA BNC06M/                                                   &
9625       -0.048,-0.103,-0.130,-0.148,-0.161,-0.173,-0.182,-0.190,-0.197,&
9626       -0.203,-0.208,-0.213,-0.217,-0.221,-0.225,-0.228,-0.231,-0.234,&
9627       -0.237,-0.239,-0.241,-0.243,-0.245,-0.247,-0.249,-0.251,-0.252,&
9628       -0.254,-0.255,-0.256,-0.257,-0.259,-0.260,-0.261,-0.262,-0.263,&
9629       -0.263,-0.264,-0.265,-0.266,-0.267,-0.267,-0.268,-0.269,-0.269,&
9630       -0.270,-0.270,-0.271,-0.272,-0.272,-0.273,-0.273,-0.273,-0.274,&
9631       -0.274,-0.275,-0.275,-0.275,-0.276,-0.276,-0.277,-0.277,-0.277,&
9632       -0.277,-0.278,-0.278,-0.278,-0.279,-0.279,-0.279,-0.279,-0.279,&
9633       -0.280,-0.280,-0.280,-0.280,-0.280,-0.280,-0.280,-0.281,-0.281,&
9634       -0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,&
9635       -0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,&
9636       -0.281,-0.281,-0.280,-0.280,-0.280,-0.280,-0.280,-0.280,-0.280,&
9637       -0.279,-0.279,-0.279,-0.279,-0.279,-0.279,-0.278,-0.278,-0.278,&
9638       -0.278,-0.278,-0.277,-0.277,-0.277,-0.277,-0.277,-0.276,-0.276,&
9639       -0.276,-0.276,-0.275,-0.275,-0.275,-0.275,-0.274,-0.274,-0.274,&
9640       -0.274,-0.273,-0.273,-0.273,-0.273,-0.272,-0.272,-0.272,-0.272,&
9641       -0.271,-0.271,-0.271,-0.271,-0.270,-0.270,-0.270,-0.270,-0.269,&
9642       -0.269,-0.269,-0.269,-0.268,-0.268,-0.268,-0.267,-0.267,-0.267,&
9643       -0.267,-0.266,-0.266,-0.266,-0.266,-0.265,-0.265,-0.265,-0.264,&
9644       -0.264,-0.264,-0.264,-0.263,-0.263,-0.263,-0.263,-0.262,-0.262,&
9645       -0.262,-0.261,-0.261,-0.261,-0.261,-0.260,-0.260,-0.260,-0.259,&
9646       -0.259,-0.259,-0.259,-0.258,-0.258,-0.258,-0.258,-0.257,-0.257,&
9647       -0.257,-0.256,-0.256,-0.256,-0.256,-0.255,-0.255,-0.255,-0.255,&
9648       -0.254,-0.254,-0.254,-0.253,-0.253,-0.253,-0.253,-0.252,-0.252,&
9649       -0.252,-0.252,-0.251,-0.251,-0.251,-0.250,-0.250,-0.250,-0.250,&
9650       -0.249,-0.249,-0.249,-0.249,-0.248,-0.248,-0.248,-0.247,-0.247,&
9651       -0.247,-0.247,-0.246,-0.246,-0.246,-0.246,-0.245,-0.245,-0.245,&
9652       -0.245,-0.244,-0.244,-0.244,-0.244,-0.243,-0.243,-0.243,-0.243,&
9653       -0.242,-0.242,-0.242,-0.241,-0.241,-0.241,-0.241,-0.240,-0.240,&
9654       -0.240,-0.240,-0.239,-0.239,-0.239,-0.239,-0.238,-0.238,-0.238,&
9655       -0.238,-0.237,-0.237,-0.237,-0.237,-0.236,-0.236,-0.236,-0.236,&
9656       -0.236,-0.235,-0.235,-0.235,-0.235,-0.234,-0.234,-0.234,-0.234,&
9657       -0.233,-0.233,-0.233,-0.233,-0.232,-0.232,-0.232,-0.232,-0.231,&
9658       -0.231,-0.231,-0.231,-0.231,-0.230,-0.230,-0.230,-0.230,-0.229,&
9659       -0.229,-0.229,-0.229,-0.228,-0.228,-0.228,-0.228,-0.228,-0.227,&
9660       -0.227,-0.227,-0.227,-0.226,-0.226,-0.226,-0.226,-0.226,-0.225,&
9661       -0.225,-0.225,-0.225,-0.224,-0.224,-0.224,-0.224,-0.224,-0.223,&
9662       -0.223,-0.223,-0.223,-0.223,-0.222,-0.222,-0.222,-0.222,-0.221,&
9663       -0.221,-0.221,-0.221,-0.221,-0.220,-0.220,-0.220,-0.220,-0.220,&
9664       -0.219,-0.219,-0.219,-0.219,-0.219,-0.218,-0.218,-0.218,-0.218,&
9665       -0.218,-0.217,-0.217,-0.217,-0.217,-0.217,-0.216,-0.216,-0.216,&
9666       -0.216,-0.216,-0.215,-0.215,-0.215,-0.215,-0.215,-0.215,-0.214,&
9667       -0.214,-0.214,-0.214,-0.214,-0.213,-0.213,-0.213,-0.213,-0.213,&
9668       -0.212,-0.212,-0.212,-0.212,-0.212,-0.212,-0.211,-0.211,-0.211,&
9669       -0.211,-0.211,-0.210,-0.210,-0.208,-0.207,-0.205,-0.203,-0.202,&
9670       -0.200,-0.199,-0.198,-0.196,-0.195,-0.194,-0.192,-0.191,-0.190,&
9671       -0.189,-0.188,-0.187,-0.186,-0.185,-0.184,-0.183,-0.182,-0.182,&
9672       -0.181,-0.180,-0.179,-0.179,-0.178,-0.178,-0.177,-0.176,-0.176,&
9673       -0.176,-0.175,-0.175,-0.174,-0.174,-0.174,-0.173,-0.173,-0.173,&
9674       -0.173,-0.172,-0.172,-0.172,-0.172,-0.172,-0.172,-0.172,-0.172,&
9675       -0.172,-0.172,-0.172,-0.172,-0.172,-0.172,-0.172,-0.172,-0.173,&
9676       -0.173,-0.173,-0.173,-0.173,-0.174,-0.174,-0.174,-0.175,-0.175,&
9677       -0.175,-0.176,-0.176,-0.176,-0.177,-0.177,-0.178,-0.178,-0.179,&
9678       -0.179,-0.180,-0.180,-0.181,-0.181,-0.182,-0.183,-0.183,-0.184,&
9679       -0.184,-0.185,-0.186,-0.186,-0.187,-0.188,-0.188,-0.189,-0.190,&
9680       -0.191,-0.191,-0.192,-0.193,-0.194,-0.194,-0.195,-0.196,-0.197,&
9681       -0.198,-0.199,-0.200,-0.200,-0.201,-0.202,-0.203,-0.204,-0.205,&
9682       -0.206,-0.207,-0.208,-0.209,-0.210,-0.211,-0.212,-0.213,-0.214,&
9683       -0.215,-0.216,-0.217,-0.218,-0.219,-0.220,-0.221,-0.222,-0.223,&
9684       -0.224,-0.226,-0.227,-0.228,-0.229,-0.230,-0.231,-0.232,-0.234,&
9685       -0.235,-0.236,-0.237,-0.238,-0.239,-0.241,-0.242,-0.243,-0.244,&
9686       -0.246,-0.247,-0.248,-0.249,-0.251,-0.252,-0.253,-0.254,-0.256,&
9687       -0.257,-0.258,-0.260                                           &
9688        /
9689 !C
9690 !C *** (2H,SO4)
9691 !C
9692       DATA BNC07M/                                                   &
9693       -0.098,-0.213,-0.271,-0.312,-0.344,-0.370,-0.393,-0.413,-0.431,&
9694       -0.448,-0.462,-0.476,-0.489,-0.500,-0.511,-0.522,-0.532,-0.541,&
9695       -0.550,-0.558,-0.567,-0.574,-0.582,-0.589,-0.596,-0.603,-0.609,&
9696       -0.615,-0.621,-0.627,-0.633,-0.638,-0.644,-0.649,-0.654,-0.659,&
9697       -0.664,-0.669,-0.674,-0.678,-0.683,-0.687,-0.691,-0.695,-0.700,&
9698       -0.704,-0.708,-0.711,-0.715,-0.719,-0.723,-0.726,-0.730,-0.733,&
9699       -0.737,-0.740,-0.744,-0.747,-0.750,-0.753,-0.757,-0.760,-0.763,&
9700       -0.766,-0.769,-0.772,-0.775,-0.778,-0.781,-0.784,-0.786,-0.789,&
9701       -0.792,-0.795,-0.797,-0.800,-0.803,-0.805,-0.808,-0.811,-0.813,&
9702       -0.816,-0.818,-0.821,-0.823,-0.825,-0.828,-0.830,-0.833,-0.835,&
9703       -0.837,-0.840,-0.842,-0.844,-0.847,-0.849,-0.851,-0.853,-0.856,&
9704       -0.858,-0.860,-0.862,-0.864,-0.867,-0.869,-0.871,-0.873,-0.875,&
9705       -0.877,-0.879,-0.881,-0.883,-0.885,-0.887,-0.889,-0.891,-0.893,&
9706       -0.895,-0.897,-0.899,-0.901,-0.903,-0.905,-0.907,-0.909,-0.911,&
9707       -0.913,-0.915,-0.916,-0.918,-0.920,-0.922,-0.924,-0.926,-0.928,&
9708       -0.929,-0.931,-0.933,-0.935,-0.936,-0.938,-0.940,-0.942,-0.944,&
9709       -0.945,-0.947,-0.949,-0.950,-0.952,-0.954,-0.956,-0.957,-0.959,&
9710       -0.961,-0.962,-0.964,-0.966,-0.967,-0.969,-0.971,-0.972,-0.974,&
9711       -0.975,-0.977,-0.979,-0.980,-0.982,-0.983,-0.985,-0.987,-0.988,&
9712       -0.990,-0.991,-0.993,-0.994,-0.996,-0.998,-0.999,-1.001,-1.002,&
9713       -1.004,-1.005,-1.007,-1.008,-1.010,-1.011,-1.013,-1.014,-1.016,&
9714       -1.017,-1.019,-1.020,-1.022,-1.023,-1.024,-1.026,-1.027,-1.029,&
9715       -1.030,-1.032,-1.033,-1.035,-1.036,-1.037,-1.039,-1.040,-1.042,&
9716       -1.043,-1.045,-1.046,-1.047,-1.049,-1.050,-1.052,-1.053,-1.054,&
9717       -1.056,-1.057,-1.058,-1.060,-1.061,-1.063,-1.064,-1.065,-1.067,&
9718       -1.068,-1.069,-1.071,-1.072,-1.073,-1.075,-1.076,-1.077,-1.079,&
9719       -1.080,-1.081,-1.083,-1.084,-1.085,-1.087,-1.088,-1.089,-1.090,&
9720       -1.092,-1.093,-1.094,-1.096,-1.097,-1.098,-1.100,-1.101,-1.102,&
9721       -1.103,-1.105,-1.106,-1.107,-1.108,-1.110,-1.111,-1.112,-1.113,&
9722       -1.115,-1.116,-1.117,-1.118,-1.120,-1.121,-1.122,-1.123,-1.125,&
9723       -1.126,-1.127,-1.128,-1.130,-1.131,-1.132,-1.133,-1.134,-1.136,&
9724       -1.137,-1.138,-1.139,-1.141,-1.142,-1.143,-1.144,-1.145,-1.147,&
9725       -1.148,-1.149,-1.150,-1.151,-1.153,-1.154,-1.155,-1.156,-1.157,&
9726       -1.158,-1.160,-1.161,-1.162,-1.163,-1.164,-1.165,-1.167,-1.168,&
9727       -1.169,-1.170,-1.171,-1.172,-1.174,-1.175,-1.176,-1.177,-1.178,&
9728       -1.179,-1.181,-1.182,-1.183,-1.184,-1.185,-1.186,-1.187,-1.189,&
9729       -1.190,-1.191,-1.192,-1.193,-1.194,-1.195,-1.196,-1.198,-1.199,&
9730       -1.200,-1.201,-1.202,-1.203,-1.204,-1.205,-1.207,-1.208,-1.209,&
9731       -1.210,-1.211,-1.212,-1.213,-1.214,-1.215,-1.216,-1.218,-1.219,&
9732       -1.220,-1.221,-1.222,-1.223,-1.224,-1.225,-1.226,-1.227,-1.228,&
9733       -1.230,-1.231,-1.232,-1.233,-1.234,-1.235,-1.236,-1.237,-1.238,&
9734       -1.239,-1.240,-1.241,-1.242,-1.244,-1.245,-1.246,-1.247,-1.248,&
9735       -1.249,-1.250,-1.251,-1.252,-1.253,-1.254,-1.255,-1.256,-1.257,&
9736       -1.258,-1.259,-1.261,-1.262,-1.263,-1.264,-1.265,-1.266,-1.267,&
9737       -1.268,-1.269,-1.270,-1.271,-1.282,-1.292,-1.303,-1.313,-1.323,&
9738       -1.332,-1.342,-1.352,-1.362,-1.371,-1.381,-1.390,-1.400,-1.409,&
9739       -1.418,-1.427,-1.437,-1.446,-1.455,-1.464,-1.473,-1.482,-1.491,&
9740       -1.499,-1.508,-1.517,-1.526,-1.534,-1.543,-1.552,-1.560,-1.569,&
9741       -1.577,-1.586,-1.594,-1.602,-1.611,-1.619,-1.627,-1.636,-1.644,&
9742       -1.652,-1.660,-1.668,-1.677,-1.685,-1.693,-1.701,-1.709,-1.717,&
9743       -1.725,-1.733,-1.741,-1.749,-1.757,-1.764,-1.772,-1.780,-1.788,&
9744       -1.796,-1.804,-1.811,-1.819,-1.827,-1.835,-1.842,-1.850,-1.858,&
9745       -1.865,-1.873,-1.880,-1.888,-1.896,-1.903,-1.911,-1.918,-1.926,&
9746       -1.933,-1.941,-1.948,-1.956,-1.963,-1.971,-1.978,-1.986,-1.993,&
9747       -2.000,-2.008,-2.015,-2.022,-2.030,-2.037,-2.044,-2.052,-2.059,&
9748       -2.066,-2.074,-2.081,-2.088,-2.095,-2.103,-2.110,-2.117,-2.124,&
9749       -2.131,-2.139,-2.146,-2.153,-2.160,-2.167,-2.174,-2.181,-2.189,&
9750       -2.196,-2.203,-2.210,-2.217,-2.224,-2.231,-2.238,-2.245,-2.252,&
9751       -2.259,-2.266,-2.273,-2.280,-2.287,-2.294,-2.301,-2.308,-2.315,&
9752       -2.322,-2.329,-2.336,-2.343,-2.350,-2.357,-2.364,-2.371,-2.378,&
9753       -2.385,-2.391,-2.398,-2.405,-2.412,-2.419,-2.426,-2.433,-2.439,&
9754       -2.446,-2.453,-2.460,-2.467,-2.474,-2.480,-2.487,-2.494,-2.501,&
9755       -2.508,-2.514,-2.521                                           &
9756        /
9757 !C
9758 !C *** (H,HSO4)
9759 !C
9760       DATA BNC08M/                                                   &
9761       -0.046,-0.090,-0.108,-0.118,-0.124,-0.128,-0.130,-0.132,-0.132,&
9762       -0.131,-0.130,-0.128,-0.125,-0.122,-0.119,-0.116,-0.112,-0.108,&
9763       -0.103,-0.098,-0.093,-0.088,-0.083,-0.077,-0.071,-0.065,-0.059,&
9764       -0.053,-0.046,-0.040,-0.033,-0.026,-0.019,-0.012,-0.004, 0.003,&
9765        0.011, 0.018, 0.026, 0.034, 0.042, 0.050, 0.058, 0.066, 0.075,&
9766        0.083, 0.091, 0.100, 0.109, 0.117, 0.126, 0.135, 0.144, 0.153,&
9767        0.162, 0.171, 0.180, 0.189, 0.198, 0.207, 0.216, 0.226, 0.235,&
9768        0.244, 0.254, 0.263, 0.273, 0.282, 0.292, 0.302, 0.311, 0.321,&
9769        0.331, 0.341, 0.351, 0.361, 0.371, 0.381, 0.391, 0.401, 0.411,&
9770        0.421, 0.432, 0.442, 0.452, 0.463, 0.473, 0.484, 0.495, 0.505,&
9771        0.516, 0.527, 0.538, 0.549, 0.560, 0.571, 0.582, 0.593, 0.604,&
9772        0.615, 0.626, 0.638, 0.649, 0.660, 0.672, 0.683, 0.694, 0.706,&
9773        0.717, 0.729, 0.740, 0.752, 0.763, 0.775, 0.787, 0.798, 0.810,&
9774        0.821, 0.833, 0.845, 0.856, 0.868, 0.879, 0.891, 0.903, 0.914,&
9775        0.926, 0.937, 0.949, 0.961, 0.972, 0.984, 0.995, 1.007, 1.018,&
9776        1.030, 1.041, 1.053, 1.064, 1.076, 1.087, 1.099, 1.110, 1.121,&
9777        1.133, 1.144, 1.155, 1.167, 1.178, 1.189, 1.200, 1.212, 1.223,&
9778        1.234, 1.245, 1.256, 1.267, 1.278, 1.289, 1.300, 1.311, 1.322,&
9779        1.333, 1.344, 1.355, 1.366, 1.377, 1.388, 1.399, 1.409, 1.420,&
9780        1.431, 1.442, 1.452, 1.463, 1.474, 1.485, 1.495, 1.506, 1.516,&
9781        1.527, 1.537, 1.548, 1.558, 1.569, 1.579, 1.590, 1.600, 1.611,&
9782        1.621, 1.631, 1.642, 1.652, 1.662, 1.672, 1.683, 1.693, 1.703,&
9783        1.713, 1.723, 1.733, 1.743, 1.753, 1.763, 1.774, 1.784, 1.793,&
9784        1.803, 1.813, 1.823, 1.833, 1.843, 1.853, 1.863, 1.872, 1.882,&
9785        1.892, 1.902, 1.911, 1.921, 1.931, 1.940, 1.950, 1.960, 1.969,&
9786        1.979, 1.988, 1.998, 2.007, 2.017, 2.026, 2.036, 2.045, 2.055,&
9787        2.064, 2.073, 2.083, 2.092, 2.101, 2.111, 2.120, 2.129, 2.138,&
9788        2.147, 2.157, 2.166, 2.175, 2.184, 2.193, 2.202, 2.211, 2.220,&
9789        2.229, 2.238, 2.247, 2.256, 2.265, 2.274, 2.283, 2.292, 2.301,&
9790        2.310, 2.318, 2.327, 2.336, 2.345, 2.354, 2.362, 2.371, 2.380,&
9791        2.388, 2.397, 2.406, 2.414, 2.423, 2.432, 2.440, 2.449, 2.457,&
9792        2.466, 2.474, 2.483, 2.491, 2.500, 2.508, 2.517, 2.525, 2.533,&
9793        2.542, 2.550, 2.558, 2.567, 2.575, 2.583, 2.591, 2.600, 2.608,&
9794        2.616, 2.624, 2.633, 2.641, 2.649, 2.657, 2.665, 2.673, 2.681,&
9795        2.689, 2.697, 2.705, 2.713, 2.721, 2.729, 2.737, 2.745, 2.753,&
9796        2.761, 2.769, 2.777, 2.785, 2.793, 2.801, 2.809, 2.816, 2.824,&
9797        2.832, 2.840, 2.847, 2.855, 2.863, 2.871, 2.878, 2.886, 2.894,&
9798        2.901, 2.909, 2.917, 2.924, 2.932, 2.939, 2.947, 2.955, 2.962,&
9799        2.970, 2.977, 2.985, 2.992, 3.000, 3.007, 3.014, 3.022, 3.029,&
9800        3.037, 3.044, 3.051, 3.059, 3.066, 3.074, 3.081, 3.088, 3.095,&
9801        3.103, 3.110, 3.117, 3.125, 3.132, 3.139, 3.146, 3.153, 3.161,&
9802        3.168, 3.175, 3.182, 3.189, 3.196, 3.203, 3.210, 3.217, 3.225,&
9803        3.232, 3.239, 3.246, 3.253, 3.260, 3.267, 3.274, 3.281, 3.288,&
9804        3.294, 3.301, 3.308, 3.315, 3.322, 3.329, 3.336, 3.343, 3.350,&
9805        3.356, 3.363, 3.370, 3.377, 3.450, 3.516, 3.581, 3.645, 3.708,&
9806        3.770, 3.831, 3.891, 3.950, 4.008, 4.065, 4.122, 4.178, 4.233,&
9807        4.287, 4.340, 4.393, 4.445, 4.496, 4.547, 4.597, 4.646, 4.695,&
9808        4.743, 4.790, 4.837, 4.884, 4.929, 4.974, 5.019, 5.063, 5.107,&
9809        5.150, 5.193, 5.235, 5.277, 5.318, 5.359, 5.399, 5.439, 5.478,&
9810        5.517, 5.556, 5.594, 5.632, 5.670, 5.707, 5.743, 5.780, 5.816,&
9811        5.852, 5.887, 5.922, 5.956, 5.991, 6.025, 6.058, 6.092, 6.125,&
9812        6.158, 6.190, 6.222, 6.254, 6.286, 6.317, 6.348, 6.379, 6.410,&
9813        6.440, 6.470, 6.500, 6.529, 6.559, 6.588, 6.616, 6.645, 6.673,&
9814        6.701, 6.729, 6.757, 6.784, 6.812, 6.839, 6.865, 6.892, 6.919,&
9815        6.945, 6.971, 6.997, 7.022, 7.048, 7.073, 7.098, 7.123, 7.148,&
9816        7.172, 7.196, 7.221, 7.245, 7.269, 7.292, 7.316, 7.339, 7.362,&
9817        7.385, 7.408, 7.431, 7.454, 7.476, 7.498, 7.520, 7.542, 7.564,&
9818        7.586, 7.607, 7.629, 7.650, 7.671, 7.692, 7.713, 7.734, 7.755,&
9819        7.775, 7.795, 7.816, 7.836, 7.856, 7.876, 7.895, 7.915, 7.935,&
9820        7.954, 7.973, 7.992, 8.012, 8.030, 8.049, 8.068, 8.087, 8.105,&
9821        8.124, 8.142, 8.160, 8.178, 8.196, 8.214, 8.232, 8.250, 8.267,&
9822        8.285, 8.302, 8.319, 8.337, 8.354, 8.371, 8.388, 8.404, 8.421,&
9823        8.438, 8.454, 8.471                                           &
9824        /
9825 !C
9826 !C *** NH4HSO4
9827 !C
9828       DATA BNC09M/                                                   &
9829       -0.048,-0.102,-0.128,-0.146,-0.159,-0.170,-0.179,-0.187,-0.194,&
9830       -0.200,-0.205,-0.210,-0.214,-0.218,-0.221,-0.224,-0.227,-0.230,&
9831       -0.232,-0.234,-0.235,-0.237,-0.238,-0.239,-0.240,-0.241,-0.242,&
9832       -0.242,-0.243,-0.243,-0.243,-0.243,-0.243,-0.243,-0.242,-0.242,&
9833       -0.241,-0.241,-0.240,-0.239,-0.238,-0.237,-0.236,-0.235,-0.234,&
9834       -0.233,-0.231,-0.230,-0.228,-0.227,-0.225,-0.224,-0.222,-0.220,&
9835       -0.218,-0.216,-0.214,-0.212,-0.210,-0.208,-0.206,-0.204,-0.202,&
9836       -0.199,-0.197,-0.195,-0.192,-0.190,-0.188,-0.185,-0.183,-0.180,&
9837       -0.178,-0.175,-0.172,-0.170,-0.167,-0.164,-0.161,-0.159,-0.156,&
9838       -0.153,-0.150,-0.147,-0.144,-0.141,-0.138,-0.135,-0.132,-0.129,&
9839       -0.126,-0.123,-0.119,-0.116,-0.113,-0.110,-0.106,-0.103,-0.100,&
9840       -0.096,-0.093,-0.090,-0.086,-0.083,-0.080,-0.076,-0.073,-0.069,&
9841       -0.066,-0.062,-0.059,-0.055,-0.052,-0.048,-0.045,-0.041,-0.037,&
9842       -0.034,-0.030,-0.027,-0.023,-0.020,-0.016,-0.012,-0.009,-0.005,&
9843       -0.002, 0.002, 0.005, 0.009, 0.013, 0.016, 0.020, 0.023, 0.027,&
9844        0.030, 0.034, 0.037, 0.041, 0.044, 0.048, 0.051, 0.055, 0.058,&
9845        0.062, 0.065, 0.069, 0.072, 0.076, 0.079, 0.083, 0.086, 0.090,&
9846        0.093, 0.097, 0.100, 0.103, 0.107, 0.110, 0.114, 0.117, 0.120,&
9847        0.124, 0.127, 0.130, 0.134, 0.137, 0.140, 0.144, 0.147, 0.150,&
9848        0.154, 0.157, 0.160, 0.164, 0.167, 0.170, 0.173, 0.177, 0.180,&
9849        0.183, 0.186, 0.189, 0.193, 0.196, 0.199, 0.202, 0.205, 0.209,&
9850        0.212, 0.215, 0.218, 0.221, 0.224, 0.227, 0.231, 0.234, 0.237,&
9851        0.240, 0.243, 0.246, 0.249, 0.252, 0.255, 0.258, 0.261, 0.264,&
9852        0.267, 0.270, 0.273, 0.276, 0.279, 0.282, 0.285, 0.288, 0.291,&
9853        0.294, 0.297, 0.300, 0.303, 0.306, 0.309, 0.312, 0.315, 0.317,&
9854        0.320, 0.323, 0.326, 0.329, 0.332, 0.335, 0.338, 0.340, 0.343,&
9855        0.346, 0.349, 0.352, 0.354, 0.357, 0.360, 0.363, 0.366, 0.368,&
9856        0.371, 0.374, 0.377, 0.379, 0.382, 0.385, 0.388, 0.390, 0.393,&
9857        0.396, 0.398, 0.401, 0.404, 0.407, 0.409, 0.412, 0.415, 0.417,&
9858        0.420, 0.422, 0.425, 0.428, 0.430, 0.433, 0.436, 0.438, 0.441,&
9859        0.443, 0.446, 0.449, 0.451, 0.454, 0.456, 0.459, 0.461, 0.464,&
9860        0.467, 0.469, 0.472, 0.474, 0.477, 0.479, 0.482, 0.484, 0.487,&
9861        0.489, 0.492, 0.494, 0.497, 0.499, 0.502, 0.504, 0.507, 0.509,&
9862        0.511, 0.514, 0.516, 0.519, 0.521, 0.524, 0.526, 0.528, 0.531,&
9863        0.533, 0.536, 0.538, 0.540, 0.543, 0.545, 0.548, 0.550, 0.552,&
9864        0.555, 0.557, 0.559, 0.562, 0.564, 0.566, 0.569, 0.571, 0.573,&
9865        0.576, 0.578, 0.580, 0.583, 0.585, 0.587, 0.589, 0.592, 0.594,&
9866        0.596, 0.599, 0.601, 0.603, 0.605, 0.608, 0.610, 0.612, 0.614,&
9867        0.617, 0.619, 0.621, 0.623, 0.625, 0.628, 0.630, 0.632, 0.634,&
9868        0.636, 0.639, 0.641, 0.643, 0.645, 0.647, 0.649, 0.652, 0.654,&
9869        0.656, 0.658, 0.660, 0.662, 0.665, 0.667, 0.669, 0.671, 0.673,&
9870        0.675, 0.677, 0.679, 0.681, 0.684, 0.686, 0.688, 0.690, 0.692,&
9871        0.694, 0.696, 0.698, 0.700, 0.702, 0.704, 0.706, 0.708, 0.710,&
9872        0.713, 0.715, 0.717, 0.719, 0.721, 0.723, 0.725, 0.727, 0.729,&
9873        0.731, 0.733, 0.735, 0.737, 0.758, 0.778, 0.797, 0.815, 0.834,&
9874        0.852, 0.870, 0.887, 0.905, 0.922, 0.938, 0.955, 0.971, 0.987,&
9875        1.003, 1.018, 1.033, 1.048, 1.063, 1.078, 1.092, 1.106, 1.120,&
9876        1.134, 1.148, 1.161, 1.174, 1.187, 1.200, 1.213, 1.225, 1.238,&
9877        1.250, 1.262, 1.274, 1.286, 1.297, 1.309, 1.320, 1.331, 1.342,&
9878        1.353, 1.364, 1.374, 1.385, 1.395, 1.406, 1.416, 1.426, 1.436,&
9879        1.446, 1.455, 1.465, 1.475, 1.484, 1.493, 1.502, 1.512, 1.521,&
9880        1.529, 1.538, 1.547, 1.556, 1.564, 1.572, 1.581, 1.589, 1.597,&
9881        1.605, 1.613, 1.621, 1.629, 1.637, 1.645, 1.652, 1.660, 1.667,&
9882        1.675, 1.682, 1.689, 1.696, 1.704, 1.711, 1.718, 1.725, 1.731,&
9883        1.738, 1.745, 1.752, 1.758, 1.765, 1.771, 1.778, 1.784, 1.790,&
9884        1.796, 1.803, 1.809, 1.815, 1.821, 1.827, 1.833, 1.839, 1.844,&
9885        1.850, 1.856, 1.861, 1.867, 1.873, 1.878, 1.884, 1.889, 1.894,&
9886        1.900, 1.905, 1.910, 1.915, 1.920, 1.926, 1.931, 1.936, 1.941,&
9887        1.946, 1.950, 1.955, 1.960, 1.965, 1.970, 1.974, 1.979, 1.983,&
9888        1.988, 1.993, 1.997, 2.001, 2.006, 2.010, 2.015, 2.019, 2.023,&
9889        2.027, 2.032, 2.036, 2.040, 2.044, 2.048, 2.052, 2.056, 2.060,&
9890        2.064, 2.068, 2.072, 2.076, 2.080, 2.083, 2.087, 2.091, 2.095,&
9891        2.098, 2.102, 2.106                                           &
9892        /
9893 !C
9894 !C *** (H,NO3)
9895 !C
9896       DATA BNC10M/                                                   &
9897       -0.047,-0.098,-0.120,-0.135,-0.145,-0.153,-0.158,-0.163,-0.167,&
9898       -0.169,-0.172,-0.173,-0.175,-0.176,-0.176,-0.176,-0.176,-0.176,&
9899       -0.176,-0.175,-0.175,-0.174,-0.173,-0.172,-0.170,-0.169,-0.168,&
9900       -0.166,-0.165,-0.163,-0.162,-0.160,-0.159,-0.157,-0.155,-0.153,&
9901       -0.151,-0.149,-0.148,-0.146,-0.144,-0.142,-0.140,-0.138,-0.136,&
9902       -0.134,-0.132,-0.130,-0.128,-0.126,-0.124,-0.122,-0.120,-0.118,&
9903       -0.115,-0.113,-0.111,-0.109,-0.107,-0.105,-0.103,-0.101,-0.099,&
9904       -0.097,-0.095,-0.093,-0.090,-0.088,-0.086,-0.084,-0.082,-0.080,&
9905       -0.078,-0.075,-0.073,-0.071,-0.069,-0.067,-0.064,-0.062,-0.060,&
9906       -0.057,-0.055,-0.053,-0.051,-0.048,-0.046,-0.043,-0.041,-0.039,&
9907       -0.036,-0.034,-0.031,-0.029,-0.026,-0.024,-0.021,-0.019,-0.016,&
9908       -0.014,-0.011,-0.008,-0.006,-0.003, 0.000, 0.002, 0.005, 0.007,&
9909        0.010, 0.013, 0.016, 0.018, 0.021, 0.024, 0.026, 0.029, 0.032,&
9910        0.035, 0.037, 0.040, 0.043, 0.046, 0.048, 0.051, 0.054, 0.057,&
9911        0.059, 0.062, 0.065, 0.068, 0.070, 0.073, 0.076, 0.079, 0.081,&
9912        0.084, 0.087, 0.090, 0.092, 0.095, 0.098, 0.101, 0.103, 0.106,&
9913        0.109, 0.112, 0.114, 0.117, 0.120, 0.123, 0.125, 0.128, 0.131,&
9914        0.133, 0.136, 0.139, 0.142, 0.144, 0.147, 0.150, 0.152, 0.155,&
9915        0.158, 0.160, 0.163, 0.166, 0.168, 0.171, 0.174, 0.176, 0.179,&
9916        0.182, 0.184, 0.187, 0.190, 0.192, 0.195, 0.198, 0.200, 0.203,&
9917        0.205, 0.208, 0.211, 0.213, 0.216, 0.218, 0.221, 0.224, 0.226,&
9918        0.229, 0.231, 0.234, 0.236, 0.239, 0.242, 0.244, 0.247, 0.249,&
9919        0.252, 0.254, 0.257, 0.259, 0.262, 0.264, 0.267, 0.269, 0.272,&
9920        0.275, 0.277, 0.280, 0.282, 0.285, 0.287, 0.289, 0.292, 0.294,&
9921        0.297, 0.299, 0.302, 0.304, 0.307, 0.309, 0.312, 0.314, 0.317,&
9922        0.319, 0.321, 0.324, 0.326, 0.329, 0.331, 0.334, 0.336, 0.338,&
9923        0.341, 0.343, 0.346, 0.348, 0.350, 0.353, 0.355, 0.357, 0.360,&
9924        0.362, 0.364, 0.367, 0.369, 0.372, 0.374, 0.376, 0.379, 0.381,&
9925        0.383, 0.386, 0.388, 0.390, 0.392, 0.395, 0.397, 0.399, 0.402,&
9926        0.404, 0.406, 0.409, 0.411, 0.413, 0.415, 0.418, 0.420, 0.422,&
9927        0.424, 0.427, 0.429, 0.431, 0.433, 0.436, 0.438, 0.440, 0.442,&
9928        0.445, 0.447, 0.449, 0.451, 0.453, 0.456, 0.458, 0.460, 0.462,&
9929        0.464, 0.467, 0.469, 0.471, 0.473, 0.475, 0.477, 0.480, 0.482,&
9930        0.484, 0.486, 0.488, 0.490, 0.492, 0.495, 0.497, 0.499, 0.501,&
9931        0.503, 0.505, 0.507, 0.509, 0.511, 0.514, 0.516, 0.518, 0.520,&
9932        0.522, 0.524, 0.526, 0.528, 0.530, 0.532, 0.534, 0.536, 0.539,&
9933        0.541, 0.543, 0.545, 0.547, 0.549, 0.551, 0.553, 0.555, 0.557,&
9934        0.559, 0.561, 0.563, 0.565, 0.567, 0.569, 0.571, 0.573, 0.575,&
9935        0.577, 0.579, 0.581, 0.583, 0.585, 0.587, 0.589, 0.591, 0.593,&
9936        0.595, 0.597, 0.599, 0.601, 0.603, 0.604, 0.606, 0.608, 0.610,&
9937        0.612, 0.614, 0.616, 0.618, 0.620, 0.622, 0.624, 0.626, 0.628,&
9938        0.629, 0.631, 0.633, 0.635, 0.637, 0.639, 0.641, 0.643, 0.645,&
9939        0.646, 0.648, 0.650, 0.652, 0.654, 0.656, 0.658, 0.659, 0.661,&
9940        0.663, 0.665, 0.667, 0.669, 0.671, 0.672, 0.674, 0.676, 0.678,&
9941        0.680, 0.681, 0.683, 0.685, 0.704, 0.722, 0.739, 0.756, 0.773,&
9942        0.790, 0.806, 0.822, 0.838, 0.853, 0.869, 0.884, 0.899, 0.913,&
9943        0.928, 0.942, 0.956, 0.970, 0.983, 0.996, 1.010, 1.023, 1.036,&
9944        1.048, 1.061, 1.073, 1.085, 1.097, 1.109, 1.121, 1.132, 1.144,&
9945        1.155, 1.166, 1.177, 1.188, 1.198, 1.209, 1.219, 1.230, 1.240,&
9946        1.250, 1.260, 1.270, 1.279, 1.289, 1.298, 1.308, 1.317, 1.326,&
9947        1.335, 1.344, 1.353, 1.362, 1.370, 1.379, 1.387, 1.396, 1.404,&
9948        1.412, 1.420, 1.428, 1.436, 1.444, 1.451, 1.459, 1.467, 1.474,&
9949        1.481, 1.489, 1.496, 1.503, 1.510, 1.517, 1.524, 1.531, 1.538,&
9950        1.545, 1.551, 1.558, 1.565, 1.571, 1.578, 1.584, 1.590, 1.596,&
9951        1.603, 1.609, 1.615, 1.621, 1.627, 1.632, 1.638, 1.644, 1.650,&
9952        1.655, 1.661, 1.667, 1.672, 1.678, 1.683, 1.688, 1.694, 1.699,&
9953        1.704, 1.709, 1.714, 1.719, 1.724, 1.729, 1.734, 1.739, 1.744,&
9954        1.749, 1.753, 1.758, 1.763, 1.767, 1.772, 1.776, 1.781, 1.785,&
9955        1.790, 1.794, 1.799, 1.803, 1.807, 1.811, 1.815, 1.820, 1.824,&
9956        1.828, 1.832, 1.836, 1.840, 1.844, 1.848, 1.852, 1.855, 1.859,&
9957        1.863, 1.867, 1.870, 1.874, 1.878, 1.881, 1.885, 1.888, 1.892,&
9958        1.895, 1.899, 1.902, 1.906, 1.909, 1.913, 1.916, 1.919, 1.922,&
9959        1.926, 1.929, 1.932                                           &
9960        /
9961 !C
9962 !C *** (H,Cl)
9963 !C
9964       DATA BNC11M/                                                   &
9965       -0.046,-0.091,-0.110,-0.120,-0.127,-0.131,-0.133,-0.134,-0.134,&
9966       -0.134,-0.132,-0.131,-0.128,-0.126,-0.123,-0.120,-0.116,-0.112,&
9967       -0.108,-0.104,-0.099,-0.095,-0.090,-0.085,-0.080,-0.075,-0.070,&
9968       -0.064,-0.059,-0.053,-0.047,-0.042,-0.036,-0.030,-0.024,-0.018,&
9969       -0.011,-0.005, 0.001, 0.007, 0.014, 0.020, 0.026, 0.033, 0.039,&
9970        0.046, 0.052, 0.059, 0.065, 0.072, 0.079, 0.085, 0.092, 0.099,&
9971        0.105, 0.112, 0.119, 0.126, 0.132, 0.139, 0.146, 0.153, 0.160,&
9972        0.166, 0.173, 0.180, 0.187, 0.194, 0.201, 0.208, 0.215, 0.222,&
9973        0.229, 0.236, 0.243, 0.250, 0.257, 0.264, 0.272, 0.279, 0.286,&
9974        0.293, 0.301, 0.308, 0.316, 0.323, 0.330, 0.338, 0.346, 0.353,&
9975        0.361, 0.368, 0.376, 0.384, 0.392, 0.399, 0.407, 0.415, 0.423,&
9976        0.431, 0.439, 0.447, 0.455, 0.463, 0.471, 0.479, 0.487, 0.495,&
9977        0.503, 0.512, 0.520, 0.528, 0.536, 0.544, 0.553, 0.561, 0.569,&
9978        0.577, 0.586, 0.594, 0.602, 0.610, 0.619, 0.627, 0.635, 0.643,&
9979        0.652, 0.660, 0.668, 0.676, 0.685, 0.693, 0.701, 0.709, 0.718,&
9980        0.726, 0.734, 0.742, 0.750, 0.759, 0.767, 0.775, 0.783, 0.791,&
9981        0.799, 0.807, 0.815, 0.823, 0.832, 0.840, 0.848, 0.856, 0.864,&
9982        0.872, 0.880, 0.888, 0.896, 0.903, 0.911, 0.919, 0.927, 0.935,&
9983        0.943, 0.951, 0.959, 0.966, 0.974, 0.982, 0.990, 0.998, 1.005,&
9984        1.013, 1.021, 1.029, 1.036, 1.044, 1.052, 1.059, 1.067, 1.075,&
9985        1.082, 1.090, 1.097, 1.105, 1.112, 1.120, 1.128, 1.135, 1.143,&
9986        1.150, 1.157, 1.165, 1.172, 1.180, 1.187, 1.195, 1.202, 1.209,&
9987        1.217, 1.224, 1.231, 1.239, 1.246, 1.253, 1.260, 1.268, 1.275,&
9988        1.282, 1.289, 1.296, 1.303, 1.311, 1.318, 1.325, 1.332, 1.339,&
9989        1.346, 1.353, 1.360, 1.367, 1.374, 1.381, 1.388, 1.395, 1.402,&
9990        1.409, 1.416, 1.423, 1.430, 1.437, 1.444, 1.451, 1.457, 1.464,&
9991        1.471, 1.478, 1.485, 1.491, 1.498, 1.505, 1.512, 1.518, 1.525,&
9992        1.532, 1.538, 1.545, 1.552, 1.558, 1.565, 1.572, 1.578, 1.585,&
9993        1.591, 1.598, 1.604, 1.611, 1.617, 1.624, 1.630, 1.637, 1.643,&
9994        1.650, 1.656, 1.663, 1.669, 1.675, 1.682, 1.688, 1.695, 1.701,&
9995        1.707, 1.714, 1.720, 1.726, 1.732, 1.739, 1.745, 1.751, 1.757,&
9996        1.764, 1.770, 1.776, 1.782, 1.788, 1.795, 1.801, 1.807, 1.813,&
9997        1.819, 1.825, 1.831, 1.837, 1.843, 1.849, 1.855, 1.861, 1.867,&
9998        1.873, 1.879, 1.885, 1.891, 1.897, 1.903, 1.909, 1.915, 1.921,&
9999        1.927, 1.933, 1.939, 1.945, 1.950, 1.956, 1.962, 1.968, 1.974,&
10000        1.979, 1.985, 1.991, 1.997, 2.003, 2.008, 2.014, 2.020, 2.025,&
10001        2.031, 2.037, 2.042, 2.048, 2.054, 2.059, 2.065, 2.071, 2.076,&
10002        2.082, 2.087, 2.093, 2.099, 2.104, 2.110, 2.115, 2.121, 2.126,&
10003        2.132, 2.137, 2.143, 2.148, 2.154, 2.159, 2.165, 2.170, 2.175,&
10004        2.181, 2.186, 2.192, 2.197, 2.202, 2.208, 2.213, 2.219, 2.224,&
10005        2.229, 2.235, 2.240, 2.245, 2.250, 2.256, 2.261, 2.266, 2.271,&
10006        2.277, 2.282, 2.287, 2.292, 2.298, 2.303, 2.308, 2.313, 2.318,&
10007        2.323, 2.329, 2.334, 2.339, 2.344, 2.349, 2.354, 2.359, 2.364,&
10008        2.369, 2.375, 2.380, 2.385, 2.390, 2.395, 2.400, 2.405, 2.410,&
10009        2.415, 2.420, 2.425, 2.430, 2.483, 2.531, 2.579, 2.626, 2.672,&
10010        2.717, 2.762, 2.806, 2.849, 2.891, 2.933, 2.975, 3.015, 3.056,&
10011        3.095, 3.134, 3.173, 3.211, 3.248, 3.285, 3.322, 3.358, 3.393,&
10012        3.428, 3.463, 3.497, 3.531, 3.564, 3.597, 3.629, 3.662, 3.693,&
10013        3.725, 3.756, 3.786, 3.817, 3.847, 3.876, 3.906, 3.935, 3.963,&
10014        3.992, 4.020, 4.048, 4.075, 4.102, 4.129, 4.156, 4.182, 4.208,&
10015        4.234, 4.260, 4.285, 4.310, 4.335, 4.359, 4.384, 4.408, 4.432,&
10016        4.456, 4.479, 4.502, 4.525, 4.548, 4.571, 4.593, 4.615, 4.637,&
10017        4.659, 4.681, 4.702, 4.724, 4.745, 4.766, 4.786, 4.807, 4.827,&
10018        4.847, 4.868, 4.887, 4.907, 4.927, 4.946, 4.965, 4.984, 5.003,&
10019        5.022, 5.041, 5.059, 5.078, 5.096, 5.114, 5.132, 5.150, 5.168,&
10020        5.185, 5.203, 5.220, 5.237, 5.254, 5.271, 5.288, 5.304, 5.321,&
10021        5.337, 5.354, 5.370, 5.386, 5.402, 5.418, 5.434, 5.449, 5.465,&
10022        5.480, 5.496, 5.511, 5.526, 5.541, 5.556, 5.571, 5.586, 5.600,&
10023        5.615, 5.629, 5.644, 5.658, 5.672, 5.686, 5.700, 5.714, 5.728,&
10024        5.742, 5.755, 5.769, 5.782, 5.796, 5.809, 5.822, 5.835, 5.848,&
10025        5.861, 5.874, 5.887, 5.900, 5.913, 5.925, 5.938, 5.950, 5.963,&
10026        5.975, 5.987, 5.999, 6.011, 6.023, 6.035, 6.047, 6.059, 6.071,&
10027        6.083, 6.094, 6.106                                           &
10028        /
10029 !C
10030 !C *** NaHSO4
10031 !C
10032       DATA BNC12M/                                                   &
10033       -0.047,-0.097,-0.120,-0.135,-0.146,-0.154,-0.160,-0.165,-0.170,&
10034       -0.173,-0.176,-0.178,-0.179,-0.181,-0.181,-0.182,-0.182,-0.182,&
10035       -0.182,-0.182,-0.181,-0.180,-0.179,-0.178,-0.176,-0.175,-0.173,&
10036       -0.172,-0.170,-0.168,-0.165,-0.163,-0.161,-0.158,-0.156,-0.153,&
10037       -0.150,-0.148,-0.145,-0.142,-0.139,-0.136,-0.132,-0.129,-0.126,&
10038       -0.123,-0.119,-0.116,-0.112,-0.109,-0.105,-0.101,-0.098,-0.094,&
10039       -0.090,-0.086,-0.082,-0.078,-0.074,-0.070,-0.066,-0.062,-0.058,&
10040       -0.054,-0.050,-0.046,-0.041,-0.037,-0.033,-0.028,-0.024,-0.020,&
10041       -0.015,-0.011,-0.006,-0.002, 0.003, 0.007, 0.012, 0.017, 0.021,&
10042        0.026, 0.031, 0.036, 0.041, 0.045, 0.050, 0.055, 0.060, 0.065,&
10043        0.070, 0.075, 0.080, 0.086, 0.091, 0.096, 0.101, 0.106, 0.112,&
10044        0.117, 0.122, 0.128, 0.133, 0.138, 0.144, 0.149, 0.154, 0.160,&
10045        0.165, 0.171, 0.176, 0.182, 0.187, 0.193, 0.198, 0.204, 0.209,&
10046        0.215, 0.221, 0.226, 0.232, 0.237, 0.243, 0.248, 0.254, 0.259,&
10047        0.265, 0.271, 0.276, 0.282, 0.287, 0.293, 0.298, 0.304, 0.309,&
10048        0.315, 0.320, 0.326, 0.331, 0.337, 0.342, 0.348, 0.353, 0.358,&
10049        0.364, 0.369, 0.375, 0.380, 0.386, 0.391, 0.396, 0.402, 0.407,&
10050        0.412, 0.418, 0.423, 0.428, 0.434, 0.439, 0.444, 0.449, 0.455,&
10051        0.460, 0.465, 0.470, 0.476, 0.481, 0.486, 0.491, 0.496, 0.502,&
10052        0.507, 0.512, 0.517, 0.522, 0.527, 0.532, 0.537, 0.542, 0.548,&
10053        0.553, 0.558, 0.563, 0.568, 0.573, 0.578, 0.583, 0.588, 0.593,&
10054        0.598, 0.603, 0.607, 0.612, 0.617, 0.622, 0.627, 0.632, 0.637,&
10055        0.642, 0.647, 0.651, 0.656, 0.661, 0.666, 0.671, 0.675, 0.680,&
10056        0.685, 0.690, 0.694, 0.699, 0.704, 0.709, 0.713, 0.718, 0.723,&
10057        0.727, 0.732, 0.737, 0.741, 0.746, 0.751, 0.755, 0.760, 0.764,&
10058        0.769, 0.773, 0.778, 0.783, 0.787, 0.792, 0.796, 0.801, 0.805,&
10059        0.810, 0.814, 0.819, 0.823, 0.828, 0.832, 0.836, 0.841, 0.845,&
10060        0.850, 0.854, 0.858, 0.863, 0.867, 0.872, 0.876, 0.880, 0.885,&
10061        0.889, 0.893, 0.898, 0.902, 0.906, 0.910, 0.915, 0.919, 0.923,&
10062        0.928, 0.932, 0.936, 0.940, 0.944, 0.949, 0.953, 0.957, 0.961,&
10063        0.965, 0.969, 0.974, 0.978, 0.982, 0.986, 0.990, 0.994, 0.998,&
10064        1.002, 1.007, 1.011, 1.015, 1.019, 1.023, 1.027, 1.031, 1.035,&
10065        1.039, 1.043, 1.047, 1.051, 1.055, 1.059, 1.063, 1.067, 1.071,&
10066        1.075, 1.079, 1.083, 1.087, 1.091, 1.094, 1.098, 1.102, 1.106,&
10067        1.110, 1.114, 1.118, 1.122, 1.125, 1.129, 1.133, 1.137, 1.141,&
10068        1.145, 1.148, 1.152, 1.156, 1.160, 1.164, 1.167, 1.171, 1.175,&
10069        1.179, 1.182, 1.186, 1.190, 1.194, 1.197, 1.201, 1.205, 1.208,&
10070        1.212, 1.216, 1.219, 1.223, 1.227, 1.230, 1.234, 1.238, 1.241,&
10071        1.245, 1.249, 1.252, 1.256, 1.259, 1.263, 1.267, 1.270, 1.274,&
10072        1.277, 1.281, 1.284, 1.288, 1.292, 1.295, 1.299, 1.302, 1.306,&
10073        1.309, 1.313, 1.316, 1.320, 1.323, 1.327, 1.330, 1.334, 1.337,&
10074        1.341, 1.344, 1.347, 1.351, 1.354, 1.358, 1.361, 1.365, 1.368,&
10075        1.371, 1.375, 1.378, 1.382, 1.385, 1.388, 1.392, 1.395, 1.398,&
10076        1.402, 1.405, 1.408, 1.412, 1.415, 1.418, 1.422, 1.425, 1.428,&
10077        1.432, 1.435, 1.438, 1.441, 1.477, 1.509, 1.540, 1.571, 1.601,&
10078        1.631, 1.661, 1.690, 1.718, 1.747, 1.774, 1.802, 1.829, 1.855,&
10079        1.881, 1.907, 1.933, 1.958, 1.983, 2.007, 2.031, 2.055, 2.079,&
10080        2.102, 2.125, 2.147, 2.170, 2.192, 2.213, 2.235, 2.256, 2.277,&
10081        2.298, 2.318, 2.339, 2.359, 2.378, 2.398, 2.417, 2.436, 2.455,&
10082        2.474, 2.493, 2.511, 2.529, 2.547, 2.565, 2.582, 2.599, 2.617,&
10083        2.634, 2.650, 2.667, 2.684, 2.700, 2.716, 2.732, 2.748, 2.763,&
10084        2.779, 2.794, 2.810, 2.825, 2.840, 2.854, 2.869, 2.884, 2.898,&
10085        2.912, 2.926, 2.940, 2.954, 2.968, 2.982, 2.995, 3.008, 3.022,&
10086        3.035, 3.048, 3.061, 3.074, 3.086, 3.099, 3.111, 3.124, 3.136,&
10087        3.148, 3.160, 3.172, 3.184, 3.196, 3.208, 3.219, 3.231, 3.242,&
10088        3.254, 3.265, 3.276, 3.287, 3.298, 3.309, 3.320, 3.330, 3.341,&
10089        3.352, 3.362, 3.373, 3.383, 3.393, 3.403, 3.413, 3.423, 3.433,&
10090        3.443, 3.453, 3.463, 3.472, 3.482, 3.491, 3.501, 3.510, 3.520,&
10091        3.529, 3.538, 3.547, 3.556, 3.565, 3.574, 3.583, 3.592, 3.601,&
10092        3.609, 3.618, 3.626, 3.635, 3.643, 3.652, 3.660, 3.668, 3.677,&
10093        3.685, 3.693, 3.701, 3.709, 3.717, 3.725, 3.733, 3.741, 3.748,&
10094        3.756, 3.764, 3.771, 3.779, 3.786, 3.794, 3.801, 3.809, 3.816,&
10095        3.823, 3.830, 3.838                                           &
10096        /
10097 !C
10098 !C *** (NH4)3H(SO4)2
10099 !C
10100       DATA BNC13M/                                                   &
10101       -0.078,-0.169,-0.215,-0.247,-0.272,-0.293,-0.311,-0.326,-0.340,&
10102       -0.353,-0.364,-0.375,-0.384,-0.393,-0.402,-0.410,-0.417,-0.424,&
10103       -0.431,-0.437,-0.443,-0.448,-0.454,-0.459,-0.464,-0.469,-0.473,&
10104       -0.477,-0.482,-0.486,-0.489,-0.493,-0.497,-0.500,-0.503,-0.506,&
10105       -0.509,-0.512,-0.515,-0.518,-0.520,-0.523,-0.525,-0.528,-0.530,&
10106       -0.532,-0.534,-0.536,-0.538,-0.540,-0.542,-0.544,-0.546,-0.547,&
10107       -0.549,-0.550,-0.552,-0.553,-0.555,-0.556,-0.557,-0.559,-0.560,&
10108       -0.561,-0.562,-0.563,-0.564,-0.565,-0.566,-0.567,-0.568,-0.569,&
10109       -0.570,-0.571,-0.572,-0.572,-0.573,-0.574,-0.575,-0.575,-0.576,&
10110       -0.576,-0.577,-0.578,-0.578,-0.579,-0.579,-0.580,-0.580,-0.580,&
10111       -0.581,-0.581,-0.582,-0.582,-0.582,-0.582,-0.583,-0.583,-0.583,&
10112       -0.583,-0.584,-0.584,-0.584,-0.584,-0.584,-0.584,-0.584,-0.585,&
10113       -0.585,-0.585,-0.585,-0.585,-0.585,-0.585,-0.585,-0.585,-0.585,&
10114       -0.585,-0.585,-0.585,-0.585,-0.585,-0.585,-0.585,-0.585,-0.585,&
10115       -0.585,-0.584,-0.584,-0.584,-0.584,-0.584,-0.584,-0.584,-0.584,&
10116       -0.584,-0.584,-0.583,-0.583,-0.583,-0.583,-0.583,-0.583,-0.583,&
10117       -0.582,-0.582,-0.582,-0.582,-0.582,-0.582,-0.582,-0.581,-0.581,&
10118       -0.581,-0.581,-0.581,-0.581,-0.580,-0.580,-0.580,-0.580,-0.580,&
10119       -0.579,-0.579,-0.579,-0.579,-0.579,-0.579,-0.578,-0.578,-0.578,&
10120       -0.578,-0.578,-0.577,-0.577,-0.577,-0.577,-0.577,-0.577,-0.576,&
10121       -0.576,-0.576,-0.576,-0.576,-0.575,-0.575,-0.575,-0.575,-0.575,&
10122       -0.574,-0.574,-0.574,-0.574,-0.574,-0.574,-0.573,-0.573,-0.573,&
10123       -0.573,-0.573,-0.572,-0.572,-0.572,-0.572,-0.572,-0.571,-0.571,&
10124       -0.571,-0.571,-0.571,-0.571,-0.570,-0.570,-0.570,-0.570,-0.570,&
10125       -0.569,-0.569,-0.569,-0.569,-0.569,-0.569,-0.568,-0.568,-0.568,&
10126       -0.568,-0.568,-0.567,-0.567,-0.567,-0.567,-0.567,-0.567,-0.566,&
10127       -0.566,-0.566,-0.566,-0.566,-0.566,-0.565,-0.565,-0.565,-0.565,&
10128       -0.565,-0.565,-0.564,-0.564,-0.564,-0.564,-0.564,-0.564,-0.563,&
10129       -0.563,-0.563,-0.563,-0.563,-0.563,-0.562,-0.562,-0.562,-0.562,&
10130       -0.562,-0.562,-0.561,-0.561,-0.561,-0.561,-0.561,-0.561,-0.561,&
10131       -0.560,-0.560,-0.560,-0.560,-0.560,-0.560,-0.560,-0.559,-0.559,&
10132       -0.559,-0.559,-0.559,-0.559,-0.559,-0.558,-0.558,-0.558,-0.558,&
10133       -0.558,-0.558,-0.558,-0.557,-0.557,-0.557,-0.557,-0.557,-0.557,&
10134       -0.557,-0.556,-0.556,-0.556,-0.556,-0.556,-0.556,-0.556,-0.556,&
10135       -0.555,-0.555,-0.555,-0.555,-0.555,-0.555,-0.555,-0.555,-0.554,&
10136       -0.554,-0.554,-0.554,-0.554,-0.554,-0.554,-0.554,-0.554,-0.553,&
10137       -0.553,-0.553,-0.553,-0.553,-0.553,-0.553,-0.553,-0.553,-0.552,&
10138       -0.552,-0.552,-0.552,-0.552,-0.552,-0.552,-0.552,-0.552,-0.552,&
10139       -0.551,-0.551,-0.551,-0.551,-0.551,-0.551,-0.551,-0.551,-0.551,&
10140       -0.551,-0.550,-0.550,-0.550,-0.550,-0.550,-0.550,-0.550,-0.550,&
10141       -0.550,-0.550,-0.550,-0.549,-0.549,-0.549,-0.549,-0.549,-0.549,&
10142       -0.549,-0.549,-0.549,-0.549,-0.549,-0.549,-0.549,-0.548,-0.548,&
10143       -0.548,-0.548,-0.548,-0.548,-0.548,-0.548,-0.548,-0.548,-0.548,&
10144       -0.548,-0.548,-0.547,-0.547,-0.547,-0.547,-0.547,-0.547,-0.547,&
10145       -0.547,-0.547,-0.547,-0.547,-0.546,-0.546,-0.545,-0.545,-0.544,&
10146       -0.544,-0.544,-0.544,-0.544,-0.544,-0.544,-0.544,-0.544,-0.544,&
10147       -0.544,-0.544,-0.545,-0.545,-0.545,-0.546,-0.546,-0.547,-0.547,&
10148       -0.548,-0.548,-0.549,-0.550,-0.550,-0.551,-0.552,-0.553,-0.554,&
10149       -0.555,-0.556,-0.557,-0.558,-0.559,-0.560,-0.561,-0.562,-0.563,&
10150       -0.564,-0.566,-0.567,-0.568,-0.569,-0.571,-0.572,-0.573,-0.575,&
10151       -0.576,-0.578,-0.579,-0.581,-0.582,-0.584,-0.586,-0.587,-0.589,&
10152       -0.590,-0.592,-0.594,-0.595,-0.597,-0.599,-0.601,-0.603,-0.604,&
10153       -0.606,-0.608,-0.610,-0.612,-0.614,-0.616,-0.618,-0.620,-0.622,&
10154       -0.624,-0.626,-0.628,-0.630,-0.632,-0.634,-0.636,-0.638,-0.640,&
10155       -0.642,-0.644,-0.647,-0.649,-0.651,-0.653,-0.655,-0.658,-0.660,&
10156       -0.662,-0.664,-0.667,-0.669,-0.671,-0.674,-0.676,-0.678,-0.681,&
10157       -0.683,-0.686,-0.688,-0.690,-0.693,-0.695,-0.698,-0.700,-0.703,&
10158       -0.705,-0.708,-0.710,-0.713,-0.715,-0.718,-0.720,-0.723,-0.725,&
10159       -0.728,-0.731,-0.733,-0.736,-0.738,-0.741,-0.744,-0.746,-0.749,&
10160       -0.752,-0.754,-0.757,-0.760,-0.762,-0.765,-0.768,-0.770,-0.773,&
10161       -0.776,-0.779,-0.781,-0.784,-0.787,-0.790,-0.793,-0.795,-0.798,&
10162       -0.801,-0.804,-0.807,-0.809,-0.812,-0.815,-0.818,-0.821,-0.824,&
10163       -0.827,-0.829,-0.832                                           &
10164        /
10165 !C
10166 !C *** CASO4
10167 !C
10168       DATA BNC14M/                                                   &
10169        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10170        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10171        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10172        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10173        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10174        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10175        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10176        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10177        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10178        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10179        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10180        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10181        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10182        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10183        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10184        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10185        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10186        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10187        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10188        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10189        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10190        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10191        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10192        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10193        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10194        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10195        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10196        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10197        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10198        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10199        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10200        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10201        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10202        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10203        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10204        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10205        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10206        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10207        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10208        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10209        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10210        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10211        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10212        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10213        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10214        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10215        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10216        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10217        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10218        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10219        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10220        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10221        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10222        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10223        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10224        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10225        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10226        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10227        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10228        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10229        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10230        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
10231        0.000, 0.000, 0.000                                           &
10232        /
10233 !C
10234 !C *** CANO32
10235 !C
10236       DATA BNC15M/                                                   &
10237       -0.096,-0.206,-0.258,-0.293,-0.321,-0.342,-0.360,-0.376,-0.389,&
10238       -0.401,-0.411,-0.420,-0.429,-0.436,-0.443,-0.449,-0.455,-0.460,&
10239       -0.465,-0.469,-0.473,-0.477,-0.481,-0.484,-0.487,-0.490,-0.493,&
10240       -0.495,-0.497,-0.500,-0.502,-0.504,-0.505,-0.507,-0.509,-0.510,&
10241       -0.512,-0.513,-0.514,-0.515,-0.517,-0.518,-0.519,-0.520,-0.520,&
10242       -0.521,-0.522,-0.523,-0.524,-0.524,-0.525,-0.526,-0.526,-0.527,&
10243       -0.527,-0.528,-0.528,-0.529,-0.529,-0.530,-0.530,-0.530,-0.531,&
10244       -0.531,-0.531,-0.531,-0.532,-0.532,-0.532,-0.532,-0.532,-0.532,&
10245       -0.533,-0.533,-0.533,-0.533,-0.533,-0.533,-0.533,-0.533,-0.533,&
10246       -0.532,-0.532,-0.532,-0.532,-0.532,-0.532,-0.531,-0.531,-0.531,&
10247       -0.530,-0.530,-0.530,-0.529,-0.529,-0.529,-0.528,-0.528,-0.527,&
10248       -0.527,-0.526,-0.526,-0.525,-0.525,-0.524,-0.524,-0.523,-0.523,&
10249       -0.522,-0.521,-0.521,-0.520,-0.519,-0.519,-0.518,-0.517,-0.517,&
10250       -0.516,-0.515,-0.515,-0.514,-0.513,-0.512,-0.512,-0.511,-0.510,&
10251       -0.509,-0.509,-0.508,-0.507,-0.506,-0.506,-0.505,-0.504,-0.503,&
10252       -0.503,-0.502,-0.501,-0.500,-0.499,-0.499,-0.498,-0.497,-0.496,&
10253       -0.495,-0.495,-0.494,-0.493,-0.492,-0.491,-0.491,-0.490,-0.489,&
10254       -0.488,-0.487,-0.486,-0.486,-0.485,-0.484,-0.483,-0.482,-0.482,&
10255       -0.481,-0.480,-0.479,-0.478,-0.477,-0.477,-0.476,-0.475,-0.474,&
10256       -0.473,-0.472,-0.472,-0.471,-0.470,-0.469,-0.468,-0.468,-0.467,&
10257       -0.466,-0.465,-0.464,-0.463,-0.463,-0.462,-0.461,-0.460,-0.459,&
10258       -0.459,-0.458,-0.457,-0.456,-0.455,-0.455,-0.454,-0.453,-0.452,&
10259       -0.451,-0.450,-0.450,-0.449,-0.448,-0.447,-0.446,-0.446,-0.445,&
10260       -0.444,-0.443,-0.442,-0.442,-0.441,-0.440,-0.439,-0.438,-0.438,&
10261       -0.437,-0.436,-0.435,-0.435,-0.434,-0.433,-0.432,-0.431,-0.431,&
10262       -0.430,-0.429,-0.428,-0.427,-0.427,-0.426,-0.425,-0.424,-0.424,&
10263       -0.423,-0.422,-0.421,-0.421,-0.420,-0.419,-0.418,-0.417,-0.417,&
10264       -0.416,-0.415,-0.414,-0.414,-0.413,-0.412,-0.411,-0.411,-0.410,&
10265       -0.409,-0.408,-0.408,-0.407,-0.406,-0.405,-0.405,-0.404,-0.403,&
10266       -0.402,-0.402,-0.401,-0.400,-0.400,-0.399,-0.398,-0.397,-0.397,&
10267       -0.396,-0.395,-0.394,-0.394,-0.393,-0.392,-0.392,-0.391,-0.390,&
10268       -0.389,-0.389,-0.388,-0.387,-0.387,-0.386,-0.385,-0.385,-0.384,&
10269       -0.383,-0.382,-0.382,-0.381,-0.380,-0.380,-0.379,-0.378,-0.378,&
10270       -0.377,-0.376,-0.376,-0.375,-0.374,-0.374,-0.373,-0.372,-0.371,&
10271       -0.371,-0.370,-0.369,-0.369,-0.368,-0.367,-0.367,-0.366,-0.365,&
10272       -0.365,-0.364,-0.364,-0.363,-0.362,-0.362,-0.361,-0.360,-0.360,&
10273       -0.359,-0.358,-0.358,-0.357,-0.356,-0.356,-0.355,-0.354,-0.354,&
10274       -0.353,-0.353,-0.352,-0.351,-0.351,-0.350,-0.349,-0.349,-0.348,&
10275       -0.348,-0.347,-0.346,-0.346,-0.345,-0.344,-0.344,-0.343,-0.343,&
10276       -0.342,-0.341,-0.341,-0.340,-0.340,-0.339,-0.338,-0.338,-0.337,&
10277       -0.337,-0.336,-0.335,-0.335,-0.334,-0.334,-0.333,-0.332,-0.332,&
10278       -0.331,-0.331,-0.330,-0.330,-0.329,-0.328,-0.328,-0.327,-0.327,&
10279       -0.326,-0.326,-0.325,-0.324,-0.324,-0.323,-0.323,-0.322,-0.322,&
10280       -0.321,-0.320,-0.320,-0.319,-0.319,-0.318,-0.318,-0.317,-0.317,&
10281       -0.316,-0.316,-0.315,-0.314,-0.309,-0.303,-0.298,-0.293,-0.288,&
10282       -0.284,-0.279,-0.275,-0.270,-0.266,-0.262,-0.258,-0.254,-0.250,&
10283       -0.246,-0.242,-0.239,-0.235,-0.232,-0.229,-0.226,-0.223,-0.219,&
10284       -0.217,-0.214,-0.211,-0.208,-0.206,-0.203,-0.201,-0.198,-0.196,&
10285       -0.194,-0.192,-0.190,-0.188,-0.186,-0.184,-0.182,-0.180,-0.179,&
10286       -0.177,-0.175,-0.174,-0.173,-0.171,-0.170,-0.169,-0.167,-0.166,&
10287       -0.165,-0.164,-0.163,-0.162,-0.161,-0.161,-0.160,-0.159,-0.158,&
10288       -0.158,-0.157,-0.157,-0.156,-0.156,-0.155,-0.155,-0.155,-0.154,&
10289       -0.154,-0.154,-0.154,-0.154,-0.153,-0.153,-0.153,-0.153,-0.153,&
10290       -0.154,-0.154,-0.154,-0.154,-0.154,-0.155,-0.155,-0.155,-0.156,&
10291       -0.156,-0.157,-0.157,-0.158,-0.158,-0.159,-0.159,-0.160,-0.161,&
10292       -0.161,-0.162,-0.163,-0.164,-0.164,-0.165,-0.166,-0.167,-0.168,&
10293       -0.169,-0.170,-0.171,-0.172,-0.173,-0.174,-0.175,-0.176,-0.177,&
10294       -0.179,-0.180,-0.181,-0.182,-0.183,-0.185,-0.186,-0.187,-0.189,&
10295       -0.190,-0.192,-0.193,-0.194,-0.196,-0.197,-0.199,-0.200,-0.202,&
10296       -0.203,-0.205,-0.207,-0.208,-0.210,-0.212,-0.213,-0.215,-0.217,&
10297       -0.218,-0.220,-0.222,-0.224,-0.225,-0.227,-0.229,-0.231,-0.233,&
10298       -0.235,-0.237,-0.239,-0.240,-0.242,-0.244,-0.246,-0.248,-0.250,&
10299       -0.252,-0.254,-0.256                                           &
10300        /
10301 !C
10302 !C *** CACL2
10303 !C
10304       DATA BNC16M/                                                   &
10305       -0.095,-0.197,-0.242,-0.272,-0.293,-0.309,-0.321,-0.331,-0.339,&
10306       -0.345,-0.351,-0.355,-0.358,-0.360,-0.362,-0.363,-0.363,-0.364,&
10307       -0.364,-0.363,-0.362,-0.361,-0.360,-0.358,-0.357,-0.355,-0.353,&
10308       -0.350,-0.348,-0.345,-0.343,-0.340,-0.337,-0.334,-0.331,-0.328,&
10309       -0.325,-0.322,-0.319,-0.316,-0.312,-0.309,-0.306,-0.302,-0.299,&
10310       -0.295,-0.292,-0.289,-0.285,-0.282,-0.278,-0.274,-0.271,-0.267,&
10311       -0.264,-0.260,-0.257,-0.253,-0.249,-0.246,-0.242,-0.239,-0.235,&
10312       -0.231,-0.228,-0.224,-0.220,-0.217,-0.213,-0.209,-0.205,-0.202,&
10313       -0.198,-0.194,-0.190,-0.186,-0.182,-0.178,-0.175,-0.171,-0.167,&
10314       -0.163,-0.158,-0.154,-0.150,-0.146,-0.142,-0.138,-0.134,-0.129,&
10315       -0.125,-0.121,-0.116,-0.112,-0.107,-0.103,-0.099,-0.094,-0.090,&
10316       -0.085,-0.080,-0.076,-0.071,-0.066,-0.062,-0.057,-0.052,-0.048,&
10317       -0.043,-0.038,-0.033,-0.028,-0.024,-0.019,-0.014,-0.009,-0.004,&
10318        0.001, 0.006, 0.010, 0.015, 0.020, 0.025, 0.030, 0.035, 0.040,&
10319        0.045, 0.050, 0.055, 0.060, 0.064, 0.069, 0.074, 0.079, 0.084,&
10320        0.089, 0.094, 0.099, 0.104, 0.109, 0.114, 0.119, 0.123, 0.128,&
10321        0.133, 0.138, 0.143, 0.148, 0.153, 0.158, 0.162, 0.167, 0.172,&
10322        0.177, 0.182, 0.187, 0.191, 0.196, 0.201, 0.206, 0.211, 0.215,&
10323        0.220, 0.225, 0.230, 0.235, 0.239, 0.244, 0.249, 0.254, 0.258,&
10324        0.263, 0.268, 0.272, 0.277, 0.282, 0.287, 0.291, 0.296, 0.301,&
10325        0.305, 0.310, 0.315, 0.319, 0.324, 0.329, 0.333, 0.338, 0.342,&
10326        0.347, 0.352, 0.356, 0.361, 0.365, 0.370, 0.375, 0.379, 0.384,&
10327        0.388, 0.393, 0.397, 0.402, 0.406, 0.411, 0.415, 0.420, 0.424,&
10328        0.429, 0.433, 0.438, 0.442, 0.447, 0.451, 0.456, 0.460, 0.464,&
10329        0.469, 0.473, 0.478, 0.482, 0.487, 0.491, 0.495, 0.500, 0.504,&
10330        0.508, 0.513, 0.517, 0.521, 0.526, 0.530, 0.534, 0.539, 0.543,&
10331        0.547, 0.552, 0.556, 0.560, 0.564, 0.569, 0.573, 0.577, 0.581,&
10332        0.586, 0.590, 0.594, 0.598, 0.602, 0.607, 0.611, 0.615, 0.619,&
10333        0.623, 0.627, 0.632, 0.636, 0.640, 0.644, 0.648, 0.652, 0.656,&
10334        0.660, 0.664, 0.669, 0.673, 0.677, 0.681, 0.685, 0.689, 0.693,&
10335        0.697, 0.701, 0.705, 0.709, 0.713, 0.717, 0.721, 0.725, 0.729,&
10336        0.733, 0.737, 0.741, 0.745, 0.749, 0.753, 0.757, 0.761, 0.765,&
10337        0.768, 0.772, 0.776, 0.780, 0.784, 0.788, 0.792, 0.796, 0.799,&
10338        0.803, 0.807, 0.811, 0.815, 0.819, 0.823, 0.826, 0.830, 0.834,&
10339        0.838, 0.842, 0.845, 0.849, 0.853, 0.857, 0.860, 0.864, 0.868,&
10340        0.872, 0.875, 0.879, 0.883, 0.886, 0.890, 0.894, 0.898, 0.901,&
10341        0.905, 0.909, 0.912, 0.916, 0.920, 0.923, 0.927, 0.930, 0.934,&
10342        0.938, 0.941, 0.945, 0.949, 0.952, 0.956, 0.959, 0.963, 0.966,&
10343        0.970, 0.974, 0.977, 0.981, 0.984, 0.988, 0.991, 0.995, 0.998,&
10344        1.002, 1.005, 1.009, 1.012, 1.016, 1.019, 1.023, 1.026, 1.030,&
10345        1.033, 1.037, 1.040, 1.044, 1.047, 1.050, 1.054, 1.057, 1.061,&
10346        1.064, 1.067, 1.071, 1.074, 1.078, 1.081, 1.084, 1.088, 1.091,&
10347        1.094, 1.098, 1.101, 1.105, 1.108, 1.111, 1.115, 1.118, 1.121,&
10348        1.124, 1.128, 1.131, 1.134, 1.138, 1.141, 1.144, 1.147, 1.151,&
10349        1.154, 1.157, 1.160, 1.164, 1.198, 1.230, 1.261, 1.292, 1.322,&
10350        1.351, 1.380, 1.409, 1.437, 1.465, 1.492, 1.519, 1.546, 1.572,&
10351        1.598, 1.623, 1.648, 1.673, 1.697, 1.721, 1.745, 1.768, 1.791,&
10352        1.814, 1.836, 1.858, 1.880, 1.901, 1.922, 1.943, 1.964, 1.984,&
10353        2.004, 2.024, 2.044, 2.063, 2.082, 2.101, 2.119, 2.138, 2.156,&
10354        2.174, 2.191, 2.209, 2.226, 2.243, 2.260, 2.276, 2.293, 2.309,&
10355        2.325, 2.341, 2.357, 2.372, 2.387, 2.403, 2.418, 2.432, 2.447,&
10356        2.461, 2.476, 2.490, 2.504, 2.518, 2.531, 2.545, 2.558, 2.571,&
10357        2.585, 2.597, 2.610, 2.623, 2.635, 2.648, 2.660, 2.672, 2.684,&
10358        2.696, 2.708, 2.720, 2.731, 2.742, 2.754, 2.765, 2.776, 2.787,&
10359        2.798, 2.808, 2.819, 2.830, 2.840, 2.850, 2.860, 2.871, 2.881,&
10360        2.890, 2.900, 2.910, 2.920, 2.929, 2.938, 2.948, 2.957, 2.966,&
10361        2.975, 2.984, 2.993, 3.002, 3.011, 3.019, 3.028, 3.036, 3.045,&
10362        3.053, 3.061, 3.069, 3.077, 3.085, 3.093, 3.101, 3.109, 3.117,&
10363        3.124, 3.132, 3.139, 3.147, 3.154, 3.161, 3.168, 3.176, 3.183,&
10364        3.190, 3.197, 3.203, 3.210, 3.217, 3.224, 3.230, 3.237, 3.243,&
10365        3.250, 3.256, 3.263, 3.269, 3.275, 3.281, 3.287, 3.293, 3.299,&
10366        3.305, 3.311, 3.317, 3.323, 3.329, 3.334, 3.340, 3.345, 3.351,&
10367        3.356, 3.362, 3.367                                           &
10368        /
10369 !C
10370 !C *** K2SO4
10371 !C
10372       DATA BNC17M/                                                   &
10373       -0.098,-0.214,-0.273,-0.315,-0.347,-0.375,-0.399,-0.419,-0.438,&
10374       -0.455,-0.470,-0.485,-0.498,-0.511,-0.522,-0.533,-0.544,-0.554,&
10375       -0.563,-0.572,-0.581,-0.590,-0.598,-0.605,-0.613,-0.620,-0.627,&
10376       -0.634,-0.641,-0.647,-0.653,-0.660,-0.666,-0.671,-0.677,-0.683,&
10377       -0.688,-0.693,-0.698,-0.703,-0.708,-0.713,-0.718,-0.723,-0.727,&
10378       -0.732,-0.736,-0.741,-0.745,-0.749,-0.753,-0.757,-0.762,-0.765,&
10379       -0.769,-0.773,-0.777,-0.781,-0.784,-0.788,-0.792,-0.795,-0.799,&
10380       -0.802,-0.806,-0.809,-0.812,-0.816,-0.819,-0.822,-0.825,-0.829,&
10381       -0.832,-0.835,-0.838,-0.841,-0.844,-0.847,-0.850,-0.853,-0.856,&
10382       -0.859,-0.862,-0.865,-0.867,-0.870,-0.873,-0.876,-0.879,-0.881,&
10383       -0.884,-0.887,-0.890,-0.892,-0.895,-0.898,-0.900,-0.903,-0.905,&
10384       -0.908,-0.911,-0.913,-0.916,-0.918,-0.921,-0.923,-0.926,-0.928,&
10385       -0.931,-0.933,-0.936,-0.938,-0.940,-0.943,-0.945,-0.948,-0.950,&
10386       -0.952,-0.955,-0.957,-0.959,-0.962,-0.964,-0.966,-0.969,-0.971,&
10387       -0.973,-0.975,-0.978,-0.980,-0.982,-0.984,-0.986,-0.989,-0.991,&
10388       -0.993,-0.995,-0.997,-0.999,-1.002,-1.004,-1.006,-1.008,-1.010,&
10389       -1.012,-1.014,-1.016,-1.018,-1.020,-1.022,-1.024,-1.026,-1.028,&
10390       -1.030,-1.032,-1.034,-1.036,-1.038,-1.040,-1.042,-1.044,-1.046,&
10391       -1.048,-1.050,-1.052,-1.054,-1.056,-1.058,-1.060,-1.062,-1.064,&
10392       -1.066,-1.067,-1.069,-1.071,-1.073,-1.075,-1.077,-1.079,-1.080,&
10393       -1.082,-1.084,-1.086,-1.088,-1.090,-1.091,-1.093,-1.095,-1.097,&
10394       -1.099,-1.100,-1.102,-1.104,-1.106,-1.107,-1.109,-1.111,-1.113,&
10395       -1.114,-1.116,-1.118,-1.120,-1.121,-1.123,-1.125,-1.127,-1.128,&
10396       -1.130,-1.132,-1.133,-1.135,-1.137,-1.138,-1.140,-1.142,-1.143,&
10397       -1.145,-1.147,-1.148,-1.150,-1.152,-1.153,-1.155,-1.157,-1.158,&
10398       -1.160,-1.162,-1.163,-1.165,-1.166,-1.168,-1.170,-1.171,-1.173,&
10399       -1.174,-1.176,-1.178,-1.179,-1.181,-1.182,-1.184,-1.185,-1.187,&
10400       -1.189,-1.190,-1.192,-1.193,-1.195,-1.196,-1.198,-1.199,-1.201,&
10401       -1.203,-1.204,-1.206,-1.207,-1.209,-1.210,-1.212,-1.213,-1.215,&
10402       -1.216,-1.218,-1.219,-1.221,-1.222,-1.224,-1.225,-1.227,-1.228,&
10403       -1.230,-1.231,-1.233,-1.234,-1.236,-1.237,-1.238,-1.240,-1.241,&
10404       -1.243,-1.244,-1.246,-1.247,-1.249,-1.250,-1.252,-1.253,-1.254,&
10405       -1.256,-1.257,-1.259,-1.260,-1.262,-1.263,-1.264,-1.266,-1.267,&
10406       -1.269,-1.270,-1.271,-1.273,-1.274,-1.276,-1.277,-1.278,-1.280,&
10407       -1.281,-1.283,-1.284,-1.285,-1.287,-1.288,-1.290,-1.291,-1.292,&
10408       -1.294,-1.295,-1.296,-1.298,-1.299,-1.301,-1.302,-1.303,-1.305,&
10409       -1.306,-1.307,-1.309,-1.310,-1.311,-1.313,-1.314,-1.315,-1.317,&
10410       -1.318,-1.319,-1.321,-1.322,-1.323,-1.325,-1.326,-1.327,-1.329,&
10411       -1.330,-1.331,-1.333,-1.334,-1.335,-1.337,-1.338,-1.339,-1.341,&
10412       -1.342,-1.343,-1.344,-1.346,-1.347,-1.348,-1.350,-1.351,-1.352,&
10413       -1.354,-1.355,-1.356,-1.357,-1.359,-1.360,-1.361,-1.363,-1.364,&
10414       -1.365,-1.366,-1.368,-1.369,-1.370,-1.371,-1.373,-1.374,-1.375,&
10415       -1.376,-1.378,-1.379,-1.380,-1.381,-1.383,-1.384,-1.385,-1.387,&
10416       -1.388,-1.389,-1.390,-1.391,-1.393,-1.394,-1.395,-1.396,-1.398,&
10417       -1.399,-1.400,-1.401,-1.403,-1.416,-1.428,-1.440,-1.452,-1.463,&
10418       -1.475,-1.487,-1.498,-1.509,-1.520,-1.532,-1.543,-1.554,-1.564,&
10419       -1.575,-1.586,-1.596,-1.607,-1.617,-1.628,-1.638,-1.648,-1.659,&
10420       -1.669,-1.679,-1.689,-1.699,-1.709,-1.719,-1.729,-1.738,-1.748,&
10421       -1.758,-1.767,-1.777,-1.786,-1.796,-1.805,-1.815,-1.824,-1.833,&
10422       -1.843,-1.852,-1.861,-1.870,-1.879,-1.888,-1.897,-1.906,-1.915,&
10423       -1.924,-1.933,-1.942,-1.951,-1.960,-1.969,-1.977,-1.986,-1.995,&
10424       -2.004,-2.012,-2.021,-2.029,-2.038,-2.047,-2.055,-2.064,-2.072,&
10425       -2.081,-2.089,-2.097,-2.106,-2.114,-2.123,-2.131,-2.139,-2.147,&
10426       -2.156,-2.164,-2.172,-2.180,-2.189,-2.197,-2.205,-2.213,-2.221,&
10427       -2.229,-2.237,-2.245,-2.253,-2.261,-2.269,-2.277,-2.285,-2.293,&
10428       -2.301,-2.309,-2.317,-2.325,-2.333,-2.341,-2.349,-2.356,-2.364,&
10429       -2.372,-2.380,-2.388,-2.395,-2.403,-2.411,-2.419,-2.426,-2.434,&
10430       -2.442,-2.449,-2.457,-2.465,-2.472,-2.480,-2.488,-2.495,-2.503,&
10431       -2.510,-2.518,-2.525,-2.533,-2.541,-2.548,-2.556,-2.563,-2.571,&
10432       -2.578,-2.586,-2.593,-2.600,-2.608,-2.615,-2.623,-2.630,-2.638,&
10433       -2.645,-2.652,-2.660,-2.667,-2.674,-2.682,-2.689,-2.696,-2.704,&
10434       -2.711,-2.718,-2.726,-2.733,-2.740,-2.747,-2.755,-2.762,-2.769,&
10435       -2.776,-2.784,-2.791                                           &
10436        /
10437 !C
10438 !C *** KHSO4
10439 !C
10440       DATA BNC18M/                                                   &
10441       -0.048,-0.102,-0.127,-0.145,-0.158,-0.169,-0.178,-0.185,-0.192,&
10442       -0.198,-0.203,-0.207,-0.211,-0.215,-0.218,-0.221,-0.224,-0.226,&
10443       -0.228,-0.230,-0.231,-0.232,-0.234,-0.235,-0.235,-0.236,-0.237,&
10444       -0.237,-0.237,-0.237,-0.237,-0.237,-0.237,-0.236,-0.236,-0.235,&
10445       -0.234,-0.234,-0.233,-0.232,-0.231,-0.230,-0.228,-0.227,-0.226,&
10446       -0.224,-0.223,-0.221,-0.220,-0.218,-0.216,-0.214,-0.212,-0.210,&
10447       -0.208,-0.206,-0.204,-0.202,-0.200,-0.198,-0.196,-0.193,-0.191,&
10448       -0.189,-0.186,-0.184,-0.181,-0.179,-0.176,-0.173,-0.171,-0.168,&
10449       -0.165,-0.163,-0.160,-0.157,-0.154,-0.151,-0.148,-0.146,-0.143,&
10450       -0.140,-0.137,-0.133,-0.130,-0.127,-0.124,-0.121,-0.118,-0.115,&
10451       -0.111,-0.108,-0.105,-0.101,-0.098,-0.095,-0.091,-0.088,-0.084,&
10452       -0.081,-0.077,-0.074,-0.070,-0.067,-0.063,-0.060,-0.056,-0.052,&
10453       -0.049,-0.045,-0.042,-0.038,-0.034,-0.031,-0.027,-0.023,-0.020,&
10454       -0.016,-0.012,-0.008,-0.005,-0.001, 0.003, 0.006, 0.010, 0.014,&
10455        0.018, 0.021, 0.025, 0.029, 0.032, 0.036, 0.040, 0.043, 0.047,&
10456        0.051, 0.054, 0.058, 0.062, 0.065, 0.069, 0.073, 0.076, 0.080,&
10457        0.084, 0.087, 0.091, 0.094, 0.098, 0.102, 0.105, 0.109, 0.112,&
10458        0.116, 0.119, 0.123, 0.127, 0.130, 0.134, 0.137, 0.141, 0.144,&
10459        0.148, 0.151, 0.155, 0.158, 0.162, 0.165, 0.168, 0.172, 0.175,&
10460        0.179, 0.182, 0.186, 0.189, 0.192, 0.196, 0.199, 0.202, 0.206,&
10461        0.209, 0.212, 0.216, 0.219, 0.222, 0.226, 0.229, 0.232, 0.236,&
10462        0.239, 0.242, 0.245, 0.249, 0.252, 0.255, 0.258, 0.262, 0.265,&
10463        0.268, 0.271, 0.274, 0.278, 0.281, 0.284, 0.287, 0.290, 0.293,&
10464        0.297, 0.300, 0.303, 0.306, 0.309, 0.312, 0.315, 0.318, 0.321,&
10465        0.324, 0.327, 0.330, 0.334, 0.337, 0.340, 0.343, 0.346, 0.349,&
10466        0.352, 0.355, 0.358, 0.361, 0.364, 0.367, 0.369, 0.372, 0.375,&
10467        0.378, 0.381, 0.384, 0.387, 0.390, 0.393, 0.396, 0.399, 0.402,&
10468        0.404, 0.407, 0.410, 0.413, 0.416, 0.419, 0.422, 0.424, 0.427,&
10469        0.430, 0.433, 0.436, 0.438, 0.441, 0.444, 0.447, 0.450, 0.452,&
10470        0.455, 0.458, 0.461, 0.463, 0.466, 0.469, 0.471, 0.474, 0.477,&
10471        0.480, 0.482, 0.485, 0.488, 0.490, 0.493, 0.496, 0.498, 0.501,&
10472        0.504, 0.506, 0.509, 0.512, 0.514, 0.517, 0.519, 0.522, 0.525,&
10473        0.527, 0.530, 0.532, 0.535, 0.538, 0.540, 0.543, 0.545, 0.548,&
10474        0.550, 0.553, 0.555, 0.558, 0.560, 0.563, 0.566, 0.568, 0.571,&
10475        0.573, 0.576, 0.578, 0.581, 0.583, 0.585, 0.588, 0.590, 0.593,&
10476        0.595, 0.598, 0.600, 0.603, 0.605, 0.607, 0.610, 0.612, 0.615,&
10477        0.617, 0.620, 0.622, 0.624, 0.627, 0.629, 0.632, 0.634, 0.636,&
10478        0.639, 0.641, 0.643, 0.646, 0.648, 0.650, 0.653, 0.655, 0.657,&
10479        0.660, 0.662, 0.664, 0.667, 0.669, 0.671, 0.674, 0.676, 0.678,&
10480        0.680, 0.683, 0.685, 0.687, 0.689, 0.692, 0.694, 0.696, 0.699,&
10481        0.701, 0.703, 0.705, 0.707, 0.710, 0.712, 0.714, 0.716, 0.719,&
10482        0.721, 0.723, 0.725, 0.727, 0.730, 0.732, 0.734, 0.736, 0.738,&
10483        0.740, 0.743, 0.745, 0.747, 0.749, 0.751, 0.753, 0.755, 0.758,&
10484        0.760, 0.762, 0.764, 0.766, 0.768, 0.770, 0.772, 0.775, 0.777,&
10485        0.779, 0.781, 0.783, 0.785, 0.807, 0.828, 0.848, 0.867, 0.886,&
10486        0.905, 0.924, 0.942, 0.960, 0.978, 0.995, 1.013, 1.029, 1.046,&
10487        1.062, 1.079, 1.095, 1.110, 1.126, 1.141, 1.156, 1.171, 1.185,&
10488        1.200, 1.214, 1.228, 1.242, 1.256, 1.269, 1.282, 1.295, 1.308,&
10489        1.321, 1.334, 1.346, 1.359, 1.371, 1.383, 1.395, 1.406, 1.418,&
10490        1.429, 1.441, 1.452, 1.463, 1.474, 1.485, 1.495, 1.506, 1.516,&
10491        1.527, 1.537, 1.547, 1.557, 1.567, 1.577, 1.586, 1.596, 1.605,&
10492        1.615, 1.624, 1.633, 1.642, 1.651, 1.660, 1.669, 1.678, 1.686,&
10493        1.695, 1.703, 1.711, 1.720, 1.728, 1.736, 1.744, 1.752, 1.760,&
10494        1.768, 1.775, 1.783, 1.791, 1.798, 1.806, 1.813, 1.820, 1.828,&
10495        1.835, 1.842, 1.849, 1.856, 1.863, 1.870, 1.876, 1.883, 1.890,&
10496        1.896, 1.903, 1.909, 1.916, 1.922, 1.928, 1.935, 1.941, 1.947,&
10497        1.953, 1.959, 1.965, 1.971, 1.977, 1.983, 1.989, 1.994, 2.000,&
10498        2.006, 2.011, 2.017, 2.022, 2.028, 2.033, 2.039, 2.044, 2.049,&
10499        2.054, 2.060, 2.065, 2.070, 2.075, 2.080, 2.085, 2.090, 2.095,&
10500        2.100, 2.104, 2.109, 2.114, 2.119, 2.123, 2.128, 2.132, 2.137,&
10501        2.142, 2.146, 2.150, 2.155, 2.159, 2.164, 2.168, 2.172, 2.176,&
10502        2.181, 2.185, 2.189, 2.193, 2.197, 2.201, 2.205, 2.209, 2.213,&
10503        2.217, 2.221, 2.225                                           &
10504        /
10505 !C
10506 !C *** KNO3
10507 !C
10508       DATA BNC19M/                                                   &
10509       -0.051,-0.116,-0.152,-0.180,-0.203,-0.223,-0.241,-0.257,-0.272,&
10510       -0.286,-0.300,-0.313,-0.325,-0.336,-0.348,-0.359,-0.369,-0.379,&
10511       -0.389,-0.399,-0.408,-0.417,-0.426,-0.435,-0.444,-0.452,-0.460,&
10512       -0.468,-0.476,-0.484,-0.492,-0.499,-0.507,-0.514,-0.521,-0.528,&
10513       -0.535,-0.542,-0.548,-0.555,-0.562,-0.568,-0.574,-0.580,-0.587,&
10514       -0.593,-0.599,-0.604,-0.610,-0.616,-0.622,-0.627,-0.633,-0.638,&
10515       -0.644,-0.649,-0.654,-0.659,-0.664,-0.670,-0.675,-0.680,-0.684,&
10516       -0.689,-0.694,-0.699,-0.704,-0.708,-0.713,-0.718,-0.722,-0.727,&
10517       -0.731,-0.736,-0.740,-0.745,-0.749,-0.754,-0.758,-0.763,-0.767,&
10518       -0.771,-0.776,-0.780,-0.784,-0.788,-0.793,-0.797,-0.801,-0.805,&
10519       -0.810,-0.814,-0.818,-0.822,-0.826,-0.830,-0.834,-0.839,-0.843,&
10520       -0.847,-0.851,-0.855,-0.859,-0.863,-0.867,-0.871,-0.875,-0.879,&
10521       -0.883,-0.887,-0.891,-0.895,-0.899,-0.903,-0.907,-0.910,-0.914,&
10522       -0.918,-0.922,-0.926,-0.930,-0.933,-0.937,-0.941,-0.945,-0.948,&
10523       -0.952,-0.956,-0.959,-0.963,-0.967,-0.970,-0.974,-0.977,-0.981,&
10524       -0.985,-0.988,-0.992,-0.995,-0.999,-1.002,-1.006,-1.009,-1.012,&
10525       -1.016,-1.019,-1.023,-1.026,-1.029,-1.033,-1.036,-1.039,-1.042,&
10526       -1.046,-1.049,-1.052,-1.055,-1.059,-1.062,-1.065,-1.068,-1.071,&
10527       -1.074,-1.078,-1.081,-1.084,-1.087,-1.090,-1.093,-1.096,-1.099,&
10528       -1.102,-1.105,-1.108,-1.111,-1.114,-1.117,-1.120,-1.123,-1.126,&
10529       -1.129,-1.131,-1.134,-1.137,-1.140,-1.143,-1.146,-1.149,-1.151,&
10530       -1.154,-1.157,-1.160,-1.162,-1.165,-1.168,-1.171,-1.173,-1.176,&
10531       -1.179,-1.181,-1.184,-1.187,-1.189,-1.192,-1.195,-1.197,-1.200,&
10532       -1.202,-1.205,-1.207,-1.210,-1.213,-1.215,-1.218,-1.220,-1.223,&
10533       -1.225,-1.228,-1.230,-1.233,-1.235,-1.237,-1.240,-1.242,-1.245,&
10534       -1.247,-1.250,-1.252,-1.254,-1.257,-1.259,-1.261,-1.264,-1.266,&
10535       -1.268,-1.271,-1.273,-1.275,-1.278,-1.280,-1.282,-1.284,-1.287,&
10536       -1.289,-1.291,-1.293,-1.296,-1.298,-1.300,-1.302,-1.304,-1.307,&
10537       -1.309,-1.311,-1.313,-1.315,-1.317,-1.319,-1.322,-1.324,-1.326,&
10538       -1.328,-1.330,-1.332,-1.334,-1.336,-1.338,-1.340,-1.342,-1.344,&
10539       -1.346,-1.348,-1.350,-1.352,-1.354,-1.356,-1.358,-1.360,-1.362,&
10540       -1.364,-1.366,-1.368,-1.370,-1.372,-1.374,-1.376,-1.378,-1.380,&
10541       -1.382,-1.384,-1.385,-1.387,-1.389,-1.391,-1.393,-1.395,-1.397,&
10542       -1.398,-1.400,-1.402,-1.404,-1.406,-1.408,-1.409,-1.411,-1.413,&
10543       -1.415,-1.417,-1.418,-1.420,-1.422,-1.424,-1.425,-1.427,-1.429,&
10544       -1.431,-1.432,-1.434,-1.436,-1.437,-1.439,-1.441,-1.443,-1.444,&
10545       -1.446,-1.448,-1.449,-1.451,-1.453,-1.454,-1.456,-1.458,-1.459,&
10546       -1.461,-1.462,-1.464,-1.466,-1.467,-1.469,-1.470,-1.472,-1.474,&
10547       -1.475,-1.477,-1.478,-1.480,-1.482,-1.483,-1.485,-1.486,-1.488,&
10548       -1.489,-1.491,-1.492,-1.494,-1.495,-1.497,-1.498,-1.500,-1.501,&
10549       -1.503,-1.504,-1.506,-1.507,-1.509,-1.510,-1.512,-1.513,-1.515,&
10550       -1.516,-1.518,-1.519,-1.521,-1.522,-1.523,-1.525,-1.526,-1.528,&
10551       -1.529,-1.530,-1.532,-1.533,-1.535,-1.536,-1.537,-1.539,-1.540,&
10552       -1.542,-1.543,-1.544,-1.546,-1.547,-1.548,-1.550,-1.551,-1.553,&
10553       -1.554,-1.555,-1.557,-1.558,-1.572,-1.585,-1.597,-1.609,-1.621,&
10554       -1.632,-1.643,-1.654,-1.665,-1.675,-1.685,-1.695,-1.705,-1.714,&
10555       -1.723,-1.732,-1.741,-1.750,-1.758,-1.766,-1.774,-1.782,-1.790,&
10556       -1.798,-1.805,-1.813,-1.820,-1.827,-1.834,-1.841,-1.848,-1.855,&
10557       -1.861,-1.868,-1.874,-1.881,-1.887,-1.893,-1.899,-1.905,-1.911,&
10558       -1.917,-1.923,-1.929,-1.934,-1.940,-1.945,-1.951,-1.956,-1.962,&
10559       -1.967,-1.972,-1.977,-1.982,-1.988,-1.993,-1.998,-2.003,-2.008,&
10560       -2.012,-2.017,-2.022,-2.027,-2.032,-2.036,-2.041,-2.046,-2.050,&
10561       -2.055,-2.059,-2.064,-2.068,-2.073,-2.077,-2.082,-2.086,-2.090,&
10562       -2.095,-2.099,-2.103,-2.108,-2.112,-2.116,-2.120,-2.124,-2.128,&
10563       -2.133,-2.137,-2.141,-2.145,-2.149,-2.153,-2.157,-2.161,-2.165,&
10564       -2.169,-2.173,-2.177,-2.181,-2.185,-2.189,-2.192,-2.196,-2.200,&
10565       -2.204,-2.208,-2.212,-2.216,-2.219,-2.223,-2.227,-2.231,-2.234,&
10566       -2.238,-2.242,-2.246,-2.249,-2.253,-2.257,-2.260,-2.264,-2.268,&
10567       -2.271,-2.275,-2.279,-2.282,-2.286,-2.289,-2.293,-2.297,-2.300,&
10568       -2.304,-2.307,-2.311,-2.315,-2.318,-2.322,-2.325,-2.329,-2.332,&
10569       -2.336,-2.339,-2.343,-2.346,-2.350,-2.353,-2.357,-2.360,-2.364,&
10570       -2.367,-2.370,-2.374,-2.377,-2.381,-2.384,-2.388,-2.391,-2.395,&
10571       -2.398,-2.401,-2.405                                           &
10572        /
10573 !C
10574 !C *** KCL
10575 !C
10576       DATA BNC20M/                                                   &
10577       -0.048,-0.103,-0.129,-0.147,-0.160,-0.171,-0.180,-0.188,-0.195,&
10578       -0.201,-0.206,-0.210,-0.215,-0.218,-0.222,-0.225,-0.228,-0.230,&
10579       -0.233,-0.235,-0.237,-0.239,-0.241,-0.242,-0.244,-0.245,-0.247,&
10580       -0.248,-0.249,-0.250,-0.251,-0.252,-0.253,-0.254,-0.255,-0.256,&
10581       -0.256,-0.257,-0.258,-0.258,-0.259,-0.260,-0.260,-0.261,-0.261,&
10582       -0.261,-0.262,-0.262,-0.263,-0.263,-0.263,-0.264,-0.264,-0.264,&
10583       -0.265,-0.265,-0.265,-0.265,-0.266,-0.266,-0.266,-0.266,-0.266,&
10584       -0.267,-0.267,-0.267,-0.267,-0.267,-0.267,-0.267,-0.267,-0.267,&
10585       -0.267,-0.268,-0.268,-0.268,-0.268,-0.268,-0.268,-0.268,-0.268,&
10586       -0.268,-0.267,-0.267,-0.267,-0.267,-0.267,-0.267,-0.267,-0.267,&
10587       -0.267,-0.267,-0.266,-0.266,-0.266,-0.266,-0.266,-0.265,-0.265,&
10588       -0.265,-0.265,-0.265,-0.264,-0.264,-0.264,-0.264,-0.263,-0.263,&
10589       -0.263,-0.262,-0.262,-0.262,-0.261,-0.261,-0.261,-0.260,-0.260,&
10590       -0.260,-0.259,-0.259,-0.259,-0.258,-0.258,-0.258,-0.257,-0.257,&
10591       -0.257,-0.256,-0.256,-0.256,-0.255,-0.255,-0.254,-0.254,-0.254,&
10592       -0.253,-0.253,-0.253,-0.252,-0.252,-0.251,-0.251,-0.251,-0.250,&
10593       -0.250,-0.249,-0.249,-0.249,-0.248,-0.248,-0.247,-0.247,-0.247,&
10594       -0.246,-0.246,-0.246,-0.245,-0.245,-0.244,-0.244,-0.244,-0.243,&
10595       -0.243,-0.242,-0.242,-0.242,-0.241,-0.241,-0.240,-0.240,-0.240,&
10596       -0.239,-0.239,-0.238,-0.238,-0.238,-0.237,-0.237,-0.236,-0.236,&
10597       -0.236,-0.235,-0.235,-0.234,-0.234,-0.234,-0.233,-0.233,-0.232,&
10598       -0.232,-0.232,-0.231,-0.231,-0.230,-0.230,-0.230,-0.229,-0.229,&
10599       -0.228,-0.228,-0.228,-0.227,-0.227,-0.227,-0.226,-0.226,-0.225,&
10600       -0.225,-0.225,-0.224,-0.224,-0.223,-0.223,-0.223,-0.222,-0.222,&
10601       -0.221,-0.221,-0.221,-0.220,-0.220,-0.220,-0.219,-0.219,-0.218,&
10602       -0.218,-0.218,-0.217,-0.217,-0.217,-0.216,-0.216,-0.215,-0.215,&
10603       -0.215,-0.214,-0.214,-0.214,-0.213,-0.213,-0.212,-0.212,-0.212,&
10604       -0.211,-0.211,-0.211,-0.210,-0.210,-0.209,-0.209,-0.209,-0.208,&
10605       -0.208,-0.208,-0.207,-0.207,-0.207,-0.206,-0.206,-0.205,-0.205,&
10606       -0.205,-0.204,-0.204,-0.204,-0.203,-0.203,-0.203,-0.202,-0.202,&
10607       -0.202,-0.201,-0.201,-0.201,-0.200,-0.200,-0.199,-0.199,-0.199,&
10608       -0.198,-0.198,-0.198,-0.197,-0.197,-0.197,-0.196,-0.196,-0.196,&
10609       -0.195,-0.195,-0.195,-0.194,-0.194,-0.194,-0.193,-0.193,-0.193,&
10610       -0.192,-0.192,-0.192,-0.191,-0.191,-0.191,-0.190,-0.190,-0.190,&
10611       -0.189,-0.189,-0.189,-0.188,-0.188,-0.188,-0.187,-0.187,-0.187,&
10612       -0.186,-0.186,-0.186,-0.186,-0.185,-0.185,-0.185,-0.184,-0.184,&
10613       -0.184,-0.183,-0.183,-0.183,-0.182,-0.182,-0.182,-0.181,-0.181,&
10614       -0.181,-0.181,-0.180,-0.180,-0.180,-0.179,-0.179,-0.179,-0.178,&
10615       -0.178,-0.178,-0.178,-0.177,-0.177,-0.177,-0.176,-0.176,-0.176,&
10616       -0.175,-0.175,-0.175,-0.175,-0.174,-0.174,-0.174,-0.173,-0.173,&
10617       -0.173,-0.173,-0.172,-0.172,-0.172,-0.171,-0.171,-0.171,-0.171,&
10618       -0.170,-0.170,-0.170,-0.169,-0.169,-0.169,-0.169,-0.168,-0.168,&
10619       -0.168,-0.167,-0.167,-0.167,-0.167,-0.166,-0.166,-0.166,-0.166,&
10620       -0.165,-0.165,-0.165,-0.164,-0.164,-0.164,-0.164,-0.163,-0.163,&
10621       -0.163,-0.163,-0.162,-0.162,-0.159,-0.157,-0.154,-0.152,-0.149,&
10622       -0.147,-0.145,-0.143,-0.141,-0.139,-0.137,-0.135,-0.133,-0.131,&
10623       -0.129,-0.127,-0.126,-0.124,-0.122,-0.121,-0.119,-0.118,-0.116,&
10624       -0.115,-0.114,-0.112,-0.111,-0.110,-0.109,-0.107,-0.106,-0.105,&
10625       -0.104,-0.103,-0.102,-0.101,-0.100,-0.099,-0.099,-0.098,-0.097,&
10626       -0.096,-0.095,-0.095,-0.094,-0.093,-0.093,-0.092,-0.092,-0.091,&
10627       -0.091,-0.090,-0.090,-0.089,-0.089,-0.089,-0.088,-0.088,-0.088,&
10628       -0.087,-0.087,-0.087,-0.087,-0.087,-0.086,-0.086,-0.086,-0.086,&
10629       -0.086,-0.086,-0.086,-0.086,-0.086,-0.086,-0.086,-0.086,-0.086,&
10630       -0.086,-0.086,-0.086,-0.087,-0.087,-0.087,-0.087,-0.087,-0.088,&
10631       -0.088,-0.088,-0.088,-0.089,-0.089,-0.089,-0.090,-0.090,-0.090,&
10632       -0.091,-0.091,-0.092,-0.092,-0.092,-0.093,-0.093,-0.094,-0.094,&
10633       -0.095,-0.095,-0.096,-0.096,-0.097,-0.098,-0.098,-0.099,-0.099,&
10634       -0.100,-0.101,-0.101,-0.102,-0.103,-0.103,-0.104,-0.105,-0.105,&
10635       -0.106,-0.107,-0.107,-0.108,-0.109,-0.110,-0.111,-0.111,-0.112,&
10636       -0.113,-0.114,-0.115,-0.115,-0.116,-0.117,-0.118,-0.119,-0.120,&
10637       -0.121,-0.122,-0.122,-0.123,-0.124,-0.125,-0.126,-0.127,-0.128,&
10638       -0.129,-0.130,-0.131,-0.132,-0.133,-0.134,-0.135,-0.136,-0.137,&
10639       -0.138,-0.139,-0.140                                           &
10640        /
10641 !C
10642 !C *** MGSO4
10643 !C
10644       DATA BNC21M/                                                   &
10645       -0.195,-0.422,-0.535,-0.614,-0.676,-0.727,-0.770,-0.808,-0.841,&
10646       -0.871,-0.898,-0.923,-0.946,-0.968,-0.988,-1.006,-1.024,-1.041,&
10647       -1.056,-1.071,-1.085,-1.099,-1.112,-1.124,-1.136,-1.148,-1.159,&
10648       -1.169,-1.179,-1.189,-1.199,-1.208,-1.217,-1.226,-1.234,-1.243,&
10649       -1.251,-1.258,-1.266,-1.273,-1.281,-1.288,-1.295,-1.302,-1.308,&
10650       -1.315,-1.321,-1.327,-1.333,-1.339,-1.345,-1.351,-1.357,-1.362,&
10651       -1.368,-1.373,-1.379,-1.384,-1.389,-1.394,-1.399,-1.404,-1.409,&
10652       -1.413,-1.418,-1.423,-1.427,-1.432,-1.436,-1.441,-1.445,-1.449,&
10653       -1.454,-1.458,-1.462,-1.466,-1.470,-1.474,-1.478,-1.482,-1.486,&
10654       -1.489,-1.493,-1.497,-1.500,-1.504,-1.508,-1.511,-1.515,-1.518,&
10655       -1.522,-1.525,-1.528,-1.532,-1.535,-1.538,-1.541,-1.545,-1.548,&
10656       -1.551,-1.554,-1.557,-1.560,-1.563,-1.566,-1.569,-1.572,-1.575,&
10657       -1.578,-1.581,-1.584,-1.586,-1.589,-1.592,-1.595,-1.598,-1.600,&
10658       -1.603,-1.606,-1.608,-1.611,-1.614,-1.616,-1.619,-1.621,-1.624,&
10659       -1.626,-1.629,-1.631,-1.634,-1.636,-1.639,-1.641,-1.644,-1.646,&
10660       -1.649,-1.651,-1.653,-1.656,-1.658,-1.660,-1.663,-1.665,-1.667,&
10661       -1.670,-1.672,-1.674,-1.676,-1.679,-1.681,-1.683,-1.685,-1.688,&
10662       -1.690,-1.692,-1.694,-1.696,-1.698,-1.701,-1.703,-1.705,-1.707,&
10663       -1.709,-1.711,-1.713,-1.715,-1.717,-1.720,-1.722,-1.724,-1.726,&
10664       -1.728,-1.730,-1.732,-1.734,-1.736,-1.738,-1.740,-1.742,-1.744,&
10665       -1.746,-1.748,-1.750,-1.752,-1.754,-1.756,-1.757,-1.759,-1.761,&
10666       -1.763,-1.765,-1.767,-1.769,-1.771,-1.773,-1.775,-1.776,-1.778,&
10667       -1.780,-1.782,-1.784,-1.786,-1.788,-1.789,-1.791,-1.793,-1.795,&
10668       -1.797,-1.799,-1.800,-1.802,-1.804,-1.806,-1.808,-1.809,-1.811,&
10669       -1.813,-1.815,-1.816,-1.818,-1.820,-1.822,-1.823,-1.825,-1.827,&
10670       -1.829,-1.830,-1.832,-1.834,-1.836,-1.837,-1.839,-1.841,-1.842,&
10671       -1.844,-1.846,-1.848,-1.849,-1.851,-1.853,-1.854,-1.856,-1.858,&
10672       -1.859,-1.861,-1.863,-1.864,-1.866,-1.868,-1.869,-1.871,-1.873,&
10673       -1.874,-1.876,-1.878,-1.879,-1.881,-1.882,-1.884,-1.886,-1.887,&
10674       -1.889,-1.891,-1.892,-1.894,-1.895,-1.897,-1.899,-1.900,-1.902,&
10675       -1.903,-1.905,-1.907,-1.908,-1.910,-1.911,-1.913,-1.915,-1.916,&
10676       -1.918,-1.919,-1.921,-1.922,-1.924,-1.925,-1.927,-1.929,-1.930,&
10677       -1.932,-1.933,-1.935,-1.936,-1.938,-1.939,-1.941,-1.943,-1.944,&
10678       -1.946,-1.947,-1.949,-1.950,-1.952,-1.953,-1.955,-1.956,-1.958,&
10679       -1.959,-1.961,-1.962,-1.964,-1.965,-1.967,-1.968,-1.970,-1.971,&
10680       -1.973,-1.974,-1.976,-1.977,-1.979,-1.980,-1.982,-1.983,-1.985,&
10681       -1.986,-1.988,-1.989,-1.991,-1.992,-1.994,-1.995,-1.997,-1.998,&
10682       -2.000,-2.001,-2.003,-2.004,-2.006,-2.007,-2.008,-2.010,-2.011,&
10683       -2.013,-2.014,-2.016,-2.017,-2.019,-2.020,-2.022,-2.023,-2.024,&
10684       -2.026,-2.027,-2.029,-2.030,-2.032,-2.033,-2.035,-2.036,-2.037,&
10685       -2.039,-2.040,-2.042,-2.043,-2.045,-2.046,-2.047,-2.049,-2.050,&
10686       -2.052,-2.053,-2.055,-2.056,-2.057,-2.059,-2.060,-2.062,-2.063,&
10687       -2.065,-2.066,-2.067,-2.069,-2.070,-2.072,-2.073,-2.074,-2.076,&
10688       -2.077,-2.079,-2.080,-2.081,-2.083,-2.084,-2.086,-2.087,-2.088,&
10689       -2.090,-2.091,-2.093,-2.094,-2.109,-2.123,-2.137,-2.150,-2.164,&
10690       -2.177,-2.191,-2.204,-2.217,-2.231,-2.244,-2.257,-2.270,-2.283,&
10691       -2.296,-2.309,-2.322,-2.335,-2.348,-2.361,-2.374,-2.386,-2.399,&
10692       -2.412,-2.425,-2.437,-2.450,-2.463,-2.475,-2.488,-2.500,-2.513,&
10693       -2.525,-2.538,-2.550,-2.563,-2.575,-2.588,-2.600,-2.612,-2.625,&
10694       -2.637,-2.650,-2.662,-2.674,-2.686,-2.699,-2.711,-2.723,-2.736,&
10695       -2.748,-2.760,-2.772,-2.784,-2.797,-2.809,-2.821,-2.833,-2.845,&
10696       -2.857,-2.870,-2.882,-2.894,-2.906,-2.918,-2.930,-2.942,-2.954,&
10697       -2.966,-2.978,-2.991,-3.003,-3.015,-3.027,-3.039,-3.051,-3.063,&
10698       -3.075,-3.087,-3.099,-3.111,-3.123,-3.135,-3.147,-3.159,-3.171,&
10699       -3.182,-3.194,-3.206,-3.218,-3.230,-3.242,-3.254,-3.266,-3.278,&
10700       -3.290,-3.302,-3.314,-3.325,-3.337,-3.349,-3.361,-3.373,-3.385,&
10701       -3.397,-3.409,-3.420,-3.432,-3.444,-3.456,-3.468,-3.480,-3.491,&
10702       -3.503,-3.515,-3.527,-3.539,-3.551,-3.562,-3.574,-3.586,-3.598,&
10703       -3.609,-3.621,-3.633,-3.645,-3.657,-3.668,-3.680,-3.692,-3.704,&
10704       -3.715,-3.727,-3.739,-3.751,-3.762,-3.774,-3.786,-3.798,-3.809,&
10705       -3.821,-3.833,-3.844,-3.856,-3.868,-3.880,-3.891,-3.903,-3.915,&
10706       -3.926,-3.938,-3.950,-3.961,-3.973,-3.985,-3.997,-4.008,-4.020,&
10707       -4.032,-4.043,-4.055                                           &
10708        /
10709 !C
10710 !C *** MGNO32
10711 !C
10712       DATA BNC22M/                                                   &
10713       -0.095,-0.197,-0.243,-0.273,-0.294,-0.311,-0.323,-0.333,-0.342,&
10714       -0.348,-0.353,-0.358,-0.361,-0.364,-0.366,-0.367,-0.368,-0.368,&
10715       -0.368,-0.368,-0.368,-0.367,-0.366,-0.364,-0.363,-0.361,-0.359,&
10716       -0.357,-0.355,-0.353,-0.351,-0.348,-0.346,-0.343,-0.340,-0.337,&
10717       -0.335,-0.332,-0.329,-0.326,-0.323,-0.320,-0.316,-0.313,-0.310,&
10718       -0.307,-0.304,-0.300,-0.297,-0.294,-0.290,-0.287,-0.284,-0.280,&
10719       -0.277,-0.274,-0.270,-0.267,-0.264,-0.260,-0.257,-0.253,-0.250,&
10720       -0.247,-0.243,-0.240,-0.236,-0.233,-0.229,-0.226,-0.222,-0.219,&
10721       -0.215,-0.211,-0.208,-0.204,-0.200,-0.197,-0.193,-0.189,-0.186,&
10722       -0.182,-0.178,-0.174,-0.170,-0.166,-0.162,-0.158,-0.154,-0.150,&
10723       -0.146,-0.142,-0.138,-0.134,-0.130,-0.125,-0.121,-0.117,-0.113,&
10724       -0.108,-0.104,-0.100,-0.095,-0.091,-0.086,-0.082,-0.077,-0.073,&
10725       -0.068,-0.064,-0.059,-0.055,-0.050,-0.045,-0.041,-0.036,-0.032,&
10726       -0.027,-0.022,-0.018,-0.013,-0.008,-0.004, 0.001, 0.006, 0.010,&
10727        0.015, 0.020, 0.024, 0.029, 0.034, 0.039, 0.043, 0.048, 0.053,&
10728        0.057, 0.062, 0.067, 0.071, 0.076, 0.081, 0.085, 0.090, 0.095,&
10729        0.099, 0.104, 0.109, 0.113, 0.118, 0.122, 0.127, 0.132, 0.136,&
10730        0.141, 0.145, 0.150, 0.155, 0.159, 0.164, 0.168, 0.173, 0.178,&
10731        0.182, 0.187, 0.191, 0.196, 0.200, 0.205, 0.209, 0.214, 0.218,&
10732        0.223, 0.227, 0.232, 0.236, 0.241, 0.245, 0.250, 0.254, 0.259,&
10733        0.263, 0.268, 0.272, 0.276, 0.281, 0.285, 0.290, 0.294, 0.299,&
10734        0.303, 0.307, 0.312, 0.316, 0.320, 0.325, 0.329, 0.333, 0.338,&
10735        0.342, 0.346, 0.351, 0.355, 0.359, 0.364, 0.368, 0.372, 0.377,&
10736        0.381, 0.385, 0.389, 0.394, 0.398, 0.402, 0.406, 0.411, 0.415,&
10737        0.419, 0.423, 0.427, 0.432, 0.436, 0.440, 0.444, 0.448, 0.452,&
10738        0.457, 0.461, 0.465, 0.469, 0.473, 0.477, 0.481, 0.485, 0.490,&
10739        0.494, 0.498, 0.502, 0.506, 0.510, 0.514, 0.518, 0.522, 0.526,&
10740        0.530, 0.534, 0.538, 0.542, 0.546, 0.550, 0.554, 0.558, 0.562,&
10741        0.566, 0.570, 0.574, 0.578, 0.582, 0.586, 0.590, 0.594, 0.598,&
10742        0.602, 0.605, 0.609, 0.613, 0.617, 0.621, 0.625, 0.629, 0.633,&
10743        0.636, 0.640, 0.644, 0.648, 0.652, 0.656, 0.659, 0.663, 0.667,&
10744        0.671, 0.674, 0.678, 0.682, 0.686, 0.690, 0.693, 0.697, 0.701,&
10745        0.704, 0.708, 0.712, 0.716, 0.719, 0.723, 0.727, 0.730, 0.734,&
10746        0.738, 0.741, 0.745, 0.749, 0.752, 0.756, 0.760, 0.763, 0.767,&
10747        0.771, 0.774, 0.778, 0.781, 0.785, 0.789, 0.792, 0.796, 0.799,&
10748        0.803, 0.806, 0.810, 0.813, 0.817, 0.821, 0.824, 0.828, 0.831,&
10749        0.835, 0.838, 0.842, 0.845, 0.849, 0.852, 0.856, 0.859, 0.862,&
10750        0.866, 0.869, 0.873, 0.876, 0.880, 0.883, 0.886, 0.890, 0.893,&
10751        0.897, 0.900, 0.903, 0.907, 0.910, 0.914, 0.917, 0.920, 0.924,&
10752        0.927, 0.930, 0.934, 0.937, 0.940, 0.944, 0.947, 0.950, 0.954,&
10753        0.957, 0.960, 0.963, 0.967, 0.970, 0.973, 0.977, 0.980, 0.983,&
10754        0.986, 0.990, 0.993, 0.996, 0.999, 1.003, 1.006, 1.009, 1.012,&
10755        1.015, 1.019, 1.022, 1.025, 1.028, 1.031, 1.034, 1.038, 1.041,&
10756        1.044, 1.047, 1.050, 1.053, 1.056, 1.060, 1.063, 1.066, 1.069,&
10757        1.072, 1.075, 1.078, 1.081, 1.114, 1.144, 1.174, 1.203, 1.232,&
10758        1.260, 1.288, 1.315, 1.342, 1.369, 1.395, 1.420, 1.446, 1.471,&
10759        1.495, 1.519, 1.543, 1.567, 1.590, 1.613, 1.635, 1.657, 1.679,&
10760        1.701, 1.722, 1.743, 1.764, 1.784, 1.804, 1.824, 1.844, 1.863,&
10761        1.882, 1.901, 1.920, 1.938, 1.956, 1.974, 1.992, 2.009, 2.026,&
10762        2.043, 2.060, 2.077, 2.093, 2.109, 2.125, 2.141, 2.157, 2.172,&
10763        2.187, 2.202, 2.217, 2.232, 2.246, 2.261, 2.275, 2.289, 2.303,&
10764        2.317, 2.330, 2.344, 2.357, 2.370, 2.383, 2.396, 2.408, 2.421,&
10765        2.433, 2.445, 2.458, 2.470, 2.481, 2.493, 2.505, 2.516, 2.528,&
10766        2.539, 2.550, 2.561, 2.572, 2.583, 2.593, 2.604, 2.614, 2.625,&
10767        2.635, 2.645, 2.655, 2.665, 2.675, 2.684, 2.694, 2.704, 2.713,&
10768        2.722, 2.732, 2.741, 2.750, 2.759, 2.768, 2.776, 2.785, 2.794,&
10769        2.802, 2.811, 2.819, 2.827, 2.835, 2.843, 2.851, 2.859, 2.867,&
10770        2.875, 2.883, 2.890, 2.898, 2.906, 2.913, 2.920, 2.928, 2.935,&
10771        2.942, 2.949, 2.956, 2.963, 2.970, 2.977, 2.983, 2.990, 2.997,&
10772        3.003, 3.010, 3.016, 3.022, 3.029, 3.035, 3.041, 3.047, 3.053,&
10773        3.059, 3.065, 3.071, 3.077, 3.083, 3.089, 3.094, 3.100, 3.105,&
10774        3.111, 3.116, 3.122, 3.127, 3.133, 3.138, 3.143, 3.148, 3.153,&
10775        3.158, 3.163, 3.168                                           &
10776        /
10777 !C
10778 !C *** MGCL2
10779 !C
10780       DATA BNC23M/                                                   &
10781       -0.094,-0.194,-0.238,-0.266,-0.285,-0.299,-0.310,-0.319,-0.325,&
10782       -0.330,-0.333,-0.336,-0.337,-0.338,-0.338,-0.338,-0.337,-0.336,&
10783       -0.334,-0.332,-0.330,-0.328,-0.325,-0.322,-0.319,-0.315,-0.312,&
10784       -0.308,-0.304,-0.300,-0.296,-0.292,-0.288,-0.283,-0.279,-0.274,&
10785       -0.270,-0.265,-0.261,-0.256,-0.251,-0.247,-0.242,-0.237,-0.232,&
10786       -0.227,-0.222,-0.218,-0.213,-0.208,-0.203,-0.198,-0.193,-0.188,&
10787       -0.183,-0.178,-0.173,-0.168,-0.163,-0.158,-0.153,-0.148,-0.143,&
10788       -0.138,-0.133,-0.128,-0.123,-0.118,-0.113,-0.108,-0.103,-0.097,&
10789       -0.092,-0.087,-0.082,-0.077,-0.071,-0.066,-0.061,-0.055,-0.050,&
10790       -0.045,-0.039,-0.034,-0.028,-0.023,-0.017,-0.011,-0.006, 0.000,&
10791        0.006, 0.011, 0.017, 0.023, 0.029, 0.035, 0.041, 0.047, 0.053,&
10792        0.059, 0.065, 0.071, 0.077, 0.083, 0.089, 0.096, 0.102, 0.108,&
10793        0.114, 0.121, 0.127, 0.133, 0.140, 0.146, 0.152, 0.159, 0.165,&
10794        0.171, 0.178, 0.184, 0.191, 0.197, 0.203, 0.210, 0.216, 0.223,&
10795        0.229, 0.236, 0.242, 0.249, 0.255, 0.261, 0.268, 0.274, 0.281,&
10796        0.287, 0.293, 0.300, 0.306, 0.313, 0.319, 0.325, 0.332, 0.338,&
10797        0.345, 0.351, 0.357, 0.364, 0.370, 0.376, 0.383, 0.389, 0.395,&
10798        0.402, 0.408, 0.414, 0.421, 0.427, 0.433, 0.439, 0.446, 0.452,&
10799        0.458, 0.464, 0.471, 0.477, 0.483, 0.489, 0.495, 0.502, 0.508,&
10800        0.514, 0.520, 0.526, 0.532, 0.538, 0.545, 0.551, 0.557, 0.563,&
10801        0.569, 0.575, 0.581, 0.587, 0.593, 0.599, 0.605, 0.611, 0.617,&
10802        0.623, 0.629, 0.635, 0.641, 0.647, 0.653, 0.659, 0.665, 0.671,&
10803        0.677, 0.683, 0.689, 0.694, 0.700, 0.706, 0.712, 0.718, 0.724,&
10804        0.730, 0.735, 0.741, 0.747, 0.753, 0.759, 0.764, 0.770, 0.776,&
10805        0.782, 0.787, 0.793, 0.799, 0.804, 0.810, 0.816, 0.822, 0.827,&
10806        0.833, 0.838, 0.844, 0.850, 0.855, 0.861, 0.867, 0.872, 0.878,&
10807        0.883, 0.889, 0.894, 0.900, 0.905, 0.911, 0.916, 0.922, 0.927,&
10808        0.933, 0.938, 0.944, 0.949, 0.955, 0.960, 0.966, 0.971, 0.976,&
10809        0.982, 0.987, 0.993, 0.998, 1.003, 1.009, 1.014, 1.019, 1.025,&
10810        1.030, 1.035, 1.041, 1.046, 1.051, 1.056, 1.062, 1.067, 1.072,&
10811        1.077, 1.083, 1.088, 1.093, 1.098, 1.103, 1.109, 1.114, 1.119,&
10812        1.124, 1.129, 1.134, 1.139, 1.144, 1.150, 1.155, 1.160, 1.165,&
10813        1.170, 1.175, 1.180, 1.185, 1.190, 1.195, 1.200, 1.205, 1.210,&
10814        1.215, 1.220, 1.225, 1.230, 1.235, 1.240, 1.245, 1.250, 1.255,&
10815        1.260, 1.264, 1.269, 1.274, 1.279, 1.284, 1.289, 1.294, 1.299,&
10816        1.303, 1.308, 1.313, 1.318, 1.323, 1.327, 1.332, 1.337, 1.342,&
10817        1.346, 1.351, 1.356, 1.361, 1.365, 1.370, 1.375, 1.380, 1.384,&
10818        1.389, 1.394, 1.398, 1.403, 1.408, 1.412, 1.417, 1.421, 1.426,&
10819        1.431, 1.435, 1.440, 1.444, 1.449, 1.454, 1.458, 1.463, 1.467,&
10820        1.472, 1.476, 1.481, 1.485, 1.490, 1.494, 1.499, 1.503, 1.508,&
10821        1.512, 1.517, 1.521, 1.526, 1.530, 1.535, 1.539, 1.543, 1.548,&
10822        1.552, 1.557, 1.561, 1.565, 1.570, 1.574, 1.578, 1.583, 1.587,&
10823        1.591, 1.596, 1.600, 1.604, 1.609, 1.613, 1.617, 1.622, 1.626,&
10824        1.630, 1.634, 1.639, 1.643, 1.647, 1.651, 1.656, 1.660, 1.664,&
10825        1.668, 1.672, 1.677, 1.681, 1.726, 1.766, 1.807, 1.846, 1.885,&
10826        1.923, 1.961, 1.998, 2.034, 2.070, 2.105, 2.140, 2.175, 2.208,&
10827        2.242, 2.275, 2.307, 2.339, 2.370, 2.401, 2.432, 2.462, 2.492,&
10828        2.521, 2.550, 2.579, 2.607, 2.635, 2.662, 2.690, 2.716, 2.743,&
10829        2.769, 2.795, 2.820, 2.845, 2.870, 2.895, 2.919, 2.943, 2.966,&
10830        2.990, 3.013, 3.036, 3.058, 3.081, 3.103, 3.124, 3.146, 3.167,&
10831        3.188, 3.209, 3.230, 3.250, 3.270, 3.290, 3.310, 3.329, 3.349,&
10832        3.368, 3.387, 3.405, 3.424, 3.442, 3.460, 3.478, 3.496, 3.513,&
10833        3.531, 3.548, 3.565, 3.582, 3.599, 3.615, 3.631, 3.648, 3.664,&
10834        3.680, 3.695, 3.711, 3.726, 3.742, 3.757, 3.772, 3.787, 3.801,&
10835        3.816, 3.830, 3.845, 3.859, 3.873, 3.887, 3.901, 3.914, 3.928,&
10836        3.941, 3.955, 3.968, 3.981, 3.994, 4.007, 4.019, 4.032, 4.044,&
10837        4.057, 4.069, 4.081, 4.093, 4.105, 4.117, 4.129, 4.141, 4.152,&
10838        4.164, 4.175, 4.186, 4.197, 4.209, 4.220, 4.230, 4.241, 4.252,&
10839        4.263, 4.273, 4.284, 4.294, 4.304, 4.314, 4.324, 4.335, 4.344,&
10840        4.354, 4.364, 4.374, 4.383, 4.393, 4.402, 4.412, 4.421, 4.430,&
10841        4.440, 4.449, 4.458, 4.467, 4.476, 4.484, 4.493, 4.502, 4.510,&
10842        4.519, 4.527, 4.536, 4.544, 4.553, 4.561, 4.569, 4.577, 4.585,&
10843        4.593, 4.601, 4.609                                           &
10844        /
10845       END
10846 !C
10847 !C=======================================================================
10848 !C
10849 !C *** ISORROPIA CODE
10850 !C *** SUBROUTINE KM273
10851 !C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD.
10852 !C     THE COMPUTATIONS HAVE BEEN PERFORMED AND THE RESULTS ARE STORED IN
10853 !C     LOOKUP TABLES. THE IONIC ACTIVITY 'IN' IS INPUT, AND THE ARRAY
10854 !C     'BINARR' IS RETURNED WITH THE BINARY COEFFICIENTS.
10855 !C
10856 !C     TEMPERATURE IS 273K
10857 !C
10858 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
10859 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
10860 !C *** WRITTEN BY ATHANASIOS NENES
10861 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
10862 !C
10863 !C=======================================================================
10864 !C
10865       SUBROUTINE KM2732p1 (IONIC, BINARR)
10866 !C
10867 !C *** Common block definition
10868 !C
10869       COMMON /KMC2732p1/                                          &
10870       BNC01M(  561),BNC02M(  561),BNC03M(  561),BNC04M(  561), &
10871       BNC05M(  561),BNC06M(  561),BNC07M(  561),BNC08M(  561), &
10872       BNC09M(  561),BNC10M(  561),BNC11M(  561),BNC12M(  561), &
10873       BNC13M(  561),BNC14M(  561),BNC15M(  561),BNC16M(  561), &
10874       BNC17M(  561),BNC18M(  561),BNC19M(  561),BNC20M(  561), &
10875       BNC21M(  561),BNC22M(  561),BNC23M(  561)
10876       REAL Binarr (23), Ionic
10877 !C
10878 !C *** Find position in arrays for bincoef
10879 !C
10880       IF (Ionic.LE. 0.200000E+02) THEN
10881          ipos = MIN(NINT( 0.200000E+02*Ionic) + 1,  400)
10882       ELSE
10883          ipos =   400+NINT( 0.200000E+01*Ionic- 0.400000E+02)
10884       ENDIF
10885       ipos = min(ipos,  561)
10886 !C
10887 !C *** Assign values to return array
10888 !C
10889       Binarr(01) = BNC01M(ipos)
10890       Binarr(02) = BNC02M(ipos)
10891       Binarr(03) = BNC03M(ipos)
10892       Binarr(04) = BNC04M(ipos)
10893       Binarr(05) = BNC05M(ipos)
10894       Binarr(06) = BNC06M(ipos)
10895       Binarr(07) = BNC07M(ipos)
10896       Binarr(08) = BNC08M(ipos)
10897       Binarr(09) = BNC09M(ipos)
10898       Binarr(10) = BNC10M(ipos)
10899       Binarr(11) = BNC11M(ipos)
10900       Binarr(12) = BNC12M(ipos)
10901       Binarr(13) = BNC13M(ipos)
10902       Binarr(14) = BNC14M(ipos)
10903       Binarr(15) = BNC15M(ipos)
10904       Binarr(16) = BNC16M(ipos)
10905       Binarr(17) = BNC17M(ipos)
10906       Binarr(18) = BNC18M(ipos)
10907       Binarr(19) = BNC19M(ipos)
10908       Binarr(20) = BNC20M(ipos)
10909       Binarr(21) = BNC21M(ipos)
10910       Binarr(22) = BNC22M(ipos)
10911       Binarr(23) = BNC23M(ipos)
10912 !C
10913 !C *** Return point ; End of subroutine
10914 !C
10915       RETURN
10916       END
10917
10918
10919       BLOCK DATA KMCF2732p1
10920 !C
10921 !C *** Common block definition
10922 !C
10923       COMMON /KMC2732p1/                                         &
10924       BNC01M(  561),BNC02M(  561),BNC03M(  561),BNC04M(  561),&
10925       BNC05M(  561),BNC06M(  561),BNC07M(  561),BNC08M(  561),&
10926       BNC09M(  561),BNC10M(  561),BNC11M(  561),BNC12M(  561),&
10927       BNC13M(  561),BNC14M(  561),BNC15M(  561),BNC16M(  561),&
10928       BNC17M(  561),BNC18M(  561),BNC19M(  561),BNC20M(  561),&
10929       BNC21M(  561),BNC22M(  561),BNC23M(  561)
10930
10931 !C
10932 !C *** NaCl
10933 !C
10934       DATA BNC01M/                                                   &
10935       -0.046,-0.097,-0.119,-0.134,-0.145,-0.153,-0.160,-0.165,-0.169,&
10936       -0.173,-0.176,-0.178,-0.180,-0.181,-0.182,-0.183,-0.184,-0.184,&
10937       -0.185,-0.185,-0.185,-0.185,-0.184,-0.184,-0.183,-0.183,-0.182,&
10938       -0.181,-0.181,-0.180,-0.179,-0.178,-0.177,-0.176,-0.174,-0.173,&
10939       -0.172,-0.171,-0.170,-0.168,-0.167,-0.166,-0.164,-0.163,-0.162,&
10940       -0.160,-0.159,-0.157,-0.156,-0.155,-0.153,-0.152,-0.150,-0.149,&
10941       -0.147,-0.146,-0.144,-0.143,-0.141,-0.140,-0.138,-0.137,-0.135,&
10942       -0.134,-0.132,-0.131,-0.129,-0.128,-0.126,-0.124,-0.123,-0.121,&
10943       -0.120,-0.118,-0.116,-0.115,-0.113,-0.112,-0.110,-0.108,-0.107,&
10944       -0.105,-0.103,-0.101,-0.100,-0.098,-0.096,-0.094,-0.093,-0.091,&
10945       -0.089,-0.087,-0.085,-0.083,-0.081,-0.080,-0.078,-0.076,-0.074,&
10946       -0.072,-0.070,-0.068,-0.066,-0.064,-0.062,-0.060,-0.058,-0.056,&
10947       -0.054,-0.052,-0.050,-0.048,-0.046,-0.044,-0.042,-0.039,-0.037,&
10948       -0.035,-0.033,-0.031,-0.029,-0.027,-0.025,-0.023,-0.021,-0.018,&
10949       -0.016,-0.014,-0.012,-0.010,-0.008,-0.006,-0.004,-0.002, 0.001,&
10950        0.003, 0.005, 0.007, 0.009, 0.011, 0.013, 0.015, 0.017, 0.019,&
10951        0.022, 0.024, 0.026, 0.028, 0.030, 0.032, 0.034, 0.036, 0.038,&
10952        0.040, 0.042, 0.045, 0.047, 0.049, 0.051, 0.053, 0.055, 0.057,&
10953        0.059, 0.061, 0.063, 0.065, 0.067, 0.069, 0.071, 0.073, 0.075,&
10954        0.078, 0.080, 0.082, 0.084, 0.086, 0.088, 0.090, 0.092, 0.094,&
10955        0.096, 0.098, 0.100, 0.102, 0.104, 0.106, 0.108, 0.110, 0.112,&
10956        0.114, 0.116, 0.118, 0.120, 0.122, 0.124, 0.126, 0.128, 0.130,&
10957        0.132, 0.134, 0.136, 0.138, 0.140, 0.142, 0.143, 0.145, 0.147,&
10958        0.149, 0.151, 0.153, 0.155, 0.157, 0.159, 0.161, 0.163, 0.165,&
10959        0.167, 0.169, 0.171, 0.172, 0.174, 0.176, 0.178, 0.180, 0.182,&
10960        0.184, 0.186, 0.188, 0.190, 0.191, 0.193, 0.195, 0.197, 0.199,&
10961        0.201, 0.203, 0.205, 0.206, 0.208, 0.210, 0.212, 0.214, 0.216,&
10962        0.218, 0.219, 0.221, 0.223, 0.225, 0.227, 0.229, 0.230, 0.232,&
10963        0.234, 0.236, 0.238, 0.239, 0.241, 0.243, 0.245, 0.247, 0.248,&
10964        0.250, 0.252, 0.254, 0.256, 0.257, 0.259, 0.261, 0.263, 0.265,&
10965        0.266, 0.268, 0.270, 0.272, 0.273, 0.275, 0.277, 0.279, 0.280,&
10966        0.282, 0.284, 0.286, 0.287, 0.289, 0.291, 0.292, 0.294, 0.296,&
10967        0.298, 0.299, 0.301, 0.303, 0.305, 0.306, 0.308, 0.310, 0.311,&
10968        0.313, 0.315, 0.316, 0.318, 0.320, 0.321, 0.323, 0.325, 0.326,&
10969        0.328, 0.330, 0.331, 0.333, 0.335, 0.336, 0.338, 0.340, 0.341,&
10970        0.343, 0.345, 0.346, 0.348, 0.350, 0.351, 0.353, 0.355, 0.356,&
10971        0.358, 0.359, 0.361, 0.363, 0.364, 0.366, 0.367, 0.369, 0.371,&
10972        0.372, 0.374, 0.375, 0.377, 0.379, 0.380, 0.382, 0.383, 0.385,&
10973        0.387, 0.388, 0.390, 0.391, 0.393, 0.394, 0.396, 0.398, 0.399,&
10974        0.401, 0.402, 0.404, 0.405, 0.407, 0.408, 0.410, 0.412, 0.413,&
10975        0.415, 0.416, 0.418, 0.419, 0.421, 0.422, 0.424, 0.425, 0.427,&
10976        0.428, 0.430, 0.431, 0.433, 0.434, 0.436, 0.437, 0.439, 0.440,&
10977        0.442, 0.443, 0.445, 0.446, 0.448, 0.449, 0.451, 0.452, 0.454,&
10978        0.455, 0.457, 0.458, 0.460, 0.461, 0.463, 0.464, 0.465, 0.467,&
10979        0.468, 0.470, 0.471, 0.473, 0.488, 0.502, 0.516, 0.530, 0.544,&
10980        0.557, 0.570, 0.583, 0.596, 0.608, 0.621, 0.633, 0.645, 0.657,&
10981        0.669, 0.680, 0.692, 0.703, 0.714, 0.725, 0.736, 0.747, 0.758,&
10982        0.768, 0.778, 0.789, 0.799, 0.809, 0.819, 0.828, 0.838, 0.847,&
10983        0.857, 0.866, 0.875, 0.884, 0.893, 0.902, 0.911, 0.920, 0.928,&
10984        0.937, 0.945, 0.954, 0.962, 0.970, 0.978, 0.986, 0.994, 1.002,&
10985        1.010, 1.017, 1.025, 1.032, 1.040, 1.047, 1.054, 1.062, 1.069,&
10986        1.076, 1.083, 1.090, 1.097, 1.103, 1.110, 1.117, 1.124, 1.130,&
10987        1.137, 1.143, 1.149, 1.156, 1.162, 1.168, 1.174, 1.181, 1.187,&
10988        1.193, 1.199, 1.205, 1.210, 1.216, 1.222, 1.228, 1.233, 1.239,&
10989        1.245, 1.250, 1.255, 1.261, 1.266, 1.272, 1.277, 1.282, 1.287,&
10990        1.293, 1.298, 1.303, 1.308, 1.313, 1.318, 1.323, 1.328, 1.333,&
10991        1.337, 1.342, 1.347, 1.352, 1.356, 1.361, 1.366, 1.370, 1.375,&
10992        1.379, 1.384, 1.388, 1.392, 1.397, 1.401, 1.406, 1.410, 1.414,&
10993        1.418, 1.422, 1.427, 1.431, 1.435, 1.439, 1.443, 1.447, 1.451,&
10994        1.455, 1.459, 1.463, 1.467, 1.470, 1.474, 1.478, 1.482, 1.486,&
10995        1.489, 1.493, 1.497, 1.500, 1.504, 1.508, 1.511, 1.515, 1.518,&
10996        1.522, 1.525, 1.529, 1.532, 1.536, 1.539, 1.542, 1.546, 1.549,&
10997        1.552, 1.556, 1.559                                           &
10998        /
10999 !C
11000 !C *** Na2SO4
11001 !C
11002       DATA BNC02M/                                                   &
11003       -0.096,-0.208,-0.264,-0.304,-0.335,-0.361,-0.383,-0.403,-0.420,&
11004       -0.436,-0.450,-0.464,-0.476,-0.487,-0.498,-0.508,-0.517,-0.526,&
11005       -0.535,-0.543,-0.551,-0.558,-0.566,-0.572,-0.579,-0.586,-0.592,&
11006       -0.598,-0.603,-0.609,-0.614,-0.620,-0.625,-0.630,-0.635,-0.639,&
11007       -0.644,-0.649,-0.653,-0.657,-0.661,-0.666,-0.670,-0.674,-0.677,&
11008       -0.681,-0.685,-0.689,-0.692,-0.696,-0.699,-0.702,-0.706,-0.709,&
11009       -0.712,-0.715,-0.718,-0.721,-0.725,-0.727,-0.730,-0.733,-0.736,&
11010       -0.739,-0.742,-0.744,-0.747,-0.750,-0.752,-0.755,-0.757,-0.760,&
11011       -0.763,-0.765,-0.767,-0.770,-0.772,-0.775,-0.777,-0.779,-0.782,&
11012       -0.784,-0.786,-0.788,-0.791,-0.793,-0.795,-0.797,-0.799,-0.801,&
11013       -0.803,-0.806,-0.808,-0.810,-0.812,-0.814,-0.816,-0.818,-0.820,&
11014       -0.822,-0.824,-0.826,-0.827,-0.829,-0.831,-0.833,-0.835,-0.837,&
11015       -0.839,-0.841,-0.842,-0.844,-0.846,-0.848,-0.850,-0.851,-0.853,&
11016       -0.855,-0.857,-0.858,-0.860,-0.862,-0.863,-0.865,-0.867,-0.868,&
11017       -0.870,-0.872,-0.873,-0.875,-0.877,-0.878,-0.880,-0.881,-0.883,&
11018       -0.885,-0.886,-0.888,-0.889,-0.891,-0.892,-0.894,-0.895,-0.897,&
11019       -0.898,-0.900,-0.901,-0.903,-0.904,-0.906,-0.907,-0.909,-0.910,&
11020       -0.912,-0.913,-0.915,-0.916,-0.917,-0.919,-0.920,-0.922,-0.923,&
11021       -0.924,-0.926,-0.927,-0.928,-0.930,-0.931,-0.933,-0.934,-0.935,&
11022       -0.937,-0.938,-0.939,-0.941,-0.942,-0.943,-0.944,-0.946,-0.947,&
11023       -0.948,-0.950,-0.951,-0.952,-0.953,-0.955,-0.956,-0.957,-0.958,&
11024       -0.960,-0.961,-0.962,-0.963,-0.965,-0.966,-0.967,-0.968,-0.969,&
11025       -0.971,-0.972,-0.973,-0.974,-0.975,-0.977,-0.978,-0.979,-0.980,&
11026       -0.981,-0.982,-0.984,-0.985,-0.986,-0.987,-0.988,-0.989,-0.990,&
11027       -0.992,-0.993,-0.994,-0.995,-0.996,-0.997,-0.998,-0.999,-1.001,&
11028       -1.002,-1.003,-1.004,-1.005,-1.006,-1.007,-1.008,-1.009,-1.010,&
11029       -1.011,-1.012,-1.014,-1.015,-1.016,-1.017,-1.018,-1.019,-1.020,&
11030       -1.021,-1.022,-1.023,-1.024,-1.025,-1.026,-1.027,-1.028,-1.029,&
11031       -1.030,-1.031,-1.032,-1.033,-1.034,-1.035,-1.036,-1.037,-1.038,&
11032       -1.039,-1.040,-1.041,-1.042,-1.043,-1.044,-1.045,-1.046,-1.047,&
11033       -1.048,-1.049,-1.050,-1.051,-1.052,-1.053,-1.054,-1.055,-1.056,&
11034       -1.057,-1.058,-1.059,-1.060,-1.061,-1.062,-1.063,-1.064,-1.065,&
11035       -1.066,-1.066,-1.067,-1.068,-1.069,-1.070,-1.071,-1.072,-1.073,&
11036       -1.074,-1.075,-1.076,-1.077,-1.078,-1.079,-1.079,-1.080,-1.081,&
11037       -1.082,-1.083,-1.084,-1.085,-1.086,-1.087,-1.088,-1.088,-1.089,&
11038       -1.090,-1.091,-1.092,-1.093,-1.094,-1.095,-1.096,-1.096,-1.097,&
11039       -1.098,-1.099,-1.100,-1.101,-1.102,-1.102,-1.103,-1.104,-1.105,&
11040       -1.106,-1.107,-1.108,-1.109,-1.109,-1.110,-1.111,-1.112,-1.113,&
11041       -1.114,-1.114,-1.115,-1.116,-1.117,-1.118,-1.119,-1.120,-1.120,&
11042       -1.121,-1.122,-1.123,-1.124,-1.124,-1.125,-1.126,-1.127,-1.128,&
11043       -1.129,-1.129,-1.130,-1.131,-1.132,-1.133,-1.134,-1.134,-1.135,&
11044       -1.136,-1.137,-1.138,-1.138,-1.139,-1.140,-1.141,-1.142,-1.142,&
11045       -1.143,-1.144,-1.145,-1.146,-1.146,-1.147,-1.148,-1.149,-1.150,&
11046       -1.150,-1.151,-1.152,-1.153,-1.153,-1.154,-1.155,-1.156,-1.157,&
11047       -1.157,-1.158,-1.159,-1.160,-1.168,-1.175,-1.183,-1.190,-1.198,&
11048       -1.205,-1.212,-1.219,-1.226,-1.233,-1.239,-1.246,-1.253,-1.259,&
11049       -1.266,-1.272,-1.279,-1.285,-1.291,-1.298,-1.304,-1.310,-1.316,&
11050       -1.322,-1.328,-1.334,-1.340,-1.346,-1.352,-1.357,-1.363,-1.369,&
11051       -1.374,-1.380,-1.386,-1.391,-1.397,-1.402,-1.408,-1.413,-1.419,&
11052       -1.424,-1.429,-1.435,-1.440,-1.445,-1.450,-1.456,-1.461,-1.466,&
11053       -1.471,-1.476,-1.481,-1.486,-1.491,-1.496,-1.501,-1.506,-1.511,&
11054       -1.516,-1.521,-1.526,-1.531,-1.536,-1.541,-1.545,-1.550,-1.555,&
11055       -1.560,-1.564,-1.569,-1.574,-1.579,-1.583,-1.588,-1.593,-1.597,&
11056       -1.602,-1.606,-1.611,-1.616,-1.620,-1.625,-1.629,-1.634,-1.638,&
11057       -1.643,-1.647,-1.652,-1.656,-1.661,-1.665,-1.670,-1.674,-1.678,&
11058       -1.683,-1.687,-1.692,-1.696,-1.700,-1.705,-1.709,-1.713,-1.718,&
11059       -1.722,-1.726,-1.730,-1.735,-1.739,-1.743,-1.747,-1.752,-1.756,&
11060       -1.760,-1.764,-1.768,-1.773,-1.777,-1.781,-1.785,-1.789,-1.793,&
11061       -1.798,-1.802,-1.806,-1.810,-1.814,-1.818,-1.822,-1.826,-1.830,&
11062       -1.834,-1.838,-1.843,-1.847,-1.851,-1.855,-1.859,-1.863,-1.867,&
11063       -1.871,-1.875,-1.879,-1.883,-1.887,-1.891,-1.895,-1.899,-1.902,&
11064       -1.906,-1.910,-1.914,-1.918,-1.922,-1.926,-1.930,-1.934,-1.938,&
11065       -1.942,-1.946,-1.949                                           &
11066        /
11067 !C
11068 !C *** NaNO3
11069 !C
11070       DATA BNC03M/                                                   &
11071       -0.048,-0.105,-0.133,-0.154,-0.170,-0.183,-0.195,-0.205,-0.214,&
11072       -0.223,-0.230,-0.237,-0.244,-0.250,-0.256,-0.261,-0.266,-0.271,&
11073       -0.276,-0.280,-0.284,-0.289,-0.292,-0.296,-0.300,-0.304,-0.307,&
11074       -0.310,-0.314,-0.317,-0.320,-0.323,-0.326,-0.328,-0.331,-0.334,&
11075       -0.337,-0.339,-0.342,-0.344,-0.347,-0.349,-0.351,-0.353,-0.356,&
11076       -0.358,-0.360,-0.362,-0.364,-0.366,-0.368,-0.370,-0.372,-0.374,&
11077       -0.376,-0.378,-0.379,-0.381,-0.383,-0.385,-0.386,-0.388,-0.390,&
11078       -0.391,-0.393,-0.395,-0.396,-0.398,-0.399,-0.401,-0.402,-0.404,&
11079       -0.405,-0.407,-0.408,-0.410,-0.411,-0.413,-0.414,-0.415,-0.417,&
11080       -0.418,-0.420,-0.421,-0.422,-0.424,-0.425,-0.426,-0.427,-0.429,&
11081       -0.430,-0.431,-0.433,-0.434,-0.435,-0.436,-0.438,-0.439,-0.440,&
11082       -0.441,-0.442,-0.444,-0.445,-0.446,-0.447,-0.448,-0.449,-0.451,&
11083       -0.452,-0.453,-0.454,-0.455,-0.456,-0.457,-0.459,-0.460,-0.461,&
11084       -0.462,-0.463,-0.464,-0.465,-0.466,-0.467,-0.468,-0.469,-0.470,&
11085       -0.472,-0.473,-0.474,-0.475,-0.476,-0.477,-0.478,-0.479,-0.480,&
11086       -0.481,-0.482,-0.483,-0.484,-0.485,-0.486,-0.487,-0.488,-0.489,&
11087       -0.490,-0.490,-0.491,-0.492,-0.493,-0.494,-0.495,-0.496,-0.497,&
11088       -0.498,-0.499,-0.500,-0.501,-0.502,-0.503,-0.503,-0.504,-0.505,&
11089       -0.506,-0.507,-0.508,-0.509,-0.510,-0.510,-0.511,-0.512,-0.513,&
11090       -0.514,-0.515,-0.516,-0.516,-0.517,-0.518,-0.519,-0.520,-0.521,&
11091       -0.521,-0.522,-0.523,-0.524,-0.525,-0.526,-0.526,-0.527,-0.528,&
11092       -0.529,-0.530,-0.530,-0.531,-0.532,-0.533,-0.534,-0.534,-0.535,&
11093       -0.536,-0.537,-0.537,-0.538,-0.539,-0.540,-0.540,-0.541,-0.542,&
11094       -0.543,-0.543,-0.544,-0.545,-0.546,-0.546,-0.547,-0.548,-0.549,&
11095       -0.549,-0.550,-0.551,-0.552,-0.552,-0.553,-0.554,-0.554,-0.555,&
11096       -0.556,-0.557,-0.557,-0.558,-0.559,-0.559,-0.560,-0.561,-0.562,&
11097       -0.562,-0.563,-0.564,-0.564,-0.565,-0.566,-0.566,-0.567,-0.568,&
11098       -0.568,-0.569,-0.570,-0.570,-0.571,-0.572,-0.572,-0.573,-0.574,&
11099       -0.574,-0.575,-0.576,-0.576,-0.577,-0.578,-0.578,-0.579,-0.580,&
11100       -0.580,-0.581,-0.582,-0.582,-0.583,-0.584,-0.584,-0.585,-0.585,&
11101       -0.586,-0.587,-0.587,-0.588,-0.589,-0.589,-0.590,-0.591,-0.591,&
11102       -0.592,-0.592,-0.593,-0.594,-0.594,-0.595,-0.595,-0.596,-0.597,&
11103       -0.597,-0.598,-0.599,-0.599,-0.600,-0.600,-0.601,-0.602,-0.602,&
11104       -0.603,-0.603,-0.604,-0.604,-0.605,-0.606,-0.606,-0.607,-0.607,&
11105       -0.608,-0.609,-0.609,-0.610,-0.610,-0.611,-0.612,-0.612,-0.613,&
11106       -0.613,-0.614,-0.614,-0.615,-0.616,-0.616,-0.617,-0.617,-0.618,&
11107       -0.618,-0.619,-0.619,-0.620,-0.621,-0.621,-0.622,-0.622,-0.623,&
11108       -0.623,-0.624,-0.624,-0.625,-0.626,-0.626,-0.627,-0.627,-0.628,&
11109       -0.628,-0.629,-0.629,-0.630,-0.630,-0.631,-0.632,-0.632,-0.633,&
11110       -0.633,-0.634,-0.634,-0.635,-0.635,-0.636,-0.636,-0.637,-0.637,&
11111       -0.638,-0.638,-0.639,-0.640,-0.640,-0.641,-0.641,-0.642,-0.642,&
11112       -0.643,-0.643,-0.644,-0.644,-0.645,-0.645,-0.646,-0.646,-0.647,&
11113       -0.647,-0.648,-0.648,-0.649,-0.649,-0.650,-0.650,-0.651,-0.651,&
11114       -0.652,-0.652,-0.653,-0.653,-0.654,-0.654,-0.655,-0.655,-0.656,&
11115       -0.656,-0.657,-0.657,-0.658,-0.663,-0.668,-0.673,-0.677,-0.682,&
11116       -0.687,-0.691,-0.696,-0.700,-0.704,-0.709,-0.713,-0.717,-0.721,&
11117       -0.725,-0.729,-0.733,-0.737,-0.741,-0.745,-0.749,-0.753,-0.757,&
11118       -0.760,-0.764,-0.768,-0.771,-0.775,-0.779,-0.782,-0.786,-0.789,&
11119       -0.793,-0.796,-0.799,-0.803,-0.806,-0.810,-0.813,-0.816,-0.819,&
11120       -0.823,-0.826,-0.829,-0.832,-0.836,-0.839,-0.842,-0.845,-0.848,&
11121       -0.851,-0.854,-0.857,-0.860,-0.863,-0.866,-0.869,-0.872,-0.875,&
11122       -0.878,-0.881,-0.884,-0.887,-0.890,-0.893,-0.895,-0.898,-0.901,&
11123       -0.904,-0.907,-0.909,-0.912,-0.915,-0.918,-0.920,-0.923,-0.926,&
11124       -0.929,-0.931,-0.934,-0.937,-0.939,-0.942,-0.945,-0.947,-0.950,&
11125       -0.952,-0.955,-0.958,-0.960,-0.963,-0.965,-0.968,-0.971,-0.973,&
11126       -0.976,-0.978,-0.981,-0.983,-0.986,-0.988,-0.991,-0.993,-0.996,&
11127       -0.998,-1.000,-1.003,-1.005,-1.008,-1.010,-1.013,-1.015,-1.017,&
11128       -1.020,-1.022,-1.025,-1.027,-1.029,-1.032,-1.034,-1.036,-1.039,&
11129       -1.041,-1.043,-1.046,-1.048,-1.050,-1.053,-1.055,-1.057,-1.060,&
11130       -1.062,-1.064,-1.067,-1.069,-1.071,-1.073,-1.076,-1.078,-1.080,&
11131       -1.082,-1.085,-1.087,-1.089,-1.091,-1.093,-1.096,-1.098,-1.100,&
11132       -1.102,-1.105,-1.107,-1.109,-1.111,-1.113,-1.115,-1.118,-1.120,&
11133       -1.122,-1.124,-1.126                                           &
11134        /
11135 !C
11136 !C *** (NH4)2SO4
11137 !C
11138       DATA BNC04M/                                                   &
11139       -0.096,-0.208,-0.265,-0.305,-0.337,-0.363,-0.385,-0.405,-0.423,&
11140       -0.439,-0.453,-0.467,-0.479,-0.491,-0.502,-0.512,-0.522,-0.531,&
11141       -0.540,-0.548,-0.556,-0.564,-0.571,-0.578,-0.585,-0.592,-0.598,&
11142       -0.605,-0.610,-0.616,-0.622,-0.627,-0.633,-0.638,-0.643,-0.648,&
11143       -0.653,-0.657,-0.662,-0.666,-0.671,-0.675,-0.679,-0.683,-0.688,&
11144       -0.691,-0.695,-0.699,-0.703,-0.707,-0.710,-0.714,-0.717,-0.721,&
11145       -0.724,-0.727,-0.731,-0.734,-0.737,-0.740,-0.743,-0.746,-0.749,&
11146       -0.752,-0.755,-0.758,-0.761,-0.763,-0.766,-0.769,-0.772,-0.774,&
11147       -0.777,-0.780,-0.782,-0.785,-0.787,-0.790,-0.792,-0.795,-0.797,&
11148       -0.799,-0.802,-0.804,-0.807,-0.809,-0.811,-0.814,-0.816,-0.818,&
11149       -0.820,-0.823,-0.825,-0.827,-0.829,-0.831,-0.833,-0.836,-0.838,&
11150       -0.840,-0.842,-0.844,-0.846,-0.848,-0.850,-0.852,-0.854,-0.856,&
11151       -0.858,-0.860,-0.862,-0.864,-0.866,-0.868,-0.870,-0.872,-0.874,&
11152       -0.875,-0.877,-0.879,-0.881,-0.883,-0.885,-0.887,-0.888,-0.890,&
11153       -0.892,-0.894,-0.895,-0.897,-0.899,-0.901,-0.902,-0.904,-0.906,&
11154       -0.908,-0.909,-0.911,-0.913,-0.914,-0.916,-0.918,-0.919,-0.921,&
11155       -0.923,-0.924,-0.926,-0.927,-0.929,-0.931,-0.932,-0.934,-0.935,&
11156       -0.937,-0.938,-0.940,-0.942,-0.943,-0.945,-0.946,-0.948,-0.949,&
11157       -0.951,-0.952,-0.954,-0.955,-0.957,-0.958,-0.960,-0.961,-0.962,&
11158       -0.964,-0.965,-0.967,-0.968,-0.970,-0.971,-0.972,-0.974,-0.975,&
11159       -0.977,-0.978,-0.979,-0.981,-0.982,-0.984,-0.985,-0.986,-0.988,&
11160       -0.989,-0.990,-0.992,-0.993,-0.994,-0.996,-0.997,-0.998,-1.000,&
11161       -1.001,-1.002,-1.004,-1.005,-1.006,-1.007,-1.009,-1.010,-1.011,&
11162       -1.013,-1.014,-1.015,-1.016,-1.018,-1.019,-1.020,-1.021,-1.023,&
11163       -1.024,-1.025,-1.026,-1.027,-1.029,-1.030,-1.031,-1.032,-1.034,&
11164       -1.035,-1.036,-1.037,-1.038,-1.039,-1.041,-1.042,-1.043,-1.044,&
11165       -1.045,-1.047,-1.048,-1.049,-1.050,-1.051,-1.052,-1.053,-1.055,&
11166       -1.056,-1.057,-1.058,-1.059,-1.060,-1.061,-1.063,-1.064,-1.065,&
11167       -1.066,-1.067,-1.068,-1.069,-1.070,-1.071,-1.073,-1.074,-1.075,&
11168       -1.076,-1.077,-1.078,-1.079,-1.080,-1.081,-1.082,-1.083,-1.084,&
11169       -1.086,-1.087,-1.088,-1.089,-1.090,-1.091,-1.092,-1.093,-1.094,&
11170       -1.095,-1.096,-1.097,-1.098,-1.099,-1.100,-1.101,-1.102,-1.103,&
11171       -1.104,-1.105,-1.106,-1.107,-1.108,-1.109,-1.110,-1.111,-1.112,&
11172       -1.114,-1.115,-1.116,-1.117,-1.118,-1.119,-1.119,-1.120,-1.121,&
11173       -1.122,-1.123,-1.124,-1.125,-1.126,-1.127,-1.128,-1.129,-1.130,&
11174       -1.131,-1.132,-1.133,-1.134,-1.135,-1.136,-1.137,-1.138,-1.139,&
11175       -1.140,-1.141,-1.142,-1.143,-1.144,-1.145,-1.146,-1.147,-1.147,&
11176       -1.148,-1.149,-1.150,-1.151,-1.152,-1.153,-1.154,-1.155,-1.156,&
11177       -1.157,-1.158,-1.159,-1.160,-1.160,-1.161,-1.162,-1.163,-1.164,&
11178       -1.165,-1.166,-1.167,-1.168,-1.169,-1.169,-1.170,-1.171,-1.172,&
11179       -1.173,-1.174,-1.175,-1.176,-1.177,-1.178,-1.178,-1.179,-1.180,&
11180       -1.181,-1.182,-1.183,-1.184,-1.185,-1.185,-1.186,-1.187,-1.188,&
11181       -1.189,-1.190,-1.191,-1.191,-1.192,-1.193,-1.194,-1.195,-1.196,&
11182       -1.197,-1.198,-1.198,-1.199,-1.200,-1.201,-1.202,-1.203,-1.203,&
11183       -1.204,-1.205,-1.206,-1.207,-1.216,-1.224,-1.232,-1.240,-1.248,&
11184       -1.256,-1.263,-1.271,-1.279,-1.286,-1.293,-1.301,-1.308,-1.315,&
11185       -1.322,-1.329,-1.336,-1.343,-1.349,-1.356,-1.363,-1.369,-1.376,&
11186       -1.382,-1.389,-1.395,-1.402,-1.408,-1.414,-1.420,-1.427,-1.433,&
11187       -1.439,-1.445,-1.451,-1.457,-1.463,-1.468,-1.474,-1.480,-1.486,&
11188       -1.492,-1.497,-1.503,-1.509,-1.514,-1.520,-1.525,-1.531,-1.536,&
11189       -1.542,-1.547,-1.553,-1.558,-1.563,-1.569,-1.574,-1.579,-1.585,&
11190       -1.590,-1.595,-1.600,-1.605,-1.611,-1.616,-1.621,-1.626,-1.631,&
11191       -1.636,-1.641,-1.646,-1.651,-1.656,-1.661,-1.666,-1.671,-1.676,&
11192       -1.681,-1.685,-1.690,-1.695,-1.700,-1.705,-1.710,-1.714,-1.719,&
11193       -1.724,-1.729,-1.733,-1.738,-1.743,-1.747,-1.752,-1.757,-1.761,&
11194       -1.766,-1.770,-1.775,-1.780,-1.784,-1.789,-1.793,-1.798,-1.802,&
11195       -1.807,-1.811,-1.816,-1.820,-1.825,-1.829,-1.834,-1.838,-1.842,&
11196       -1.847,-1.851,-1.856,-1.860,-1.864,-1.869,-1.873,-1.877,-1.882,&
11197       -1.886,-1.890,-1.895,-1.899,-1.903,-1.908,-1.912,-1.916,-1.920,&
11198       -1.925,-1.929,-1.933,-1.937,-1.941,-1.946,-1.950,-1.954,-1.958,&
11199       -1.962,-1.966,-1.971,-1.975,-1.979,-1.983,-1.987,-1.991,-1.995,&
11200       -2.000,-2.004,-2.008,-2.012,-2.016,-2.020,-2.024,-2.028,-2.032,&
11201       -2.036,-2.040,-2.044                                           &
11202        /
11203 !C
11204 !C *** NH4NO3
11205 !C
11206       DATA BNC05M/                                                   &
11207       -0.048,-0.108,-0.138,-0.161,-0.179,-0.194,-0.208,-0.220,-0.231,&
11208       -0.241,-0.250,-0.259,-0.267,-0.275,-0.282,-0.289,-0.296,-0.302,&
11209       -0.309,-0.315,-0.321,-0.326,-0.332,-0.337,-0.342,-0.347,-0.352,&
11210       -0.357,-0.361,-0.366,-0.370,-0.375,-0.379,-0.383,-0.387,-0.391,&
11211       -0.395,-0.399,-0.403,-0.406,-0.410,-0.414,-0.417,-0.421,-0.424,&
11212       -0.427,-0.431,-0.434,-0.437,-0.440,-0.443,-0.446,-0.449,-0.452,&
11213       -0.455,-0.458,-0.461,-0.464,-0.466,-0.469,-0.472,-0.475,-0.477,&
11214       -0.480,-0.482,-0.485,-0.487,-0.490,-0.492,-0.495,-0.497,-0.500,&
11215       -0.502,-0.505,-0.507,-0.509,-0.512,-0.514,-0.516,-0.518,-0.521,&
11216       -0.523,-0.525,-0.527,-0.530,-0.532,-0.534,-0.536,-0.538,-0.541,&
11217       -0.543,-0.545,-0.547,-0.549,-0.551,-0.553,-0.555,-0.558,-0.560,&
11218       -0.562,-0.564,-0.566,-0.568,-0.570,-0.572,-0.574,-0.576,-0.578,&
11219       -0.580,-0.582,-0.584,-0.586,-0.588,-0.590,-0.592,-0.594,-0.596,&
11220       -0.598,-0.600,-0.602,-0.604,-0.606,-0.608,-0.609,-0.611,-0.613,&
11221       -0.615,-0.617,-0.619,-0.621,-0.622,-0.624,-0.626,-0.628,-0.630,&
11222       -0.631,-0.633,-0.635,-0.637,-0.639,-0.640,-0.642,-0.644,-0.646,&
11223       -0.647,-0.649,-0.651,-0.652,-0.654,-0.656,-0.657,-0.659,-0.661,&
11224       -0.662,-0.664,-0.666,-0.667,-0.669,-0.671,-0.672,-0.674,-0.675,&
11225       -0.677,-0.679,-0.680,-0.682,-0.683,-0.685,-0.686,-0.688,-0.690,&
11226       -0.691,-0.693,-0.694,-0.696,-0.697,-0.699,-0.700,-0.702,-0.703,&
11227       -0.705,-0.706,-0.708,-0.709,-0.711,-0.712,-0.713,-0.715,-0.716,&
11228       -0.718,-0.719,-0.721,-0.722,-0.723,-0.725,-0.726,-0.728,-0.729,&
11229       -0.730,-0.732,-0.733,-0.735,-0.736,-0.737,-0.739,-0.740,-0.741,&
11230       -0.743,-0.744,-0.745,-0.747,-0.748,-0.749,-0.751,-0.752,-0.753,&
11231       -0.755,-0.756,-0.757,-0.759,-0.760,-0.761,-0.762,-0.764,-0.765,&
11232       -0.766,-0.768,-0.769,-0.770,-0.771,-0.773,-0.774,-0.775,-0.776,&
11233       -0.778,-0.779,-0.780,-0.781,-0.782,-0.784,-0.785,-0.786,-0.787,&
11234       -0.788,-0.790,-0.791,-0.792,-0.793,-0.794,-0.796,-0.797,-0.798,&
11235       -0.799,-0.800,-0.801,-0.803,-0.804,-0.805,-0.806,-0.807,-0.808,&
11236       -0.809,-0.811,-0.812,-0.813,-0.814,-0.815,-0.816,-0.817,-0.818,&
11237       -0.820,-0.821,-0.822,-0.823,-0.824,-0.825,-0.826,-0.827,-0.828,&
11238       -0.829,-0.830,-0.832,-0.833,-0.834,-0.835,-0.836,-0.837,-0.838,&
11239       -0.839,-0.840,-0.841,-0.842,-0.843,-0.844,-0.845,-0.846,-0.847,&
11240       -0.848,-0.849,-0.850,-0.851,-0.852,-0.853,-0.854,-0.855,-0.857,&
11241       -0.858,-0.859,-0.860,-0.861,-0.862,-0.863,-0.863,-0.864,-0.865,&
11242       -0.866,-0.867,-0.868,-0.869,-0.870,-0.871,-0.872,-0.873,-0.874,&
11243       -0.875,-0.876,-0.877,-0.878,-0.879,-0.880,-0.881,-0.882,-0.883,&
11244       -0.884,-0.885,-0.886,-0.887,-0.887,-0.888,-0.889,-0.890,-0.891,&
11245       -0.892,-0.893,-0.894,-0.895,-0.896,-0.897,-0.898,-0.898,-0.899,&
11246       -0.900,-0.901,-0.902,-0.903,-0.904,-0.905,-0.906,-0.907,-0.907,&
11247       -0.908,-0.909,-0.910,-0.911,-0.912,-0.913,-0.914,-0.914,-0.915,&
11248       -0.916,-0.917,-0.918,-0.919,-0.920,-0.920,-0.921,-0.922,-0.923,&
11249       -0.924,-0.925,-0.926,-0.926,-0.927,-0.928,-0.929,-0.930,-0.931,&
11250       -0.931,-0.932,-0.933,-0.934,-0.935,-0.936,-0.936,-0.937,-0.938,&
11251       -0.939,-0.940,-0.940,-0.941,-0.950,-0.958,-0.965,-0.973,-0.980,&
11252       -0.988,-0.995,-1.002,-1.009,-1.015,-1.022,-1.029,-1.035,-1.041,&
11253       -1.047,-1.054,-1.060,-1.066,-1.071,-1.077,-1.083,-1.088,-1.094,&
11254       -1.099,-1.105,-1.110,-1.115,-1.120,-1.125,-1.130,-1.135,-1.140,&
11255       -1.145,-1.150,-1.155,-1.159,-1.164,-1.168,-1.173,-1.177,-1.182,&
11256       -1.186,-1.191,-1.195,-1.199,-1.203,-1.207,-1.212,-1.216,-1.220,&
11257       -1.224,-1.228,-1.232,-1.235,-1.239,-1.243,-1.247,-1.251,-1.254,&
11258       -1.258,-1.262,-1.265,-1.269,-1.273,-1.276,-1.280,-1.283,-1.287,&
11259       -1.290,-1.293,-1.297,-1.300,-1.304,-1.307,-1.310,-1.313,-1.317,&
11260       -1.320,-1.323,-1.326,-1.330,-1.333,-1.336,-1.339,-1.342,-1.345,&
11261       -1.348,-1.351,-1.354,-1.357,-1.360,-1.363,-1.366,-1.369,-1.372,&
11262       -1.375,-1.378,-1.381,-1.383,-1.386,-1.389,-1.392,-1.395,-1.397,&
11263       -1.400,-1.403,-1.406,-1.408,-1.411,-1.414,-1.417,-1.419,-1.422,&
11264       -1.425,-1.427,-1.430,-1.432,-1.435,-1.438,-1.440,-1.443,-1.445,&
11265       -1.448,-1.450,-1.453,-1.456,-1.458,-1.461,-1.463,-1.466,-1.468,&
11266       -1.470,-1.473,-1.475,-1.478,-1.480,-1.483,-1.485,-1.487,-1.490,&
11267       -1.492,-1.495,-1.497,-1.499,-1.502,-1.504,-1.506,-1.509,-1.511,&
11268       -1.513,-1.516,-1.518,-1.520,-1.523,-1.525,-1.527,-1.529,-1.532,&
11269       -1.534,-1.536,-1.538                                           &
11270        /
11271 !C
11272 !C *** NH4Cl
11273 !C
11274       DATA BNC06M/                                                   &
11275       -0.047,-0.101,-0.126,-0.144,-0.157,-0.168,-0.177,-0.185,-0.191,&
11276       -0.197,-0.202,-0.207,-0.211,-0.215,-0.218,-0.221,-0.224,-0.227,&
11277       -0.229,-0.232,-0.234,-0.236,-0.238,-0.239,-0.241,-0.242,-0.244,&
11278       -0.245,-0.246,-0.247,-0.249,-0.250,-0.251,-0.251,-0.252,-0.253,&
11279       -0.254,-0.255,-0.255,-0.256,-0.257,-0.257,-0.258,-0.258,-0.259,&
11280       -0.259,-0.260,-0.260,-0.261,-0.261,-0.261,-0.262,-0.262,-0.262,&
11281       -0.263,-0.263,-0.263,-0.263,-0.264,-0.264,-0.264,-0.264,-0.265,&
11282       -0.265,-0.265,-0.265,-0.265,-0.265,-0.265,-0.266,-0.266,-0.266,&
11283       -0.266,-0.266,-0.266,-0.266,-0.266,-0.266,-0.266,-0.266,-0.266,&
11284       -0.266,-0.266,-0.266,-0.266,-0.266,-0.266,-0.266,-0.266,-0.265,&
11285       -0.265,-0.265,-0.265,-0.265,-0.265,-0.265,-0.264,-0.264,-0.264,&
11286       -0.264,-0.264,-0.263,-0.263,-0.263,-0.263,-0.263,-0.262,-0.262,&
11287       -0.262,-0.262,-0.261,-0.261,-0.261,-0.260,-0.260,-0.260,-0.260,&
11288       -0.259,-0.259,-0.259,-0.258,-0.258,-0.258,-0.257,-0.257,-0.257,&
11289       -0.256,-0.256,-0.256,-0.255,-0.255,-0.255,-0.254,-0.254,-0.254,&
11290       -0.253,-0.253,-0.253,-0.252,-0.252,-0.252,-0.251,-0.251,-0.251,&
11291       -0.250,-0.250,-0.249,-0.249,-0.249,-0.248,-0.248,-0.248,-0.247,&
11292       -0.247,-0.247,-0.246,-0.246,-0.245,-0.245,-0.245,-0.244,-0.244,&
11293       -0.244,-0.243,-0.243,-0.242,-0.242,-0.242,-0.241,-0.241,-0.241,&
11294       -0.240,-0.240,-0.239,-0.239,-0.239,-0.238,-0.238,-0.238,-0.237,&
11295       -0.237,-0.236,-0.236,-0.236,-0.235,-0.235,-0.235,-0.234,-0.234,&
11296       -0.233,-0.233,-0.233,-0.232,-0.232,-0.231,-0.231,-0.231,-0.230,&
11297       -0.230,-0.230,-0.229,-0.229,-0.228,-0.228,-0.228,-0.227,-0.227,&
11298       -0.227,-0.226,-0.226,-0.225,-0.225,-0.225,-0.224,-0.224,-0.224,&
11299       -0.223,-0.223,-0.222,-0.222,-0.222,-0.221,-0.221,-0.221,-0.220,&
11300       -0.220,-0.219,-0.219,-0.219,-0.218,-0.218,-0.218,-0.217,-0.217,&
11301       -0.216,-0.216,-0.216,-0.215,-0.215,-0.215,-0.214,-0.214,-0.214,&
11302       -0.213,-0.213,-0.212,-0.212,-0.212,-0.211,-0.211,-0.211,-0.210,&
11303       -0.210,-0.210,-0.209,-0.209,-0.208,-0.208,-0.208,-0.207,-0.207,&
11304       -0.207,-0.206,-0.206,-0.206,-0.205,-0.205,-0.204,-0.204,-0.204,&
11305       -0.203,-0.203,-0.203,-0.202,-0.202,-0.202,-0.201,-0.201,-0.201,&
11306       -0.200,-0.200,-0.200,-0.199,-0.199,-0.198,-0.198,-0.198,-0.197,&
11307       -0.197,-0.197,-0.196,-0.196,-0.196,-0.195,-0.195,-0.195,-0.194,&
11308       -0.194,-0.194,-0.193,-0.193,-0.193,-0.192,-0.192,-0.192,-0.191,&
11309       -0.191,-0.191,-0.190,-0.190,-0.190,-0.189,-0.189,-0.189,-0.188,&
11310       -0.188,-0.188,-0.187,-0.187,-0.187,-0.186,-0.186,-0.186,-0.185,&
11311       -0.185,-0.185,-0.184,-0.184,-0.184,-0.183,-0.183,-0.183,-0.182,&
11312       -0.182,-0.182,-0.181,-0.181,-0.181,-0.180,-0.180,-0.180,-0.179,&
11313       -0.179,-0.179,-0.178,-0.178,-0.178,-0.177,-0.177,-0.177,-0.176,&
11314       -0.176,-0.176,-0.176,-0.175,-0.175,-0.175,-0.174,-0.174,-0.174,&
11315       -0.173,-0.173,-0.173,-0.172,-0.172,-0.172,-0.171,-0.171,-0.171,&
11316       -0.171,-0.170,-0.170,-0.170,-0.169,-0.169,-0.169,-0.168,-0.168,&
11317       -0.168,-0.167,-0.167,-0.167,-0.167,-0.166,-0.166,-0.166,-0.165,&
11318       -0.165,-0.165,-0.164,-0.164,-0.164,-0.164,-0.163,-0.163,-0.163,&
11319       -0.162,-0.162,-0.162,-0.161,-0.158,-0.155,-0.153,-0.150,-0.147,&
11320       -0.144,-0.142,-0.139,-0.137,-0.134,-0.132,-0.129,-0.127,-0.125,&
11321       -0.122,-0.120,-0.118,-0.116,-0.113,-0.111,-0.109,-0.107,-0.105,&
11322       -0.103,-0.101,-0.099,-0.097,-0.095,-0.093,-0.092,-0.090,-0.088,&
11323       -0.086,-0.085,-0.083,-0.081,-0.080,-0.078,-0.077,-0.075,-0.073,&
11324       -0.072,-0.071,-0.069,-0.068,-0.066,-0.065,-0.064,-0.062,-0.061,&
11325       -0.060,-0.058,-0.057,-0.056,-0.055,-0.053,-0.052,-0.051,-0.050,&
11326       -0.049,-0.048,-0.047,-0.046,-0.044,-0.043,-0.042,-0.041,-0.040,&
11327       -0.039,-0.039,-0.038,-0.037,-0.036,-0.035,-0.034,-0.033,-0.032,&
11328       -0.032,-0.031,-0.030,-0.029,-0.028,-0.028,-0.027,-0.026,-0.025,&
11329       -0.025,-0.024,-0.023,-0.023,-0.022,-0.021,-0.021,-0.020,-0.019,&
11330       -0.019,-0.018,-0.018,-0.017,-0.017,-0.016,-0.016,-0.015,-0.015,&
11331       -0.014,-0.014,-0.013,-0.013,-0.012,-0.012,-0.011,-0.011,-0.010,&
11332       -0.010,-0.010,-0.009,-0.009,-0.008,-0.008,-0.008,-0.007,-0.007,&
11333       -0.007,-0.006,-0.006,-0.006,-0.005,-0.005,-0.005,-0.005,-0.004,&
11334       -0.004,-0.004,-0.004,-0.003,-0.003,-0.003,-0.003,-0.003,-0.002,&
11335       -0.002,-0.002,-0.002,-0.002,-0.002,-0.001,-0.001,-0.001,-0.001,&
11336       -0.001,-0.001,-0.001,-0.001, 0.000, 0.000, 0.000, 0.000, 0.000,&
11337        0.000, 0.000, 0.000                                           &
11338        /
11339 !C
11340 !C *** (2H,SO4)
11341 !C
11342       DATA BNC07M/                                                   &
11343       -0.095,-0.207,-0.263,-0.303,-0.333,-0.359,-0.381,-0.400,-0.417,&
11344       -0.432,-0.446,-0.459,-0.471,-0.482,-0.492,-0.502,-0.511,-0.520,&
11345       -0.528,-0.536,-0.543,-0.550,-0.557,-0.564,-0.570,-0.576,-0.582,&
11346       -0.588,-0.593,-0.598,-0.603,-0.608,-0.613,-0.618,-0.622,-0.627,&
11347       -0.631,-0.635,-0.640,-0.644,-0.648,-0.651,-0.655,-0.659,-0.662,&
11348       -0.666,-0.669,-0.673,-0.676,-0.679,-0.682,-0.686,-0.689,-0.692,&
11349       -0.695,-0.698,-0.700,-0.703,-0.706,-0.709,-0.712,-0.714,-0.717,&
11350       -0.719,-0.722,-0.724,-0.727,-0.729,-0.732,-0.734,-0.736,-0.739,&
11351       -0.741,-0.743,-0.746,-0.748,-0.750,-0.752,-0.754,-0.756,-0.758,&
11352       -0.761,-0.763,-0.765,-0.767,-0.769,-0.771,-0.773,-0.774,-0.776,&
11353       -0.778,-0.780,-0.782,-0.784,-0.786,-0.787,-0.789,-0.791,-0.793,&
11354       -0.795,-0.796,-0.798,-0.800,-0.802,-0.803,-0.805,-0.807,-0.808,&
11355       -0.810,-0.811,-0.813,-0.815,-0.816,-0.818,-0.819,-0.821,-0.823,&
11356       -0.824,-0.826,-0.827,-0.829,-0.830,-0.832,-0.833,-0.835,-0.836,&
11357       -0.838,-0.839,-0.841,-0.842,-0.843,-0.845,-0.846,-0.848,-0.849,&
11358       -0.850,-0.852,-0.853,-0.854,-0.856,-0.857,-0.858,-0.860,-0.861,&
11359       -0.862,-0.864,-0.865,-0.866,-0.868,-0.869,-0.870,-0.871,-0.873,&
11360       -0.874,-0.875,-0.876,-0.878,-0.879,-0.880,-0.881,-0.883,-0.884,&
11361       -0.885,-0.886,-0.887,-0.889,-0.890,-0.891,-0.892,-0.893,-0.894,&
11362       -0.896,-0.897,-0.898,-0.899,-0.900,-0.901,-0.902,-0.904,-0.905,&
11363       -0.906,-0.907,-0.908,-0.909,-0.910,-0.911,-0.912,-0.914,-0.915,&
11364       -0.916,-0.917,-0.918,-0.919,-0.920,-0.921,-0.922,-0.923,-0.924,&
11365       -0.925,-0.926,-0.927,-0.928,-0.929,-0.930,-0.931,-0.932,-0.933,&
11366       -0.934,-0.935,-0.936,-0.937,-0.938,-0.939,-0.940,-0.941,-0.942,&
11367       -0.943,-0.944,-0.945,-0.946,-0.947,-0.948,-0.949,-0.950,-0.951,&
11368       -0.952,-0.953,-0.954,-0.955,-0.956,-0.957,-0.958,-0.959,-0.960,&
11369       -0.960,-0.961,-0.962,-0.963,-0.964,-0.965,-0.966,-0.967,-0.968,&
11370       -0.969,-0.970,-0.970,-0.971,-0.972,-0.973,-0.974,-0.975,-0.976,&
11371       -0.977,-0.978,-0.978,-0.979,-0.980,-0.981,-0.982,-0.983,-0.984,&
11372       -0.985,-0.985,-0.986,-0.987,-0.988,-0.989,-0.990,-0.991,-0.991,&
11373       -0.992,-0.993,-0.994,-0.995,-0.996,-0.996,-0.997,-0.998,-0.999,&
11374       -1.000,-1.001,-1.001,-1.002,-1.003,-1.004,-1.005,-1.005,-1.006,&
11375       -1.007,-1.008,-1.009,-1.010,-1.010,-1.011,-1.012,-1.013,-1.014,&
11376       -1.014,-1.015,-1.016,-1.017,-1.017,-1.018,-1.019,-1.020,-1.021,&
11377       -1.021,-1.022,-1.023,-1.024,-1.025,-1.025,-1.026,-1.027,-1.028,&
11378       -1.028,-1.029,-1.030,-1.031,-1.031,-1.032,-1.033,-1.034,-1.034,&
11379       -1.035,-1.036,-1.037,-1.037,-1.038,-1.039,-1.040,-1.040,-1.041,&
11380       -1.042,-1.043,-1.043,-1.044,-1.045,-1.046,-1.046,-1.047,-1.048,&
11381       -1.049,-1.049,-1.050,-1.051,-1.051,-1.052,-1.053,-1.054,-1.054,&
11382       -1.055,-1.056,-1.057,-1.057,-1.058,-1.059,-1.059,-1.060,-1.061,&
11383       -1.061,-1.062,-1.063,-1.064,-1.064,-1.065,-1.066,-1.066,-1.067,&
11384       -1.068,-1.069,-1.069,-1.070,-1.071,-1.071,-1.072,-1.073,-1.073,&
11385       -1.074,-1.075,-1.075,-1.076,-1.077,-1.078,-1.078,-1.079,-1.080,&
11386       -1.080,-1.081,-1.082,-1.082,-1.083,-1.084,-1.084,-1.085,-1.086,&
11387       -1.086,-1.087,-1.088,-1.088,-1.096,-1.102,-1.109,-1.115,-1.121,&
11388       -1.127,-1.134,-1.140,-1.146,-1.152,-1.158,-1.163,-1.169,-1.175,&
11389       -1.181,-1.186,-1.192,-1.198,-1.203,-1.209,-1.214,-1.219,-1.225,&
11390       -1.230,-1.235,-1.241,-1.246,-1.251,-1.256,-1.261,-1.266,-1.271,&
11391       -1.276,-1.281,-1.286,-1.291,-1.296,-1.301,-1.306,-1.311,-1.315,&
11392       -1.320,-1.325,-1.330,-1.334,-1.339,-1.344,-1.348,-1.353,-1.358,&
11393       -1.362,-1.367,-1.371,-1.376,-1.380,-1.385,-1.389,-1.394,-1.398,&
11394       -1.403,-1.407,-1.412,-1.416,-1.420,-1.425,-1.429,-1.434,-1.438,&
11395       -1.442,-1.447,-1.451,-1.455,-1.459,-1.464,-1.468,-1.472,-1.476,&
11396       -1.480,-1.485,-1.489,-1.493,-1.497,-1.501,-1.505,-1.510,-1.514,&
11397       -1.518,-1.522,-1.526,-1.530,-1.534,-1.538,-1.542,-1.546,-1.550,&
11398       -1.554,-1.558,-1.562,-1.566,-1.570,-1.574,-1.578,-1.582,-1.586,&
11399       -1.590,-1.594,-1.598,-1.602,-1.606,-1.610,-1.614,-1.618,-1.622,&
11400       -1.625,-1.629,-1.633,-1.637,-1.641,-1.645,-1.649,-1.652,-1.656,&
11401       -1.660,-1.664,-1.668,-1.672,-1.675,-1.679,-1.683,-1.687,-1.690,&
11402       -1.694,-1.698,-1.702,-1.706,-1.709,-1.713,-1.717,-1.721,-1.724,&
11403       -1.728,-1.732,-1.735,-1.739,-1.743,-1.747,-1.750,-1.754,-1.758,&
11404       -1.761,-1.765,-1.769,-1.772,-1.776,-1.780,-1.783,-1.787,-1.791,&
11405       -1.794,-1.798,-1.801                                           &
11406        /
11407 !C
11408 !C *** (H,HSO4)
11409 !C
11410       DATA BNC08M/                                                   &
11411       -0.045,-0.089,-0.107,-0.117,-0.124,-0.128,-0.131,-0.132,-0.133,&
11412       -0.132,-0.132,-0.130,-0.128,-0.126,-0.123,-0.120,-0.117,-0.113,&
11413       -0.109,-0.105,-0.101,-0.096,-0.091,-0.086,-0.081,-0.076,-0.070,&
11414       -0.065,-0.059,-0.053,-0.047,-0.040,-0.034,-0.027,-0.021,-0.014,&
11415       -0.007, 0.000, 0.007, 0.014, 0.021, 0.028, 0.036, 0.043, 0.051,&
11416        0.058, 0.066, 0.074, 0.082, 0.089, 0.097, 0.105, 0.113, 0.121,&
11417        0.130, 0.138, 0.146, 0.154, 0.163, 0.171, 0.179, 0.188, 0.196,&
11418        0.205, 0.214, 0.222, 0.231, 0.240, 0.248, 0.257, 0.266, 0.275,&
11419        0.284, 0.293, 0.302, 0.311, 0.320, 0.329, 0.338, 0.347, 0.357,&
11420        0.366, 0.375, 0.385, 0.394, 0.404, 0.413, 0.423, 0.433, 0.442,&
11421        0.452, 0.462, 0.472, 0.482, 0.492, 0.502, 0.512, 0.522, 0.532,&
11422        0.542, 0.552, 0.563, 0.573, 0.583, 0.594, 0.604, 0.614, 0.625,&
11423        0.635, 0.646, 0.656, 0.667, 0.677, 0.688, 0.698, 0.709, 0.719,&
11424        0.730, 0.741, 0.751, 0.762, 0.772, 0.783, 0.794, 0.804, 0.815,&
11425        0.825, 0.836, 0.846, 0.857, 0.867, 0.878, 0.888, 0.899, 0.909,&
11426        0.920, 0.930, 0.941, 0.951, 0.962, 0.972, 0.982, 0.993, 1.003,&
11427        1.014, 1.024, 1.034, 1.044, 1.055, 1.065, 1.075, 1.085, 1.096,&
11428        1.106, 1.116, 1.126, 1.136, 1.146, 1.156, 1.166, 1.176, 1.186,&
11429        1.196, 1.206, 1.216, 1.226, 1.236, 1.246, 1.256, 1.266, 1.276,&
11430        1.285, 1.295, 1.305, 1.315, 1.325, 1.334, 1.344, 1.354, 1.363,&
11431        1.373, 1.383, 1.392, 1.402, 1.411, 1.421, 1.430, 1.440, 1.449,&
11432        1.459, 1.468, 1.478, 1.487, 1.496, 1.506, 1.515, 1.524, 1.534,&
11433        1.543, 1.552, 1.561, 1.571, 1.580, 1.589, 1.598, 1.607, 1.616,&
11434        1.625, 1.634, 1.643, 1.652, 1.661, 1.670, 1.679, 1.688, 1.697,&
11435        1.706, 1.715, 1.724, 1.733, 1.742, 1.750, 1.759, 1.768, 1.777,&
11436        1.786, 1.794, 1.803, 1.812, 1.820, 1.829, 1.838, 1.846, 1.855,&
11437        1.863, 1.872, 1.880, 1.889, 1.897, 1.906, 1.914, 1.923, 1.931,&
11438        1.940, 1.948, 1.956, 1.965, 1.973, 1.981, 1.990, 1.998, 2.006,&
11439        2.015, 2.023, 2.031, 2.039, 2.047, 2.056, 2.064, 2.072, 2.080,&
11440        2.088, 2.096, 2.104, 2.112, 2.120, 2.128, 2.136, 2.144, 2.152,&
11441        2.160, 2.168, 2.176, 2.184, 2.192, 2.200, 2.207, 2.215, 2.223,&
11442        2.231, 2.239, 2.246, 2.254, 2.262, 2.270, 2.277, 2.285, 2.293,&
11443        2.300, 2.308, 2.316, 2.323, 2.331, 2.339, 2.346, 2.354, 2.361,&
11444        2.369, 2.376, 2.384, 2.391, 2.399, 2.406, 2.414, 2.421, 2.428,&
11445        2.436, 2.443, 2.451, 2.458, 2.465, 2.473, 2.480, 2.487, 2.494,&
11446        2.502, 2.509, 2.516, 2.523, 2.531, 2.538, 2.545, 2.552, 2.559,&
11447        2.566, 2.574, 2.581, 2.588, 2.595, 2.602, 2.609, 2.616, 2.623,&
11448        2.630, 2.637, 2.644, 2.651, 2.658, 2.665, 2.672, 2.679, 2.686,&
11449        2.693, 2.700, 2.707, 2.713, 2.720, 2.727, 2.734, 2.741, 2.748,&
11450        2.754, 2.761, 2.768, 2.775, 2.781, 2.788, 2.795, 2.802, 2.808,&
11451        2.815, 2.822, 2.828, 2.835, 2.842, 2.848, 2.855, 2.862, 2.868,&
11452        2.875, 2.881, 2.888, 2.894, 2.901, 2.907, 2.914, 2.920, 2.927,&
11453        2.933, 2.940, 2.946, 2.953, 2.959, 2.966, 2.972, 2.978, 2.985,&
11454        2.991, 2.998, 3.004, 3.010, 3.017, 3.023, 3.029, 3.036, 3.042,&
11455        3.048, 3.054, 3.061, 3.067, 3.134, 3.195, 3.254, 3.313, 3.371,&
11456        3.428, 3.485, 3.540, 3.595, 3.648, 3.701, 3.754, 3.805, 3.856,&
11457        3.906, 3.955, 4.004, 4.052, 4.100, 4.147, 4.193, 4.239, 4.284,&
11458        4.328, 4.372, 4.416, 4.459, 4.501, 4.543, 4.585, 4.626, 4.666,&
11459        4.707, 4.746, 4.786, 4.824, 4.863, 4.901, 4.938, 4.976, 5.013,&
11460        5.049, 5.085, 5.121, 5.156, 5.191, 5.226, 5.260, 5.294, 5.328,&
11461        5.361, 5.395, 5.427, 5.460, 5.492, 5.524, 5.555, 5.587, 5.618,&
11462        5.649, 5.679, 5.709, 5.739, 5.769, 5.799, 5.828, 5.857, 5.886,&
11463        5.914, 5.942, 5.971, 5.998, 6.026, 6.053, 6.081, 6.108, 6.134,&
11464        6.161, 6.187, 6.214, 6.240, 6.265, 6.291, 6.316, 6.342, 6.367,&
11465        6.392, 6.416, 6.441, 6.465, 6.489, 6.513, 6.537, 6.561, 6.584,&
11466        6.608, 6.631, 6.654, 6.677, 6.699, 6.722, 6.744, 6.767, 6.789,&
11467        6.811, 6.833, 6.854, 6.876, 6.897, 6.919, 6.940, 6.961, 6.982,&
11468        7.003, 7.023, 7.044, 7.064, 7.085, 7.105, 7.125, 7.145, 7.165,&
11469        7.184, 7.204, 7.223, 7.243, 7.262, 7.281, 7.300, 7.319, 7.338,&
11470        7.356, 7.375, 7.394, 7.412, 7.430, 7.448, 7.467, 7.485, 7.502,&
11471        7.520, 7.538, 7.556, 7.573, 7.591, 7.608, 7.625, 7.642, 7.659,&
11472        7.676, 7.693, 7.710, 7.727, 7.743, 7.760, 7.776, 7.793, 7.809,&
11473        7.825, 7.841, 7.858                                           &
11474        /
11475 !C
11476 !C *** NH4HSO4
11477 !C
11478       DATA BNC09M/                                                   &
11479       -0.047,-0.099,-0.125,-0.142,-0.155,-0.166,-0.175,-0.182,-0.189,&
11480       -0.195,-0.200,-0.204,-0.208,-0.212,-0.215,-0.218,-0.221,-0.223,&
11481       -0.225,-0.227,-0.228,-0.230,-0.231,-0.232,-0.233,-0.234,-0.235,&
11482       -0.235,-0.235,-0.236,-0.236,-0.236,-0.236,-0.235,-0.235,-0.235,&
11483       -0.234,-0.233,-0.233,-0.232,-0.231,-0.230,-0.229,-0.228,-0.227,&
11484       -0.226,-0.224,-0.223,-0.222,-0.220,-0.219,-0.217,-0.215,-0.214,&
11485       -0.212,-0.210,-0.208,-0.207,-0.205,-0.203,-0.201,-0.199,-0.197,&
11486       -0.195,-0.192,-0.190,-0.188,-0.186,-0.183,-0.181,-0.179,-0.176,&
11487       -0.174,-0.171,-0.169,-0.166,-0.164,-0.161,-0.159,-0.156,-0.153,&
11488       -0.151,-0.148,-0.145,-0.143,-0.140,-0.137,-0.134,-0.131,-0.128,&
11489       -0.125,-0.122,-0.120,-0.117,-0.114,-0.110,-0.107,-0.104,-0.101,&
11490       -0.098,-0.095,-0.092,-0.089,-0.085,-0.082,-0.079,-0.076,-0.073,&
11491       -0.069,-0.066,-0.063,-0.060,-0.056,-0.053,-0.050,-0.046,-0.043,&
11492       -0.040,-0.036,-0.033,-0.030,-0.026,-0.023,-0.020,-0.016,-0.013,&
11493       -0.010,-0.006,-0.003, 0.000, 0.004, 0.007, 0.010, 0.014, 0.017,&
11494        0.020, 0.024, 0.027, 0.030, 0.034, 0.037, 0.040, 0.043, 0.047,&
11495        0.050, 0.053, 0.056, 0.060, 0.063, 0.066, 0.069, 0.073, 0.076,&
11496        0.079, 0.082, 0.086, 0.089, 0.092, 0.095, 0.098, 0.101, 0.105,&
11497        0.108, 0.111, 0.114, 0.117, 0.120, 0.123, 0.127, 0.130, 0.133,&
11498        0.136, 0.139, 0.142, 0.145, 0.148, 0.151, 0.154, 0.157, 0.160,&
11499        0.163, 0.166, 0.170, 0.173, 0.176, 0.179, 0.182, 0.184, 0.187,&
11500        0.190, 0.193, 0.196, 0.199, 0.202, 0.205, 0.208, 0.211, 0.214,&
11501        0.217, 0.220, 0.223, 0.226, 0.228, 0.231, 0.234, 0.237, 0.240,&
11502        0.243, 0.246, 0.248, 0.251, 0.254, 0.257, 0.260, 0.262, 0.265,&
11503        0.268, 0.271, 0.274, 0.276, 0.279, 0.282, 0.285, 0.287, 0.290,&
11504        0.293, 0.296, 0.298, 0.301, 0.304, 0.306, 0.309, 0.312, 0.315,&
11505        0.317, 0.320, 0.323, 0.325, 0.328, 0.330, 0.333, 0.336, 0.338,&
11506        0.341, 0.344, 0.346, 0.349, 0.351, 0.354, 0.357, 0.359, 0.362,&
11507        0.364, 0.367, 0.369, 0.372, 0.375, 0.377, 0.380, 0.382, 0.385,&
11508        0.387, 0.390, 0.392, 0.395, 0.397, 0.400, 0.402, 0.405, 0.407,&
11509        0.410, 0.412, 0.415, 0.417, 0.419, 0.422, 0.424, 0.427, 0.429,&
11510        0.432, 0.434, 0.437, 0.439, 0.441, 0.444, 0.446, 0.449, 0.451,&
11511        0.453, 0.456, 0.458, 0.460, 0.463, 0.465, 0.467, 0.470, 0.472,&
11512        0.474, 0.477, 0.479, 0.481, 0.484, 0.486, 0.488, 0.491, 0.493,&
11513        0.495, 0.498, 0.500, 0.502, 0.504, 0.507, 0.509, 0.511, 0.513,&
11514        0.516, 0.518, 0.520, 0.522, 0.525, 0.527, 0.529, 0.531, 0.534,&
11515        0.536, 0.538, 0.540, 0.542, 0.545, 0.547, 0.549, 0.551, 0.553,&
11516        0.556, 0.558, 0.560, 0.562, 0.564, 0.566, 0.569, 0.571, 0.573,&
11517        0.575, 0.577, 0.579, 0.581, 0.584, 0.586, 0.588, 0.590, 0.592,&
11518        0.594, 0.596, 0.598, 0.600, 0.602, 0.605, 0.607, 0.609, 0.611,&
11519        0.613, 0.615, 0.617, 0.619, 0.621, 0.623, 0.625, 0.627, 0.629,&
11520        0.631, 0.633, 0.635, 0.637, 0.639, 0.642, 0.644, 0.646, 0.648,&
11521        0.650, 0.652, 0.654, 0.656, 0.658, 0.660, 0.662, 0.663, 0.665,&
11522        0.667, 0.669, 0.671, 0.673, 0.675, 0.677, 0.679, 0.681, 0.683,&
11523        0.685, 0.687, 0.689, 0.691, 0.712, 0.730, 0.749, 0.767, 0.785,&
11524        0.803, 0.820, 0.837, 0.854, 0.871, 0.887, 0.903, 0.919, 0.935,&
11525        0.950, 0.965, 0.980, 0.995, 1.010, 1.024, 1.039, 1.053, 1.067,&
11526        1.080, 1.094, 1.107, 1.120, 1.133, 1.146, 1.159, 1.172, 1.184,&
11527        1.196, 1.209, 1.221, 1.232, 1.244, 1.256, 1.267, 1.279, 1.290,&
11528        1.301, 1.312, 1.323, 1.334, 1.344, 1.355, 1.365, 1.376, 1.386,&
11529        1.396, 1.406, 1.416, 1.426, 1.436, 1.445, 1.455, 1.464, 1.474,&
11530        1.483, 1.492, 1.501, 1.511, 1.519, 1.528, 1.537, 1.546, 1.555,&
11531        1.563, 1.572, 1.580, 1.588, 1.597, 1.605, 1.613, 1.621, 1.629,&
11532        1.637, 1.645, 1.653, 1.660, 1.668, 1.676, 1.683, 1.691, 1.698,&
11533        1.706, 1.713, 1.720, 1.727, 1.734, 1.742, 1.749, 1.756, 1.763,&
11534        1.769, 1.776, 1.783, 1.790, 1.796, 1.803, 1.810, 1.816, 1.823,&
11535        1.829, 1.835, 1.842, 1.848, 1.854, 1.861, 1.867, 1.873, 1.879,&
11536        1.885, 1.891, 1.897, 1.903, 1.909, 1.915, 1.920, 1.926, 1.932,&
11537        1.938, 1.943, 1.949, 1.954, 1.960, 1.965, 1.971, 1.976, 1.982,&
11538        1.987, 1.992, 1.998, 2.003, 2.008, 2.013, 2.018, 2.024, 2.029,&
11539        2.034, 2.039, 2.044, 2.049, 2.054, 2.059, 2.063, 2.068, 2.073,&
11540        2.078, 2.083, 2.087, 2.092, 2.097, 2.101, 2.106, 2.111, 2.115,&
11541        2.120, 2.124, 2.129                                           &
11542        /
11543 !C
11544 !C *** (H,NO3)
11545 !C
11546       DATA BNC10M/                                                   &
11547       -0.046,-0.096,-0.118,-0.132,-0.142,-0.150,-0.156,-0.161,-0.164,&
11548       -0.167,-0.170,-0.171,-0.173,-0.174,-0.174,-0.175,-0.175,-0.175,&
11549       -0.175,-0.174,-0.174,-0.173,-0.172,-0.171,-0.170,-0.169,-0.168,&
11550       -0.167,-0.165,-0.164,-0.163,-0.161,-0.160,-0.158,-0.156,-0.155,&
11551       -0.153,-0.151,-0.150,-0.148,-0.146,-0.144,-0.142,-0.141,-0.139,&
11552       -0.137,-0.135,-0.133,-0.131,-0.129,-0.127,-0.125,-0.124,-0.122,&
11553       -0.120,-0.118,-0.116,-0.114,-0.112,-0.110,-0.108,-0.106,-0.104,&
11554       -0.102,-0.100,-0.098,-0.096,-0.094,-0.092,-0.090,-0.088,-0.086,&
11555       -0.084,-0.082,-0.080,-0.078,-0.076,-0.074,-0.071,-0.069,-0.067,&
11556       -0.065,-0.063,-0.061,-0.058,-0.056,-0.054,-0.052,-0.049,-0.047,&
11557       -0.045,-0.043,-0.040,-0.038,-0.035,-0.033,-0.031,-0.028,-0.026,&
11558       -0.023,-0.021,-0.019,-0.016,-0.014,-0.011,-0.009,-0.006,-0.004,&
11559       -0.001, 0.001, 0.004, 0.007, 0.009, 0.012, 0.014, 0.017, 0.019,&
11560        0.022, 0.025, 0.027, 0.030, 0.032, 0.035, 0.038, 0.040, 0.043,&
11561        0.045, 0.048, 0.051, 0.053, 0.056, 0.058, 0.061, 0.064, 0.066,&
11562        0.069, 0.071, 0.074, 0.077, 0.079, 0.082, 0.084, 0.087, 0.090,&
11563        0.092, 0.095, 0.097, 0.100, 0.103, 0.105, 0.108, 0.110, 0.113,&
11564        0.115, 0.118, 0.121, 0.123, 0.126, 0.128, 0.131, 0.133, 0.136,&
11565        0.138, 0.141, 0.143, 0.146, 0.148, 0.151, 0.154, 0.156, 0.159,&
11566        0.161, 0.164, 0.166, 0.169, 0.171, 0.174, 0.176, 0.179, 0.181,&
11567        0.184, 0.186, 0.189, 0.191, 0.193, 0.196, 0.198, 0.201, 0.203,&
11568        0.206, 0.208, 0.211, 0.213, 0.216, 0.218, 0.220, 0.223, 0.225,&
11569        0.228, 0.230, 0.232, 0.235, 0.237, 0.240, 0.242, 0.245, 0.247,&
11570        0.249, 0.252, 0.254, 0.256, 0.259, 0.261, 0.264, 0.266, 0.268,&
11571        0.271, 0.273, 0.275, 0.278, 0.280, 0.282, 0.285, 0.287, 0.289,&
11572        0.292, 0.294, 0.296, 0.299, 0.301, 0.303, 0.306, 0.308, 0.310,&
11573        0.312, 0.315, 0.317, 0.319, 0.322, 0.324, 0.326, 0.328, 0.331,&
11574        0.333, 0.335, 0.337, 0.340, 0.342, 0.344, 0.346, 0.349, 0.351,&
11575        0.353, 0.355, 0.357, 0.360, 0.362, 0.364, 0.366, 0.369, 0.371,&
11576        0.373, 0.375, 0.377, 0.379, 0.382, 0.384, 0.386, 0.388, 0.390,&
11577        0.393, 0.395, 0.397, 0.399, 0.401, 0.403, 0.405, 0.408, 0.410,&
11578        0.412, 0.414, 0.416, 0.418, 0.420, 0.422, 0.425, 0.427, 0.429,&
11579        0.431, 0.433, 0.435, 0.437, 0.439, 0.441, 0.443, 0.445, 0.448,&
11580        0.450, 0.452, 0.454, 0.456, 0.458, 0.460, 0.462, 0.464, 0.466,&
11581        0.468, 0.470, 0.472, 0.474, 0.476, 0.478, 0.480, 0.482, 0.484,&
11582        0.486, 0.488, 0.490, 0.492, 0.494, 0.496, 0.498, 0.500, 0.502,&
11583        0.504, 0.506, 0.508, 0.510, 0.512, 0.514, 0.516, 0.518, 0.520,&
11584        0.522, 0.524, 0.526, 0.528, 0.530, 0.532, 0.534, 0.536, 0.537,&
11585        0.539, 0.541, 0.543, 0.545, 0.547, 0.549, 0.551, 0.553, 0.555,&
11586        0.557, 0.558, 0.560, 0.562, 0.564, 0.566, 0.568, 0.570, 0.572,&
11587        0.574, 0.575, 0.577, 0.579, 0.581, 0.583, 0.585, 0.587, 0.588,&
11588        0.590, 0.592, 0.594, 0.596, 0.598, 0.599, 0.601, 0.603, 0.605,&
11589        0.607, 0.609, 0.610, 0.612, 0.614, 0.616, 0.618, 0.619, 0.621,&
11590        0.623, 0.625, 0.627, 0.628, 0.630, 0.632, 0.634, 0.635, 0.637,&
11591        0.639, 0.641, 0.643, 0.644, 0.663, 0.680, 0.697, 0.714, 0.730,&
11592        0.747, 0.763, 0.778, 0.794, 0.809, 0.824, 0.839, 0.854, 0.868,&
11593        0.883, 0.897, 0.911, 0.924, 0.938, 0.951, 0.965, 0.978, 0.990,&
11594        1.003, 1.016, 1.028, 1.040, 1.053, 1.065, 1.076, 1.088, 1.100,&
11595        1.111, 1.122, 1.133, 1.145, 1.155, 1.166, 1.177, 1.188, 1.198,&
11596        1.208, 1.219, 1.229, 1.239, 1.249, 1.258, 1.268, 1.278, 1.287,&
11597        1.297, 1.306, 1.315, 1.324, 1.333, 1.342, 1.351, 1.360, 1.369,&
11598        1.377, 1.386, 1.394, 1.403, 1.411, 1.419, 1.428, 1.436, 1.444,&
11599        1.452, 1.459, 1.467, 1.475, 1.483, 1.490, 1.498, 1.505, 1.513,&
11600        1.520, 1.527, 1.535, 1.542, 1.549, 1.556, 1.563, 1.570, 1.577,&
11601        1.584, 1.590, 1.597, 1.604, 1.610, 1.617, 1.623, 1.630, 1.636,&
11602        1.643, 1.649, 1.655, 1.661, 1.667, 1.674, 1.680, 1.686, 1.692,&
11603        1.698, 1.703, 1.709, 1.715, 1.721, 1.727, 1.732, 1.738, 1.744,&
11604        1.749, 1.755, 1.760, 1.766, 1.771, 1.776, 1.782, 1.787, 1.792,&
11605        1.797, 1.803, 1.808, 1.813, 1.818, 1.823, 1.828, 1.833, 1.838,&
11606        1.843, 1.848, 1.853, 1.857, 1.862, 1.867, 1.872, 1.876, 1.881,&
11607        1.886, 1.890, 1.895, 1.899, 1.904, 1.908, 1.913, 1.917, 1.922,&
11608        1.926, 1.930, 1.935, 1.939, 1.943, 1.948, 1.952, 1.956, 1.960,&
11609        1.964, 1.968, 1.973                                           &
11610        /
11611 !C
11612 !C *** (H,Cl)
11613 !C
11614       DATA BNC11M/                                                   &
11615       -0.045,-0.090,-0.108,-0.119,-0.126,-0.130,-0.133,-0.135,-0.135,&
11616       -0.135,-0.134,-0.133,-0.131,-0.129,-0.126,-0.124,-0.121,-0.117,&
11617       -0.114,-0.110,-0.106,-0.102,-0.098,-0.093,-0.089,-0.084,-0.079,&
11618       -0.075,-0.070,-0.065,-0.059,-0.054,-0.049,-0.044,-0.038,-0.033,&
11619       -0.027,-0.022,-0.016,-0.010,-0.004, 0.001, 0.007, 0.013, 0.019,&
11620        0.025, 0.031, 0.037, 0.043, 0.049, 0.055, 0.061, 0.067, 0.073,&
11621        0.079, 0.085, 0.091, 0.098, 0.104, 0.110, 0.116, 0.122, 0.129,&
11622        0.135, 0.141, 0.147, 0.154, 0.160, 0.166, 0.173, 0.179, 0.185,&
11623        0.192, 0.198, 0.205, 0.211, 0.218, 0.224, 0.231, 0.238, 0.244,&
11624        0.251, 0.258, 0.264, 0.271, 0.278, 0.285, 0.292, 0.298, 0.305,&
11625        0.312, 0.319, 0.326, 0.333, 0.341, 0.348, 0.355, 0.362, 0.369,&
11626        0.377, 0.384, 0.391, 0.398, 0.406, 0.413, 0.421, 0.428, 0.435,&
11627        0.443, 0.450, 0.458, 0.465, 0.473, 0.480, 0.488, 0.495, 0.503,&
11628        0.510, 0.518, 0.526, 0.533, 0.541, 0.548, 0.556, 0.563, 0.571,&
11629        0.578, 0.586, 0.594, 0.601, 0.609, 0.616, 0.624, 0.631, 0.639,&
11630        0.646, 0.654, 0.661, 0.669, 0.676, 0.684, 0.691, 0.699, 0.706,&
11631        0.713, 0.721, 0.728, 0.736, 0.743, 0.750, 0.758, 0.765, 0.772,&
11632        0.780, 0.787, 0.794, 0.802, 0.809, 0.816, 0.823, 0.831, 0.838,&
11633        0.845, 0.852, 0.859, 0.867, 0.874, 0.881, 0.888, 0.895, 0.902,&
11634        0.909, 0.916, 0.924, 0.931, 0.938, 0.945, 0.952, 0.959, 0.966,&
11635        0.973, 0.980, 0.987, 0.994, 1.000, 1.007, 1.014, 1.021, 1.028,&
11636        1.035, 1.042, 1.049, 1.055, 1.062, 1.069, 1.076, 1.082, 1.089,&
11637        1.096, 1.103, 1.109, 1.116, 1.123, 1.129, 1.136, 1.143, 1.149,&
11638        1.156, 1.163, 1.169, 1.176, 1.182, 1.189, 1.195, 1.202, 1.208,&
11639        1.215, 1.221, 1.228, 1.234, 1.241, 1.247, 1.254, 1.260, 1.266,&
11640        1.273, 1.279, 1.286, 1.292, 1.298, 1.305, 1.311, 1.317, 1.323,&
11641        1.330, 1.336, 1.342, 1.348, 1.355, 1.361, 1.367, 1.373, 1.379,&
11642        1.386, 1.392, 1.398, 1.404, 1.410, 1.416, 1.422, 1.428, 1.434,&
11643        1.440, 1.446, 1.452, 1.458, 1.464, 1.470, 1.476, 1.482, 1.488,&
11644        1.494, 1.500, 1.506, 1.512, 1.518, 1.524, 1.530, 1.535, 1.541,&
11645        1.547, 1.553, 1.559, 1.564, 1.570, 1.576, 1.582, 1.588, 1.593,&
11646        1.599, 1.605, 1.610, 1.616, 1.622, 1.628, 1.633, 1.639, 1.644,&
11647        1.650, 1.656, 1.661, 1.667, 1.672, 1.678, 1.684, 1.689, 1.695,&
11648        1.700, 1.706, 1.711, 1.717, 1.722, 1.728, 1.733, 1.739, 1.744,&
11649        1.750, 1.755, 1.760, 1.766, 1.771, 1.777, 1.782, 1.787, 1.793,&
11650        1.798, 1.803, 1.809, 1.814, 1.819, 1.825, 1.830, 1.835, 1.840,&
11651        1.846, 1.851, 1.856, 1.861, 1.867, 1.872, 1.877, 1.882, 1.887,&
11652        1.893, 1.898, 1.903, 1.908, 1.913, 1.918, 1.923, 1.929, 1.934,&
11653        1.939, 1.944, 1.949, 1.954, 1.959, 1.964, 1.969, 1.974, 1.979,&
11654        1.984, 1.989, 1.994, 1.999, 2.004, 2.009, 2.014, 2.019, 2.024,&
11655        2.029, 2.034, 2.039, 2.044, 2.048, 2.053, 2.058, 2.063, 2.068,&
11656        2.073, 2.078, 2.082, 2.087, 2.092, 2.097, 2.102, 2.107, 2.111,&
11657        2.116, 2.121, 2.126, 2.130, 2.135, 2.140, 2.145, 2.149, 2.154,&
11658        2.159, 2.163, 2.168, 2.173, 2.177, 2.182, 2.187, 2.191, 2.196,&
11659        2.201, 2.205, 2.210, 2.215, 2.264, 2.309, 2.353, 2.396, 2.439,&
11660        2.481, 2.523, 2.564, 2.604, 2.643, 2.683, 2.721, 2.759, 2.797,&
11661        2.834, 2.870, 2.906, 2.941, 2.976, 3.011, 3.045, 3.079, 3.112,&
11662        3.145, 3.177, 3.210, 3.241, 3.273, 3.304, 3.334, 3.364, 3.394,&
11663        3.424, 3.453, 3.482, 3.511, 3.539, 3.567, 3.595, 3.622, 3.649,&
11664        3.676, 3.702, 3.729, 3.755, 3.781, 3.806, 3.831, 3.856, 3.881,&
11665        3.906, 3.930, 3.954, 3.978, 4.002, 4.025, 4.048, 4.071, 4.094,&
11666        4.117, 4.139, 4.161, 4.183, 4.205, 4.227, 4.248, 4.270, 4.291,&
11667        4.312, 4.332, 4.353, 4.373, 4.394, 4.414, 4.434, 4.453, 4.473,&
11668        4.493, 4.512, 4.531, 4.550, 4.569, 4.588, 4.606, 4.625, 4.643,&
11669        4.661, 4.679, 4.697, 4.715, 4.733, 4.750, 4.768, 4.785, 4.802,&
11670        4.819, 4.836, 4.853, 4.870, 4.886, 4.903, 4.919, 4.936, 4.952,&
11671        4.968, 4.984, 5.000, 5.015, 5.031, 5.046, 5.062, 5.077, 5.093,&
11672        5.108, 5.123, 5.138, 5.153, 5.167, 5.182, 5.197, 5.211, 5.226,&
11673        5.240, 5.254, 5.268, 5.282, 5.296, 5.310, 5.324, 5.338, 5.352,&
11674        5.365, 5.379, 5.392, 5.406, 5.419, 5.432, 5.445, 5.458, 5.471,&
11675        5.484, 5.497, 5.510, 5.523, 5.535, 5.548, 5.560, 5.573, 5.585,&
11676        5.598, 5.610, 5.622, 5.634, 5.646, 5.658, 5.670, 5.682, 5.694,&
11677        5.706, 5.717, 5.729                                           &
11678        /
11679 !C
11680 !C **  NaHSO4
11681 !C
11682       DATA BNC12M/                                                   &
11683       -0.046,-0.096,-0.118,-0.132,-0.143,-0.151,-0.158,-0.163,-0.167,&
11684       -0.170,-0.173,-0.175,-0.177,-0.178,-0.179,-0.180,-0.180,-0.180,&
11685       -0.180,-0.180,-0.179,-0.179,-0.178,-0.177,-0.176,-0.174,-0.173,&
11686       -0.171,-0.170,-0.168,-0.166,-0.164,-0.162,-0.159,-0.157,-0.155,&
11687       -0.152,-0.150,-0.147,-0.144,-0.142,-0.139,-0.136,-0.133,-0.130,&
11688       -0.127,-0.124,-0.120,-0.117,-0.114,-0.110,-0.107,-0.104,-0.100,&
11689       -0.097,-0.093,-0.090,-0.086,-0.082,-0.079,-0.075,-0.071,-0.067,&
11690       -0.064,-0.060,-0.056,-0.052,-0.048,-0.044,-0.040,-0.036,-0.032,&
11691       -0.028,-0.024,-0.020,-0.015,-0.011,-0.007,-0.003, 0.002, 0.006,&
11692        0.010, 0.015, 0.019, 0.024, 0.028, 0.033, 0.037, 0.042, 0.046,&
11693        0.051, 0.056, 0.060, 0.065, 0.070, 0.075, 0.079, 0.084, 0.089,&
11694        0.094, 0.099, 0.104, 0.109, 0.114, 0.119, 0.124, 0.129, 0.134,&
11695        0.139, 0.144, 0.149, 0.154, 0.159, 0.164, 0.169, 0.174, 0.179,&
11696        0.184, 0.189, 0.195, 0.200, 0.205, 0.210, 0.215, 0.220, 0.225,&
11697        0.230, 0.236, 0.241, 0.246, 0.251, 0.256, 0.261, 0.266, 0.271,&
11698        0.276, 0.281, 0.286, 0.291, 0.297, 0.302, 0.307, 0.312, 0.317,&
11699        0.322, 0.327, 0.332, 0.337, 0.342, 0.347, 0.352, 0.357, 0.361,&
11700        0.366, 0.371, 0.376, 0.381, 0.386, 0.391, 0.396, 0.401, 0.406,&
11701        0.410, 0.415, 0.420, 0.425, 0.430, 0.434, 0.439, 0.444, 0.449,&
11702        0.454, 0.458, 0.463, 0.468, 0.473, 0.477, 0.482, 0.487, 0.491,&
11703        0.496, 0.501, 0.505, 0.510, 0.515, 0.519, 0.524, 0.529, 0.533,&
11704        0.538, 0.542, 0.547, 0.551, 0.556, 0.560, 0.565, 0.570, 0.574,&
11705        0.579, 0.583, 0.588, 0.592, 0.596, 0.601, 0.605, 0.610, 0.614,&
11706        0.619, 0.623, 0.627, 0.632, 0.636, 0.641, 0.645, 0.649, 0.654,&
11707        0.658, 0.662, 0.667, 0.671, 0.675, 0.680, 0.684, 0.688, 0.692,&
11708        0.697, 0.701, 0.705, 0.709, 0.714, 0.718, 0.722, 0.726, 0.730,&
11709        0.735, 0.739, 0.743, 0.747, 0.751, 0.755, 0.759, 0.764, 0.768,&
11710        0.772, 0.776, 0.780, 0.784, 0.788, 0.792, 0.796, 0.800, 0.804,&
11711        0.808, 0.812, 0.816, 0.820, 0.824, 0.828, 0.832, 0.836, 0.840,&
11712        0.844, 0.848, 0.852, 0.856, 0.860, 0.864, 0.868, 0.872, 0.875,&
11713        0.879, 0.883, 0.887, 0.891, 0.895, 0.899, 0.902, 0.906, 0.910,&
11714        0.914, 0.918, 0.922, 0.925, 0.929, 0.933, 0.937, 0.940, 0.944,&
11715        0.948, 0.952, 0.955, 0.959, 0.963, 0.967, 0.970, 0.974, 0.978,&
11716        0.981, 0.985, 0.989, 0.992, 0.996, 1.000, 1.003, 1.007, 1.011,&
11717        1.014, 1.018, 1.022, 1.025, 1.029, 1.032, 1.036, 1.040, 1.043,&
11718        1.047, 1.050, 1.054, 1.057, 1.061, 1.064, 1.068, 1.071, 1.075,&
11719        1.079, 1.082, 1.086, 1.089, 1.092, 1.096, 1.099, 1.103, 1.106,&
11720        1.110, 1.113, 1.117, 1.120, 1.124, 1.127, 1.130, 1.134, 1.137,&
11721        1.141, 1.144, 1.147, 1.151, 1.154, 1.158, 1.161, 1.164, 1.168,&
11722        1.171, 1.174, 1.178, 1.181, 1.184, 1.188, 1.191, 1.194, 1.198,&
11723        1.201, 1.204, 1.207, 1.211, 1.214, 1.217, 1.220, 1.224, 1.227,&
11724        1.230, 1.233, 1.237, 1.240, 1.243, 1.246, 1.250, 1.253, 1.256,&
11725        1.259, 1.262, 1.266, 1.269, 1.272, 1.275, 1.278, 1.281, 1.285,&
11726        1.288, 1.291, 1.294, 1.297, 1.300, 1.303, 1.306, 1.310, 1.313,&
11727        1.316, 1.319, 1.322, 1.325, 1.358, 1.388, 1.418, 1.447, 1.476,&
11728        1.504, 1.532, 1.559, 1.586, 1.613, 1.639, 1.665, 1.691, 1.716,&
11729        1.741, 1.766, 1.790, 1.814, 1.838, 1.861, 1.884, 1.907, 1.929,&
11730        1.951, 1.973, 1.995, 2.016, 2.037, 2.058, 2.079, 2.099, 2.120,&
11731        2.140, 2.159, 2.179, 2.198, 2.217, 2.236, 2.255, 2.274, 2.292,&
11732        2.310, 2.328, 2.346, 2.363, 2.381, 2.398, 2.415, 2.432, 2.449,&
11733        2.465, 2.482, 2.498, 2.514, 2.530, 2.546, 2.562, 2.577, 2.592,&
11734        2.608, 2.623, 2.638, 2.653, 2.667, 2.682, 2.697, 2.711, 2.725,&
11735        2.739, 2.753, 2.767, 2.781, 2.795, 2.808, 2.822, 2.835, 2.848,&
11736        2.861, 2.874, 2.887, 2.900, 2.913, 2.925, 2.938, 2.950, 2.963,&
11737        2.975, 2.987, 2.999, 3.011, 3.023, 3.035, 3.046, 3.058, 3.069,&
11738        3.081, 3.092, 3.104, 3.115, 3.126, 3.137, 3.148, 3.159, 3.170,&
11739        3.180, 3.191, 3.202, 3.212, 3.223, 3.233, 3.244, 3.254, 3.264,&
11740        3.274, 3.284, 3.294, 3.304, 3.314, 3.324, 3.334, 3.343, 3.353,&
11741        3.363, 3.372, 3.382, 3.391, 3.400, 3.410, 3.419, 3.428, 3.437,&
11742        3.446, 3.455, 3.464, 3.473, 3.482, 3.491, 3.499, 3.508, 3.517,&
11743        3.525, 3.534, 3.542, 3.551, 3.559, 3.568, 3.576, 3.584, 3.592,&
11744        3.601, 3.609, 3.617, 3.625, 3.633, 3.641, 3.649, 3.657, 3.664,&
11745        3.672, 3.680, 3.688                                           &
11746        /
11747 !C
11748 !C **  (NH4)3H(SO4)2
11749 !C
11750       DATA BNC13M/                                                   &
11751       -0.076,-0.165,-0.209,-0.240,-0.264,-0.284,-0.301,-0.316,-0.329,&
11752       -0.341,-0.352,-0.362,-0.371,-0.379,-0.387,-0.394,-0.401,-0.408,&
11753       -0.414,-0.420,-0.425,-0.430,-0.435,-0.440,-0.444,-0.449,-0.453,&
11754       -0.457,-0.460,-0.464,-0.467,-0.471,-0.474,-0.477,-0.480,-0.483,&
11755       -0.485,-0.488,-0.490,-0.493,-0.495,-0.497,-0.499,-0.501,-0.503,&
11756       -0.505,-0.507,-0.509,-0.510,-0.512,-0.514,-0.515,-0.516,-0.518,&
11757       -0.519,-0.520,-0.522,-0.523,-0.524,-0.525,-0.526,-0.527,-0.528,&
11758       -0.529,-0.530,-0.531,-0.532,-0.532,-0.533,-0.534,-0.534,-0.535,&
11759       -0.536,-0.536,-0.537,-0.537,-0.538,-0.538,-0.539,-0.539,-0.540,&
11760       -0.540,-0.540,-0.541,-0.541,-0.541,-0.542,-0.542,-0.542,-0.542,&
11761       -0.542,-0.543,-0.543,-0.543,-0.543,-0.543,-0.543,-0.543,-0.543,&
11762       -0.543,-0.543,-0.543,-0.543,-0.543,-0.543,-0.543,-0.543,-0.543,&
11763       -0.543,-0.542,-0.542,-0.542,-0.542,-0.542,-0.542,-0.542,-0.541,&
11764       -0.541,-0.541,-0.541,-0.540,-0.540,-0.540,-0.540,-0.540,-0.539,&
11765       -0.539,-0.539,-0.538,-0.538,-0.538,-0.538,-0.537,-0.537,-0.537,&
11766       -0.536,-0.536,-0.536,-0.536,-0.535,-0.535,-0.535,-0.534,-0.534,&
11767       -0.534,-0.533,-0.533,-0.533,-0.532,-0.532,-0.532,-0.531,-0.531,&
11768       -0.530,-0.530,-0.530,-0.529,-0.529,-0.529,-0.528,-0.528,-0.528,&
11769       -0.527,-0.527,-0.527,-0.526,-0.526,-0.525,-0.525,-0.525,-0.524,&
11770       -0.524,-0.524,-0.523,-0.523,-0.522,-0.522,-0.522,-0.521,-0.521,&
11771       -0.521,-0.520,-0.520,-0.519,-0.519,-0.519,-0.518,-0.518,-0.518,&
11772       -0.517,-0.517,-0.516,-0.516,-0.516,-0.515,-0.515,-0.515,-0.514,&
11773       -0.514,-0.513,-0.513,-0.513,-0.512,-0.512,-0.512,-0.511,-0.511,&
11774       -0.510,-0.510,-0.510,-0.509,-0.509,-0.509,-0.508,-0.508,-0.507,&
11775       -0.507,-0.507,-0.506,-0.506,-0.506,-0.505,-0.505,-0.504,-0.504,&
11776       -0.504,-0.503,-0.503,-0.503,-0.502,-0.502,-0.501,-0.501,-0.501,&
11777       -0.500,-0.500,-0.500,-0.499,-0.499,-0.499,-0.498,-0.498,-0.497,&
11778       -0.497,-0.497,-0.496,-0.496,-0.496,-0.495,-0.495,-0.495,-0.494,&
11779       -0.494,-0.493,-0.493,-0.493,-0.492,-0.492,-0.492,-0.491,-0.491,&
11780       -0.491,-0.490,-0.490,-0.490,-0.489,-0.489,-0.489,-0.488,-0.488,&
11781       -0.487,-0.487,-0.487,-0.486,-0.486,-0.486,-0.485,-0.485,-0.485,&
11782       -0.484,-0.484,-0.484,-0.483,-0.483,-0.483,-0.482,-0.482,-0.482,&
11783       -0.481,-0.481,-0.481,-0.480,-0.480,-0.480,-0.479,-0.479,-0.479,&
11784       -0.478,-0.478,-0.478,-0.477,-0.477,-0.477,-0.476,-0.476,-0.476,&
11785       -0.475,-0.475,-0.475,-0.474,-0.474,-0.474,-0.473,-0.473,-0.473,&
11786       -0.472,-0.472,-0.472,-0.471,-0.471,-0.471,-0.471,-0.470,-0.470,&
11787       -0.470,-0.469,-0.469,-0.469,-0.468,-0.468,-0.468,-0.467,-0.467,&
11788       -0.467,-0.466,-0.466,-0.466,-0.466,-0.465,-0.465,-0.465,-0.464,&
11789       -0.464,-0.464,-0.463,-0.463,-0.463,-0.463,-0.462,-0.462,-0.462,&
11790       -0.461,-0.461,-0.461,-0.460,-0.460,-0.460,-0.460,-0.459,-0.459,&
11791       -0.459,-0.458,-0.458,-0.458,-0.458,-0.457,-0.457,-0.457,-0.456,&
11792       -0.456,-0.456,-0.456,-0.455,-0.455,-0.455,-0.454,-0.454,-0.454,&
11793       -0.454,-0.453,-0.453,-0.453,-0.452,-0.452,-0.452,-0.452,-0.451,&
11794       -0.451,-0.451,-0.450,-0.450,-0.450,-0.450,-0.449,-0.449,-0.449,&
11795       -0.449,-0.448,-0.448,-0.448,-0.445,-0.442,-0.440,-0.437,-0.435,&
11796       -0.432,-0.430,-0.428,-0.426,-0.423,-0.421,-0.419,-0.417,-0.415,&
11797       -0.413,-0.411,-0.409,-0.407,-0.406,-0.404,-0.402,-0.401,-0.399,&
11798       -0.397,-0.396,-0.394,-0.393,-0.391,-0.390,-0.389,-0.387,-0.386,&
11799       -0.385,-0.383,-0.382,-0.381,-0.380,-0.379,-0.378,-0.377,-0.376,&
11800       -0.375,-0.374,-0.373,-0.372,-0.371,-0.370,-0.369,-0.368,-0.367,&
11801       -0.367,-0.366,-0.365,-0.364,-0.364,-0.363,-0.362,-0.362,-0.361,&
11802       -0.361,-0.360,-0.360,-0.359,-0.359,-0.358,-0.358,-0.357,-0.357,&
11803       -0.356,-0.356,-0.356,-0.355,-0.355,-0.355,-0.354,-0.354,-0.354,&
11804       -0.354,-0.353,-0.353,-0.353,-0.353,-0.353,-0.352,-0.352,-0.352,&
11805       -0.352,-0.352,-0.352,-0.352,-0.352,-0.352,-0.352,-0.352,-0.352,&
11806       -0.352,-0.352,-0.352,-0.352,-0.352,-0.352,-0.352,-0.352,-0.352,&
11807       -0.352,-0.353,-0.353,-0.353,-0.353,-0.353,-0.353,-0.354,-0.354,&
11808       -0.354,-0.354,-0.355,-0.355,-0.355,-0.355,-0.356,-0.356,-0.356,&
11809       -0.357,-0.357,-0.357,-0.358,-0.358,-0.358,-0.359,-0.359,-0.359,&
11810       -0.360,-0.360,-0.361,-0.361,-0.362,-0.362,-0.362,-0.363,-0.363,&
11811       -0.364,-0.364,-0.365,-0.365,-0.366,-0.366,-0.367,-0.367,-0.368,&
11812       -0.369,-0.369,-0.370,-0.370,-0.371,-0.371,-0.372,-0.373,-0.373,&
11813       -0.374,-0.374,-0.375                                           &
11814        /
11815 !C
11816 !C **  CASO4
11817 !C
11818       DATA BNC14M/                                                   &
11819        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11820        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11821        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11822        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11823        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11824        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11825        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11826        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11827        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11828        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11829        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11830        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11831        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11832        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11833        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11834        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11835        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11836        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11837        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11838        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11839        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11840        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11841        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11842        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11843        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11844        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11845        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11846        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11847        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11848        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11849        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11850        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11851        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11852        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11853        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11854        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11855        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11856        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11857        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11858        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11859        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11860        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11861        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11862        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11863        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11864        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11865        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11866        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11867        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11868        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11869        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11870        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11871        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11872        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11873        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11874        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11875        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11876        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11877        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11878        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11879        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11880        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
11881        0.000, 0.000, 0.000                                           &
11882        /
11883 !C
11884 !C **  CANO32
11885 !C
11886       DATA BNC15M/                                                   &
11887       -0.094,-0.201,-0.251,-0.286,-0.312,-0.334,-0.351,-0.366,-0.379,&
11888       -0.390,-0.400,-0.409,-0.417,-0.424,-0.430,-0.436,-0.442,-0.447,&
11889       -0.451,-0.455,-0.459,-0.463,-0.466,-0.469,-0.472,-0.475,-0.477,&
11890       -0.479,-0.481,-0.483,-0.485,-0.487,-0.489,-0.490,-0.491,-0.493,&
11891       -0.494,-0.495,-0.496,-0.497,-0.498,-0.499,-0.500,-0.501,-0.501,&
11892       -0.502,-0.503,-0.503,-0.504,-0.504,-0.505,-0.505,-0.505,-0.506,&
11893       -0.506,-0.506,-0.507,-0.507,-0.507,-0.507,-0.507,-0.508,-0.508,&
11894       -0.508,-0.508,-0.508,-0.508,-0.508,-0.508,-0.508,-0.508,-0.508,&
11895       -0.508,-0.507,-0.507,-0.507,-0.507,-0.507,-0.506,-0.506,-0.506,&
11896       -0.506,-0.505,-0.505,-0.505,-0.504,-0.504,-0.503,-0.503,-0.502,&
11897       -0.502,-0.501,-0.501,-0.500,-0.500,-0.499,-0.499,-0.498,-0.497,&
11898       -0.497,-0.496,-0.495,-0.495,-0.494,-0.493,-0.493,-0.492,-0.491,&
11899       -0.490,-0.489,-0.489,-0.488,-0.487,-0.486,-0.485,-0.485,-0.484,&
11900       -0.483,-0.482,-0.481,-0.480,-0.479,-0.478,-0.477,-0.477,-0.476,&
11901       -0.475,-0.474,-0.473,-0.472,-0.471,-0.470,-0.469,-0.468,-0.467,&
11902       -0.466,-0.465,-0.464,-0.463,-0.462,-0.461,-0.460,-0.459,-0.459,&
11903       -0.458,-0.457,-0.456,-0.455,-0.454,-0.453,-0.452,-0.451,-0.450,&
11904       -0.449,-0.448,-0.447,-0.446,-0.445,-0.444,-0.443,-0.442,-0.441,&
11905       -0.440,-0.439,-0.438,-0.437,-0.436,-0.435,-0.434,-0.433,-0.432,&
11906       -0.431,-0.430,-0.429,-0.428,-0.427,-0.426,-0.425,-0.424,-0.423,&
11907       -0.422,-0.421,-0.420,-0.419,-0.418,-0.417,-0.416,-0.415,-0.414,&
11908       -0.413,-0.412,-0.411,-0.410,-0.409,-0.408,-0.407,-0.406,-0.405,&
11909       -0.404,-0.403,-0.402,-0.401,-0.400,-0.399,-0.398,-0.397,-0.396,&
11910       -0.395,-0.394,-0.393,-0.392,-0.391,-0.390,-0.389,-0.388,-0.387,&
11911       -0.386,-0.385,-0.384,-0.383,-0.382,-0.382,-0.381,-0.380,-0.379,&
11912       -0.378,-0.377,-0.376,-0.375,-0.374,-0.373,-0.372,-0.371,-0.370,&
11913       -0.369,-0.368,-0.367,-0.366,-0.365,-0.364,-0.363,-0.362,-0.361,&
11914       -0.360,-0.359,-0.359,-0.358,-0.357,-0.356,-0.355,-0.354,-0.353,&
11915       -0.352,-0.351,-0.350,-0.349,-0.348,-0.347,-0.346,-0.345,-0.344,&
11916       -0.344,-0.343,-0.342,-0.341,-0.340,-0.339,-0.338,-0.337,-0.336,&
11917       -0.335,-0.334,-0.333,-0.332,-0.332,-0.331,-0.330,-0.329,-0.328,&
11918       -0.327,-0.326,-0.325,-0.324,-0.323,-0.323,-0.322,-0.321,-0.320,&
11919       -0.319,-0.318,-0.317,-0.316,-0.315,-0.314,-0.314,-0.313,-0.312,&
11920       -0.311,-0.310,-0.309,-0.308,-0.307,-0.307,-0.306,-0.305,-0.304,&
11921       -0.303,-0.302,-0.301,-0.300,-0.300,-0.299,-0.298,-0.297,-0.296,&
11922       -0.295,-0.294,-0.294,-0.293,-0.292,-0.291,-0.290,-0.289,-0.288,&
11923       -0.288,-0.287,-0.286,-0.285,-0.284,-0.283,-0.282,-0.282,-0.281,&
11924       -0.280,-0.279,-0.278,-0.277,-0.277,-0.276,-0.275,-0.274,-0.273,&
11925       -0.273,-0.272,-0.271,-0.270,-0.269,-0.268,-0.268,-0.267,-0.266,&
11926       -0.265,-0.264,-0.263,-0.263,-0.262,-0.261,-0.260,-0.259,-0.259,&
11927       -0.258,-0.257,-0.256,-0.255,-0.255,-0.254,-0.253,-0.252,-0.251,&
11928       -0.251,-0.250,-0.249,-0.248,-0.248,-0.247,-0.246,-0.245,-0.244,&
11929       -0.244,-0.243,-0.242,-0.241,-0.240,-0.240,-0.239,-0.238,-0.237,&
11930       -0.237,-0.236,-0.235,-0.234,-0.234,-0.233,-0.232,-0.231,-0.230,&
11931       -0.230,-0.229,-0.228,-0.227,-0.219,-0.212,-0.205,-0.198,-0.191,&
11932       -0.184,-0.177,-0.170,-0.163,-0.157,-0.151,-0.144,-0.138,-0.132,&
11933       -0.126,-0.120,-0.114,-0.108,-0.103,-0.097,-0.091,-0.086,-0.081,&
11934       -0.075,-0.070,-0.065,-0.060,-0.055,-0.050,-0.045,-0.041,-0.036,&
11935       -0.031,-0.027,-0.022,-0.018,-0.014,-0.009,-0.005,-0.001, 0.003,&
11936        0.007, 0.011, 0.015, 0.019, 0.023, 0.027, 0.031, 0.034, 0.038,&
11937        0.041, 0.045, 0.048, 0.052, 0.055, 0.059, 0.062, 0.065, 0.068,&
11938        0.071, 0.075, 0.078, 0.081, 0.084, 0.087, 0.089, 0.092, 0.095,&
11939        0.098, 0.101, 0.103, 0.106, 0.109, 0.111, 0.114, 0.116, 0.119,&
11940        0.121, 0.124, 0.126, 0.128, 0.131, 0.133, 0.135, 0.138, 0.140,&
11941        0.142, 0.144, 0.146, 0.148, 0.150, 0.152, 0.154, 0.156, 0.158,&
11942        0.160, 0.162, 0.164, 0.166, 0.167, 0.169, 0.171, 0.173, 0.174,&
11943        0.176, 0.178, 0.179, 0.181, 0.182, 0.184, 0.186, 0.187, 0.189,&
11944        0.190, 0.191, 0.193, 0.194, 0.196, 0.197, 0.198, 0.200, 0.201,&
11945        0.202, 0.203, 0.205, 0.206, 0.207, 0.208, 0.209, 0.210, 0.212,&
11946        0.213, 0.214, 0.215, 0.216, 0.217, 0.218, 0.219, 0.220, 0.221,&
11947        0.222, 0.222, 0.223, 0.224, 0.225, 0.226, 0.227, 0.228, 0.228,&
11948        0.229, 0.230, 0.231, 0.231, 0.232, 0.233, 0.234, 0.234, 0.235,&
11949        0.235, 0.236, 0.237                                           &
11950        /
11951 !C
11952 !C **  CACL2
11953 !C
11954       DATA BNC16M/                                                   &
11955       -0.093,-0.193,-0.238,-0.267,-0.288,-0.304,-0.316,-0.326,-0.334,&
11956       -0.340,-0.345,-0.350,-0.353,-0.355,-0.357,-0.359,-0.360,-0.360,&
11957       -0.360,-0.360,-0.359,-0.358,-0.357,-0.356,-0.355,-0.353,-0.351,&
11958       -0.349,-0.347,-0.345,-0.342,-0.340,-0.337,-0.335,-0.332,-0.329,&
11959       -0.326,-0.323,-0.321,-0.317,-0.314,-0.311,-0.308,-0.305,-0.302,&
11960       -0.299,-0.295,-0.292,-0.289,-0.286,-0.282,-0.279,-0.276,-0.272,&
11961       -0.269,-0.266,-0.262,-0.259,-0.255,-0.252,-0.249,-0.245,-0.242,&
11962       -0.238,-0.235,-0.231,-0.228,-0.224,-0.221,-0.217,-0.213,-0.210,&
11963       -0.206,-0.203,-0.199,-0.195,-0.192,-0.188,-0.184,-0.180,-0.177,&
11964       -0.173,-0.169,-0.165,-0.161,-0.157,-0.153,-0.149,-0.145,-0.141,&
11965       -0.137,-0.133,-0.129,-0.125,-0.120,-0.116,-0.112,-0.108,-0.103,&
11966       -0.099,-0.095,-0.090,-0.086,-0.081,-0.077,-0.073,-0.068,-0.064,&
11967       -0.059,-0.054,-0.050,-0.045,-0.041,-0.036,-0.032,-0.027,-0.022,&
11968       -0.018,-0.013,-0.008,-0.004, 0.001, 0.005, 0.010, 0.015, 0.019,&
11969        0.024, 0.029, 0.033, 0.038, 0.043, 0.048, 0.052, 0.057, 0.062,&
11970        0.066, 0.071, 0.076, 0.080, 0.085, 0.090, 0.094, 0.099, 0.103,&
11971        0.108, 0.113, 0.117, 0.122, 0.127, 0.131, 0.136, 0.141, 0.145,&
11972        0.150, 0.154, 0.159, 0.164, 0.168, 0.173, 0.177, 0.182, 0.186,&
11973        0.191, 0.196, 0.200, 0.205, 0.209, 0.214, 0.218, 0.223, 0.227,&
11974        0.232, 0.236, 0.241, 0.245, 0.250, 0.254, 0.259, 0.263, 0.268,&
11975        0.272, 0.277, 0.281, 0.286, 0.290, 0.294, 0.299, 0.303, 0.308,&
11976        0.312, 0.317, 0.321, 0.325, 0.330, 0.334, 0.338, 0.343, 0.347,&
11977        0.352, 0.356, 0.360, 0.365, 0.369, 0.373, 0.378, 0.382, 0.386,&
11978        0.390, 0.395, 0.399, 0.403, 0.408, 0.412, 0.416, 0.420, 0.425,&
11979        0.429, 0.433, 0.437, 0.442, 0.446, 0.450, 0.454, 0.458, 0.463,&
11980        0.467, 0.471, 0.475, 0.479, 0.483, 0.488, 0.492, 0.496, 0.500,&
11981        0.504, 0.508, 0.512, 0.516, 0.521, 0.525, 0.529, 0.533, 0.537,&
11982        0.541, 0.545, 0.549, 0.553, 0.557, 0.561, 0.565, 0.569, 0.573,&
11983        0.577, 0.581, 0.585, 0.589, 0.593, 0.597, 0.601, 0.605, 0.609,&
11984        0.613, 0.617, 0.621, 0.625, 0.629, 0.633, 0.637, 0.641, 0.644,&
11985        0.648, 0.652, 0.656, 0.660, 0.664, 0.668, 0.672, 0.675, 0.679,&
11986        0.683, 0.687, 0.691, 0.695, 0.698, 0.702, 0.706, 0.710, 0.714,&
11987        0.717, 0.721, 0.725, 0.729, 0.733, 0.736, 0.740, 0.744, 0.748,&
11988        0.751, 0.755, 0.759, 0.762, 0.766, 0.770, 0.774, 0.777, 0.781,&
11989        0.785, 0.788, 0.792, 0.796, 0.799, 0.803, 0.807, 0.810, 0.814,&
11990        0.818, 0.821, 0.825, 0.828, 0.832, 0.836, 0.839, 0.843, 0.846,&
11991        0.850, 0.853, 0.857, 0.861, 0.864, 0.868, 0.871, 0.875, 0.878,&
11992        0.882, 0.885, 0.889, 0.892, 0.896, 0.899, 0.903, 0.906, 0.910,&
11993        0.913, 0.917, 0.920, 0.924, 0.927, 0.931, 0.934, 0.938, 0.941,&
11994        0.944, 0.948, 0.951, 0.955, 0.958, 0.961, 0.965, 0.968, 0.972,&
11995        0.975, 0.978, 0.982, 0.985, 0.988, 0.992, 0.995, 0.999, 1.002,&
11996        1.005, 1.009, 1.012, 1.015, 1.018, 1.022, 1.025, 1.028, 1.032,&
11997        1.035, 1.038, 1.042, 1.045, 1.048, 1.051, 1.055, 1.058, 1.061,&
11998        1.064, 1.068, 1.071, 1.074, 1.077, 1.080, 1.084, 1.087, 1.090,&
11999        1.093, 1.096, 1.100, 1.103, 1.137, 1.168, 1.199, 1.229, 1.259,&
12000        1.288, 1.317, 1.345, 1.373, 1.401, 1.428, 1.455, 1.482, 1.508,&
12001        1.534, 1.559, 1.584, 1.609, 1.634, 1.658, 1.682, 1.706, 1.729,&
12002        1.752, 1.775, 1.797, 1.819, 1.841, 1.863, 1.884, 1.905, 1.926,&
12003        1.947, 1.967, 1.988, 2.008, 2.027, 2.047, 2.066, 2.085, 2.104,&
12004        2.123, 2.141, 2.160, 2.178, 2.196, 2.214, 2.231, 2.249, 2.266,&
12005        2.283, 2.300, 2.316, 2.333, 2.349, 2.365, 2.381, 2.397, 2.413,&
12006        2.429, 2.444, 2.459, 2.475, 2.490, 2.504, 2.519, 2.534, 2.548,&
12007        2.563, 2.577, 2.591, 2.605, 2.619, 2.632, 2.646, 2.659, 2.673,&
12008        2.686, 2.699, 2.712, 2.725, 2.738, 2.751, 2.763, 2.776, 2.788,&
12009        2.800, 2.813, 2.825, 2.837, 2.849, 2.860, 2.872, 2.884, 2.895,&
12010        2.907, 2.918, 2.929, 2.940, 2.952, 2.963, 2.973, 2.984, 2.995,&
12011        3.006, 3.016, 3.027, 3.037, 3.048, 3.058, 3.068, 3.078, 3.088,&
12012        3.098, 3.108, 3.118, 3.128, 3.137, 3.147, 3.157, 3.166, 3.176,&
12013        3.185, 3.194, 3.203, 3.213, 3.222, 3.231, 3.240, 3.249, 3.258,&
12014        3.266, 3.275, 3.284, 3.292, 3.301, 3.309, 3.318, 3.326, 3.335,&
12015        3.343, 3.351, 3.359, 3.368, 3.376, 3.384, 3.392, 3.399, 3.407,&
12016        3.415, 3.423, 3.431, 3.438, 3.446, 3.454, 3.461, 3.469, 3.476,&
12017        3.483, 3.491, 3.498                                           &
12018        /
12019 !C
12020 !C **  K2SO4
12021 !C
12022       DATA BNC17M/                                                   &
12023       -0.096,-0.208,-0.265,-0.305,-0.337,-0.363,-0.385,-0.405,-0.423,&
12024       -0.439,-0.453,-0.467,-0.479,-0.491,-0.502,-0.512,-0.522,-0.531,&
12025       -0.540,-0.548,-0.556,-0.564,-0.571,-0.578,-0.585,-0.592,-0.598,&
12026       -0.605,-0.610,-0.616,-0.622,-0.627,-0.633,-0.638,-0.643,-0.648,&
12027       -0.653,-0.657,-0.662,-0.666,-0.671,-0.675,-0.679,-0.683,-0.688,&
12028       -0.691,-0.695,-0.699,-0.703,-0.707,-0.710,-0.714,-0.717,-0.721,&
12029       -0.724,-0.727,-0.731,-0.734,-0.737,-0.740,-0.743,-0.746,-0.749,&
12030       -0.752,-0.755,-0.758,-0.761,-0.763,-0.766,-0.769,-0.772,-0.774,&
12031       -0.777,-0.780,-0.782,-0.785,-0.787,-0.790,-0.792,-0.795,-0.797,&
12032       -0.799,-0.802,-0.804,-0.807,-0.809,-0.811,-0.814,-0.816,-0.818,&
12033       -0.820,-0.823,-0.825,-0.827,-0.829,-0.831,-0.833,-0.836,-0.838,&
12034       -0.840,-0.842,-0.844,-0.846,-0.848,-0.850,-0.852,-0.854,-0.856,&
12035       -0.858,-0.860,-0.862,-0.864,-0.866,-0.868,-0.870,-0.872,-0.874,&
12036       -0.875,-0.877,-0.879,-0.881,-0.883,-0.885,-0.887,-0.888,-0.890,&
12037       -0.892,-0.894,-0.895,-0.897,-0.899,-0.901,-0.902,-0.904,-0.906,&
12038       -0.908,-0.909,-0.911,-0.913,-0.914,-0.916,-0.918,-0.919,-0.921,&
12039       -0.923,-0.924,-0.926,-0.927,-0.929,-0.931,-0.932,-0.934,-0.935,&
12040       -0.937,-0.938,-0.940,-0.942,-0.943,-0.945,-0.946,-0.948,-0.949,&
12041       -0.951,-0.952,-0.954,-0.955,-0.957,-0.958,-0.960,-0.961,-0.962,&
12042       -0.964,-0.965,-0.967,-0.968,-0.970,-0.971,-0.972,-0.974,-0.975,&
12043       -0.977,-0.978,-0.979,-0.981,-0.982,-0.984,-0.985,-0.986,-0.988,&
12044       -0.989,-0.990,-0.992,-0.993,-0.994,-0.996,-0.997,-0.998,-1.000,&
12045       -1.001,-1.002,-1.004,-1.005,-1.006,-1.007,-1.009,-1.010,-1.011,&
12046       -1.013,-1.014,-1.015,-1.016,-1.018,-1.019,-1.020,-1.021,-1.023,&
12047       -1.024,-1.025,-1.026,-1.027,-1.029,-1.030,-1.031,-1.032,-1.034,&
12048       -1.035,-1.036,-1.037,-1.038,-1.039,-1.041,-1.042,-1.043,-1.044,&
12049       -1.045,-1.047,-1.048,-1.049,-1.050,-1.051,-1.052,-1.053,-1.055,&
12050       -1.056,-1.057,-1.058,-1.059,-1.060,-1.061,-1.063,-1.064,-1.065,&
12051       -1.066,-1.067,-1.068,-1.069,-1.070,-1.071,-1.073,-1.074,-1.075,&
12052       -1.076,-1.077,-1.078,-1.079,-1.080,-1.081,-1.082,-1.083,-1.084,&
12053       -1.086,-1.087,-1.088,-1.089,-1.090,-1.091,-1.092,-1.093,-1.094,&
12054       -1.095,-1.096,-1.097,-1.098,-1.099,-1.100,-1.101,-1.102,-1.103,&
12055       -1.104,-1.105,-1.106,-1.107,-1.108,-1.109,-1.110,-1.111,-1.112,&
12056       -1.114,-1.115,-1.116,-1.117,-1.118,-1.119,-1.119,-1.120,-1.121,&
12057       -1.122,-1.123,-1.124,-1.125,-1.126,-1.127,-1.128,-1.129,-1.130,&
12058       -1.131,-1.132,-1.133,-1.134,-1.135,-1.136,-1.137,-1.138,-1.139,&
12059       -1.140,-1.141,-1.142,-1.143,-1.144,-1.145,-1.146,-1.147,-1.147,&
12060       -1.148,-1.149,-1.150,-1.151,-1.152,-1.153,-1.154,-1.155,-1.156,&
12061       -1.157,-1.158,-1.159,-1.160,-1.160,-1.161,-1.162,-1.163,-1.164,&
12062       -1.165,-1.166,-1.167,-1.168,-1.169,-1.169,-1.170,-1.171,-1.172,&
12063       -1.173,-1.174,-1.175,-1.176,-1.177,-1.178,-1.178,-1.179,-1.180,&
12064       -1.181,-1.182,-1.183,-1.184,-1.185,-1.185,-1.186,-1.187,-1.188,&
12065       -1.189,-1.190,-1.191,-1.191,-1.192,-1.193,-1.194,-1.195,-1.196,&
12066       -1.197,-1.198,-1.198,-1.199,-1.200,-1.201,-1.202,-1.203,-1.203,&
12067       -1.204,-1.205,-1.206,-1.207,-1.216,-1.224,-1.232,-1.240,-1.248,&
12068       -1.256,-1.263,-1.271,-1.279,-1.286,-1.293,-1.301,-1.308,-1.315,&
12069       -1.322,-1.329,-1.336,-1.343,-1.349,-1.356,-1.363,-1.369,-1.376,&
12070       -1.382,-1.389,-1.395,-1.402,-1.408,-1.414,-1.420,-1.427,-1.433,&
12071       -1.439,-1.445,-1.451,-1.457,-1.463,-1.468,-1.474,-1.480,-1.486,&
12072       -1.492,-1.497,-1.503,-1.509,-1.514,-1.520,-1.525,-1.531,-1.536,&
12073       -1.542,-1.547,-1.553,-1.558,-1.563,-1.569,-1.574,-1.579,-1.585,&
12074       -1.590,-1.595,-1.600,-1.605,-1.611,-1.616,-1.621,-1.626,-1.631,&
12075       -1.636,-1.641,-1.646,-1.651,-1.656,-1.661,-1.666,-1.671,-1.676,&
12076       -1.681,-1.685,-1.690,-1.695,-1.700,-1.705,-1.710,-1.714,-1.719,&
12077       -1.724,-1.729,-1.733,-1.738,-1.743,-1.747,-1.752,-1.757,-1.761,&
12078       -1.766,-1.770,-1.775,-1.780,-1.784,-1.789,-1.793,-1.798,-1.802,&
12079       -1.807,-1.811,-1.816,-1.820,-1.825,-1.829,-1.834,-1.838,-1.842,&
12080       -1.847,-1.851,-1.856,-1.860,-1.864,-1.869,-1.873,-1.877,-1.882,&
12081       -1.886,-1.890,-1.895,-1.899,-1.903,-1.908,-1.912,-1.916,-1.920,&
12082       -1.925,-1.929,-1.933,-1.937,-1.941,-1.946,-1.950,-1.954,-1.958,&
12083       -1.962,-1.966,-1.971,-1.975,-1.979,-1.983,-1.987,-1.991,-1.995,&
12084       -2.000,-2.004,-2.008,-2.012,-2.016,-2.020,-2.024,-2.028,-2.032,&
12085       -2.036,-2.040,-2.044                                           &
12086        /
12087 !C
12088 !C **  KHSO4
12089 !C
12090       DATA BNC18M/                                                   &
12091       -0.047,-0.099,-0.124,-0.141,-0.154,-0.165,-0.173,-0.181,-0.187,&
12092       -0.193,-0.198,-0.202,-0.206,-0.209,-0.212,-0.215,-0.217,-0.220,&
12093       -0.221,-0.223,-0.225,-0.226,-0.227,-0.228,-0.229,-0.229,-0.230,&
12094       -0.230,-0.230,-0.230,-0.230,-0.230,-0.230,-0.229,-0.229,-0.228,&
12095       -0.228,-0.227,-0.226,-0.225,-0.224,-0.223,-0.222,-0.221,-0.220,&
12096       -0.218,-0.217,-0.215,-0.214,-0.212,-0.210,-0.209,-0.207,-0.205,&
12097       -0.203,-0.201,-0.199,-0.197,-0.195,-0.193,-0.191,-0.189,-0.187,&
12098       -0.185,-0.182,-0.180,-0.178,-0.175,-0.173,-0.171,-0.168,-0.166,&
12099       -0.163,-0.160,-0.158,-0.155,-0.153,-0.150,-0.147,-0.144,-0.142,&
12100       -0.139,-0.136,-0.133,-0.130,-0.127,-0.124,-0.121,-0.118,-0.115,&
12101       -0.112,-0.109,-0.106,-0.103,-0.100,-0.097,-0.094,-0.091,-0.087,&
12102       -0.084,-0.081,-0.078,-0.074,-0.071,-0.068,-0.064,-0.061,-0.058,&
12103       -0.054,-0.051,-0.047,-0.044,-0.041,-0.037,-0.034,-0.030,-0.027,&
12104       -0.023,-0.020,-0.017,-0.013,-0.010,-0.006,-0.003, 0.001, 0.004,&
12105        0.008, 0.011, 0.015, 0.018, 0.021, 0.025, 0.028, 0.032, 0.035,&
12106        0.039, 0.042, 0.046, 0.049, 0.052, 0.056, 0.059, 0.063, 0.066,&
12107        0.069, 0.073, 0.076, 0.079, 0.083, 0.086, 0.090, 0.093, 0.096,&
12108        0.100, 0.103, 0.106, 0.110, 0.113, 0.116, 0.119, 0.123, 0.126,&
12109        0.129, 0.133, 0.136, 0.139, 0.142, 0.146, 0.149, 0.152, 0.155,&
12110        0.158, 0.162, 0.165, 0.168, 0.171, 0.174, 0.177, 0.181, 0.184,&
12111        0.187, 0.190, 0.193, 0.196, 0.199, 0.203, 0.206, 0.209, 0.212,&
12112        0.215, 0.218, 0.221, 0.224, 0.227, 0.230, 0.233, 0.236, 0.239,&
12113        0.242, 0.245, 0.248, 0.251, 0.254, 0.257, 0.260, 0.263, 0.266,&
12114        0.269, 0.272, 0.275, 0.278, 0.281, 0.284, 0.287, 0.290, 0.292,&
12115        0.295, 0.298, 0.301, 0.304, 0.307, 0.310, 0.313, 0.315, 0.318,&
12116        0.321, 0.324, 0.327, 0.330, 0.332, 0.335, 0.338, 0.341, 0.343,&
12117        0.346, 0.349, 0.352, 0.355, 0.357, 0.360, 0.363, 0.366, 0.368,&
12118        0.371, 0.374, 0.376, 0.379, 0.382, 0.384, 0.387, 0.390, 0.393,&
12119        0.395, 0.398, 0.400, 0.403, 0.406, 0.408, 0.411, 0.414, 0.416,&
12120        0.419, 0.422, 0.424, 0.427, 0.429, 0.432, 0.434, 0.437, 0.440,&
12121        0.442, 0.445, 0.447, 0.450, 0.452, 0.455, 0.457, 0.460, 0.463,&
12122        0.465, 0.468, 0.470, 0.473, 0.475, 0.478, 0.480, 0.483, 0.485,&
12123        0.487, 0.490, 0.492, 0.495, 0.497, 0.500, 0.502, 0.505, 0.507,&
12124        0.509, 0.512, 0.514, 0.517, 0.519, 0.522, 0.524, 0.526, 0.529,&
12125        0.531, 0.533, 0.536, 0.538, 0.541, 0.543, 0.545, 0.548, 0.550,&
12126        0.552, 0.555, 0.557, 0.559, 0.562, 0.564, 0.566, 0.569, 0.571,&
12127        0.573, 0.575, 0.578, 0.580, 0.582, 0.585, 0.587, 0.589, 0.591,&
12128        0.594, 0.596, 0.598, 0.600, 0.603, 0.605, 0.607, 0.609, 0.612,&
12129        0.614, 0.616, 0.618, 0.621, 0.623, 0.625, 0.627, 0.629, 0.632,&
12130        0.634, 0.636, 0.638, 0.640, 0.642, 0.645, 0.647, 0.649, 0.651,&
12131        0.653, 0.655, 0.658, 0.660, 0.662, 0.664, 0.666, 0.668, 0.670,&
12132        0.672, 0.675, 0.677, 0.679, 0.681, 0.683, 0.685, 0.687, 0.689,&
12133        0.691, 0.693, 0.695, 0.698, 0.700, 0.702, 0.704, 0.706, 0.708,&
12134        0.710, 0.712, 0.714, 0.716, 0.718, 0.720, 0.722, 0.724, 0.726,&
12135        0.728, 0.730, 0.732, 0.734, 0.756, 0.775, 0.795, 0.814, 0.832,&
12136        0.851, 0.869, 0.886, 0.904, 0.921, 0.938, 0.955, 0.972, 0.988,&
12137        1.004, 1.020, 1.036, 1.051, 1.066, 1.081, 1.096, 1.111, 1.125,&
12138        1.140, 1.154, 1.168, 1.181, 1.195, 1.208, 1.222, 1.235, 1.248,&
12139        1.261, 1.273, 1.286, 1.298, 1.311, 1.323, 1.335, 1.347, 1.358,&
12140        1.370, 1.381, 1.393, 1.404, 1.415, 1.426, 1.437, 1.448, 1.459,&
12141        1.469, 1.480, 1.490, 1.500, 1.510, 1.521, 1.531, 1.540, 1.550,&
12142        1.560, 1.570, 1.579, 1.589, 1.598, 1.607, 1.616, 1.625, 1.635,&
12143        1.643, 1.652, 1.661, 1.670, 1.679, 1.687, 1.696, 1.704, 1.712,&
12144        1.721, 1.729, 1.737, 1.745, 1.753, 1.761, 1.769, 1.777, 1.785,&
12145        1.792, 1.800, 1.808, 1.815, 1.823, 1.830, 1.838, 1.845, 1.852,&
12146        1.859, 1.866, 1.874, 1.881, 1.888, 1.895, 1.901, 1.908, 1.915,&
12147        1.922, 1.929, 1.935, 1.942, 1.948, 1.955, 1.961, 1.968, 1.974,&
12148        1.980, 1.987, 1.993, 1.999, 2.005, 2.011, 2.018, 2.024, 2.030,&
12149        2.036, 2.041, 2.047, 2.053, 2.059, 2.065, 2.070, 2.076, 2.082,&
12150        2.087, 2.093, 2.099, 2.104, 2.110, 2.115, 2.120, 2.126, 2.131,&
12151        2.136, 2.142, 2.147, 2.152, 2.157, 2.163, 2.168, 2.173, 2.178,&
12152        2.183, 2.188, 2.193, 2.198, 2.203, 2.208, 2.212, 2.217, 2.222,&
12153        2.227, 2.232, 2.236                                           &
12154        /
12155 !C
12156 !C **  KNO3
12157 !C
12158       DATA BNC19M/                                                   &
12159       -0.049,-0.112,-0.147,-0.173,-0.194,-0.213,-0.230,-0.245,-0.259,&
12160       -0.272,-0.285,-0.297,-0.308,-0.319,-0.329,-0.339,-0.348,-0.358,&
12161       -0.367,-0.376,-0.384,-0.392,-0.401,-0.408,-0.416,-0.424,-0.431,&
12162       -0.439,-0.446,-0.453,-0.460,-0.466,-0.473,-0.479,-0.486,-0.492,&
12163       -0.498,-0.504,-0.510,-0.516,-0.522,-0.528,-0.533,-0.539,-0.544,&
12164       -0.550,-0.555,-0.560,-0.565,-0.571,-0.576,-0.580,-0.585,-0.590,&
12165       -0.595,-0.600,-0.604,-0.609,-0.613,-0.618,-0.622,-0.627,-0.631,&
12166       -0.635,-0.640,-0.644,-0.648,-0.652,-0.656,-0.660,-0.664,-0.668,&
12167       -0.672,-0.676,-0.680,-0.684,-0.688,-0.692,-0.696,-0.700,-0.704,&
12168       -0.707,-0.711,-0.715,-0.719,-0.722,-0.726,-0.730,-0.734,-0.737,&
12169       -0.741,-0.745,-0.748,-0.752,-0.755,-0.759,-0.763,-0.766,-0.770,&
12170       -0.773,-0.777,-0.780,-0.784,-0.788,-0.791,-0.795,-0.798,-0.801,&
12171       -0.805,-0.808,-0.812,-0.815,-0.819,-0.822,-0.825,-0.829,-0.832,&
12172       -0.835,-0.839,-0.842,-0.845,-0.849,-0.852,-0.855,-0.858,-0.862,&
12173       -0.865,-0.868,-0.871,-0.874,-0.878,-0.881,-0.884,-0.887,-0.890,&
12174       -0.893,-0.896,-0.899,-0.902,-0.905,-0.908,-0.911,-0.914,-0.917,&
12175       -0.920,-0.923,-0.926,-0.929,-0.932,-0.935,-0.937,-0.940,-0.943,&
12176       -0.946,-0.949,-0.951,-0.954,-0.957,-0.960,-0.963,-0.965,-0.968,&
12177       -0.971,-0.973,-0.976,-0.979,-0.981,-0.984,-0.987,-0.989,-0.992,&
12178       -0.994,-0.997,-0.999,-1.002,-1.005,-1.007,-1.010,-1.012,-1.015,&
12179       -1.017,-1.020,-1.022,-1.024,-1.027,-1.029,-1.032,-1.034,-1.036,&
12180       -1.039,-1.041,-1.044,-1.046,-1.048,-1.051,-1.053,-1.055,-1.057,&
12181       -1.060,-1.062,-1.064,-1.067,-1.069,-1.071,-1.073,-1.075,-1.078,&
12182       -1.080,-1.082,-1.084,-1.086,-1.089,-1.091,-1.093,-1.095,-1.097,&
12183       -1.099,-1.101,-1.103,-1.106,-1.108,-1.110,-1.112,-1.114,-1.116,&
12184       -1.118,-1.120,-1.122,-1.124,-1.126,-1.128,-1.130,-1.132,-1.134,&
12185       -1.136,-1.138,-1.140,-1.142,-1.144,-1.145,-1.147,-1.149,-1.151,&
12186       -1.153,-1.155,-1.157,-1.159,-1.160,-1.162,-1.164,-1.166,-1.168,&
12187       -1.170,-1.171,-1.173,-1.175,-1.177,-1.179,-1.180,-1.182,-1.184,&
12188       -1.186,-1.187,-1.189,-1.191,-1.193,-1.194,-1.196,-1.198,-1.199,&
12189       -1.201,-1.203,-1.205,-1.206,-1.208,-1.210,-1.211,-1.213,-1.214,&
12190       -1.216,-1.218,-1.219,-1.221,-1.223,-1.224,-1.226,-1.227,-1.229,&
12191       -1.231,-1.232,-1.234,-1.235,-1.237,-1.238,-1.240,-1.241,-1.243,&
12192       -1.244,-1.246,-1.248,-1.249,-1.251,-1.252,-1.254,-1.255,-1.256,&
12193       -1.258,-1.259,-1.261,-1.262,-1.264,-1.265,-1.267,-1.268,-1.270,&
12194       -1.271,-1.272,-1.274,-1.275,-1.277,-1.278,-1.279,-1.281,-1.282,&
12195       -1.284,-1.285,-1.286,-1.288,-1.289,-1.290,-1.292,-1.293,-1.294,&
12196       -1.296,-1.297,-1.298,-1.300,-1.301,-1.302,-1.304,-1.305,-1.306,&
12197       -1.308,-1.309,-1.310,-1.311,-1.313,-1.314,-1.315,-1.316,-1.318,&
12198       -1.319,-1.320,-1.321,-1.323,-1.324,-1.325,-1.326,-1.328,-1.329,&
12199       -1.330,-1.331,-1.332,-1.334,-1.335,-1.336,-1.337,-1.338,-1.340,&
12200       -1.341,-1.342,-1.343,-1.344,-1.345,-1.347,-1.348,-1.349,-1.350,&
12201       -1.351,-1.352,-1.353,-1.355,-1.356,-1.357,-1.358,-1.359,-1.360,&
12202       -1.361,-1.362,-1.364,-1.365,-1.366,-1.367,-1.368,-1.369,-1.370,&
12203       -1.371,-1.372,-1.373,-1.374,-1.386,-1.396,-1.405,-1.415,-1.424,&
12204       -1.433,-1.442,-1.450,-1.458,-1.466,-1.474,-1.482,-1.489,-1.496,&
12205       -1.503,-1.510,-1.516,-1.523,-1.529,-1.535,-1.541,-1.547,-1.553,&
12206       -1.558,-1.564,-1.569,-1.574,-1.580,-1.585,-1.589,-1.594,-1.599,&
12207       -1.604,-1.608,-1.613,-1.617,-1.621,-1.626,-1.630,-1.634,-1.638,&
12208       -1.642,-1.646,-1.650,-1.654,-1.657,-1.661,-1.665,-1.668,-1.672,&
12209       -1.675,-1.679,-1.682,-1.685,-1.689,-1.692,-1.695,-1.698,-1.701,&
12210       -1.705,-1.708,-1.711,-1.714,-1.717,-1.720,-1.723,-1.725,-1.728,&
12211       -1.731,-1.734,-1.737,-1.739,-1.742,-1.745,-1.748,-1.750,-1.753,&
12212       -1.755,-1.758,-1.761,-1.763,-1.766,-1.768,-1.771,-1.773,-1.776,&
12213       -1.778,-1.781,-1.783,-1.785,-1.788,-1.790,-1.792,-1.795,-1.797,&
12214       -1.799,-1.802,-1.804,-1.806,-1.809,-1.811,-1.813,-1.815,-1.817,&
12215       -1.820,-1.822,-1.824,-1.826,-1.828,-1.830,-1.833,-1.835,-1.837,&
12216       -1.839,-1.841,-1.843,-1.845,-1.847,-1.849,-1.851,-1.854,-1.856,&
12217       -1.858,-1.860,-1.862,-1.864,-1.866,-1.868,-1.870,-1.872,-1.874,&
12218       -1.876,-1.878,-1.880,-1.881,-1.883,-1.885,-1.887,-1.889,-1.891,&
12219       -1.893,-1.895,-1.897,-1.899,-1.901,-1.903,-1.905,-1.906,-1.908,&
12220       -1.910,-1.912,-1.914,-1.916,-1.918,-1.919,-1.921,-1.923,-1.925,&
12221       -1.927,-1.929,-1.930                                           &
12222        /
12223 !C
12224 !C **  KCL
12225 !C
12226       DATA BNC20M/                                                   &
12227       -0.047,-0.100,-0.126,-0.143,-0.156,-0.167,-0.176,-0.183,-0.190,&
12228       -0.195,-0.200,-0.205,-0.209,-0.212,-0.215,-0.218,-0.221,-0.224,&
12229       -0.226,-0.228,-0.230,-0.232,-0.233,-0.235,-0.236,-0.238,-0.239,&
12230       -0.240,-0.241,-0.242,-0.243,-0.244,-0.245,-0.246,-0.246,-0.247,&
12231       -0.248,-0.248,-0.249,-0.249,-0.250,-0.250,-0.251,-0.251,-0.251,&
12232       -0.252,-0.252,-0.252,-0.253,-0.253,-0.253,-0.253,-0.254,-0.254,&
12233       -0.254,-0.254,-0.254,-0.254,-0.254,-0.255,-0.255,-0.255,-0.255,&
12234       -0.255,-0.255,-0.255,-0.255,-0.255,-0.255,-0.255,-0.255,-0.255,&
12235       -0.255,-0.255,-0.255,-0.255,-0.255,-0.255,-0.254,-0.254,-0.254,&
12236       -0.254,-0.254,-0.254,-0.254,-0.253,-0.253,-0.253,-0.253,-0.253,&
12237       -0.252,-0.252,-0.252,-0.252,-0.251,-0.251,-0.251,-0.250,-0.250,&
12238       -0.250,-0.249,-0.249,-0.249,-0.248,-0.248,-0.248,-0.247,-0.247,&
12239       -0.247,-0.246,-0.246,-0.245,-0.245,-0.245,-0.244,-0.244,-0.243,&
12240       -0.243,-0.243,-0.242,-0.242,-0.241,-0.241,-0.240,-0.240,-0.240,&
12241       -0.239,-0.239,-0.238,-0.238,-0.237,-0.237,-0.236,-0.236,-0.235,&
12242       -0.235,-0.234,-0.234,-0.234,-0.233,-0.233,-0.232,-0.232,-0.231,&
12243       -0.231,-0.230,-0.230,-0.229,-0.229,-0.228,-0.228,-0.227,-0.227,&
12244       -0.226,-0.226,-0.225,-0.225,-0.224,-0.224,-0.224,-0.223,-0.223,&
12245       -0.222,-0.222,-0.221,-0.221,-0.220,-0.220,-0.219,-0.219,-0.218,&
12246       -0.218,-0.217,-0.217,-0.216,-0.216,-0.215,-0.215,-0.214,-0.214,&
12247       -0.213,-0.213,-0.212,-0.212,-0.211,-0.211,-0.210,-0.210,-0.209,&
12248       -0.209,-0.208,-0.208,-0.207,-0.207,-0.207,-0.206,-0.206,-0.205,&
12249       -0.205,-0.204,-0.204,-0.203,-0.203,-0.202,-0.202,-0.201,-0.201,&
12250       -0.200,-0.200,-0.199,-0.199,-0.198,-0.198,-0.197,-0.197,-0.196,&
12251       -0.196,-0.195,-0.195,-0.194,-0.194,-0.194,-0.193,-0.193,-0.192,&
12252       -0.192,-0.191,-0.191,-0.190,-0.190,-0.189,-0.189,-0.188,-0.188,&
12253       -0.187,-0.187,-0.186,-0.186,-0.186,-0.185,-0.185,-0.184,-0.184,&
12254       -0.183,-0.183,-0.182,-0.182,-0.181,-0.181,-0.180,-0.180,-0.180,&
12255       -0.179,-0.179,-0.178,-0.178,-0.177,-0.177,-0.176,-0.176,-0.175,&
12256       -0.175,-0.174,-0.174,-0.174,-0.173,-0.173,-0.172,-0.172,-0.171,&
12257       -0.171,-0.170,-0.170,-0.170,-0.169,-0.169,-0.168,-0.168,-0.167,&
12258       -0.167,-0.166,-0.166,-0.166,-0.165,-0.165,-0.164,-0.164,-0.163,&
12259       -0.163,-0.162,-0.162,-0.162,-0.161,-0.161,-0.160,-0.160,-0.159,&
12260       -0.159,-0.159,-0.158,-0.158,-0.157,-0.157,-0.156,-0.156,-0.156,&
12261       -0.155,-0.155,-0.154,-0.154,-0.153,-0.153,-0.153,-0.152,-0.152,&
12262       -0.151,-0.151,-0.150,-0.150,-0.150,-0.149,-0.149,-0.148,-0.148,&
12263       -0.148,-0.147,-0.147,-0.146,-0.146,-0.145,-0.145,-0.145,-0.144,&
12264       -0.144,-0.143,-0.143,-0.143,-0.142,-0.142,-0.141,-0.141,-0.141,&
12265       -0.140,-0.140,-0.139,-0.139,-0.139,-0.138,-0.138,-0.137,-0.137,&
12266       -0.137,-0.136,-0.136,-0.135,-0.135,-0.135,-0.134,-0.134,-0.133,&
12267       -0.133,-0.133,-0.132,-0.132,-0.131,-0.131,-0.131,-0.130,-0.130,&
12268       -0.129,-0.129,-0.129,-0.128,-0.128,-0.128,-0.127,-0.127,-0.126,&
12269       -0.126,-0.126,-0.125,-0.125,-0.124,-0.124,-0.124,-0.123,-0.123,&
12270       -0.123,-0.122,-0.122,-0.121,-0.121,-0.121,-0.120,-0.120,-0.120,&
12271       -0.119,-0.119,-0.118,-0.118,-0.114,-0.111,-0.107,-0.103,-0.100,&
12272       -0.097,-0.093,-0.090,-0.087,-0.084,-0.080,-0.077,-0.074,-0.071,&
12273       -0.068,-0.065,-0.063,-0.060,-0.057,-0.054,-0.052,-0.049,-0.046,&
12274       -0.044,-0.041,-0.039,-0.036,-0.034,-0.031,-0.029,-0.027,-0.024,&
12275       -0.022,-0.020,-0.018,-0.016,-0.013,-0.011,-0.009,-0.007,-0.005,&
12276       -0.003,-0.001, 0.001, 0.003, 0.004, 0.006, 0.008, 0.010, 0.012,&
12277        0.013, 0.015, 0.017, 0.018, 0.020, 0.022, 0.023, 0.025, 0.026,&
12278        0.028, 0.030, 0.031, 0.032, 0.034, 0.035, 0.037, 0.038, 0.040,&
12279        0.041, 0.042, 0.044, 0.045, 0.046, 0.047, 0.049, 0.050, 0.051,&
12280        0.052, 0.053, 0.055, 0.056, 0.057, 0.058, 0.059, 0.060, 0.061,&
12281        0.062, 0.063, 0.064, 0.065, 0.066, 0.067, 0.068, 0.069, 0.070,&
12282        0.071, 0.072, 0.073, 0.074, 0.075, 0.075, 0.076, 0.077, 0.078,&
12283        0.079, 0.079, 0.080, 0.081, 0.082, 0.083, 0.083, 0.084, 0.085,&
12284        0.085, 0.086, 0.087, 0.087, 0.088, 0.089, 0.089, 0.090, 0.091,&
12285        0.091, 0.092, 0.092, 0.093, 0.094, 0.094, 0.095, 0.095, 0.096,&
12286        0.096, 0.097, 0.097, 0.098, 0.098, 0.099, 0.099, 0.100, 0.100,&
12287        0.100, 0.101, 0.101, 0.102, 0.102, 0.103, 0.103, 0.103, 0.104,&
12288        0.104, 0.104, 0.105, 0.105, 0.105, 0.106, 0.106, 0.106, 0.107,&
12289        0.107, 0.107, 0.108                                           &
12290        /
12291 !C
12292 !C **  MGSO4
12293 !C
12294       DATA BNC21M/                                                   &
12295       -0.190,-0.411,-0.520,-0.597,-0.656,-0.705,-0.746,-0.782,-0.814,&
12296       -0.843,-0.868,-0.892,-0.914,-0.934,-0.953,-0.970,-0.986,-1.002,&
12297       -1.016,-1.030,-1.043,-1.056,-1.068,-1.079,-1.090,-1.100,-1.110,&
12298       -1.120,-1.129,-1.138,-1.147,-1.155,-1.163,-1.171,-1.178,-1.186,&
12299       -1.193,-1.200,-1.206,-1.213,-1.219,-1.225,-1.231,-1.237,-1.243,&
12300       -1.249,-1.254,-1.260,-1.265,-1.270,-1.275,-1.280,-1.285,-1.289,&
12301       -1.294,-1.299,-1.303,-1.307,-1.312,-1.316,-1.320,-1.324,-1.328,&
12302       -1.332,-1.336,-1.340,-1.344,-1.347,-1.351,-1.354,-1.358,-1.361,&
12303       -1.365,-1.368,-1.372,-1.375,-1.378,-1.381,-1.384,-1.387,-1.390,&
12304       -1.393,-1.396,-1.399,-1.402,-1.405,-1.408,-1.411,-1.413,-1.416,&
12305       -1.419,-1.421,-1.424,-1.426,-1.429,-1.431,-1.434,-1.436,-1.439,&
12306       -1.441,-1.443,-1.446,-1.448,-1.450,-1.452,-1.455,-1.457,-1.459,&
12307       -1.461,-1.463,-1.465,-1.467,-1.469,-1.471,-1.473,-1.475,-1.477,&
12308       -1.479,-1.481,-1.483,-1.485,-1.487,-1.489,-1.491,-1.493,-1.494,&
12309       -1.496,-1.498,-1.500,-1.501,-1.503,-1.505,-1.507,-1.508,-1.510,&
12310       -1.512,-1.513,-1.515,-1.517,-1.518,-1.520,-1.521,-1.523,-1.525,&
12311       -1.526,-1.528,-1.529,-1.531,-1.532,-1.534,-1.535,-1.537,-1.538,&
12312       -1.540,-1.541,-1.543,-1.544,-1.546,-1.547,-1.548,-1.550,-1.551,&
12313       -1.553,-1.554,-1.555,-1.557,-1.558,-1.559,-1.561,-1.562,-1.563,&
12314       -1.565,-1.566,-1.567,-1.569,-1.570,-1.571,-1.573,-1.574,-1.575,&
12315       -1.576,-1.578,-1.579,-1.580,-1.581,-1.583,-1.584,-1.585,-1.586,&
12316       -1.587,-1.589,-1.590,-1.591,-1.592,-1.593,-1.594,-1.596,-1.597,&
12317       -1.598,-1.599,-1.600,-1.601,-1.603,-1.604,-1.605,-1.606,-1.607,&
12318       -1.608,-1.609,-1.610,-1.611,-1.613,-1.614,-1.615,-1.616,-1.617,&
12319       -1.618,-1.619,-1.620,-1.621,-1.622,-1.623,-1.624,-1.625,-1.626,&
12320       -1.627,-1.628,-1.630,-1.631,-1.632,-1.633,-1.634,-1.635,-1.636,&
12321       -1.637,-1.638,-1.639,-1.640,-1.641,-1.642,-1.643,-1.644,-1.645,&
12322       -1.646,-1.647,-1.647,-1.648,-1.649,-1.650,-1.651,-1.652,-1.653,&
12323       -1.654,-1.655,-1.656,-1.657,-1.658,-1.659,-1.660,-1.661,-1.662,&
12324       -1.663,-1.664,-1.664,-1.665,-1.666,-1.667,-1.668,-1.669,-1.670,&
12325       -1.671,-1.672,-1.673,-1.674,-1.674,-1.675,-1.676,-1.677,-1.678,&
12326       -1.679,-1.680,-1.681,-1.682,-1.682,-1.683,-1.684,-1.685,-1.686,&
12327       -1.687,-1.688,-1.688,-1.689,-1.690,-1.691,-1.692,-1.693,-1.694,&
12328       -1.694,-1.695,-1.696,-1.697,-1.698,-1.699,-1.700,-1.700,-1.701,&
12329       -1.702,-1.703,-1.704,-1.705,-1.705,-1.706,-1.707,-1.708,-1.709,&
12330       -1.709,-1.710,-1.711,-1.712,-1.713,-1.713,-1.714,-1.715,-1.716,&
12331       -1.717,-1.718,-1.718,-1.719,-1.720,-1.721,-1.722,-1.722,-1.723,&
12332       -1.724,-1.725,-1.725,-1.726,-1.727,-1.728,-1.729,-1.729,-1.730,&
12333       -1.731,-1.732,-1.733,-1.733,-1.734,-1.735,-1.736,-1.736,-1.737,&
12334       -1.738,-1.739,-1.739,-1.740,-1.741,-1.742,-1.743,-1.743,-1.744,&
12335       -1.745,-1.746,-1.746,-1.747,-1.748,-1.749,-1.749,-1.750,-1.751,&
12336       -1.752,-1.752,-1.753,-1.754,-1.755,-1.755,-1.756,-1.757,-1.758,&
12337       -1.758,-1.759,-1.760,-1.760,-1.761,-1.762,-1.763,-1.763,-1.764,&
12338       -1.765,-1.766,-1.766,-1.767,-1.768,-1.769,-1.769,-1.770,-1.771,&
12339       -1.771,-1.772,-1.773,-1.774,-1.781,-1.788,-1.795,-1.802,-1.809,&
12340       -1.816,-1.823,-1.830,-1.836,-1.843,-1.849,-1.856,-1.862,-1.869,&
12341       -1.875,-1.882,-1.888,-1.894,-1.901,-1.907,-1.913,-1.919,-1.926,&
12342       -1.932,-1.938,-1.944,-1.950,-1.956,-1.962,-1.968,-1.974,-1.981,&
12343       -1.987,-1.993,-1.999,-2.004,-2.010,-2.016,-2.022,-2.028,-2.034,&
12344       -2.040,-2.046,-2.052,-2.058,-2.064,-2.069,-2.075,-2.081,-2.087,&
12345       -2.093,-2.099,-2.104,-2.110,-2.116,-2.122,-2.128,-2.133,-2.139,&
12346       -2.145,-2.151,-2.157,-2.162,-2.168,-2.174,-2.180,-2.185,-2.191,&
12347       -2.197,-2.202,-2.208,-2.214,-2.220,-2.225,-2.231,-2.237,-2.242,&
12348       -2.248,-2.254,-2.260,-2.265,-2.271,-2.277,-2.282,-2.288,-2.294,&
12349       -2.299,-2.305,-2.311,-2.316,-2.322,-2.328,-2.333,-2.339,-2.345,&
12350       -2.350,-2.356,-2.361,-2.367,-2.373,-2.378,-2.384,-2.390,-2.395,&
12351       -2.401,-2.407,-2.412,-2.418,-2.423,-2.429,-2.435,-2.440,-2.446,&
12352       -2.452,-2.457,-2.463,-2.468,-2.474,-2.480,-2.485,-2.491,-2.496,&
12353       -2.502,-2.508,-2.513,-2.519,-2.524,-2.530,-2.536,-2.541,-2.547,&
12354       -2.552,-2.558,-2.564,-2.569,-2.575,-2.580,-2.586,-2.592,-2.597,&
12355       -2.603,-2.608,-2.614,-2.620,-2.625,-2.631,-2.636,-2.642,-2.647,&
12356       -2.653,-2.659,-2.664,-2.670,-2.675,-2.681,-2.686,-2.692,-2.698,&
12357       -2.703,-2.709,-2.714                                           &
12358        /
12359 !C
12360 !C **  MGNO32
12361 !C
12362       DATA BNC22M/                                                   &
12363       -0.093,-0.193,-0.238,-0.268,-0.289,-0.305,-0.318,-0.328,-0.336,&
12364       -0.343,-0.348,-0.352,-0.356,-0.359,-0.361,-0.362,-0.364,-0.364,&
12365       -0.364,-0.364,-0.364,-0.364,-0.363,-0.362,-0.360,-0.359,-0.357,&
12366       -0.355,-0.354,-0.352,-0.349,-0.347,-0.345,-0.342,-0.340,-0.337,&
12367       -0.335,-0.332,-0.329,-0.326,-0.324,-0.321,-0.318,-0.315,-0.312,&
12368       -0.309,-0.306,-0.303,-0.300,-0.297,-0.294,-0.290,-0.287,-0.284,&
12369       -0.281,-0.278,-0.275,-0.271,-0.268,-0.265,-0.262,-0.258,-0.255,&
12370       -0.252,-0.249,-0.245,-0.242,-0.239,-0.235,-0.232,-0.229,-0.225,&
12371       -0.222,-0.218,-0.215,-0.211,-0.208,-0.204,-0.201,-0.197,-0.194,&
12372       -0.190,-0.186,-0.183,-0.179,-0.175,-0.172,-0.168,-0.164,-0.160,&
12373       -0.156,-0.152,-0.148,-0.144,-0.140,-0.136,-0.132,-0.128,-0.124,&
12374       -0.120,-0.116,-0.112,-0.107,-0.103,-0.099,-0.095,-0.090,-0.086,&
12375       -0.082,-0.078,-0.073,-0.069,-0.065,-0.060,-0.056,-0.051,-0.047,&
12376       -0.043,-0.038,-0.034,-0.029,-0.025,-0.020,-0.016,-0.011,-0.007,&
12377       -0.003, 0.002, 0.006, 0.011, 0.015, 0.020, 0.024, 0.029, 0.033,&
12378        0.038, 0.042, 0.046, 0.051, 0.055, 0.060, 0.064, 0.069, 0.073,&
12379        0.078, 0.082, 0.086, 0.091, 0.095, 0.100, 0.104, 0.109, 0.113,&
12380        0.117, 0.122, 0.126, 0.130, 0.135, 0.139, 0.144, 0.148, 0.152,&
12381        0.157, 0.161, 0.165, 0.170, 0.174, 0.178, 0.183, 0.187, 0.191,&
12382        0.196, 0.200, 0.204, 0.209, 0.213, 0.217, 0.221, 0.226, 0.230,&
12383        0.234, 0.239, 0.243, 0.247, 0.251, 0.256, 0.260, 0.264, 0.268,&
12384        0.272, 0.277, 0.281, 0.285, 0.289, 0.293, 0.298, 0.302, 0.306,&
12385        0.310, 0.314, 0.318, 0.323, 0.327, 0.331, 0.335, 0.339, 0.343,&
12386        0.347, 0.351, 0.355, 0.360, 0.364, 0.368, 0.372, 0.376, 0.380,&
12387        0.384, 0.388, 0.392, 0.396, 0.400, 0.404, 0.408, 0.412, 0.416,&
12388        0.420, 0.424, 0.428, 0.432, 0.436, 0.440, 0.444, 0.448, 0.452,&
12389        0.456, 0.460, 0.464, 0.468, 0.472, 0.475, 0.479, 0.483, 0.487,&
12390        0.491, 0.495, 0.499, 0.503, 0.507, 0.510, 0.514, 0.518, 0.522,&
12391        0.526, 0.530, 0.533, 0.537, 0.541, 0.545, 0.549, 0.552, 0.556,&
12392        0.560, 0.564, 0.568, 0.571, 0.575, 0.579, 0.583, 0.586, 0.590,&
12393        0.594, 0.598, 0.601, 0.605, 0.609, 0.612, 0.616, 0.620, 0.623,&
12394        0.627, 0.631, 0.634, 0.638, 0.642, 0.645, 0.649, 0.653, 0.656,&
12395        0.660, 0.664, 0.667, 0.671, 0.674, 0.678, 0.682, 0.685, 0.689,&
12396        0.692, 0.696, 0.699, 0.703, 0.707, 0.710, 0.714, 0.717, 0.721,&
12397        0.724, 0.728, 0.731, 0.735, 0.738, 0.742, 0.745, 0.749, 0.752,&
12398        0.756, 0.759, 0.763, 0.766, 0.769, 0.773, 0.776, 0.780, 0.783,&
12399        0.787, 0.790, 0.793, 0.797, 0.800, 0.804, 0.807, 0.810, 0.814,&
12400        0.817, 0.821, 0.824, 0.827, 0.831, 0.834, 0.837, 0.841, 0.844,&
12401        0.847, 0.851, 0.854, 0.857, 0.861, 0.864, 0.867, 0.870, 0.874,&
12402        0.877, 0.880, 0.884, 0.887, 0.890, 0.893, 0.897, 0.900, 0.903,&
12403        0.906, 0.910, 0.913, 0.916, 0.919, 0.922, 0.926, 0.929, 0.932,&
12404        0.935, 0.938, 0.942, 0.945, 0.948, 0.951, 0.954, 0.957, 0.961,&
12405        0.964, 0.967, 0.970, 0.973, 0.976, 0.979, 0.983, 0.986, 0.989,&
12406        0.992, 0.995, 0.998, 1.001, 1.004, 1.007, 1.010, 1.013, 1.016,&
12407        1.020, 1.023, 1.026, 1.029, 1.061, 1.091, 1.120, 1.149, 1.178,&
12408        1.206, 1.233, 1.261, 1.288, 1.314, 1.340, 1.366, 1.391, 1.417,&
12409        1.441, 1.466, 1.490, 1.514, 1.537, 1.560, 1.583, 1.606, 1.628,&
12410        1.650, 1.672, 1.694, 1.715, 1.736, 1.757, 1.777, 1.797, 1.817,&
12411        1.837, 1.857, 1.876, 1.895, 1.914, 1.933, 1.951, 1.970, 1.988,&
12412        2.006, 2.023, 2.041, 2.058, 2.075, 2.092, 2.109, 2.126, 2.142,&
12413        2.159, 2.175, 2.191, 2.207, 2.222, 2.238, 2.253, 2.268, 2.283,&
12414        2.298, 2.313, 2.328, 2.342, 2.357, 2.371, 2.385, 2.399, 2.413,&
12415        2.426, 2.440, 2.453, 2.467, 2.480, 2.493, 2.506, 2.519, 2.532,&
12416        2.545, 2.557, 2.570, 2.582, 2.594, 2.606, 2.618, 2.630, 2.642,&
12417        2.654, 2.666, 2.677, 2.689, 2.700, 2.711, 2.722, 2.733, 2.744,&
12418        2.755, 2.766, 2.777, 2.788, 2.798, 2.809, 2.819, 2.829, 2.840,&
12419        2.850, 2.860, 2.870, 2.880, 2.890, 2.900, 2.909, 2.919, 2.929,&
12420        2.938, 2.948, 2.957, 2.966, 2.976, 2.985, 2.994, 3.003, 3.012,&
12421        3.021, 3.030, 3.039, 3.047, 3.056, 3.065, 3.073, 3.082, 3.090,&
12422        3.099, 3.107, 3.115, 3.123, 3.132, 3.140, 3.148, 3.156, 3.164,&
12423        3.172, 3.179, 3.187, 3.195, 3.203, 3.210, 3.218, 3.225, 3.233,&
12424        3.240, 3.248, 3.255, 3.262, 3.270, 3.277, 3.284, 3.291, 3.298,&
12425        3.305, 3.312, 3.319                                           &
12426        /
12427 !C
12428 !C **  MGCL2
12429 !C
12430       DATA BNC23M/                                                   &
12431       -0.092,-0.190,-0.233,-0.261,-0.280,-0.295,-0.306,-0.314,-0.321,&
12432       -0.326,-0.330,-0.333,-0.335,-0.336,-0.336,-0.336,-0.336,-0.335,&
12433       -0.334,-0.332,-0.330,-0.328,-0.326,-0.323,-0.320,-0.317,-0.314,&
12434       -0.311,-0.308,-0.304,-0.300,-0.297,-0.293,-0.289,-0.285,-0.281,&
12435       -0.277,-0.272,-0.268,-0.264,-0.259,-0.255,-0.251,-0.246,-0.242,&
12436       -0.237,-0.233,-0.228,-0.224,-0.219,-0.215,-0.210,-0.205,-0.201,&
12437       -0.196,-0.192,-0.187,-0.182,-0.178,-0.173,-0.168,-0.164,-0.159,&
12438       -0.154,-0.150,-0.145,-0.140,-0.135,-0.131,-0.126,-0.121,-0.116,&
12439       -0.111,-0.106,-0.102,-0.097,-0.092,-0.087,-0.082,-0.077,-0.072,&
12440       -0.067,-0.062,-0.056,-0.051,-0.046,-0.041,-0.036,-0.030,-0.025,&
12441       -0.019,-0.014,-0.009,-0.003, 0.002, 0.008, 0.013, 0.019, 0.025,&
12442        0.030, 0.036, 0.042, 0.047, 0.053, 0.059, 0.065, 0.071, 0.077,&
12443        0.082, 0.088, 0.094, 0.100, 0.106, 0.112, 0.118, 0.124, 0.130,&
12444        0.136, 0.142, 0.148, 0.154, 0.160, 0.166, 0.172, 0.178, 0.184,&
12445        0.190, 0.196, 0.202, 0.208, 0.214, 0.220, 0.226, 0.232, 0.238,&
12446        0.244, 0.250, 0.256, 0.262, 0.268, 0.274, 0.280, 0.286, 0.292,&
12447        0.298, 0.304, 0.310, 0.316, 0.322, 0.328, 0.334, 0.340, 0.346,&
12448        0.352, 0.358, 0.364, 0.370, 0.376, 0.382, 0.387, 0.393, 0.399,&
12449        0.405, 0.411, 0.417, 0.423, 0.429, 0.434, 0.440, 0.446, 0.452,&
12450        0.458, 0.463, 0.469, 0.475, 0.481, 0.487, 0.492, 0.498, 0.504,&
12451        0.509, 0.515, 0.521, 0.527, 0.532, 0.538, 0.544, 0.549, 0.555,&
12452        0.561, 0.566, 0.572, 0.578, 0.583, 0.589, 0.594, 0.600, 0.606,&
12453        0.611, 0.617, 0.622, 0.628, 0.633, 0.639, 0.645, 0.650, 0.656,&
12454        0.661, 0.667, 0.672, 0.678, 0.683, 0.688, 0.694, 0.699, 0.705,&
12455        0.710, 0.716, 0.721, 0.726, 0.732, 0.737, 0.743, 0.748, 0.753,&
12456        0.759, 0.764, 0.769, 0.775, 0.780, 0.785, 0.791, 0.796, 0.801,&
12457        0.807, 0.812, 0.817, 0.822, 0.828, 0.833, 0.838, 0.843, 0.848,&
12458        0.854, 0.859, 0.864, 0.869, 0.874, 0.879, 0.885, 0.890, 0.895,&
12459        0.900, 0.905, 0.910, 0.915, 0.920, 0.925, 0.931, 0.936, 0.941,&
12460        0.946, 0.951, 0.956, 0.961, 0.966, 0.971, 0.976, 0.981, 0.986,&
12461        0.991, 0.996, 1.001, 1.006, 1.011, 1.015, 1.020, 1.025, 1.030,&
12462        1.035, 1.040, 1.045, 1.050, 1.055, 1.059, 1.064, 1.069, 1.074,&
12463        1.079, 1.084, 1.088, 1.093, 1.098, 1.103, 1.108, 1.112, 1.117,&
12464        1.122, 1.127, 1.131, 1.136, 1.141, 1.146, 1.150, 1.155, 1.160,&
12465        1.164, 1.169, 1.174, 1.178, 1.183, 1.188, 1.192, 1.197, 1.201,&
12466        1.206, 1.211, 1.215, 1.220, 1.224, 1.229, 1.234, 1.238, 1.243,&
12467        1.247, 1.252, 1.256, 1.261, 1.265, 1.270, 1.274, 1.279, 1.283,&
12468        1.288, 1.292, 1.297, 1.301, 1.306, 1.310, 1.315, 1.319, 1.323,&
12469        1.328, 1.332, 1.337, 1.341, 1.345, 1.350, 1.354, 1.359, 1.363,&
12470        1.367, 1.372, 1.376, 1.380, 1.385, 1.389, 1.393, 1.398, 1.402,&
12471        1.406, 1.410, 1.415, 1.419, 1.423, 1.428, 1.432, 1.436, 1.440,&
12472        1.444, 1.449, 1.453, 1.457, 1.461, 1.466, 1.470, 1.474, 1.478,&
12473        1.482, 1.486, 1.491, 1.495, 1.499, 1.503, 1.507, 1.511, 1.515,&
12474        1.519, 1.524, 1.528, 1.532, 1.536, 1.540, 1.544, 1.548, 1.552,&
12475        1.556, 1.560, 1.564, 1.568, 1.611, 1.651, 1.690, 1.728, 1.765,&
12476        1.802, 1.839, 1.875, 1.911, 1.945, 1.980, 2.014, 2.048, 2.081,&
12477        2.113, 2.146, 2.177, 2.209, 2.240, 2.270, 2.300, 2.330, 2.360,&
12478        2.389, 2.417, 2.446, 2.474, 2.502, 2.529, 2.556, 2.583, 2.609,&
12479        2.635, 2.661, 2.686, 2.712, 2.737, 2.761, 2.786, 2.810, 2.834,&
12480        2.857, 2.881, 2.904, 2.927, 2.950, 2.972, 2.994, 3.016, 3.038,&
12481        3.060, 3.081, 3.102, 3.123, 3.144, 3.164, 3.184, 3.205, 3.225,&
12482        3.244, 3.264, 3.283, 3.302, 3.322, 3.340, 3.359, 3.378, 3.396,&
12483        3.414, 3.432, 3.450, 3.468, 3.485, 3.503, 3.520, 3.537, 3.554,&
12484        3.571, 3.588, 3.604, 3.621, 3.637, 3.653, 3.669, 3.685, 3.701,&
12485        3.717, 3.732, 3.748, 3.763, 3.778, 3.793, 3.808, 3.823, 3.838,&
12486        3.852, 3.867, 3.881, 3.896, 3.910, 3.924, 3.938, 3.952, 3.966,&
12487        3.979, 3.993, 4.006, 4.020, 4.033, 4.046, 4.059, 4.072, 4.085,&
12488        4.098, 4.111, 4.123, 4.136, 4.148, 4.161, 4.173, 4.185, 4.197,&
12489        4.210, 4.222, 4.233, 4.245, 4.257, 4.269, 4.280, 4.292, 4.303,&
12490        4.315, 4.326, 4.337, 4.348, 4.359, 4.370, 4.381, 4.392, 4.403,&
12491        4.414, 4.424, 4.435, 4.446, 4.456, 4.466, 4.477, 4.487, 4.497,&
12492        4.507, 4.518, 4.528, 4.538, 4.548, 4.557, 4.567, 4.577, 4.587,&
12493        4.596, 4.606, 4.615                                           &
12494        /
12495       END
12496 !C
12497 !C=======================================================================
12498 !C
12499 !C *** ISORROPIA CODE
12500 !C *** SUBROUTINE KM298
12501 !C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD.
12502 !C     THE COMPUTATIONS HAVE BEEN PERFORMED AND THE RESULTS ARE STORED IN
12503 !C     LOOKUP TABLES. THE IONIC ACTIVITY 'IN' IS INPUT, AND THE ARRAY
12504 !C     'BINARR' IS RETURNED WITH THE BINARY COEFFICIENTS.
12505 !C
12506 !C     TEMPERATURE IS 298K
12507 !C
12508 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
12509 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
12510 !C *** WRITTEN BY ATHANASIOS NENES
12511 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
12512 !C
12513 !C=======================================================================
12514 !C
12515       SUBROUTINE KM2982p1 (IONIC, BINARR)
12516 !C
12517 !C *** Common block definition
12518 !C
12519       COMMON /KMC2982p1/                                         &
12520       BNC01M(  561),BNC02M(  561),BNC03M(  561),BNC04M(  561),&
12521       BNC05M(  561),BNC06M(  561),BNC07M(  561),BNC08M(  561),&
12522       BNC09M(  561),BNC10M(  561),BNC11M(  561),BNC12M(  561),&
12523       BNC13M(  561),BNC14M(  561),BNC15M(  561),BNC16M(  561),&
12524       BNC17M(  561),BNC18M(  561),BNC19M(  561),BNC20M(  561),&
12525       BNC21M(  561),BNC22M(  561),BNC23M(  561)
12526       REAL Binarr (23), Ionic
12527 !C
12528 !C *** Find position in arrays for bincoef
12529 !C
12530       IF (Ionic.LE. 0.200000E+02) THEN
12531          ipos = MIN(NINT( 0.200000E+02*Ionic) + 1,  400)
12532       ELSE
12533          ipos =   400+NINT( 0.200000E+01*Ionic- 0.400000E+02)
12534       ENDIF
12535       ipos = min(ipos,  561)
12536 !C
12537 !C *** Assign values to return array
12538 !C
12539       Binarr(01) = BNC01M(ipos)
12540       Binarr(02) = BNC02M(ipos)
12541       Binarr(03) = BNC03M(ipos)
12542       Binarr(04) = BNC04M(ipos)
12543       Binarr(05) = BNC05M(ipos)
12544       Binarr(06) = BNC06M(ipos)
12545       Binarr(07) = BNC07M(ipos)
12546       Binarr(08) = BNC08M(ipos)
12547       Binarr(09) = BNC09M(ipos)
12548       Binarr(10) = BNC10M(ipos)
12549       Binarr(11) = BNC11M(ipos)
12550       Binarr(12) = BNC12M(ipos)
12551       Binarr(13) = BNC13M(ipos)
12552       Binarr(14) = BNC14M(ipos)
12553       Binarr(15) = BNC15M(ipos)
12554       Binarr(16) = BNC16M(ipos)
12555       Binarr(17) = BNC17M(ipos)
12556       Binarr(18) = BNC18M(ipos)
12557       Binarr(19) = BNC19M(ipos)
12558       Binarr(20) = BNC20M(ipos)
12559       Binarr(21) = BNC21M(ipos)
12560       Binarr(22) = BNC22M(ipos)
12561       Binarr(23) = BNC23M(ipos)
12562 !C
12563 !C *** Return point ; End of subroutine
12564 !C
12565       RETURN
12566       END
12567
12568
12569       BLOCK DATA KMCF2982p1
12570 !C
12571 !C *** Common block definition
12572 !C
12573       COMMON /KMC2982p1/                                         &
12574       BNC01M(  561),BNC02M(  561),BNC03M(  561),BNC04M(  561),&
12575       BNC05M(  561),BNC06M(  561),BNC07M(  561),BNC08M(  561),&
12576       BNC09M(  561),BNC10M(  561),BNC11M(  561),BNC12M(  561),&
12577       BNC13M(  561),BNC14M(  561),BNC15M(  561),BNC16M(  561),&
12578       BNC17M(  561),BNC18M(  561),BNC19M(  561),BNC20M(  561),&
12579       BNC21M(  561),BNC22M(  561),BNC23M(  561)
12580
12581 !C
12582 !C *** NaCl
12583 !C
12584       DATA BNC01M/                                                   &
12585       -0.045,-0.095,-0.117,-0.132,-0.142,-0.150,-0.157,-0.162,-0.166,&
12586       -0.170,-0.173,-0.175,-0.177,-0.179,-0.180,-0.181,-0.182,-0.182,&
12587       -0.183,-0.183,-0.183,-0.183,-0.182,-0.182,-0.182,-0.181,-0.181,&
12588       -0.180,-0.179,-0.178,-0.178,-0.177,-0.176,-0.175,-0.174,-0.173,&
12589       -0.172,-0.170,-0.169,-0.168,-0.167,-0.166,-0.164,-0.163,-0.162,&
12590       -0.161,-0.159,-0.158,-0.157,-0.155,-0.154,-0.153,-0.151,-0.150,&
12591       -0.148,-0.147,-0.146,-0.144,-0.143,-0.141,-0.140,-0.138,-0.137,&
12592       -0.136,-0.134,-0.133,-0.131,-0.130,-0.128,-0.127,-0.125,-0.124,&
12593       -0.122,-0.121,-0.119,-0.117,-0.116,-0.114,-0.113,-0.111,-0.110,&
12594       -0.108,-0.106,-0.105,-0.103,-0.101,-0.100,-0.098,-0.096,-0.094,&
12595       -0.093,-0.091,-0.089,-0.087,-0.086,-0.084,-0.082,-0.080,-0.078,&
12596       -0.076,-0.075,-0.073,-0.071,-0.069,-0.067,-0.065,-0.063,-0.061,&
12597       -0.059,-0.057,-0.055,-0.053,-0.051,-0.049,-0.047,-0.046,-0.044,&
12598       -0.042,-0.040,-0.038,-0.036,-0.034,-0.032,-0.030,-0.028,-0.026,&
12599       -0.024,-0.022,-0.019,-0.017,-0.015,-0.013,-0.011,-0.009,-0.007,&
12600       -0.005,-0.003,-0.001, 0.001, 0.003, 0.005, 0.007, 0.009, 0.011,&
12601        0.013, 0.015, 0.017, 0.019, 0.021, 0.023, 0.025, 0.027, 0.029,&
12602        0.031, 0.033, 0.035, 0.037, 0.039, 0.041, 0.043, 0.045, 0.047,&
12603        0.049, 0.050, 0.052, 0.054, 0.056, 0.058, 0.060, 0.062, 0.064,&
12604        0.066, 0.068, 0.070, 0.072, 0.074, 0.076, 0.078, 0.080, 0.082,&
12605        0.084, 0.086, 0.088, 0.090, 0.091, 0.093, 0.095, 0.097, 0.099,&
12606        0.101, 0.103, 0.105, 0.107, 0.109, 0.111, 0.113, 0.114, 0.116,&
12607        0.118, 0.120, 0.122, 0.124, 0.126, 0.128, 0.130, 0.131, 0.133,&
12608        0.135, 0.137, 0.139, 0.141, 0.143, 0.145, 0.146, 0.148, 0.150,&
12609        0.152, 0.154, 0.156, 0.158, 0.159, 0.161, 0.163, 0.165, 0.167,&
12610        0.169, 0.170, 0.172, 0.174, 0.176, 0.178, 0.180, 0.181, 0.183,&
12611        0.185, 0.187, 0.189, 0.190, 0.192, 0.194, 0.196, 0.198, 0.199,&
12612        0.201, 0.203, 0.205, 0.206, 0.208, 0.210, 0.212, 0.214, 0.215,&
12613        0.217, 0.219, 0.221, 0.222, 0.224, 0.226, 0.228, 0.229, 0.231,&
12614        0.233, 0.235, 0.236, 0.238, 0.240, 0.242, 0.243, 0.245, 0.247,&
12615        0.248, 0.250, 0.252, 0.254, 0.255, 0.257, 0.259, 0.260, 0.262,&
12616        0.264, 0.265, 0.267, 0.269, 0.271, 0.272, 0.274, 0.276, 0.277,&
12617        0.279, 0.281, 0.282, 0.284, 0.286, 0.287, 0.289, 0.291, 0.292,&
12618        0.294, 0.296, 0.297, 0.299, 0.301, 0.302, 0.304, 0.305, 0.307,&
12619        0.309, 0.310, 0.312, 0.314, 0.315, 0.317, 0.318, 0.320, 0.322,&
12620        0.323, 0.325, 0.327, 0.328, 0.330, 0.331, 0.333, 0.335, 0.336,&
12621        0.338, 0.339, 0.341, 0.343, 0.344, 0.346, 0.347, 0.349, 0.350,&
12622        0.352, 0.354, 0.355, 0.357, 0.358, 0.360, 0.361, 0.363, 0.364,&
12623        0.366, 0.368, 0.369, 0.371, 0.372, 0.374, 0.375, 0.377, 0.378,&
12624        0.380, 0.381, 0.383, 0.384, 0.386, 0.388, 0.389, 0.391, 0.392,&
12625        0.394, 0.395, 0.397, 0.398, 0.400, 0.401, 0.403, 0.404, 0.406,&
12626        0.407, 0.409, 0.410, 0.412, 0.413, 0.415, 0.416, 0.418, 0.419,&
12627        0.421, 0.422, 0.423, 0.425, 0.426, 0.428, 0.429, 0.431, 0.432,&
12628        0.434, 0.435, 0.437, 0.438, 0.440, 0.441, 0.442, 0.444, 0.445,&
12629        0.447, 0.448, 0.450, 0.451, 0.466, 0.480, 0.494, 0.508, 0.522,&
12630        0.535, 0.548, 0.561, 0.574, 0.586, 0.599, 0.611, 0.624, 0.636,&
12631        0.648, 0.659, 0.671, 0.683, 0.694, 0.705, 0.716, 0.727, 0.738,&
12632        0.749, 0.760, 0.770, 0.781, 0.791, 0.801, 0.811, 0.821, 0.831,&
12633        0.841, 0.851, 0.861, 0.870, 0.879, 0.889, 0.898, 0.907, 0.916,&
12634        0.925, 0.934, 0.943, 0.952, 0.961, 0.969, 0.978, 0.986, 0.995,&
12635        1.003, 1.011, 1.019, 1.028, 1.036, 1.044, 1.051, 1.059, 1.067,&
12636        1.075, 1.082, 1.090, 1.098, 1.105, 1.113, 1.120, 1.127, 1.135,&
12637        1.142, 1.149, 1.156, 1.163, 1.170, 1.177, 1.184, 1.191, 1.198,&
12638        1.204, 1.211, 1.218, 1.224, 1.231, 1.237, 1.244, 1.250, 1.257,&
12639        1.263, 1.269, 1.276, 1.282, 1.288, 1.294, 1.300, 1.307, 1.313,&
12640        1.319, 1.325, 1.330, 1.336, 1.342, 1.348, 1.354, 1.360, 1.365,&
12641        1.371, 1.377, 1.382, 1.388, 1.393, 1.399, 1.404, 1.410, 1.415,&
12642        1.421, 1.426, 1.431, 1.437, 1.442, 1.447, 1.453, 1.458, 1.463,&
12643        1.468, 1.473, 1.478, 1.483, 1.488, 1.493, 1.498, 1.503, 1.508,&
12644        1.513, 1.518, 1.523, 1.528, 1.532, 1.537, 1.542, 1.547, 1.551,&
12645        1.556, 1.561, 1.565, 1.570, 1.575, 1.579, 1.584, 1.588, 1.593,&
12646        1.597, 1.602, 1.606, 1.611, 1.615, 1.620, 1.624, 1.628, 1.633,&
12647        1.637, 1.641, 1.645                                           &
12648        /
12649 !C
12650 !C **  Na2SO4
12651 !C
12652       DATA BNC02M/                                                   &
12653       -0.093,-0.202,-0.256,-0.295,-0.325,-0.349,-0.371,-0.389,-0.405,&
12654       -0.420,-0.434,-0.446,-0.457,-0.468,-0.478,-0.487,-0.496,-0.504,&
12655       -0.512,-0.520,-0.527,-0.533,-0.540,-0.546,-0.552,-0.558,-0.563,&
12656       -0.569,-0.574,-0.579,-0.584,-0.588,-0.593,-0.597,-0.602,-0.606,&
12657       -0.610,-0.614,-0.618,-0.621,-0.625,-0.628,-0.632,-0.635,-0.639,&
12658       -0.642,-0.645,-0.648,-0.651,-0.654,-0.657,-0.660,-0.663,-0.665,&
12659       -0.668,-0.671,-0.673,-0.676,-0.678,-0.681,-0.683,-0.686,-0.688,&
12660       -0.690,-0.692,-0.695,-0.697,-0.699,-0.701,-0.703,-0.705,-0.707,&
12661       -0.709,-0.711,-0.713,-0.715,-0.717,-0.719,-0.721,-0.723,-0.724,&
12662       -0.726,-0.728,-0.730,-0.731,-0.733,-0.735,-0.737,-0.738,-0.740,&
12663       -0.741,-0.743,-0.745,-0.746,-0.748,-0.749,-0.751,-0.752,-0.754,&
12664       -0.755,-0.757,-0.758,-0.760,-0.761,-0.763,-0.764,-0.766,-0.767,&
12665       -0.768,-0.770,-0.771,-0.772,-0.774,-0.775,-0.776,-0.778,-0.779,&
12666       -0.780,-0.782,-0.783,-0.784,-0.785,-0.787,-0.788,-0.789,-0.790,&
12667       -0.791,-0.793,-0.794,-0.795,-0.796,-0.797,-0.798,-0.800,-0.801,&
12668       -0.802,-0.803,-0.804,-0.805,-0.806,-0.807,-0.808,-0.810,-0.811,&
12669       -0.812,-0.813,-0.814,-0.815,-0.816,-0.817,-0.818,-0.819,-0.820,&
12670       -0.821,-0.822,-0.823,-0.824,-0.825,-0.826,-0.827,-0.828,-0.829,&
12671       -0.830,-0.831,-0.832,-0.832,-0.833,-0.834,-0.835,-0.836,-0.837,&
12672       -0.838,-0.839,-0.840,-0.841,-0.841,-0.842,-0.843,-0.844,-0.845,&
12673       -0.846,-0.847,-0.847,-0.848,-0.849,-0.850,-0.851,-0.852,-0.852,&
12674       -0.853,-0.854,-0.855,-0.856,-0.856,-0.857,-0.858,-0.859,-0.860,&
12675       -0.860,-0.861,-0.862,-0.863,-0.864,-0.864,-0.865,-0.866,-0.867,&
12676       -0.867,-0.868,-0.869,-0.869,-0.870,-0.871,-0.872,-0.872,-0.873,&
12677       -0.874,-0.875,-0.875,-0.876,-0.877,-0.877,-0.878,-0.879,-0.879,&
12678       -0.880,-0.881,-0.882,-0.882,-0.883,-0.884,-0.884,-0.885,-0.886,&
12679       -0.886,-0.887,-0.888,-0.888,-0.889,-0.889,-0.890,-0.891,-0.891,&
12680       -0.892,-0.893,-0.893,-0.894,-0.895,-0.895,-0.896,-0.896,-0.897,&
12681       -0.898,-0.898,-0.899,-0.899,-0.900,-0.901,-0.901,-0.902,-0.903,&
12682       -0.903,-0.904,-0.904,-0.905,-0.905,-0.906,-0.907,-0.907,-0.908,&
12683       -0.908,-0.909,-0.910,-0.910,-0.911,-0.911,-0.912,-0.912,-0.913,&
12684       -0.913,-0.914,-0.915,-0.915,-0.916,-0.916,-0.917,-0.917,-0.918,&
12685       -0.918,-0.919,-0.919,-0.920,-0.921,-0.921,-0.922,-0.922,-0.923,&
12686       -0.923,-0.924,-0.924,-0.925,-0.925,-0.926,-0.926,-0.927,-0.927,&
12687       -0.928,-0.928,-0.929,-0.929,-0.930,-0.930,-0.931,-0.931,-0.932,&
12688       -0.932,-0.933,-0.933,-0.934,-0.934,-0.935,-0.935,-0.936,-0.936,&
12689       -0.937,-0.937,-0.938,-0.938,-0.939,-0.939,-0.940,-0.940,-0.940,&
12690       -0.941,-0.941,-0.942,-0.942,-0.943,-0.943,-0.944,-0.944,-0.945,&
12691       -0.945,-0.946,-0.946,-0.946,-0.947,-0.947,-0.948,-0.948,-0.949,&
12692       -0.949,-0.950,-0.950,-0.950,-0.951,-0.951,-0.952,-0.952,-0.953,&
12693       -0.953,-0.954,-0.954,-0.954,-0.955,-0.955,-0.956,-0.956,-0.957,&
12694       -0.957,-0.957,-0.958,-0.958,-0.959,-0.959,-0.959,-0.960,-0.960,&
12695       -0.961,-0.961,-0.962,-0.962,-0.962,-0.963,-0.963,-0.964,-0.964,&
12696       -0.964,-0.965,-0.965,-0.966,-0.966,-0.966,-0.967,-0.967,-0.968,&
12697       -0.968,-0.968,-0.969,-0.969,-0.973,-0.977,-0.981,-0.984,-0.988,&
12698       -0.991,-0.995,-0.998,-1.001,-1.004,-1.007,-1.010,-1.013,-1.016,&
12699       -1.019,-1.022,-1.024,-1.027,-1.030,-1.032,-1.035,-1.037,-1.040,&
12700       -1.042,-1.045,-1.047,-1.049,-1.052,-1.054,-1.056,-1.058,-1.061,&
12701       -1.063,-1.065,-1.067,-1.069,-1.071,-1.073,-1.075,-1.077,-1.079,&
12702       -1.080,-1.082,-1.084,-1.086,-1.088,-1.089,-1.091,-1.093,-1.095,&
12703       -1.096,-1.098,-1.100,-1.101,-1.103,-1.104,-1.106,-1.108,-1.109,&
12704       -1.111,-1.112,-1.114,-1.115,-1.117,-1.118,-1.119,-1.121,-1.122,&
12705       -1.124,-1.125,-1.126,-1.128,-1.129,-1.130,-1.132,-1.133,-1.134,&
12706       -1.135,-1.137,-1.138,-1.139,-1.140,-1.142,-1.143,-1.144,-1.145,&
12707       -1.146,-1.148,-1.149,-1.150,-1.151,-1.152,-1.153,-1.154,-1.155,&
12708       -1.157,-1.158,-1.159,-1.160,-1.161,-1.162,-1.163,-1.164,-1.165,&
12709       -1.166,-1.167,-1.168,-1.169,-1.170,-1.171,-1.172,-1.173,-1.174,&
12710       -1.175,-1.176,-1.177,-1.178,-1.179,-1.180,-1.180,-1.181,-1.182,&
12711       -1.183,-1.184,-1.185,-1.186,-1.187,-1.188,-1.188,-1.189,-1.190,&
12712       -1.191,-1.192,-1.193,-1.193,-1.194,-1.195,-1.196,-1.197,-1.198,&
12713       -1.198,-1.199,-1.200,-1.201,-1.201,-1.202,-1.203,-1.204,-1.205,&
12714       -1.205,-1.206,-1.207,-1.208,-1.208,-1.209,-1.210,-1.210,-1.211,&
12715       -1.212,-1.213,-1.213                                           &
12716        /
12717 !C
12718 !C **  NaNO3
12719 !C
12720       DATA BNC03M/                                                   &
12721       -0.047,-0.102,-0.129,-0.149,-0.164,-0.177,-0.188,-0.198,-0.206,&
12722       -0.214,-0.221,-0.228,-0.234,-0.239,-0.245,-0.250,-0.255,-0.259,&
12723       -0.263,-0.267,-0.271,-0.275,-0.279,-0.282,-0.285,-0.289,-0.292,&
12724       -0.295,-0.298,-0.300,-0.303,-0.306,-0.308,-0.311,-0.313,-0.316,&
12725       -0.318,-0.320,-0.322,-0.324,-0.326,-0.329,-0.331,-0.332,-0.334,&
12726       -0.336,-0.338,-0.340,-0.342,-0.343,-0.345,-0.347,-0.348,-0.350,&
12727       -0.352,-0.353,-0.355,-0.356,-0.358,-0.359,-0.360,-0.362,-0.363,&
12728       -0.365,-0.366,-0.367,-0.369,-0.370,-0.371,-0.372,-0.374,-0.375,&
12729       -0.376,-0.377,-0.378,-0.380,-0.381,-0.382,-0.383,-0.384,-0.385,&
12730       -0.386,-0.388,-0.389,-0.390,-0.391,-0.392,-0.393,-0.394,-0.395,&
12731       -0.396,-0.397,-0.398,-0.399,-0.400,-0.401,-0.402,-0.403,-0.404,&
12732       -0.405,-0.406,-0.407,-0.408,-0.408,-0.409,-0.410,-0.411,-0.412,&
12733       -0.413,-0.414,-0.415,-0.416,-0.416,-0.417,-0.418,-0.419,-0.420,&
12734       -0.421,-0.422,-0.422,-0.423,-0.424,-0.425,-0.426,-0.427,-0.427,&
12735       -0.428,-0.429,-0.430,-0.430,-0.431,-0.432,-0.433,-0.434,-0.434,&
12736       -0.435,-0.436,-0.437,-0.437,-0.438,-0.439,-0.439,-0.440,-0.441,&
12737       -0.442,-0.442,-0.443,-0.444,-0.444,-0.445,-0.446,-0.447,-0.447,&
12738       -0.448,-0.449,-0.449,-0.450,-0.451,-0.451,-0.452,-0.453,-0.453,&
12739       -0.454,-0.454,-0.455,-0.456,-0.456,-0.457,-0.458,-0.458,-0.459,&
12740       -0.460,-0.460,-0.461,-0.461,-0.462,-0.463,-0.463,-0.464,-0.464,&
12741       -0.465,-0.466,-0.466,-0.467,-0.467,-0.468,-0.468,-0.469,-0.470,&
12742       -0.470,-0.471,-0.471,-0.472,-0.472,-0.473,-0.474,-0.474,-0.475,&
12743       -0.475,-0.476,-0.476,-0.477,-0.477,-0.478,-0.478,-0.479,-0.479,&
12744       -0.480,-0.480,-0.481,-0.482,-0.482,-0.483,-0.483,-0.484,-0.484,&
12745       -0.485,-0.485,-0.486,-0.486,-0.487,-0.487,-0.488,-0.488,-0.489,&
12746       -0.489,-0.490,-0.490,-0.491,-0.491,-0.491,-0.492,-0.492,-0.493,&
12747       -0.493,-0.494,-0.494,-0.495,-0.495,-0.496,-0.496,-0.497,-0.497,&
12748       -0.498,-0.498,-0.498,-0.499,-0.499,-0.500,-0.500,-0.501,-0.501,&
12749       -0.502,-0.502,-0.502,-0.503,-0.503,-0.504,-0.504,-0.505,-0.505,&
12750       -0.505,-0.506,-0.506,-0.507,-0.507,-0.508,-0.508,-0.508,-0.509,&
12751       -0.509,-0.510,-0.510,-0.511,-0.511,-0.511,-0.512,-0.512,-0.513,&
12752       -0.513,-0.513,-0.514,-0.514,-0.515,-0.515,-0.515,-0.516,-0.516,&
12753       -0.517,-0.517,-0.517,-0.518,-0.518,-0.518,-0.519,-0.519,-0.520,&
12754       -0.520,-0.520,-0.521,-0.521,-0.522,-0.522,-0.522,-0.523,-0.523,&
12755       -0.523,-0.524,-0.524,-0.525,-0.525,-0.525,-0.526,-0.526,-0.526,&
12756       -0.527,-0.527,-0.527,-0.528,-0.528,-0.529,-0.529,-0.529,-0.530,&
12757       -0.530,-0.530,-0.531,-0.531,-0.531,-0.532,-0.532,-0.532,-0.533,&
12758       -0.533,-0.533,-0.534,-0.534,-0.534,-0.535,-0.535,-0.535,-0.536,&
12759       -0.536,-0.536,-0.537,-0.537,-0.537,-0.538,-0.538,-0.538,-0.539,&
12760       -0.539,-0.539,-0.540,-0.540,-0.540,-0.541,-0.541,-0.541,-0.542,&
12761       -0.542,-0.542,-0.543,-0.543,-0.543,-0.544,-0.544,-0.544,-0.545,&
12762       -0.545,-0.545,-0.546,-0.546,-0.546,-0.546,-0.547,-0.547,-0.547,&
12763       -0.548,-0.548,-0.548,-0.549,-0.549,-0.549,-0.549,-0.550,-0.550,&
12764       -0.550,-0.551,-0.551,-0.551,-0.552,-0.552,-0.552,-0.552,-0.553,&
12765       -0.553,-0.553,-0.554,-0.554,-0.557,-0.560,-0.563,-0.565,-0.568,&
12766       -0.570,-0.573,-0.575,-0.578,-0.580,-0.583,-0.585,-0.587,-0.589,&
12767       -0.592,-0.594,-0.596,-0.598,-0.600,-0.602,-0.604,-0.606,-0.608,&
12768       -0.609,-0.611,-0.613,-0.615,-0.617,-0.618,-0.620,-0.622,-0.623,&
12769       -0.625,-0.627,-0.628,-0.630,-0.631,-0.633,-0.634,-0.636,-0.637,&
12770       -0.639,-0.640,-0.642,-0.643,-0.644,-0.646,-0.647,-0.648,-0.650,&
12771       -0.651,-0.652,-0.653,-0.655,-0.656,-0.657,-0.658,-0.660,-0.661,&
12772       -0.662,-0.663,-0.664,-0.665,-0.667,-0.668,-0.669,-0.670,-0.671,&
12773       -0.672,-0.673,-0.674,-0.675,-0.676,-0.677,-0.678,-0.679,-0.680,&
12774       -0.681,-0.682,-0.683,-0.684,-0.685,-0.686,-0.687,-0.688,-0.689,&
12775       -0.690,-0.691,-0.692,-0.692,-0.693,-0.694,-0.695,-0.696,-0.697,&
12776       -0.698,-0.698,-0.699,-0.700,-0.701,-0.702,-0.703,-0.703,-0.704,&
12777       -0.705,-0.706,-0.706,-0.707,-0.708,-0.709,-0.709,-0.710,-0.711,&
12778       -0.712,-0.712,-0.713,-0.714,-0.715,-0.715,-0.716,-0.717,-0.717,&
12779       -0.718,-0.719,-0.719,-0.720,-0.721,-0.721,-0.722,-0.723,-0.723,&
12780       -0.724,-0.725,-0.725,-0.726,-0.727,-0.727,-0.728,-0.729,-0.729,&
12781       -0.730,-0.730,-0.731,-0.732,-0.732,-0.733,-0.733,-0.734,-0.735,&
12782       -0.735,-0.736,-0.736,-0.737,-0.737,-0.738,-0.739,-0.739,-0.740,&
12783       -0.740,-0.741,-0.741                                           &
12784        /
12785 !C
12786 !C **  (NH4)2SO4
12787 !C
12788       DATA BNC04M/                                                   &
12789       -0.093,-0.203,-0.257,-0.296,-0.326,-0.351,-0.372,-0.391,-0.408,&
12790       -0.423,-0.436,-0.449,-0.460,-0.471,-0.481,-0.491,-0.500,-0.508,&
12791       -0.516,-0.524,-0.531,-0.538,-0.545,-0.552,-0.558,-0.564,-0.569,&
12792       -0.575,-0.580,-0.585,-0.590,-0.595,-0.600,-0.605,-0.609,-0.613,&
12793       -0.618,-0.622,-0.626,-0.629,-0.633,-0.637,-0.641,-0.644,-0.648,&
12794       -0.651,-0.654,-0.658,-0.661,-0.664,-0.667,-0.670,-0.673,-0.676,&
12795       -0.678,-0.681,-0.684,-0.687,-0.689,-0.692,-0.694,-0.697,-0.699,&
12796       -0.702,-0.704,-0.707,-0.709,-0.711,-0.713,-0.716,-0.718,-0.720,&
12797       -0.722,-0.724,-0.726,-0.728,-0.730,-0.732,-0.734,-0.736,-0.738,&
12798       -0.740,-0.742,-0.744,-0.746,-0.748,-0.749,-0.751,-0.753,-0.755,&
12799       -0.756,-0.758,-0.760,-0.762,-0.763,-0.765,-0.767,-0.768,-0.770,&
12800       -0.772,-0.773,-0.775,-0.776,-0.778,-0.779,-0.781,-0.782,-0.784,&
12801       -0.786,-0.787,-0.788,-0.790,-0.791,-0.793,-0.794,-0.796,-0.797,&
12802       -0.799,-0.800,-0.801,-0.803,-0.804,-0.805,-0.807,-0.808,-0.809,&
12803       -0.811,-0.812,-0.813,-0.815,-0.816,-0.817,-0.819,-0.820,-0.821,&
12804       -0.822,-0.824,-0.825,-0.826,-0.827,-0.828,-0.830,-0.831,-0.832,&
12805       -0.833,-0.834,-0.835,-0.837,-0.838,-0.839,-0.840,-0.841,-0.842,&
12806       -0.843,-0.844,-0.846,-0.847,-0.848,-0.849,-0.850,-0.851,-0.852,&
12807       -0.853,-0.854,-0.855,-0.856,-0.857,-0.858,-0.859,-0.860,-0.861,&
12808       -0.862,-0.863,-0.864,-0.865,-0.866,-0.867,-0.868,-0.869,-0.870,&
12809       -0.871,-0.872,-0.873,-0.874,-0.875,-0.876,-0.877,-0.878,-0.878,&
12810       -0.879,-0.880,-0.881,-0.882,-0.883,-0.884,-0.885,-0.886,-0.886,&
12811       -0.887,-0.888,-0.889,-0.890,-0.891,-0.892,-0.893,-0.893,-0.894,&
12812       -0.895,-0.896,-0.897,-0.898,-0.898,-0.899,-0.900,-0.901,-0.902,&
12813       -0.902,-0.903,-0.904,-0.905,-0.906,-0.906,-0.907,-0.908,-0.909,&
12814       -0.910,-0.910,-0.911,-0.912,-0.913,-0.913,-0.914,-0.915,-0.916,&
12815       -0.916,-0.917,-0.918,-0.919,-0.919,-0.920,-0.921,-0.922,-0.922,&
12816       -0.923,-0.924,-0.924,-0.925,-0.926,-0.927,-0.927,-0.928,-0.929,&
12817       -0.929,-0.930,-0.931,-0.931,-0.932,-0.933,-0.933,-0.934,-0.935,&
12818       -0.936,-0.936,-0.937,-0.938,-0.938,-0.939,-0.940,-0.940,-0.941,&
12819       -0.941,-0.942,-0.943,-0.943,-0.944,-0.945,-0.945,-0.946,-0.947,&
12820       -0.947,-0.948,-0.949,-0.949,-0.950,-0.950,-0.951,-0.952,-0.952,&
12821       -0.953,-0.954,-0.954,-0.955,-0.955,-0.956,-0.957,-0.957,-0.958,&
12822       -0.958,-0.959,-0.960,-0.960,-0.961,-0.961,-0.962,-0.962,-0.963,&
12823       -0.964,-0.964,-0.965,-0.965,-0.966,-0.967,-0.967,-0.968,-0.968,&
12824       -0.969,-0.969,-0.970,-0.970,-0.971,-0.972,-0.972,-0.973,-0.973,&
12825       -0.974,-0.974,-0.975,-0.975,-0.976,-0.977,-0.977,-0.978,-0.978,&
12826       -0.979,-0.979,-0.980,-0.980,-0.981,-0.981,-0.982,-0.982,-0.983,&
12827       -0.983,-0.984,-0.984,-0.985,-0.986,-0.986,-0.987,-0.987,-0.988,&
12828       -0.988,-0.989,-0.989,-0.990,-0.990,-0.991,-0.991,-0.992,-0.992,&
12829       -0.993,-0.993,-0.994,-0.994,-0.995,-0.995,-0.996,-0.996,-0.997,&
12830       -0.997,-0.998,-0.998,-0.998,-0.999,-0.999,-1.000,-1.000,-1.001,&
12831       -1.001,-1.002,-1.002,-1.003,-1.003,-1.004,-1.004,-1.005,-1.005,&
12832       -1.006,-1.006,-1.006,-1.007,-1.007,-1.008,-1.008,-1.009,-1.009,&
12833       -1.010,-1.010,-1.011,-1.011,-1.016,-1.020,-1.024,-1.029,-1.033,&
12834       -1.037,-1.040,-1.044,-1.048,-1.052,-1.055,-1.059,-1.062,-1.065,&
12835       -1.069,-1.072,-1.075,-1.078,-1.081,-1.084,-1.087,-1.090,-1.093,&
12836       -1.096,-1.099,-1.102,-1.104,-1.107,-1.110,-1.112,-1.115,-1.117,&
12837       -1.120,-1.122,-1.125,-1.127,-1.129,-1.132,-1.134,-1.136,-1.139,&
12838       -1.141,-1.143,-1.145,-1.147,-1.149,-1.151,-1.153,-1.155,-1.157,&
12839       -1.159,-1.161,-1.163,-1.165,-1.167,-1.169,-1.171,-1.173,-1.174,&
12840       -1.176,-1.178,-1.180,-1.181,-1.183,-1.185,-1.187,-1.188,-1.190,&
12841       -1.191,-1.193,-1.195,-1.196,-1.198,-1.199,-1.201,-1.202,-1.204,&
12842       -1.205,-1.207,-1.208,-1.210,-1.211,-1.213,-1.214,-1.216,-1.217,&
12843       -1.218,-1.220,-1.221,-1.223,-1.224,-1.225,-1.226,-1.228,-1.229,&
12844       -1.230,-1.232,-1.233,-1.234,-1.235,-1.237,-1.238,-1.239,-1.240,&
12845       -1.242,-1.243,-1.244,-1.245,-1.246,-1.247,-1.249,-1.250,-1.251,&
12846       -1.252,-1.253,-1.254,-1.255,-1.256,-1.258,-1.259,-1.260,-1.261,&
12847       -1.262,-1.263,-1.264,-1.265,-1.266,-1.267,-1.268,-1.269,-1.270,&
12848       -1.271,-1.272,-1.273,-1.274,-1.275,-1.276,-1.277,-1.278,-1.279,&
12849       -1.280,-1.281,-1.282,-1.283,-1.283,-1.284,-1.285,-1.286,-1.287,&
12850       -1.288,-1.289,-1.290,-1.291,-1.292,-1.292,-1.293,-1.294,-1.295,&
12851       -1.296,-1.297,-1.298                                           &
12852        /
12853 !C
12854 !C **  NH4NO3
12855 !C
12856       DATA BNC05M/                                                   &
12857       -0.047,-0.104,-0.134,-0.155,-0.172,-0.187,-0.199,-0.211,-0.221,&
12858       -0.230,-0.239,-0.247,-0.255,-0.262,-0.268,-0.275,-0.281,-0.287,&
12859       -0.293,-0.298,-0.303,-0.308,-0.313,-0.318,-0.323,-0.327,-0.332,&
12860       -0.336,-0.340,-0.344,-0.348,-0.352,-0.356,-0.359,-0.363,-0.366,&
12861       -0.370,-0.373,-0.377,-0.380,-0.383,-0.386,-0.389,-0.392,-0.395,&
12862       -0.398,-0.401,-0.404,-0.406,-0.409,-0.412,-0.414,-0.417,-0.420,&
12863       -0.422,-0.425,-0.427,-0.429,-0.432,-0.434,-0.436,-0.439,-0.441,&
12864       -0.443,-0.445,-0.447,-0.450,-0.452,-0.454,-0.456,-0.458,-0.460,&
12865       -0.462,-0.464,-0.466,-0.468,-0.470,-0.472,-0.474,-0.476,-0.478,&
12866       -0.480,-0.481,-0.483,-0.485,-0.487,-0.489,-0.491,-0.492,-0.494,&
12867       -0.496,-0.498,-0.500,-0.501,-0.503,-0.505,-0.507,-0.508,-0.510,&
12868       -0.512,-0.514,-0.515,-0.517,-0.519,-0.520,-0.522,-0.524,-0.525,&
12869       -0.527,-0.529,-0.530,-0.532,-0.534,-0.535,-0.537,-0.538,-0.540,&
12870       -0.542,-0.543,-0.545,-0.546,-0.548,-0.550,-0.551,-0.553,-0.554,&
12871       -0.556,-0.557,-0.559,-0.560,-0.562,-0.563,-0.565,-0.566,-0.568,&
12872       -0.569,-0.571,-0.572,-0.573,-0.575,-0.576,-0.578,-0.579,-0.580,&
12873       -0.582,-0.583,-0.585,-0.586,-0.587,-0.589,-0.590,-0.591,-0.593,&
12874       -0.594,-0.595,-0.597,-0.598,-0.599,-0.601,-0.602,-0.603,-0.604,&
12875       -0.606,-0.607,-0.608,-0.610,-0.611,-0.612,-0.613,-0.615,-0.616,&
12876       -0.617,-0.618,-0.619,-0.621,-0.622,-0.623,-0.624,-0.625,-0.627,&
12877       -0.628,-0.629,-0.630,-0.631,-0.632,-0.634,-0.635,-0.636,-0.637,&
12878       -0.638,-0.639,-0.640,-0.642,-0.643,-0.644,-0.645,-0.646,-0.647,&
12879       -0.648,-0.649,-0.650,-0.651,-0.652,-0.654,-0.655,-0.656,-0.657,&
12880       -0.658,-0.659,-0.660,-0.661,-0.662,-0.663,-0.664,-0.665,-0.666,&
12881       -0.667,-0.668,-0.669,-0.670,-0.671,-0.672,-0.673,-0.674,-0.675,&
12882       -0.676,-0.677,-0.678,-0.679,-0.680,-0.681,-0.682,-0.683,-0.684,&
12883       -0.685,-0.686,-0.687,-0.688,-0.688,-0.689,-0.690,-0.691,-0.692,&
12884       -0.693,-0.694,-0.695,-0.696,-0.697,-0.698,-0.699,-0.699,-0.700,&
12885       -0.701,-0.702,-0.703,-0.704,-0.705,-0.706,-0.707,-0.707,-0.708,&
12886       -0.709,-0.710,-0.711,-0.712,-0.713,-0.713,-0.714,-0.715,-0.716,&
12887       -0.717,-0.718,-0.718,-0.719,-0.720,-0.721,-0.722,-0.723,-0.723,&
12888       -0.724,-0.725,-0.726,-0.727,-0.727,-0.728,-0.729,-0.730,-0.731,&
12889       -0.731,-0.732,-0.733,-0.734,-0.735,-0.735,-0.736,-0.737,-0.738,&
12890       -0.738,-0.739,-0.740,-0.741,-0.741,-0.742,-0.743,-0.744,-0.744,&
12891       -0.745,-0.746,-0.747,-0.747,-0.748,-0.749,-0.750,-0.750,-0.751,&
12892       -0.752,-0.753,-0.753,-0.754,-0.755,-0.755,-0.756,-0.757,-0.758,&
12893       -0.758,-0.759,-0.760,-0.760,-0.761,-0.762,-0.762,-0.763,-0.764,&
12894       -0.764,-0.765,-0.766,-0.767,-0.767,-0.768,-0.769,-0.769,-0.770,&
12895       -0.771,-0.771,-0.772,-0.773,-0.773,-0.774,-0.775,-0.775,-0.776,&
12896       -0.777,-0.777,-0.778,-0.778,-0.779,-0.780,-0.780,-0.781,-0.782,&
12897       -0.782,-0.783,-0.784,-0.784,-0.785,-0.785,-0.786,-0.787,-0.787,&
12898       -0.788,-0.789,-0.789,-0.790,-0.790,-0.791,-0.792,-0.792,-0.793,&
12899       -0.793,-0.794,-0.795,-0.795,-0.796,-0.796,-0.797,-0.798,-0.798,&
12900       -0.799,-0.799,-0.800,-0.801,-0.801,-0.802,-0.802,-0.803,-0.804,&
12901       -0.804,-0.805,-0.805,-0.806,-0.812,-0.817,-0.823,-0.828,-0.833,&
12902       -0.838,-0.843,-0.848,-0.852,-0.857,-0.861,-0.866,-0.870,-0.874,&
12903       -0.878,-0.882,-0.886,-0.890,-0.893,-0.897,-0.900,-0.904,-0.907,&
12904       -0.911,-0.914,-0.917,-0.920,-0.924,-0.927,-0.930,-0.933,-0.936,&
12905       -0.938,-0.941,-0.944,-0.947,-0.949,-0.952,-0.954,-0.957,-0.959,&
12906       -0.962,-0.964,-0.967,-0.969,-0.971,-0.973,-0.976,-0.978,-0.980,&
12907       -0.982,-0.984,-0.986,-0.988,-0.990,-0.992,-0.994,-0.996,-0.998,&
12908       -1.000,-1.002,-1.003,-1.005,-1.007,-1.009,-1.010,-1.012,-1.014,&
12909       -1.015,-1.017,-1.019,-1.020,-1.022,-1.023,-1.025,-1.026,-1.028,&
12910       -1.029,-1.031,-1.032,-1.033,-1.035,-1.036,-1.037,-1.039,-1.040,&
12911       -1.041,-1.043,-1.044,-1.045,-1.046,-1.048,-1.049,-1.050,-1.051,&
12912       -1.052,-1.054,-1.055,-1.056,-1.057,-1.058,-1.059,-1.060,-1.061,&
12913       -1.062,-1.063,-1.064,-1.066,-1.067,-1.068,-1.069,-1.070,-1.070,&
12914       -1.071,-1.072,-1.073,-1.074,-1.075,-1.076,-1.077,-1.078,-1.079,&
12915       -1.080,-1.081,-1.081,-1.082,-1.083,-1.084,-1.085,-1.086,-1.086,&
12916       -1.087,-1.088,-1.089,-1.090,-1.090,-1.091,-1.092,-1.093,-1.093,&
12917       -1.094,-1.095,-1.096,-1.096,-1.097,-1.098,-1.099,-1.099,-1.100,&
12918       -1.101,-1.101,-1.102,-1.103,-1.103,-1.104,-1.105,-1.105,-1.106,&
12919       -1.107,-1.107,-1.108                                           &
12920        /
12921 !C
12922 !C **  NH4Cl
12923 !C
12924       DATA BNC06M/                                                   &
12925       -0.046,-0.098,-0.123,-0.140,-0.153,-0.163,-0.172,-0.180,-0.186,&
12926       -0.191,-0.196,-0.201,-0.205,-0.208,-0.212,-0.215,-0.217,-0.220,&
12927       -0.222,-0.224,-0.226,-0.228,-0.230,-0.231,-0.233,-0.234,-0.235,&
12928       -0.237,-0.238,-0.239,-0.240,-0.241,-0.241,-0.242,-0.243,-0.244,&
12929       -0.244,-0.245,-0.246,-0.246,-0.247,-0.247,-0.247,-0.248,-0.248,&
12930       -0.249,-0.249,-0.249,-0.250,-0.250,-0.250,-0.250,-0.251,-0.251,&
12931       -0.251,-0.251,-0.251,-0.251,-0.252,-0.252,-0.252,-0.252,-0.252,&
12932       -0.252,-0.252,-0.252,-0.252,-0.252,-0.252,-0.252,-0.252,-0.252,&
12933       -0.252,-0.252,-0.252,-0.252,-0.252,-0.252,-0.252,-0.251,-0.251,&
12934       -0.251,-0.251,-0.251,-0.251,-0.250,-0.250,-0.250,-0.250,-0.250,&
12935       -0.249,-0.249,-0.249,-0.249,-0.248,-0.248,-0.248,-0.248,-0.247,&
12936       -0.247,-0.247,-0.246,-0.246,-0.246,-0.245,-0.245,-0.245,-0.244,&
12937       -0.244,-0.244,-0.243,-0.243,-0.243,-0.242,-0.242,-0.241,-0.241,&
12938       -0.241,-0.240,-0.240,-0.239,-0.239,-0.239,-0.238,-0.238,-0.237,&
12939       -0.237,-0.236,-0.236,-0.236,-0.235,-0.235,-0.234,-0.234,-0.233,&
12940       -0.233,-0.233,-0.232,-0.232,-0.231,-0.231,-0.230,-0.230,-0.229,&
12941       -0.229,-0.228,-0.228,-0.228,-0.227,-0.227,-0.226,-0.226,-0.225,&
12942       -0.225,-0.224,-0.224,-0.223,-0.223,-0.222,-0.222,-0.221,-0.221,&
12943       -0.220,-0.220,-0.220,-0.219,-0.219,-0.218,-0.218,-0.217,-0.217,&
12944       -0.216,-0.216,-0.215,-0.215,-0.214,-0.214,-0.213,-0.213,-0.212,&
12945       -0.212,-0.211,-0.211,-0.210,-0.210,-0.210,-0.209,-0.209,-0.208,&
12946       -0.208,-0.207,-0.207,-0.206,-0.206,-0.205,-0.205,-0.204,-0.204,&
12947       -0.203,-0.203,-0.202,-0.202,-0.201,-0.201,-0.200,-0.200,-0.199,&
12948       -0.199,-0.198,-0.198,-0.197,-0.197,-0.197,-0.196,-0.196,-0.195,&
12949       -0.195,-0.194,-0.194,-0.193,-0.193,-0.192,-0.192,-0.191,-0.191,&
12950       -0.190,-0.190,-0.189,-0.189,-0.188,-0.188,-0.187,-0.187,-0.186,&
12951       -0.186,-0.186,-0.185,-0.185,-0.184,-0.184,-0.183,-0.183,-0.182,&
12952       -0.182,-0.181,-0.181,-0.180,-0.180,-0.179,-0.179,-0.178,-0.178,&
12953       -0.177,-0.177,-0.177,-0.176,-0.176,-0.175,-0.175,-0.174,-0.174,&
12954       -0.173,-0.173,-0.172,-0.172,-0.171,-0.171,-0.170,-0.170,-0.170,&
12955       -0.169,-0.169,-0.168,-0.168,-0.167,-0.167,-0.166,-0.166,-0.165,&
12956       -0.165,-0.164,-0.164,-0.164,-0.163,-0.163,-0.162,-0.162,-0.161,&
12957       -0.161,-0.160,-0.160,-0.159,-0.159,-0.159,-0.158,-0.158,-0.157,&
12958       -0.157,-0.156,-0.156,-0.155,-0.155,-0.154,-0.154,-0.154,-0.153,&
12959       -0.153,-0.152,-0.152,-0.151,-0.151,-0.150,-0.150,-0.149,-0.149,&
12960       -0.149,-0.148,-0.148,-0.147,-0.147,-0.146,-0.146,-0.145,-0.145,&
12961       -0.145,-0.144,-0.144,-0.143,-0.143,-0.142,-0.142,-0.142,-0.141,&
12962       -0.141,-0.140,-0.140,-0.139,-0.139,-0.138,-0.138,-0.138,-0.137,&
12963       -0.137,-0.136,-0.136,-0.135,-0.135,-0.135,-0.134,-0.134,-0.133,&
12964       -0.133,-0.132,-0.132,-0.132,-0.131,-0.131,-0.130,-0.130,-0.129,&
12965       -0.129,-0.129,-0.128,-0.128,-0.127,-0.127,-0.126,-0.126,-0.126,&
12966       -0.125,-0.125,-0.124,-0.124,-0.123,-0.123,-0.123,-0.122,-0.122,&
12967       -0.121,-0.121,-0.121,-0.120,-0.120,-0.119,-0.119,-0.118,-0.118,&
12968       -0.118,-0.117,-0.117,-0.116,-0.116,-0.116,-0.115,-0.115,-0.114,&
12969       -0.114,-0.114,-0.113,-0.113,-0.108,-0.104,-0.100,-0.096,-0.092,&
12970       -0.089,-0.085,-0.081,-0.077,-0.074,-0.070,-0.066,-0.063,-0.059,&
12971       -0.055,-0.052,-0.049,-0.045,-0.042,-0.038,-0.035,-0.032,-0.028,&
12972       -0.025,-0.022,-0.019,-0.016,-0.012,-0.009,-0.006,-0.003, 0.000,&
12973        0.003, 0.006, 0.009, 0.012, 0.014, 0.017, 0.020, 0.023, 0.026,&
12974        0.029, 0.031, 0.034, 0.037, 0.040, 0.042, 0.045, 0.047, 0.050,&
12975        0.053, 0.055, 0.058, 0.060, 0.063, 0.065, 0.068, 0.070, 0.073,&
12976        0.075, 0.078, 0.080, 0.082, 0.085, 0.087, 0.089, 0.092, 0.094,&
12977        0.096, 0.099, 0.101, 0.103, 0.105, 0.107, 0.110, 0.112, 0.114,&
12978        0.116, 0.118, 0.120, 0.123, 0.125, 0.127, 0.129, 0.131, 0.133,&
12979        0.135, 0.137, 0.139, 0.141, 0.143, 0.145, 0.147, 0.149, 0.151,&
12980        0.153, 0.155, 0.157, 0.159, 0.160, 0.162, 0.164, 0.166, 0.168,&
12981        0.170, 0.172, 0.173, 0.175, 0.177, 0.179, 0.181, 0.182, 0.184,&
12982        0.186, 0.188, 0.189, 0.191, 0.193, 0.195, 0.196, 0.198, 0.200,&
12983        0.201, 0.203, 0.205, 0.206, 0.208, 0.210, 0.211, 0.213, 0.215,&
12984        0.216, 0.218, 0.219, 0.221, 0.223, 0.224, 0.226, 0.227, 0.229,&
12985        0.230, 0.232, 0.233, 0.235, 0.236, 0.238, 0.239, 0.241, 0.242,&
12986        0.244, 0.245, 0.247, 0.248, 0.250, 0.251, 0.253, 0.254, 0.256,&
12987        0.257, 0.258, 0.260                                           &
12988        /
12989 !C
12990 !C **  (2H,SO4)
12991 !C
12992       DATA BNC07M/                                                   &
12993       -0.093,-0.202,-0.255,-0.293,-0.323,-0.347,-0.368,-0.386,-0.402,&
12994       -0.417,-0.430,-0.442,-0.453,-0.463,-0.473,-0.482,-0.490,-0.498,&
12995       -0.506,-0.513,-0.520,-0.526,-0.532,-0.538,-0.544,-0.549,-0.555,&
12996       -0.560,-0.565,-0.569,-0.574,-0.578,-0.583,-0.587,-0.591,-0.595,&
12997       -0.598,-0.602,-0.606,-0.609,-0.613,-0.616,-0.619,-0.622,-0.625,&
12998       -0.628,-0.631,-0.634,-0.637,-0.640,-0.642,-0.645,-0.648,-0.650,&
12999       -0.653,-0.655,-0.657,-0.660,-0.662,-0.664,-0.666,-0.669,-0.671,&
13000       -0.673,-0.675,-0.677,-0.679,-0.681,-0.683,-0.685,-0.687,-0.688,&
13001       -0.690,-0.692,-0.694,-0.695,-0.697,-0.699,-0.701,-0.702,-0.704,&
13002       -0.705,-0.707,-0.709,-0.710,-0.712,-0.713,-0.715,-0.716,-0.718,&
13003       -0.719,-0.721,-0.722,-0.723,-0.725,-0.726,-0.727,-0.729,-0.730,&
13004       -0.731,-0.733,-0.734,-0.735,-0.737,-0.738,-0.739,-0.740,-0.741,&
13005       -0.743,-0.744,-0.745,-0.746,-0.747,-0.748,-0.750,-0.751,-0.752,&
13006       -0.753,-0.754,-0.755,-0.756,-0.757,-0.758,-0.759,-0.760,-0.762,&
13007       -0.763,-0.764,-0.765,-0.766,-0.767,-0.768,-0.769,-0.769,-0.770,&
13008       -0.771,-0.772,-0.773,-0.774,-0.775,-0.776,-0.777,-0.778,-0.779,&
13009       -0.780,-0.781,-0.781,-0.782,-0.783,-0.784,-0.785,-0.786,-0.787,&
13010       -0.787,-0.788,-0.789,-0.790,-0.791,-0.792,-0.792,-0.793,-0.794,&
13011       -0.795,-0.795,-0.796,-0.797,-0.798,-0.799,-0.799,-0.800,-0.801,&
13012       -0.802,-0.802,-0.803,-0.804,-0.804,-0.805,-0.806,-0.807,-0.807,&
13013       -0.808,-0.809,-0.809,-0.810,-0.811,-0.811,-0.812,-0.813,-0.814,&
13014       -0.814,-0.815,-0.816,-0.816,-0.817,-0.817,-0.818,-0.819,-0.819,&
13015       -0.820,-0.821,-0.821,-0.822,-0.823,-0.823,-0.824,-0.824,-0.825,&
13016       -0.826,-0.826,-0.827,-0.827,-0.828,-0.829,-0.829,-0.830,-0.830,&
13017       -0.831,-0.831,-0.832,-0.833,-0.833,-0.834,-0.834,-0.835,-0.835,&
13018       -0.836,-0.837,-0.837,-0.838,-0.838,-0.839,-0.839,-0.840,-0.840,&
13019       -0.841,-0.841,-0.842,-0.842,-0.843,-0.843,-0.844,-0.845,-0.845,&
13020       -0.846,-0.846,-0.847,-0.847,-0.848,-0.848,-0.849,-0.849,-0.850,&
13021       -0.850,-0.851,-0.851,-0.851,-0.852,-0.852,-0.853,-0.853,-0.854,&
13022       -0.854,-0.855,-0.855,-0.856,-0.856,-0.857,-0.857,-0.858,-0.858,&
13023       -0.859,-0.859,-0.859,-0.860,-0.860,-0.861,-0.861,-0.862,-0.862,&
13024       -0.863,-0.863,-0.863,-0.864,-0.864,-0.865,-0.865,-0.866,-0.866,&
13025       -0.866,-0.867,-0.867,-0.868,-0.868,-0.869,-0.869,-0.869,-0.870,&
13026       -0.870,-0.871,-0.871,-0.871,-0.872,-0.872,-0.873,-0.873,-0.873,&
13027       -0.874,-0.874,-0.875,-0.875,-0.875,-0.876,-0.876,-0.877,-0.877,&
13028       -0.877,-0.878,-0.878,-0.878,-0.879,-0.879,-0.880,-0.880,-0.880,&
13029       -0.881,-0.881,-0.881,-0.882,-0.882,-0.883,-0.883,-0.883,-0.884,&
13030       -0.884,-0.884,-0.885,-0.885,-0.885,-0.886,-0.886,-0.887,-0.887,&
13031       -0.887,-0.888,-0.888,-0.888,-0.889,-0.889,-0.889,-0.890,-0.890,&
13032       -0.890,-0.891,-0.891,-0.891,-0.892,-0.892,-0.892,-0.893,-0.893,&
13033       -0.893,-0.894,-0.894,-0.894,-0.895,-0.895,-0.895,-0.896,-0.896,&
13034       -0.896,-0.897,-0.897,-0.897,-0.898,-0.898,-0.898,-0.899,-0.899,&
13035       -0.899,-0.900,-0.900,-0.900,-0.901,-0.901,-0.901,-0.901,-0.902,&
13036       -0.902,-0.902,-0.903,-0.903,-0.903,-0.904,-0.904,-0.904,-0.905,&
13037       -0.905,-0.905,-0.905,-0.906,-0.909,-0.912,-0.915,-0.917,-0.920,&
13038       -0.922,-0.925,-0.927,-0.930,-0.932,-0.935,-0.937,-0.939,-0.941,&
13039       -0.943,-0.945,-0.947,-0.949,-0.951,-0.953,-0.955,-0.957,-0.959,&
13040       -0.961,-0.962,-0.964,-0.966,-0.967,-0.969,-0.971,-0.972,-0.974,&
13041       -0.975,-0.977,-0.978,-0.980,-0.981,-0.983,-0.984,-0.986,-0.987,&
13042       -0.988,-0.990,-0.991,-0.992,-0.994,-0.995,-0.996,-0.997,-0.999,&
13043       -1.000,-1.001,-1.002,-1.003,-1.004,-1.006,-1.007,-1.008,-1.009,&
13044       -1.010,-1.011,-1.012,-1.013,-1.014,-1.015,-1.016,-1.017,-1.018,&
13045       -1.019,-1.020,-1.021,-1.022,-1.023,-1.024,-1.025,-1.026,-1.027,&
13046       -1.028,-1.028,-1.029,-1.030,-1.031,-1.032,-1.033,-1.034,-1.034,&
13047       -1.035,-1.036,-1.037,-1.038,-1.039,-1.039,-1.040,-1.041,-1.042,&
13048       -1.042,-1.043,-1.044,-1.045,-1.045,-1.046,-1.047,-1.048,-1.048,&
13049       -1.049,-1.050,-1.050,-1.051,-1.052,-1.052,-1.053,-1.054,-1.055,&
13050       -1.055,-1.056,-1.056,-1.057,-1.058,-1.058,-1.059,-1.060,-1.060,&
13051       -1.061,-1.062,-1.062,-1.063,-1.063,-1.064,-1.065,-1.065,-1.066,&
13052       -1.066,-1.067,-1.068,-1.068,-1.069,-1.069,-1.070,-1.070,-1.071,&
13053       -1.071,-1.072,-1.073,-1.073,-1.074,-1.074,-1.075,-1.075,-1.076,&
13054       -1.076,-1.077,-1.077,-1.078,-1.078,-1.079,-1.079,-1.080,-1.080,&
13055       -1.081,-1.081,-1.082                                           &
13056        /
13057 !C
13058 !C **  (H,HSO4)
13059 !C
13060       DATA BNC08M/                                                   &
13061       -0.044,-0.088,-0.106,-0.116,-0.123,-0.128,-0.131,-0.133,-0.134,&
13062       -0.134,-0.134,-0.133,-0.131,-0.129,-0.127,-0.125,-0.122,-0.119,&
13063       -0.115,-0.112,-0.108,-0.104,-0.100,-0.095,-0.091,-0.086,-0.081,&
13064       -0.076,-0.071,-0.066,-0.060,-0.055,-0.049,-0.043,-0.037,-0.031,&
13065       -0.025,-0.019,-0.013,-0.006, 0.000, 0.007, 0.013, 0.020, 0.027,&
13066        0.034, 0.041, 0.048, 0.055, 0.062, 0.069, 0.076, 0.083, 0.090,&
13067        0.098, 0.105, 0.113, 0.120, 0.127, 0.135, 0.143, 0.150, 0.158,&
13068        0.166, 0.173, 0.181, 0.189, 0.197, 0.205, 0.212, 0.220, 0.228,&
13069        0.236, 0.245, 0.253, 0.261, 0.269, 0.277, 0.286, 0.294, 0.302,&
13070        0.311, 0.319, 0.328, 0.336, 0.345, 0.353, 0.362, 0.371, 0.380,&
13071        0.388, 0.397, 0.406, 0.415, 0.424, 0.433, 0.442, 0.451, 0.460,&
13072        0.469, 0.479, 0.488, 0.497, 0.506, 0.516, 0.525, 0.535, 0.544,&
13073        0.553, 0.563, 0.572, 0.582, 0.591, 0.601, 0.610, 0.620, 0.629,&
13074        0.639, 0.648, 0.658, 0.667, 0.677, 0.686, 0.696, 0.705, 0.715,&
13075        0.725, 0.734, 0.744, 0.753, 0.763, 0.772, 0.782, 0.791, 0.800,&
13076        0.810, 0.819, 0.829, 0.838, 0.848, 0.857, 0.866, 0.876, 0.885,&
13077        0.894, 0.904, 0.913, 0.922, 0.932, 0.941, 0.950, 0.959, 0.968,&
13078        0.978, 0.987, 0.996, 1.005, 1.014, 1.023, 1.032, 1.041, 1.050,&
13079        1.059, 1.069, 1.077, 1.086, 1.095, 1.104, 1.113, 1.122, 1.131,&
13080        1.140, 1.149, 1.158, 1.166, 1.175, 1.184, 1.193, 1.202, 1.210,&
13081        1.219, 1.228, 1.236, 1.245, 1.254, 1.262, 1.271, 1.279, 1.288,&
13082        1.296, 1.305, 1.314, 1.322, 1.330, 1.339, 1.347, 1.356, 1.364,&
13083        1.373, 1.381, 1.389, 1.398, 1.406, 1.414, 1.422, 1.431, 1.439,&
13084        1.447, 1.455, 1.464, 1.472, 1.480, 1.488, 1.496, 1.504, 1.512,&
13085        1.520, 1.528, 1.537, 1.545, 1.553, 1.561, 1.568, 1.576, 1.584,&
13086        1.592, 1.600, 1.608, 1.616, 1.624, 1.632, 1.639, 1.647, 1.655,&
13087        1.663, 1.670, 1.678, 1.686, 1.694, 1.701, 1.709, 1.717, 1.724,&
13088        1.732, 1.740, 1.747, 1.755, 1.762, 1.770, 1.777, 1.785, 1.792,&
13089        1.800, 1.807, 1.815, 1.822, 1.830, 1.837, 1.844, 1.852, 1.859,&
13090        1.866, 1.874, 1.881, 1.888, 1.896, 1.903, 1.910, 1.917, 1.925,&
13091        1.932, 1.939, 1.946, 1.953, 1.961, 1.968, 1.975, 1.982, 1.989,&
13092        1.996, 2.003, 2.010, 2.017, 2.024, 2.031, 2.038, 2.045, 2.052,&
13093        2.059, 2.066, 2.073, 2.080, 2.087, 2.094, 2.101, 2.108, 2.114,&
13094        2.121, 2.128, 2.135, 2.142, 2.148, 2.155, 2.162, 2.169, 2.175,&
13095        2.182, 2.189, 2.196, 2.202, 2.209, 2.216, 2.222, 2.229, 2.236,&
13096        2.242, 2.249, 2.255, 2.262, 2.268, 2.275, 2.281, 2.288, 2.295,&
13097        2.301, 2.308, 2.314, 2.320, 2.327, 2.333, 2.340, 2.346, 2.353,&
13098        2.359, 2.365, 2.372, 2.378, 2.384, 2.391, 2.397, 2.403, 2.410,&
13099        2.416, 2.422, 2.429, 2.435, 2.441, 2.447, 2.453, 2.460, 2.466,&
13100        2.472, 2.478, 2.484, 2.491, 2.497, 2.503, 2.509, 2.515, 2.521,&
13101        2.527, 2.533, 2.539, 2.546, 2.552, 2.558, 2.564, 2.570, 2.576,&
13102        2.582, 2.588, 2.594, 2.600, 2.606, 2.612, 2.617, 2.623, 2.629,&
13103        2.635, 2.641, 2.647, 2.653, 2.659, 2.665, 2.670, 2.676, 2.682,&
13104        2.688, 2.694, 2.700, 2.705, 2.711, 2.717, 2.723, 2.728, 2.734,&
13105        2.740, 2.746, 2.751, 2.757, 2.818, 2.874, 2.928, 2.982, 3.035,&
13106        3.087, 3.139, 3.190, 3.239, 3.289, 3.337, 3.385, 3.432, 3.479,&
13107        3.525, 3.571, 3.615, 3.660, 3.703, 3.746, 3.789, 3.831, 3.873,&
13108        3.914, 3.954, 3.995, 4.034, 4.073, 4.112, 4.151, 4.189, 4.226,&
13109        4.263, 4.300, 4.336, 4.372, 4.408, 4.443, 4.478, 4.513, 4.547,&
13110        4.581, 4.614, 4.647, 4.680, 4.713, 4.745, 4.777, 4.809, 4.840,&
13111        4.871, 4.902, 4.933, 4.963, 4.993, 5.023, 5.052, 5.082, 5.111,&
13112        5.140, 5.168, 5.196, 5.224, 5.252, 5.280, 5.307, 5.335, 5.362,&
13113        5.388, 5.415, 5.441, 5.468, 5.494, 5.519, 5.545, 5.570, 5.596,&
13114        5.621, 5.646, 5.670, 5.695, 5.719, 5.743, 5.767, 5.791, 5.815,&
13115        5.838, 5.862, 5.885, 5.908, 5.931, 5.954, 5.976, 5.999, 6.021,&
13116        6.043, 6.065, 6.087, 6.109, 6.130, 6.152, 6.173, 6.194, 6.215,&
13117        6.236, 6.257, 6.278, 6.298, 6.319, 6.339, 6.359, 6.380, 6.400,&
13118        6.419, 6.439, 6.459, 6.478, 6.498, 6.517, 6.536, 6.555, 6.574,&
13119        6.593, 6.612, 6.631, 6.649, 6.668, 6.686, 6.705, 6.723, 6.741,&
13120        6.759, 6.777, 6.795, 6.812, 6.830, 6.848, 6.865, 6.882, 6.900,&
13121        6.917, 6.934, 6.951, 6.968, 6.985, 7.002, 7.018, 7.035, 7.052,&
13122        7.068, 7.084, 7.101, 7.117, 7.133, 7.149, 7.165, 7.181, 7.197,&
13123        7.213, 7.229, 7.244                                           &
13124        /
13125 !C
13126 !C **  NH4HSO4
13127 !C
13128       DATA BNC09M/                                                   &
13129       -0.046,-0.097,-0.122,-0.138,-0.151,-0.162,-0.170,-0.177,-0.184,&
13130       -0.189,-0.194,-0.198,-0.202,-0.206,-0.209,-0.212,-0.214,-0.216,&
13131       -0.218,-0.220,-0.222,-0.223,-0.224,-0.225,-0.226,-0.227,-0.227,&
13132       -0.228,-0.228,-0.228,-0.228,-0.228,-0.228,-0.228,-0.228,-0.227,&
13133       -0.227,-0.226,-0.225,-0.225,-0.224,-0.223,-0.222,-0.221,-0.220,&
13134       -0.219,-0.218,-0.216,-0.215,-0.214,-0.212,-0.211,-0.209,-0.208,&
13135       -0.206,-0.204,-0.203,-0.201,-0.199,-0.197,-0.195,-0.193,-0.192,&
13136       -0.190,-0.188,-0.185,-0.183,-0.181,-0.179,-0.177,-0.175,-0.173,&
13137       -0.170,-0.168,-0.166,-0.163,-0.161,-0.159,-0.156,-0.154,-0.151,&
13138       -0.149,-0.146,-0.144,-0.141,-0.139,-0.136,-0.133,-0.131,-0.128,&
13139       -0.125,-0.122,-0.120,-0.117,-0.114,-0.111,-0.108,-0.106,-0.103,&
13140       -0.100,-0.097,-0.094,-0.091,-0.088,-0.085,-0.082,-0.079,-0.076,&
13141       -0.073,-0.070,-0.067,-0.064,-0.061,-0.058,-0.055,-0.052,-0.049,&
13142       -0.045,-0.042,-0.039,-0.036,-0.033,-0.030,-0.027,-0.024,-0.021,&
13143       -0.018,-0.014,-0.011,-0.008,-0.005,-0.002, 0.001, 0.004, 0.007,&
13144        0.010, 0.013, 0.016, 0.020, 0.023, 0.026, 0.029, 0.032, 0.035,&
13145        0.038, 0.041, 0.044, 0.047, 0.050, 0.053, 0.056, 0.059, 0.062,&
13146        0.065, 0.068, 0.071, 0.074, 0.077, 0.080, 0.083, 0.086, 0.089,&
13147        0.092, 0.095, 0.098, 0.101, 0.104, 0.106, 0.109, 0.112, 0.115,&
13148        0.118, 0.121, 0.124, 0.127, 0.130, 0.132, 0.135, 0.138, 0.141,&
13149        0.144, 0.147, 0.150, 0.152, 0.155, 0.158, 0.161, 0.164, 0.166,&
13150        0.169, 0.172, 0.175, 0.177, 0.180, 0.183, 0.186, 0.188, 0.191,&
13151        0.194, 0.197, 0.199, 0.202, 0.205, 0.208, 0.210, 0.213, 0.216,&
13152        0.218, 0.221, 0.224, 0.226, 0.229, 0.232, 0.234, 0.237, 0.239,&
13153        0.242, 0.245, 0.247, 0.250, 0.253, 0.255, 0.258, 0.260, 0.263,&
13154        0.265, 0.268, 0.271, 0.273, 0.276, 0.278, 0.281, 0.283, 0.286,&
13155        0.288, 0.291, 0.293, 0.296, 0.298, 0.301, 0.303, 0.306, 0.308,&
13156        0.311, 0.313, 0.316, 0.318, 0.321, 0.323, 0.326, 0.328, 0.330,&
13157        0.333, 0.335, 0.338, 0.340, 0.343, 0.345, 0.347, 0.350, 0.352,&
13158        0.355, 0.357, 0.359, 0.362, 0.364, 0.366, 0.369, 0.371, 0.374,&
13159        0.376, 0.378, 0.381, 0.383, 0.385, 0.388, 0.390, 0.392, 0.394,&
13160        0.397, 0.399, 0.401, 0.404, 0.406, 0.408, 0.410, 0.413, 0.415,&
13161        0.417, 0.420, 0.422, 0.424, 0.426, 0.429, 0.431, 0.433, 0.435,&
13162        0.437, 0.440, 0.442, 0.444, 0.446, 0.449, 0.451, 0.453, 0.455,&
13163        0.457, 0.460, 0.462, 0.464, 0.466, 0.468, 0.470, 0.473, 0.475,&
13164        0.477, 0.479, 0.481, 0.483, 0.485, 0.488, 0.490, 0.492, 0.494,&
13165        0.496, 0.498, 0.500, 0.502, 0.504, 0.507, 0.509, 0.511, 0.513,&
13166        0.515, 0.517, 0.519, 0.521, 0.523, 0.525, 0.527, 0.529, 0.531,&
13167        0.534, 0.536, 0.538, 0.540, 0.542, 0.544, 0.546, 0.548, 0.550,&
13168        0.552, 0.554, 0.556, 0.558, 0.560, 0.562, 0.564, 0.566, 0.568,&
13169        0.570, 0.572, 0.574, 0.576, 0.578, 0.580, 0.582, 0.584, 0.586,&
13170        0.588, 0.590, 0.592, 0.593, 0.595, 0.597, 0.599, 0.601, 0.603,&
13171        0.605, 0.607, 0.609, 0.611, 0.613, 0.615, 0.617, 0.619, 0.620,&
13172        0.622, 0.624, 0.626, 0.628, 0.630, 0.632, 0.634, 0.636, 0.637,&
13173        0.639, 0.641, 0.643, 0.645, 0.665, 0.683, 0.701, 0.719, 0.736,&
13174        0.753, 0.770, 0.787, 0.803, 0.820, 0.836, 0.852, 0.867, 0.883,&
13175        0.898, 0.913, 0.928, 0.942, 0.957, 0.971, 0.985, 0.999, 1.013,&
13176        1.027, 1.040, 1.053, 1.067, 1.080, 1.093, 1.105, 1.118, 1.131,&
13177        1.143, 1.155, 1.167, 1.179, 1.191, 1.203, 1.215, 1.226, 1.238,&
13178        1.249, 1.260, 1.271, 1.283, 1.293, 1.304, 1.315, 1.326, 1.336,&
13179        1.347, 1.357, 1.367, 1.377, 1.388, 1.398, 1.408, 1.417, 1.427,&
13180        1.437, 1.446, 1.456, 1.466, 1.475, 1.484, 1.493, 1.503, 1.512,&
13181        1.521, 1.530, 1.539, 1.548, 1.556, 1.565, 1.574, 1.582, 1.591,&
13182        1.599, 1.608, 1.616, 1.624, 1.633, 1.641, 1.649, 1.657, 1.665,&
13183        1.673, 1.681, 1.689, 1.697, 1.704, 1.712, 1.720, 1.727, 1.735,&
13184        1.742, 1.750, 1.757, 1.765, 1.772, 1.779, 1.787, 1.794, 1.801,&
13185        1.808, 1.815, 1.822, 1.829, 1.836, 1.843, 1.850, 1.857, 1.864,&
13186        1.870, 1.877, 1.884, 1.890, 1.897, 1.904, 1.910, 1.917, 1.923,&
13187        1.930, 1.936, 1.942, 1.949, 1.955, 1.961, 1.968, 1.974, 1.980,&
13188        1.986, 1.992, 1.998, 2.004, 2.010, 2.016, 2.022, 2.028, 2.034,&
13189        2.040, 2.046, 2.052, 2.058, 2.063, 2.069, 2.075, 2.080, 2.086,&
13190        2.092, 2.097, 2.103, 2.108, 2.114, 2.119, 2.125, 2.130, 2.136,&
13191        2.141, 2.147, 2.152                                           &
13192        /
13193 !C
13194 !C **  (H,NO3)
13195 !C
13196       DATA BNC10M/                                                   &
13197       -0.045,-0.094,-0.116,-0.130,-0.140,-0.147,-0.153,-0.158,-0.162,&
13198       -0.165,-0.167,-0.169,-0.171,-0.172,-0.173,-0.173,-0.174,-0.174,&
13199       -0.174,-0.173,-0.173,-0.172,-0.172,-0.171,-0.170,-0.169,-0.168,&
13200       -0.167,-0.166,-0.165,-0.163,-0.162,-0.161,-0.159,-0.158,-0.156,&
13201       -0.155,-0.153,-0.152,-0.150,-0.148,-0.147,-0.145,-0.143,-0.142,&
13202       -0.140,-0.138,-0.136,-0.135,-0.133,-0.131,-0.129,-0.127,-0.126,&
13203       -0.124,-0.122,-0.120,-0.118,-0.117,-0.115,-0.113,-0.111,-0.109,&
13204       -0.107,-0.106,-0.104,-0.102,-0.100,-0.098,-0.096,-0.094,-0.092,&
13205       -0.090,-0.088,-0.086,-0.084,-0.083,-0.081,-0.079,-0.077,-0.074,&
13206       -0.072,-0.070,-0.068,-0.066,-0.064,-0.062,-0.060,-0.058,-0.056,&
13207       -0.053,-0.051,-0.049,-0.047,-0.045,-0.042,-0.040,-0.038,-0.036,&
13208       -0.033,-0.031,-0.029,-0.026,-0.024,-0.022,-0.019,-0.017,-0.015,&
13209       -0.012,-0.010,-0.008,-0.005,-0.003, 0.000, 0.002, 0.004, 0.007,&
13210        0.009, 0.012, 0.014, 0.017, 0.019, 0.022, 0.024, 0.026, 0.029,&
13211        0.031, 0.034, 0.036, 0.039, 0.041, 0.044, 0.046, 0.049, 0.051,&
13212        0.053, 0.056, 0.058, 0.061, 0.063, 0.066, 0.068, 0.071, 0.073,&
13213        0.075, 0.078, 0.080, 0.083, 0.085, 0.088, 0.090, 0.092, 0.095,&
13214        0.097, 0.100, 0.102, 0.105, 0.107, 0.109, 0.112, 0.114, 0.117,&
13215        0.119, 0.121, 0.124, 0.126, 0.129, 0.131, 0.133, 0.136, 0.138,&
13216        0.140, 0.143, 0.145, 0.148, 0.150, 0.152, 0.155, 0.157, 0.159,&
13217        0.162, 0.164, 0.166, 0.169, 0.171, 0.173, 0.176, 0.178, 0.180,&
13218        0.183, 0.185, 0.187, 0.190, 0.192, 0.194, 0.197, 0.199, 0.201,&
13219        0.204, 0.206, 0.208, 0.210, 0.213, 0.215, 0.217, 0.220, 0.222,&
13220        0.224, 0.226, 0.229, 0.231, 0.233, 0.235, 0.238, 0.240, 0.242,&
13221        0.244, 0.247, 0.249, 0.251, 0.253, 0.256, 0.258, 0.260, 0.262,&
13222        0.264, 0.267, 0.269, 0.271, 0.273, 0.275, 0.278, 0.280, 0.282,&
13223        0.284, 0.286, 0.288, 0.291, 0.293, 0.295, 0.297, 0.299, 0.301,&
13224        0.304, 0.306, 0.308, 0.310, 0.312, 0.314, 0.317, 0.319, 0.321,&
13225        0.323, 0.325, 0.327, 0.329, 0.331, 0.333, 0.336, 0.338, 0.340,&
13226        0.342, 0.344, 0.346, 0.348, 0.350, 0.352, 0.354, 0.356, 0.359,&
13227        0.361, 0.363, 0.365, 0.367, 0.369, 0.371, 0.373, 0.375, 0.377,&
13228        0.379, 0.381, 0.383, 0.385, 0.387, 0.389, 0.391, 0.393, 0.395,&
13229        0.397, 0.399, 0.401, 0.403, 0.405, 0.407, 0.409, 0.411, 0.413,&
13230        0.415, 0.417, 0.419, 0.421, 0.423, 0.425, 0.427, 0.429, 0.431,&
13231        0.433, 0.435, 0.437, 0.439, 0.441, 0.443, 0.445, 0.447, 0.449,&
13232        0.451, 0.453, 0.455, 0.456, 0.458, 0.460, 0.462, 0.464, 0.466,&
13233        0.468, 0.470, 0.472, 0.474, 0.476, 0.477, 0.479, 0.481, 0.483,&
13234        0.485, 0.487, 0.489, 0.491, 0.493, 0.494, 0.496, 0.498, 0.500,&
13235        0.502, 0.504, 0.506, 0.507, 0.509, 0.511, 0.513, 0.515, 0.517,&
13236        0.518, 0.520, 0.522, 0.524, 0.526, 0.528, 0.529, 0.531, 0.533,&
13237        0.535, 0.537, 0.539, 0.540, 0.542, 0.544, 0.546, 0.547, 0.549,&
13238        0.551, 0.553, 0.555, 0.556, 0.558, 0.560, 0.562, 0.564, 0.565,&
13239        0.567, 0.569, 0.571, 0.572, 0.574, 0.576, 0.578, 0.579, 0.581,&
13240        0.583, 0.585, 0.586, 0.588, 0.590, 0.592, 0.593, 0.595, 0.597,&
13241        0.598, 0.600, 0.602, 0.604, 0.622, 0.639, 0.655, 0.672, 0.688,&
13242        0.704, 0.719, 0.735, 0.750, 0.765, 0.780, 0.795, 0.809, 0.824,&
13243        0.838, 0.852, 0.866, 0.879, 0.893, 0.906, 0.919, 0.932, 0.945,&
13244        0.958, 0.971, 0.983, 0.996, 1.008, 1.020, 1.032, 1.044, 1.055,&
13245        1.067, 1.079, 1.090, 1.101, 1.112, 1.123, 1.134, 1.145, 1.156,&
13246        1.167, 1.177, 1.188, 1.198, 1.208, 1.218, 1.228, 1.238, 1.248,&
13247        1.258, 1.268, 1.278, 1.287, 1.297, 1.306, 1.315, 1.325, 1.334,&
13248        1.343, 1.352, 1.361, 1.370, 1.379, 1.387, 1.396, 1.405, 1.413,&
13249        1.422, 1.430, 1.438, 1.447, 1.455, 1.463, 1.471, 1.479, 1.487,&
13250        1.495, 1.503, 1.511, 1.519, 1.527, 1.534, 1.542, 1.550, 1.557,&
13251        1.565, 1.572, 1.579, 1.587, 1.594, 1.601, 1.608, 1.616, 1.623,&
13252        1.630, 1.637, 1.644, 1.651, 1.657, 1.664, 1.671, 1.678, 1.685,&
13253        1.691, 1.698, 1.704, 1.711, 1.718, 1.724, 1.730, 1.737, 1.743,&
13254        1.750, 1.756, 1.762, 1.768, 1.775, 1.781, 1.787, 1.793, 1.799,&
13255        1.805, 1.811, 1.817, 1.823, 1.829, 1.835, 1.841, 1.846, 1.852,&
13256        1.858, 1.864, 1.869, 1.875, 1.881, 1.886, 1.892, 1.897, 1.903,&
13257        1.908, 1.914, 1.919, 1.925, 1.930, 1.936, 1.941, 1.946, 1.952,&
13258        1.957, 1.962, 1.967, 1.972, 1.978, 1.983, 1.988, 1.993, 1.998,&
13259        2.003, 2.008, 2.013                                           &
13260        /
13261 !C
13262 !C **  (H,Cl)
13263 !C
13264       DATA BNC11M/                                                   &
13265       -0.044,-0.089,-0.107,-0.118,-0.125,-0.130,-0.133,-0.135,-0.136,&
13266       -0.136,-0.136,-0.135,-0.134,-0.132,-0.130,-0.128,-0.125,-0.122,&
13267       -0.119,-0.116,-0.113,-0.109,-0.105,-0.102,-0.098,-0.094,-0.089,&
13268       -0.085,-0.081,-0.076,-0.072,-0.067,-0.062,-0.057,-0.053,-0.048,&
13269       -0.043,-0.038,-0.033,-0.028,-0.022,-0.017,-0.012,-0.007,-0.001,&
13270        0.004, 0.009, 0.015, 0.020, 0.025, 0.031, 0.036, 0.042, 0.047,&
13271        0.053, 0.058, 0.064, 0.069, 0.075, 0.081, 0.086, 0.092, 0.097,&
13272        0.103, 0.109, 0.114, 0.120, 0.126, 0.132, 0.137, 0.143, 0.149,&
13273        0.155, 0.161, 0.167, 0.172, 0.178, 0.184, 0.190, 0.196, 0.202,&
13274        0.208, 0.214, 0.220, 0.227, 0.233, 0.239, 0.245, 0.251, 0.258,&
13275        0.264, 0.270, 0.277, 0.283, 0.290, 0.296, 0.303, 0.309, 0.316,&
13276        0.322, 0.329, 0.335, 0.342, 0.349, 0.355, 0.362, 0.369, 0.376,&
13277        0.382, 0.389, 0.396, 0.403, 0.409, 0.416, 0.423, 0.430, 0.437,&
13278        0.444, 0.450, 0.457, 0.464, 0.471, 0.478, 0.485, 0.491, 0.498,&
13279        0.505, 0.512, 0.519, 0.526, 0.533, 0.539, 0.546, 0.553, 0.560,&
13280        0.567, 0.573, 0.580, 0.587, 0.594, 0.601, 0.607, 0.614, 0.621,&
13281        0.628, 0.634, 0.641, 0.648, 0.654, 0.661, 0.668, 0.675, 0.681,&
13282        0.688, 0.694, 0.701, 0.708, 0.714, 0.721, 0.728, 0.734, 0.741,&
13283        0.747, 0.754, 0.760, 0.767, 0.773, 0.780, 0.786, 0.793, 0.799,&
13284        0.806, 0.812, 0.819, 0.825, 0.831, 0.838, 0.844, 0.850, 0.857,&
13285        0.863, 0.870, 0.876, 0.882, 0.888, 0.895, 0.901, 0.907, 0.914,&
13286        0.920, 0.926, 0.932, 0.938, 0.945, 0.951, 0.957, 0.963, 0.969,&
13287        0.975, 0.981, 0.988, 0.994, 1.000, 1.006, 1.012, 1.018, 1.024,&
13288        1.030, 1.036, 1.042, 1.048, 1.054, 1.060, 1.066, 1.072, 1.078,&
13289        1.084, 1.090, 1.096, 1.101, 1.107, 1.113, 1.119, 1.125, 1.131,&
13290        1.137, 1.142, 1.148, 1.154, 1.160, 1.165, 1.171, 1.177, 1.183,&
13291        1.188, 1.194, 1.200, 1.205, 1.211, 1.217, 1.222, 1.228, 1.234,&
13292        1.239, 1.245, 1.251, 1.256, 1.262, 1.267, 1.273, 1.278, 1.284,&
13293        1.289, 1.295, 1.300, 1.306, 1.311, 1.317, 1.322, 1.328, 1.333,&
13294        1.339, 1.344, 1.349, 1.355, 1.360, 1.366, 1.371, 1.376, 1.382,&
13295        1.387, 1.392, 1.398, 1.403, 1.408, 1.413, 1.419, 1.424, 1.429,&
13296        1.434, 1.440, 1.445, 1.450, 1.455, 1.460, 1.466, 1.471, 1.476,&
13297        1.481, 1.486, 1.491, 1.497, 1.502, 1.507, 1.512, 1.517, 1.522,&
13298        1.527, 1.532, 1.537, 1.542, 1.547, 1.552, 1.557, 1.562, 1.567,&
13299        1.572, 1.577, 1.582, 1.587, 1.592, 1.597, 1.602, 1.607, 1.612,&
13300        1.617, 1.622, 1.626, 1.631, 1.636, 1.641, 1.646, 1.651, 1.656,&
13301        1.660, 1.665, 1.670, 1.675, 1.680, 1.684, 1.689, 1.694, 1.699,&
13302        1.703, 1.708, 1.713, 1.718, 1.722, 1.727, 1.732, 1.736, 1.741,&
13303        1.746, 1.750, 1.755, 1.760, 1.764, 1.769, 1.774, 1.778, 1.783,&
13304        1.787, 1.792, 1.797, 1.801, 1.806, 1.810, 1.815, 1.819, 1.824,&
13305        1.828, 1.833, 1.838, 1.842, 1.847, 1.851, 1.855, 1.860, 1.864,&
13306        1.869, 1.873, 1.878, 1.882, 1.887, 1.891, 1.895, 1.900, 1.904,&
13307        1.909, 1.913, 1.917, 1.922, 1.926, 1.931, 1.935, 1.939, 1.944,&
13308        1.948, 1.952, 1.957, 1.961, 1.965, 1.969, 1.974, 1.978, 1.982,&
13309        1.987, 1.991, 1.995, 1.999, 2.045, 2.086, 2.127, 2.167, 2.206,&
13310        2.245, 2.284, 2.322, 2.359, 2.396, 2.432, 2.468, 2.503, 2.538,&
13311        2.572, 2.606, 2.639, 2.672, 2.705, 2.737, 2.769, 2.800, 2.831,&
13312        2.862, 2.892, 2.922, 2.952, 2.981, 3.010, 3.039, 3.067, 3.095,&
13313        3.123, 3.150, 3.178, 3.204, 3.231, 3.257, 3.283, 3.309, 3.335,&
13314        3.360, 3.385, 3.410, 3.435, 3.459, 3.483, 3.507, 3.531, 3.554,&
13315        3.577, 3.600, 3.623, 3.646, 3.668, 3.691, 3.713, 3.735, 3.756,&
13316        3.778, 3.799, 3.820, 3.841, 3.862, 3.883, 3.903, 3.924, 3.944,&
13317        3.964, 3.984, 4.003, 4.023, 4.043, 4.062, 4.081, 4.100, 4.119,&
13318        4.138, 4.156, 4.175, 4.193, 4.211, 4.229, 4.247, 4.265, 4.283,&
13319        4.300, 4.318, 4.335, 4.352, 4.369, 4.386, 4.403, 4.420, 4.437,&
13320        4.453, 4.470, 4.486, 4.503, 4.519, 4.535, 4.551, 4.567, 4.582,&
13321        4.598, 4.614, 4.629, 4.644, 4.660, 4.675, 4.690, 4.705, 4.720,&
13322        4.735, 4.750, 4.764, 4.779, 4.794, 4.808, 4.822, 4.837, 4.851,&
13323        4.865, 4.879, 4.893, 4.907, 4.921, 4.935, 4.948, 4.962, 4.975,&
13324        4.989, 5.002, 5.016, 5.029, 5.042, 5.055, 5.068, 5.081, 5.094,&
13325        5.107, 5.120, 5.133, 5.145, 5.158, 5.171, 5.183, 5.196, 5.208,&
13326        5.220, 5.233, 5.245, 5.257, 5.269, 5.281, 5.293, 5.305, 5.317,&
13327        5.329, 5.340, 5.352                                           &
13328        /
13329 !C
13330 !C **  NaHSO4
13331 !C
13332       DATA BNC12M/                                                   &
13333       -0.045,-0.094,-0.116,-0.130,-0.140,-0.148,-0.155,-0.160,-0.164,&
13334       -0.168,-0.170,-0.173,-0.174,-0.176,-0.177,-0.178,-0.178,-0.179,&
13335       -0.179,-0.178,-0.178,-0.177,-0.177,-0.176,-0.175,-0.174,-0.172,&
13336       -0.171,-0.170,-0.168,-0.166,-0.164,-0.162,-0.160,-0.158,-0.156,&
13337       -0.154,-0.152,-0.149,-0.147,-0.144,-0.142,-0.139,-0.136,-0.134,&
13338       -0.131,-0.128,-0.125,-0.122,-0.119,-0.116,-0.113,-0.110,-0.107,&
13339       -0.103,-0.100,-0.097,-0.094,-0.090,-0.087,-0.084,-0.080,-0.077,&
13340       -0.073,-0.070,-0.066,-0.063,-0.059,-0.055,-0.052,-0.048,-0.044,&
13341       -0.040,-0.037,-0.033,-0.029,-0.025,-0.021,-0.017,-0.013,-0.010,&
13342       -0.006,-0.002, 0.003, 0.007, 0.011, 0.015, 0.019, 0.023, 0.027,&
13343        0.032, 0.036, 0.040, 0.045, 0.049, 0.053, 0.058, 0.062, 0.066,&
13344        0.071, 0.075, 0.080, 0.084, 0.089, 0.094, 0.098, 0.103, 0.107,&
13345        0.112, 0.116, 0.121, 0.126, 0.130, 0.135, 0.140, 0.144, 0.149,&
13346        0.154, 0.158, 0.163, 0.168, 0.172, 0.177, 0.182, 0.186, 0.191,&
13347        0.196, 0.200, 0.205, 0.210, 0.215, 0.219, 0.224, 0.229, 0.233,&
13348        0.238, 0.242, 0.247, 0.252, 0.256, 0.261, 0.266, 0.270, 0.275,&
13349        0.279, 0.284, 0.289, 0.293, 0.298, 0.302, 0.307, 0.311, 0.316,&
13350        0.320, 0.325, 0.329, 0.334, 0.338, 0.343, 0.347, 0.352, 0.356,&
13351        0.361, 0.365, 0.370, 0.374, 0.379, 0.383, 0.387, 0.392, 0.396,&
13352        0.400, 0.405, 0.409, 0.414, 0.418, 0.422, 0.427, 0.431, 0.435,&
13353        0.440, 0.444, 0.448, 0.452, 0.457, 0.461, 0.465, 0.469, 0.474,&
13354        0.478, 0.482, 0.486, 0.490, 0.495, 0.499, 0.503, 0.507, 0.511,&
13355        0.515, 0.520, 0.524, 0.528, 0.532, 0.536, 0.540, 0.544, 0.548,&
13356        0.552, 0.556, 0.561, 0.565, 0.569, 0.573, 0.577, 0.581, 0.585,&
13357        0.589, 0.593, 0.597, 0.601, 0.605, 0.609, 0.613, 0.616, 0.620,&
13358        0.624, 0.628, 0.632, 0.636, 0.640, 0.644, 0.648, 0.652, 0.655,&
13359        0.659, 0.663, 0.667, 0.671, 0.675, 0.679, 0.682, 0.686, 0.690,&
13360        0.694, 0.697, 0.701, 0.705, 0.709, 0.713, 0.716, 0.720, 0.724,&
13361        0.728, 0.731, 0.735, 0.739, 0.742, 0.746, 0.750, 0.753, 0.757,&
13362        0.761, 0.764, 0.768, 0.772, 0.775, 0.779, 0.783, 0.786, 0.790,&
13363        0.793, 0.797, 0.801, 0.804, 0.808, 0.811, 0.815, 0.818, 0.822,&
13364        0.825, 0.829, 0.833, 0.836, 0.840, 0.843, 0.847, 0.850, 0.854,&
13365        0.857, 0.861, 0.864, 0.867, 0.871, 0.874, 0.878, 0.881, 0.885,&
13366        0.888, 0.892, 0.895, 0.898, 0.902, 0.905, 0.909, 0.912, 0.915,&
13367        0.919, 0.922, 0.925, 0.929, 0.932, 0.935, 0.939, 0.942, 0.945,&
13368        0.949, 0.952, 0.955, 0.959, 0.962, 0.965, 0.969, 0.972, 0.975,&
13369        0.978, 0.982, 0.985, 0.988, 0.991, 0.995, 0.998, 1.001, 1.004,&
13370        1.008, 1.011, 1.014, 1.017, 1.020, 1.024, 1.027, 1.030, 1.033,&
13371        1.036, 1.039, 1.043, 1.046, 1.049, 1.052, 1.055, 1.058, 1.061,&
13372        1.065, 1.068, 1.071, 1.074, 1.077, 1.080, 1.083, 1.086, 1.089,&
13373        1.092, 1.096, 1.099, 1.102, 1.105, 1.108, 1.111, 1.114, 1.117,&
13374        1.120, 1.123, 1.126, 1.129, 1.132, 1.135, 1.138, 1.141, 1.144,&
13375        1.147, 1.150, 1.153, 1.156, 1.159, 1.162, 1.165, 1.168, 1.171,&
13376        1.174, 1.177, 1.180, 1.183, 1.185, 1.188, 1.191, 1.194, 1.197,&
13377        1.200, 1.203, 1.206, 1.209, 1.240, 1.268, 1.296, 1.323, 1.350,&
13378        1.377, 1.403, 1.429, 1.454, 1.480, 1.505, 1.529, 1.553, 1.577,&
13379        1.601, 1.624, 1.647, 1.670, 1.692, 1.715, 1.737, 1.758, 1.780,&
13380        1.801, 1.822, 1.843, 1.863, 1.883, 1.903, 1.923, 1.943, 1.962,&
13381        1.981, 2.000, 2.019, 2.038, 2.056, 2.075, 2.093, 2.111, 2.128,&
13382        2.146, 2.163, 2.181, 2.198, 2.215, 2.231, 2.248, 2.264, 2.281,&
13383        2.297, 2.313, 2.329, 2.345, 2.360, 2.376, 2.391, 2.406, 2.422,&
13384        2.437, 2.451, 2.466, 2.481, 2.495, 2.510, 2.524, 2.538, 2.552,&
13385        2.566, 2.580, 2.594, 2.608, 2.621, 2.635, 2.648, 2.661, 2.674,&
13386        2.687, 2.700, 2.713, 2.726, 2.739, 2.751, 2.764, 2.776, 2.789,&
13387        2.801, 2.813, 2.825, 2.838, 2.850, 2.861, 2.873, 2.885, 2.897,&
13388        2.908, 2.920, 2.931, 2.943, 2.954, 2.965, 2.976, 2.987, 2.998,&
13389        3.009, 3.020, 3.031, 3.042, 3.053, 3.063, 3.074, 3.084, 3.095,&
13390        3.105, 3.116, 3.126, 3.136, 3.146, 3.156, 3.166, 3.176, 3.186,&
13391        3.196, 3.206, 3.216, 3.226, 3.235, 3.245, 3.255, 3.264, 3.274,&
13392        3.283, 3.292, 3.302, 3.311, 3.320, 3.330, 3.339, 3.348, 3.357,&
13393        3.366, 3.375, 3.384, 3.393, 3.402, 3.410, 3.419, 3.428, 3.437,&
13394        3.445, 3.454, 3.462, 3.471, 3.479, 3.488, 3.496, 3.505, 3.513,&
13395        3.521, 3.529, 3.538                                           &
13396        /
13397 !C
13398 !C **  (NH4)3H(SO4)2
13399 !C
13400       DATA BNC13M/                                                   &
13401       -0.074,-0.160,-0.203,-0.233,-0.256,-0.275,-0.291,-0.306,-0.318,&
13402       -0.329,-0.339,-0.349,-0.357,-0.365,-0.372,-0.379,-0.386,-0.392,&
13403       -0.397,-0.402,-0.407,-0.412,-0.417,-0.421,-0.425,-0.429,-0.433,&
13404       -0.436,-0.439,-0.443,-0.446,-0.448,-0.451,-0.454,-0.456,-0.459,&
13405       -0.461,-0.463,-0.466,-0.468,-0.470,-0.471,-0.473,-0.475,-0.477,&
13406       -0.478,-0.480,-0.481,-0.482,-0.484,-0.485,-0.486,-0.487,-0.488,&
13407       -0.489,-0.490,-0.491,-0.492,-0.493,-0.494,-0.495,-0.496,-0.496,&
13408       -0.497,-0.498,-0.498,-0.499,-0.499,-0.500,-0.500,-0.501,-0.501,&
13409       -0.501,-0.502,-0.502,-0.502,-0.503,-0.503,-0.503,-0.503,-0.503,&
13410       -0.504,-0.504,-0.504,-0.504,-0.504,-0.504,-0.504,-0.504,-0.504,&
13411       -0.504,-0.504,-0.504,-0.504,-0.504,-0.503,-0.503,-0.503,-0.503,&
13412       -0.503,-0.503,-0.502,-0.502,-0.502,-0.502,-0.501,-0.501,-0.501,&
13413       -0.501,-0.500,-0.500,-0.500,-0.499,-0.499,-0.498,-0.498,-0.498,&
13414       -0.497,-0.497,-0.497,-0.496,-0.496,-0.495,-0.495,-0.494,-0.494,&
13415       -0.494,-0.493,-0.493,-0.492,-0.492,-0.491,-0.491,-0.490,-0.490,&
13416       -0.489,-0.489,-0.488,-0.488,-0.487,-0.487,-0.486,-0.486,-0.485,&
13417       -0.485,-0.484,-0.484,-0.483,-0.483,-0.482,-0.482,-0.481,-0.481,&
13418       -0.480,-0.479,-0.479,-0.478,-0.478,-0.477,-0.477,-0.476,-0.476,&
13419       -0.475,-0.475,-0.474,-0.473,-0.473,-0.472,-0.472,-0.471,-0.471,&
13420       -0.470,-0.470,-0.469,-0.468,-0.468,-0.467,-0.467,-0.466,-0.466,&
13421       -0.465,-0.464,-0.464,-0.463,-0.463,-0.462,-0.462,-0.461,-0.461,&
13422       -0.460,-0.459,-0.459,-0.458,-0.458,-0.457,-0.457,-0.456,-0.455,&
13423       -0.455,-0.454,-0.454,-0.453,-0.453,-0.452,-0.451,-0.451,-0.450,&
13424       -0.450,-0.449,-0.449,-0.448,-0.447,-0.447,-0.446,-0.446,-0.445,&
13425       -0.445,-0.444,-0.443,-0.443,-0.442,-0.442,-0.441,-0.441,-0.440,&
13426       -0.440,-0.439,-0.438,-0.438,-0.437,-0.437,-0.436,-0.436,-0.435,&
13427       -0.434,-0.434,-0.433,-0.433,-0.432,-0.432,-0.431,-0.431,-0.430,&
13428       -0.429,-0.429,-0.428,-0.428,-0.427,-0.427,-0.426,-0.426,-0.425,&
13429       -0.424,-0.424,-0.423,-0.423,-0.422,-0.422,-0.421,-0.421,-0.420,&
13430       -0.419,-0.419,-0.418,-0.418,-0.417,-0.417,-0.416,-0.416,-0.415,&
13431       -0.415,-0.414,-0.413,-0.413,-0.412,-0.412,-0.411,-0.411,-0.410,&
13432       -0.410,-0.409,-0.409,-0.408,-0.408,-0.407,-0.406,-0.406,-0.405,&
13433       -0.405,-0.404,-0.404,-0.403,-0.403,-0.402,-0.402,-0.401,-0.401,&
13434       -0.400,-0.399,-0.399,-0.398,-0.398,-0.397,-0.397,-0.396,-0.396,&
13435       -0.395,-0.395,-0.394,-0.394,-0.393,-0.393,-0.392,-0.392,-0.391,&
13436       -0.391,-0.390,-0.390,-0.389,-0.388,-0.388,-0.387,-0.387,-0.386,&
13437       -0.386,-0.385,-0.385,-0.384,-0.384,-0.383,-0.383,-0.382,-0.382,&
13438       -0.381,-0.381,-0.380,-0.380,-0.379,-0.379,-0.378,-0.378,-0.377,&
13439       -0.377,-0.376,-0.376,-0.375,-0.375,-0.374,-0.374,-0.373,-0.373,&
13440       -0.372,-0.372,-0.371,-0.371,-0.370,-0.370,-0.369,-0.369,-0.368,&
13441       -0.368,-0.367,-0.367,-0.366,-0.366,-0.365,-0.365,-0.364,-0.364,&
13442       -0.363,-0.363,-0.362,-0.362,-0.361,-0.361,-0.360,-0.360,-0.359,&
13443       -0.359,-0.358,-0.358,-0.357,-0.357,-0.356,-0.356,-0.355,-0.355,&
13444       -0.354,-0.354,-0.353,-0.353,-0.352,-0.352,-0.352,-0.351,-0.351,&
13445       -0.350,-0.350,-0.349,-0.349,-0.344,-0.339,-0.334,-0.330,-0.325,&
13446       -0.321,-0.316,-0.312,-0.307,-0.303,-0.299,-0.295,-0.290,-0.286,&
13447       -0.282,-0.278,-0.274,-0.270,-0.266,-0.262,-0.258,-0.255,-0.251,&
13448       -0.247,-0.243,-0.240,-0.236,-0.232,-0.229,-0.225,-0.222,-0.218,&
13449       -0.215,-0.211,-0.208,-0.204,-0.201,-0.198,-0.194,-0.191,-0.188,&
13450       -0.185,-0.182,-0.178,-0.175,-0.172,-0.169,-0.166,-0.163,-0.160,&
13451       -0.157,-0.154,-0.151,-0.148,-0.145,-0.142,-0.139,-0.137,-0.134,&
13452       -0.131,-0.128,-0.125,-0.123,-0.120,-0.117,-0.115,-0.112,-0.109,&
13453       -0.107,-0.104,-0.101,-0.099,-0.096,-0.094,-0.091,-0.089,-0.086,&
13454       -0.084,-0.081,-0.079,-0.076,-0.074,-0.071,-0.069,-0.067,-0.064,&
13455       -0.062,-0.060,-0.057,-0.055,-0.053,-0.050,-0.048,-0.046,-0.043,&
13456       -0.041,-0.039,-0.037,-0.035,-0.032,-0.030,-0.028,-0.026,-0.024,&
13457       -0.022,-0.020,-0.017,-0.015,-0.013,-0.011,-0.009,-0.007,-0.005,&
13458       -0.003,-0.001, 0.001, 0.003, 0.005, 0.007, 0.009, 0.011, 0.013,&
13459        0.015, 0.017, 0.019, 0.021, 0.022, 0.024, 0.026, 0.028, 0.030,&
13460        0.032, 0.034, 0.036, 0.037, 0.039, 0.041, 0.043, 0.045, 0.046,&
13461        0.048, 0.050, 0.052, 0.053, 0.055, 0.057, 0.059, 0.060, 0.062,&
13462        0.064, 0.066, 0.067, 0.069, 0.071, 0.072, 0.074, 0.076, 0.077,&
13463        0.079, 0.081, 0.082                                           &
13464        /
13465 !C
13466 !C **  CASO4
13467 !C
13468       DATA BNC14M/                                                   &
13469        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13470        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13471        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13472        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13473        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13474        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13475        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13476        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13477        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13478        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13479        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13480        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13481        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13482        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13483        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13484        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13485        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13486        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13487        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13488        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13489        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13490        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13491        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13492        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13493        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13494        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13495        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13496        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13497        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13498        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13499        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13500        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13501        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13502        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13503        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13504        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13505        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13506        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13507        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13508        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13509        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13510        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13511        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13512        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13513        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13514        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13515        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13516        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13517        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13518        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13519        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13520        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13521        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13522        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13523        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13524        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13525        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13526        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13527        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13528        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13529        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13530        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
13531        0.000, 0.000, 0.000                                           &
13532        /
13533 !C
13534 !C **  CANO32
13535 !C
13536       DATA BNC15M/                                                   &
13537       -0.092,-0.196,-0.245,-0.279,-0.304,-0.325,-0.342,-0.356,-0.368,&
13538       -0.379,-0.389,-0.397,-0.405,-0.412,-0.418,-0.424,-0.429,-0.433,&
13539       -0.438,-0.442,-0.445,-0.448,-0.452,-0.454,-0.457,-0.459,-0.462,&
13540       -0.464,-0.466,-0.467,-0.469,-0.470,-0.472,-0.473,-0.474,-0.475,&
13541       -0.476,-0.477,-0.478,-0.479,-0.480,-0.480,-0.481,-0.482,-0.482,&
13542       -0.483,-0.483,-0.483,-0.484,-0.484,-0.484,-0.484,-0.485,-0.485,&
13543       -0.485,-0.485,-0.485,-0.485,-0.485,-0.485,-0.485,-0.485,-0.485,&
13544       -0.485,-0.485,-0.484,-0.484,-0.484,-0.484,-0.484,-0.483,-0.483,&
13545       -0.483,-0.482,-0.482,-0.482,-0.481,-0.481,-0.480,-0.480,-0.479,&
13546       -0.479,-0.478,-0.478,-0.477,-0.477,-0.476,-0.475,-0.475,-0.474,&
13547       -0.474,-0.473,-0.472,-0.471,-0.471,-0.470,-0.469,-0.468,-0.467,&
13548       -0.467,-0.466,-0.465,-0.464,-0.463,-0.462,-0.461,-0.460,-0.459,&
13549       -0.459,-0.458,-0.457,-0.456,-0.455,-0.454,-0.453,-0.452,-0.451,&
13550       -0.450,-0.448,-0.447,-0.446,-0.445,-0.444,-0.443,-0.442,-0.441,&
13551       -0.440,-0.439,-0.438,-0.437,-0.436,-0.434,-0.433,-0.432,-0.431,&
13552       -0.430,-0.429,-0.428,-0.427,-0.425,-0.424,-0.423,-0.422,-0.421,&
13553       -0.420,-0.419,-0.417,-0.416,-0.415,-0.414,-0.413,-0.412,-0.411,&
13554       -0.409,-0.408,-0.407,-0.406,-0.405,-0.404,-0.402,-0.401,-0.400,&
13555       -0.399,-0.398,-0.397,-0.395,-0.394,-0.393,-0.392,-0.391,-0.390,&
13556       -0.388,-0.387,-0.386,-0.385,-0.384,-0.383,-0.381,-0.380,-0.379,&
13557       -0.378,-0.377,-0.376,-0.374,-0.373,-0.372,-0.371,-0.370,-0.369,&
13558       -0.367,-0.366,-0.365,-0.364,-0.363,-0.361,-0.360,-0.359,-0.358,&
13559       -0.357,-0.356,-0.354,-0.353,-0.352,-0.351,-0.350,-0.349,-0.347,&
13560       -0.346,-0.345,-0.344,-0.343,-0.342,-0.341,-0.339,-0.338,-0.337,&
13561       -0.336,-0.335,-0.334,-0.332,-0.331,-0.330,-0.329,-0.328,-0.327,&
13562       -0.325,-0.324,-0.323,-0.322,-0.321,-0.320,-0.319,-0.317,-0.316,&
13563       -0.315,-0.314,-0.313,-0.312,-0.311,-0.309,-0.308,-0.307,-0.306,&
13564       -0.305,-0.304,-0.303,-0.301,-0.300,-0.299,-0.298,-0.297,-0.296,&
13565       -0.295,-0.294,-0.292,-0.291,-0.290,-0.289,-0.288,-0.287,-0.286,&
13566       -0.285,-0.283,-0.282,-0.281,-0.280,-0.279,-0.278,-0.277,-0.276,&
13567       -0.275,-0.273,-0.272,-0.271,-0.270,-0.269,-0.268,-0.267,-0.266,&
13568       -0.265,-0.263,-0.262,-0.261,-0.260,-0.259,-0.258,-0.257,-0.256,&
13569       -0.255,-0.254,-0.253,-0.251,-0.250,-0.249,-0.248,-0.247,-0.246,&
13570       -0.245,-0.244,-0.243,-0.242,-0.241,-0.240,-0.238,-0.237,-0.236,&
13571       -0.235,-0.234,-0.233,-0.232,-0.231,-0.230,-0.229,-0.228,-0.227,&
13572       -0.226,-0.225,-0.224,-0.222,-0.221,-0.220,-0.219,-0.218,-0.217,&
13573       -0.216,-0.215,-0.214,-0.213,-0.212,-0.211,-0.210,-0.209,-0.208,&
13574       -0.207,-0.206,-0.205,-0.204,-0.203,-0.202,-0.201,-0.200,-0.198,&
13575       -0.197,-0.196,-0.195,-0.194,-0.193,-0.192,-0.191,-0.190,-0.189,&
13576       -0.188,-0.187,-0.186,-0.185,-0.184,-0.183,-0.182,-0.181,-0.180,&
13577       -0.179,-0.178,-0.177,-0.176,-0.175,-0.174,-0.173,-0.172,-0.171,&
13578       -0.170,-0.169,-0.168,-0.167,-0.166,-0.165,-0.164,-0.163,-0.162,&
13579       -0.161,-0.160,-0.159,-0.158,-0.157,-0.156,-0.155,-0.154,-0.153,&
13580       -0.152,-0.151,-0.150,-0.149,-0.148,-0.147,-0.146,-0.145,-0.144,&
13581       -0.143,-0.142,-0.141,-0.140,-0.130,-0.121,-0.111,-0.102,-0.093,&
13582       -0.083,-0.074,-0.066,-0.057,-0.048,-0.039,-0.031,-0.022,-0.014,&
13583       -0.006, 0.003, 0.011, 0.019, 0.027, 0.035, 0.043, 0.050, 0.058,&
13584        0.066, 0.073, 0.081, 0.088, 0.095, 0.103, 0.110, 0.117, 0.124,&
13585        0.131, 0.138, 0.145, 0.152, 0.159, 0.165, 0.172, 0.179, 0.185,&
13586        0.192, 0.198, 0.205, 0.211, 0.217, 0.223, 0.230, 0.236, 0.242,&
13587        0.248, 0.254, 0.260, 0.266, 0.272, 0.278, 0.283, 0.289, 0.295,&
13588        0.301, 0.306, 0.312, 0.317, 0.323, 0.328, 0.334, 0.339, 0.345,&
13589        0.350, 0.355, 0.360, 0.366, 0.371, 0.376, 0.381, 0.386, 0.391,&
13590        0.396, 0.401, 0.406, 0.411, 0.416, 0.421, 0.426, 0.431, 0.435,&
13591        0.440, 0.445, 0.449, 0.454, 0.459, 0.463, 0.468, 0.472, 0.477,&
13592        0.482, 0.486, 0.490, 0.495, 0.499, 0.504, 0.508, 0.512, 0.517,&
13593        0.521, 0.525, 0.529, 0.534, 0.538, 0.542, 0.546, 0.550, 0.554,&
13594        0.559, 0.563, 0.567, 0.571, 0.575, 0.579, 0.583, 0.587, 0.590,&
13595        0.594, 0.598, 0.602, 0.606, 0.610, 0.614, 0.617, 0.621, 0.625,&
13596        0.629, 0.632, 0.636, 0.640, 0.643, 0.647, 0.651, 0.654, 0.658,&
13597        0.661, 0.665, 0.669, 0.672, 0.676, 0.679, 0.683, 0.686, 0.690,&
13598        0.693, 0.696, 0.700, 0.703, 0.707, 0.710, 0.713, 0.717, 0.720,&
13599        0.723, 0.727, 0.730                                           &
13600        /
13601 !C
13602 !C **  CACL2
13603 !C
13604       DATA BNC16M/                                                   &
13605       -0.091,-0.188,-0.233,-0.261,-0.282,-0.298,-0.310,-0.320,-0.328,&
13606       -0.335,-0.340,-0.345,-0.348,-0.351,-0.353,-0.355,-0.356,-0.356,&
13607       -0.357,-0.357,-0.356,-0.356,-0.355,-0.354,-0.353,-0.351,-0.350,&
13608       -0.348,-0.346,-0.344,-0.342,-0.340,-0.337,-0.335,-0.333,-0.330,&
13609       -0.327,-0.325,-0.322,-0.319,-0.316,-0.314,-0.311,-0.308,-0.305,&
13610       -0.302,-0.299,-0.296,-0.293,-0.290,-0.287,-0.283,-0.280,-0.277,&
13611       -0.274,-0.271,-0.268,-0.264,-0.261,-0.258,-0.255,-0.252,-0.248,&
13612       -0.245,-0.242,-0.238,-0.235,-0.232,-0.228,-0.225,-0.222,-0.218,&
13613       -0.215,-0.211,-0.208,-0.204,-0.201,-0.197,-0.194,-0.190,-0.187,&
13614       -0.183,-0.179,-0.176,-0.172,-0.168,-0.164,-0.161,-0.157,-0.153,&
13615       -0.149,-0.145,-0.141,-0.137,-0.133,-0.129,-0.125,-0.121,-0.117,&
13616       -0.113,-0.109,-0.105,-0.101,-0.096,-0.092,-0.088,-0.084,-0.080,&
13617       -0.075,-0.071,-0.067,-0.062,-0.058,-0.054,-0.049,-0.045,-0.041,&
13618       -0.036,-0.032,-0.027,-0.023,-0.019,-0.014,-0.010,-0.005,-0.001,&
13619        0.003, 0.008, 0.012, 0.017, 0.021, 0.026, 0.030, 0.034, 0.039,&
13620        0.043, 0.048, 0.052, 0.057, 0.061, 0.065, 0.070, 0.074, 0.079,&
13621        0.083, 0.087, 0.092, 0.096, 0.101, 0.105, 0.109, 0.114, 0.118,&
13622        0.123, 0.127, 0.131, 0.136, 0.140, 0.144, 0.149, 0.153, 0.157,&
13623        0.162, 0.166, 0.170, 0.175, 0.179, 0.183, 0.188, 0.192, 0.196,&
13624        0.201, 0.205, 0.209, 0.214, 0.218, 0.222, 0.226, 0.231, 0.235,&
13625        0.239, 0.243, 0.248, 0.252, 0.256, 0.260, 0.265, 0.269, 0.273,&
13626        0.277, 0.281, 0.286, 0.290, 0.294, 0.298, 0.302, 0.306, 0.311,&
13627        0.315, 0.319, 0.323, 0.327, 0.331, 0.336, 0.340, 0.344, 0.348,&
13628        0.352, 0.356, 0.360, 0.364, 0.368, 0.372, 0.377, 0.381, 0.385,&
13629        0.389, 0.393, 0.397, 0.401, 0.405, 0.409, 0.413, 0.417, 0.421,&
13630        0.425, 0.429, 0.433, 0.437, 0.441, 0.445, 0.449, 0.453, 0.457,&
13631        0.461, 0.465, 0.469, 0.473, 0.477, 0.481, 0.485, 0.488, 0.492,&
13632        0.496, 0.500, 0.504, 0.508, 0.512, 0.516, 0.520, 0.524, 0.527,&
13633        0.531, 0.535, 0.539, 0.543, 0.547, 0.550, 0.554, 0.558, 0.562,&
13634        0.566, 0.570, 0.573, 0.577, 0.581, 0.585, 0.588, 0.592, 0.596,&
13635        0.600, 0.604, 0.607, 0.611, 0.615, 0.618, 0.622, 0.626, 0.630,&
13636        0.633, 0.637, 0.641, 0.644, 0.648, 0.652, 0.656, 0.659, 0.663,&
13637        0.667, 0.670, 0.674, 0.677, 0.681, 0.685, 0.688, 0.692, 0.696,&
13638        0.699, 0.703, 0.706, 0.710, 0.714, 0.717, 0.721, 0.724, 0.728,&
13639        0.732, 0.735, 0.739, 0.742, 0.746, 0.749, 0.753, 0.756, 0.760,&
13640        0.763, 0.767, 0.770, 0.774, 0.777, 0.781, 0.784, 0.788, 0.791,&
13641        0.795, 0.798, 0.802, 0.805, 0.809, 0.812, 0.816, 0.819, 0.823,&
13642        0.826, 0.829, 0.833, 0.836, 0.840, 0.843, 0.846, 0.850, 0.853,&
13643        0.857, 0.860, 0.863, 0.867, 0.870, 0.873, 0.877, 0.880, 0.884,&
13644        0.887, 0.890, 0.894, 0.897, 0.900, 0.904, 0.907, 0.910, 0.913,&
13645        0.917, 0.920, 0.923, 0.927, 0.930, 0.933, 0.936, 0.940, 0.943,&
13646        0.946, 0.950, 0.953, 0.956, 0.959, 0.963, 0.966, 0.969, 0.972,&
13647        0.975, 0.979, 0.982, 0.985, 0.988, 0.991, 0.995, 0.998, 1.001,&
13648        1.004, 1.007, 1.011, 1.014, 1.017, 1.020, 1.023, 1.026, 1.029,&
13649        1.033, 1.036, 1.039, 1.042, 1.076, 1.106, 1.136, 1.166, 1.195,&
13650        1.224, 1.253, 1.281, 1.309, 1.337, 1.364, 1.391, 1.417, 1.444,&
13651        1.470, 1.495, 1.521, 1.546, 1.570, 1.595, 1.619, 1.643, 1.667,&
13652        1.690, 1.713, 1.736, 1.759, 1.781, 1.803, 1.825, 1.847, 1.868,&
13653        1.890, 1.911, 1.932, 1.952, 1.973, 1.993, 2.013, 2.033, 2.053,&
13654        2.072, 2.092, 2.111, 2.130, 2.149, 2.167, 2.186, 2.204, 2.222,&
13655        2.240, 2.258, 2.276, 2.293, 2.311, 2.328, 2.345, 2.362, 2.379,&
13656        2.396, 2.412, 2.429, 2.445, 2.461, 2.478, 2.493, 2.509, 2.525,&
13657        2.541, 2.556, 2.572, 2.587, 2.602, 2.617, 2.632, 2.647, 2.661,&
13658        2.676, 2.691, 2.705, 2.719, 2.734, 2.748, 2.762, 2.776, 2.789,&
13659        2.803, 2.817, 2.830, 2.844, 2.857, 2.871, 2.884, 2.897, 2.910,&
13660        2.923, 2.936, 2.949, 2.961, 2.974, 2.987, 2.999, 3.012, 3.024,&
13661        3.036, 3.048, 3.061, 3.073, 3.085, 3.097, 3.108, 3.120, 3.132,&
13662        3.144, 3.155, 3.167, 3.178, 3.190, 3.201, 3.212, 3.224, 3.235,&
13663        3.246, 3.257, 3.268, 3.279, 3.290, 3.300, 3.311, 3.322, 3.333,&
13664        3.343, 3.354, 3.364, 3.375, 3.385, 3.395, 3.406, 3.416, 3.426,&
13665        3.436, 3.446, 3.456, 3.466, 3.476, 3.486, 3.496, 3.506, 3.515,&
13666        3.525, 3.535, 3.544, 3.554, 3.563, 3.573, 3.582, 3.592, 3.601,&
13667        3.610, 3.620, 3.629                                           &
13668        /
13669 !C
13670 !C **  K2SO4
13671 !C
13672       DATA BNC17M/                                                   &
13673       -0.093,-0.203,-0.257,-0.296,-0.326,-0.351,-0.372,-0.391,-0.408,&
13674       -0.423,-0.436,-0.449,-0.460,-0.471,-0.481,-0.491,-0.500,-0.508,&
13675       -0.516,-0.524,-0.531,-0.538,-0.545,-0.552,-0.558,-0.564,-0.569,&
13676       -0.575,-0.580,-0.585,-0.590,-0.595,-0.600,-0.605,-0.609,-0.613,&
13677       -0.618,-0.622,-0.626,-0.629,-0.633,-0.637,-0.641,-0.644,-0.648,&
13678       -0.651,-0.654,-0.658,-0.661,-0.664,-0.667,-0.670,-0.673,-0.676,&
13679       -0.678,-0.681,-0.684,-0.687,-0.689,-0.692,-0.694,-0.697,-0.699,&
13680       -0.702,-0.704,-0.707,-0.709,-0.711,-0.713,-0.716,-0.718,-0.720,&
13681       -0.722,-0.724,-0.726,-0.728,-0.730,-0.732,-0.734,-0.736,-0.738,&
13682       -0.740,-0.742,-0.744,-0.746,-0.748,-0.749,-0.751,-0.753,-0.755,&
13683       -0.756,-0.758,-0.760,-0.762,-0.763,-0.765,-0.767,-0.768,-0.770,&
13684       -0.772,-0.773,-0.775,-0.776,-0.778,-0.779,-0.781,-0.782,-0.784,&
13685       -0.786,-0.787,-0.788,-0.790,-0.791,-0.793,-0.794,-0.796,-0.797,&
13686       -0.799,-0.800,-0.801,-0.803,-0.804,-0.805,-0.807,-0.808,-0.809,&
13687       -0.811,-0.812,-0.813,-0.815,-0.816,-0.817,-0.819,-0.820,-0.821,&
13688       -0.822,-0.824,-0.825,-0.826,-0.827,-0.828,-0.830,-0.831,-0.832,&
13689       -0.833,-0.834,-0.835,-0.837,-0.838,-0.839,-0.840,-0.841,-0.842,&
13690       -0.843,-0.844,-0.846,-0.847,-0.848,-0.849,-0.850,-0.851,-0.852,&
13691       -0.853,-0.854,-0.855,-0.856,-0.857,-0.858,-0.859,-0.860,-0.861,&
13692       -0.862,-0.863,-0.864,-0.865,-0.866,-0.867,-0.868,-0.869,-0.870,&
13693       -0.871,-0.872,-0.873,-0.874,-0.875,-0.876,-0.877,-0.878,-0.878,&
13694       -0.879,-0.880,-0.881,-0.882,-0.883,-0.884,-0.885,-0.886,-0.886,&
13695       -0.887,-0.888,-0.889,-0.890,-0.891,-0.892,-0.893,-0.893,-0.894,&
13696       -0.895,-0.896,-0.897,-0.898,-0.898,-0.899,-0.900,-0.901,-0.902,&
13697       -0.902,-0.903,-0.904,-0.905,-0.906,-0.906,-0.907,-0.908,-0.909,&
13698       -0.910,-0.910,-0.911,-0.912,-0.913,-0.913,-0.914,-0.915,-0.916,&
13699       -0.916,-0.917,-0.918,-0.919,-0.919,-0.920,-0.921,-0.922,-0.922,&
13700       -0.923,-0.924,-0.924,-0.925,-0.926,-0.927,-0.927,-0.928,-0.929,&
13701       -0.929,-0.930,-0.931,-0.931,-0.932,-0.933,-0.933,-0.934,-0.935,&
13702       -0.936,-0.936,-0.937,-0.938,-0.938,-0.939,-0.940,-0.940,-0.941,&
13703       -0.941,-0.942,-0.943,-0.943,-0.944,-0.945,-0.945,-0.946,-0.947,&
13704       -0.947,-0.948,-0.949,-0.949,-0.950,-0.950,-0.951,-0.952,-0.952,&
13705       -0.953,-0.954,-0.954,-0.955,-0.955,-0.956,-0.957,-0.957,-0.958,&
13706       -0.958,-0.959,-0.960,-0.960,-0.961,-0.961,-0.962,-0.962,-0.963,&
13707       -0.964,-0.964,-0.965,-0.965,-0.966,-0.967,-0.967,-0.968,-0.968,&
13708       -0.969,-0.969,-0.970,-0.970,-0.971,-0.972,-0.972,-0.973,-0.973,&
13709       -0.974,-0.974,-0.975,-0.975,-0.976,-0.977,-0.977,-0.978,-0.978,&
13710       -0.979,-0.979,-0.980,-0.980,-0.981,-0.981,-0.982,-0.982,-0.983,&
13711       -0.983,-0.984,-0.984,-0.985,-0.986,-0.986,-0.987,-0.987,-0.988,&
13712       -0.988,-0.989,-0.989,-0.990,-0.990,-0.991,-0.991,-0.992,-0.992,&
13713       -0.993,-0.993,-0.994,-0.994,-0.995,-0.995,-0.996,-0.996,-0.997,&
13714       -0.997,-0.998,-0.998,-0.998,-0.999,-0.999,-1.000,-1.000,-1.001,&
13715       -1.001,-1.002,-1.002,-1.003,-1.003,-1.004,-1.004,-1.005,-1.005,&
13716       -1.006,-1.006,-1.006,-1.007,-1.007,-1.008,-1.008,-1.009,-1.009,&
13717       -1.010,-1.010,-1.011,-1.011,-1.016,-1.020,-1.024,-1.029,-1.033,&
13718       -1.037,-1.040,-1.044,-1.048,-1.052,-1.055,-1.059,-1.062,-1.065,&
13719       -1.069,-1.072,-1.075,-1.078,-1.081,-1.084,-1.087,-1.090,-1.093,&
13720       -1.096,-1.099,-1.102,-1.104,-1.107,-1.110,-1.112,-1.115,-1.117,&
13721       -1.120,-1.122,-1.125,-1.127,-1.129,-1.132,-1.134,-1.136,-1.139,&
13722       -1.141,-1.143,-1.145,-1.147,-1.149,-1.151,-1.153,-1.155,-1.157,&
13723       -1.159,-1.161,-1.163,-1.165,-1.167,-1.169,-1.171,-1.173,-1.174,&
13724       -1.176,-1.178,-1.180,-1.181,-1.183,-1.185,-1.187,-1.188,-1.190,&
13725       -1.191,-1.193,-1.195,-1.196,-1.198,-1.199,-1.201,-1.202,-1.204,&
13726       -1.205,-1.207,-1.208,-1.210,-1.211,-1.213,-1.214,-1.216,-1.217,&
13727       -1.218,-1.220,-1.221,-1.223,-1.224,-1.225,-1.226,-1.228,-1.229,&
13728       -1.230,-1.232,-1.233,-1.234,-1.235,-1.237,-1.238,-1.239,-1.240,&
13729       -1.242,-1.243,-1.244,-1.245,-1.246,-1.247,-1.249,-1.250,-1.251,&
13730       -1.252,-1.253,-1.254,-1.255,-1.256,-1.258,-1.259,-1.260,-1.261,&
13731       -1.262,-1.263,-1.264,-1.265,-1.266,-1.267,-1.268,-1.269,-1.270,&
13732       -1.271,-1.272,-1.273,-1.274,-1.275,-1.276,-1.277,-1.278,-1.279,&
13733       -1.280,-1.281,-1.282,-1.283,-1.283,-1.284,-1.285,-1.286,-1.287,&
13734       -1.288,-1.289,-1.290,-1.291,-1.292,-1.292,-1.293,-1.294,-1.295,&
13735       -1.296,-1.297,-1.298                                           &
13736        /
13737 !C
13738 !C **  KHSO4
13739 !C
13740       DATA BNC18M/                                                   &
13741       -0.046,-0.097,-0.121,-0.138,-0.150,-0.161,-0.169,-0.176,-0.182,&
13742       -0.188,-0.192,-0.196,-0.200,-0.203,-0.206,-0.209,-0.211,-0.213,&
13743       -0.215,-0.217,-0.218,-0.219,-0.220,-0.221,-0.222,-0.223,-0.223,&
13744       -0.223,-0.223,-0.224,-0.223,-0.223,-0.223,-0.223,-0.222,-0.222,&
13745       -0.221,-0.220,-0.220,-0.219,-0.218,-0.217,-0.216,-0.215,-0.213,&
13746       -0.212,-0.211,-0.209,-0.208,-0.206,-0.205,-0.203,-0.202,-0.200,&
13747       -0.198,-0.196,-0.195,-0.193,-0.191,-0.189,-0.187,-0.185,-0.183,&
13748       -0.181,-0.179,-0.177,-0.174,-0.172,-0.170,-0.168,-0.165,-0.163,&
13749       -0.161,-0.158,-0.156,-0.153,-0.151,-0.148,-0.146,-0.143,-0.141,&
13750       -0.138,-0.136,-0.133,-0.130,-0.127,-0.125,-0.122,-0.119,-0.116,&
13751       -0.114,-0.111,-0.108,-0.105,-0.102,-0.099,-0.096,-0.093,-0.090,&
13752       -0.087,-0.084,-0.081,-0.078,-0.075,-0.072,-0.069,-0.066,-0.063,&
13753       -0.060,-0.056,-0.053,-0.050,-0.047,-0.044,-0.041,-0.037,-0.034,&
13754       -0.031,-0.028,-0.025,-0.021,-0.018,-0.015,-0.012,-0.009,-0.005,&
13755       -0.002, 0.001, 0.004, 0.007, 0.011, 0.014, 0.017, 0.020, 0.023,&
13756        0.027, 0.030, 0.033, 0.036, 0.039, 0.043, 0.046, 0.049, 0.052,&
13757        0.055, 0.058, 0.061, 0.065, 0.068, 0.071, 0.074, 0.077, 0.080,&
13758        0.083, 0.086, 0.089, 0.093, 0.096, 0.099, 0.102, 0.105, 0.108,&
13759        0.111, 0.114, 0.117, 0.120, 0.123, 0.126, 0.129, 0.132, 0.135,&
13760        0.138, 0.141, 0.144, 0.147, 0.150, 0.153, 0.156, 0.159, 0.162,&
13761        0.165, 0.168, 0.171, 0.174, 0.176, 0.179, 0.182, 0.185, 0.188,&
13762        0.191, 0.194, 0.197, 0.199, 0.202, 0.205, 0.208, 0.211, 0.214,&
13763        0.217, 0.219, 0.222, 0.225, 0.228, 0.231, 0.233, 0.236, 0.239,&
13764        0.242, 0.244, 0.247, 0.250, 0.253, 0.255, 0.258, 0.261, 0.264,&
13765        0.266, 0.269, 0.272, 0.274, 0.277, 0.280, 0.282, 0.285, 0.288,&
13766        0.290, 0.293, 0.296, 0.298, 0.301, 0.304, 0.306, 0.309, 0.312,&
13767        0.314, 0.317, 0.319, 0.322, 0.325, 0.327, 0.330, 0.332, 0.335,&
13768        0.337, 0.340, 0.343, 0.345, 0.348, 0.350, 0.353, 0.355, 0.358,&
13769        0.360, 0.363, 0.365, 0.368, 0.370, 0.373, 0.375, 0.378, 0.380,&
13770        0.383, 0.385, 0.388, 0.390, 0.393, 0.395, 0.397, 0.400, 0.402,&
13771        0.405, 0.407, 0.410, 0.412, 0.414, 0.417, 0.419, 0.422, 0.424,&
13772        0.426, 0.429, 0.431, 0.434, 0.436, 0.438, 0.441, 0.443, 0.445,&
13773        0.448, 0.450, 0.452, 0.455, 0.457, 0.459, 0.462, 0.464, 0.466,&
13774        0.469, 0.471, 0.473, 0.475, 0.478, 0.480, 0.482, 0.485, 0.487,&
13775        0.489, 0.491, 0.494, 0.496, 0.498, 0.500, 0.503, 0.505, 0.507,&
13776        0.509, 0.512, 0.514, 0.516, 0.518, 0.520, 0.523, 0.525, 0.527,&
13777        0.529, 0.531, 0.534, 0.536, 0.538, 0.540, 0.542, 0.544, 0.547,&
13778        0.549, 0.551, 0.553, 0.555, 0.557, 0.560, 0.562, 0.564, 0.566,&
13779        0.568, 0.570, 0.572, 0.574, 0.577, 0.579, 0.581, 0.583, 0.585,&
13780        0.587, 0.589, 0.591, 0.593, 0.595, 0.597, 0.600, 0.602, 0.604,&
13781        0.606, 0.608, 0.610, 0.612, 0.614, 0.616, 0.618, 0.620, 0.622,&
13782        0.624, 0.626, 0.628, 0.630, 0.632, 0.634, 0.636, 0.638, 0.640,&
13783        0.642, 0.644, 0.646, 0.648, 0.650, 0.652, 0.654, 0.656, 0.658,&
13784        0.660, 0.662, 0.664, 0.666, 0.668, 0.670, 0.672, 0.674, 0.676,&
13785        0.678, 0.680, 0.682, 0.684, 0.704, 0.723, 0.742, 0.760, 0.778,&
13786        0.796, 0.813, 0.831, 0.848, 0.865, 0.881, 0.898, 0.914, 0.930,&
13787        0.946, 0.961, 0.977, 0.992, 1.007, 1.022, 1.036, 1.051, 1.065,&
13788        1.079, 1.093, 1.107, 1.121, 1.134, 1.148, 1.161, 1.174, 1.187,&
13789        1.200, 1.213, 1.225, 1.238, 1.250, 1.262, 1.275, 1.287, 1.298,&
13790        1.310, 1.322, 1.333, 1.345, 1.356, 1.367, 1.379, 1.390, 1.401,&
13791        1.411, 1.422, 1.433, 1.443, 1.454, 1.464, 1.475, 1.485, 1.495,&
13792        1.505, 1.515, 1.525, 1.535, 1.545, 1.554, 1.564, 1.573, 1.583,&
13793        1.592, 1.602, 1.611, 1.620, 1.629, 1.638, 1.647, 1.656, 1.665,&
13794        1.674, 1.682, 1.691, 1.700, 1.708, 1.717, 1.725, 1.734, 1.742,&
13795        1.750, 1.758, 1.767, 1.775, 1.783, 1.791, 1.799, 1.807, 1.815,&
13796        1.822, 1.830, 1.838, 1.845, 1.853, 1.861, 1.868, 1.876, 1.883,&
13797        1.891, 1.898, 1.905, 1.912, 1.920, 1.927, 1.934, 1.941, 1.948,&
13798        1.955, 1.962, 1.969, 1.976, 1.983, 1.990, 1.997, 2.003, 2.010,&
13799        2.017, 2.023, 2.030, 2.037, 2.043, 2.050, 2.056, 2.063, 2.069,&
13800        2.075, 2.082, 2.088, 2.094, 2.101, 2.107, 2.113, 2.119, 2.125,&
13801        2.131, 2.137, 2.143, 2.149, 2.155, 2.161, 2.167, 2.173, 2.179,&
13802        2.185, 2.191, 2.197, 2.202, 2.208, 2.214, 2.219, 2.225, 2.231,&
13803        2.236, 2.242, 2.248                                           &
13804        /
13805 !C
13806 !C **  KNO3
13807 !C
13808       DATA BNC19M/                                                   &
13809       -0.048,-0.109,-0.141,-0.166,-0.186,-0.204,-0.219,-0.233,-0.246,&
13810       -0.258,-0.270,-0.281,-0.291,-0.301,-0.310,-0.319,-0.328,-0.336,&
13811       -0.344,-0.352,-0.360,-0.367,-0.375,-0.382,-0.389,-0.395,-0.402,&
13812       -0.409,-0.415,-0.421,-0.427,-0.433,-0.439,-0.445,-0.451,-0.456,&
13813       -0.462,-0.467,-0.472,-0.477,-0.483,-0.488,-0.492,-0.497,-0.502,&
13814       -0.507,-0.511,-0.516,-0.521,-0.525,-0.529,-0.534,-0.538,-0.542,&
13815       -0.546,-0.550,-0.554,-0.558,-0.562,-0.566,-0.570,-0.574,-0.578,&
13816       -0.581,-0.585,-0.589,-0.592,-0.596,-0.600,-0.603,-0.607,-0.610,&
13817       -0.613,-0.617,-0.620,-0.624,-0.627,-0.630,-0.634,-0.637,-0.640,&
13818       -0.643,-0.647,-0.650,-0.653,-0.656,-0.660,-0.663,-0.666,-0.669,&
13819       -0.672,-0.675,-0.678,-0.682,-0.685,-0.688,-0.691,-0.694,-0.697,&
13820       -0.700,-0.703,-0.706,-0.709,-0.712,-0.715,-0.718,-0.721,-0.724,&
13821       -0.727,-0.730,-0.733,-0.736,-0.739,-0.741,-0.744,-0.747,-0.750,&
13822       -0.753,-0.756,-0.758,-0.761,-0.764,-0.767,-0.770,-0.772,-0.775,&
13823       -0.778,-0.780,-0.783,-0.786,-0.789,-0.791,-0.794,-0.796,-0.799,&
13824       -0.802,-0.804,-0.807,-0.809,-0.812,-0.814,-0.817,-0.819,-0.822,&
13825       -0.824,-0.827,-0.829,-0.832,-0.834,-0.837,-0.839,-0.841,-0.844,&
13826       -0.846,-0.848,-0.851,-0.853,-0.855,-0.858,-0.860,-0.862,-0.865,&
13827       -0.867,-0.869,-0.871,-0.873,-0.876,-0.878,-0.880,-0.882,-0.884,&
13828       -0.887,-0.889,-0.891,-0.893,-0.895,-0.897,-0.899,-0.901,-0.903,&
13829       -0.905,-0.908,-0.910,-0.912,-0.914,-0.916,-0.918,-0.920,-0.922,&
13830       -0.924,-0.925,-0.927,-0.929,-0.931,-0.933,-0.935,-0.937,-0.939,&
13831       -0.941,-0.943,-0.945,-0.946,-0.948,-0.950,-0.952,-0.954,-0.956,&
13832       -0.957,-0.959,-0.961,-0.963,-0.965,-0.966,-0.968,-0.970,-0.972,&
13833       -0.973,-0.975,-0.977,-0.978,-0.980,-0.982,-0.984,-0.985,-0.987,&
13834       -0.989,-0.990,-0.992,-0.993,-0.995,-0.997,-0.998,-1.000,-1.002,&
13835       -1.003,-1.005,-1.006,-1.008,-1.009,-1.011,-1.013,-1.014,-1.016,&
13836       -1.017,-1.019,-1.020,-1.022,-1.023,-1.025,-1.026,-1.028,-1.029,&
13837       -1.031,-1.032,-1.034,-1.035,-1.036,-1.038,-1.039,-1.041,-1.042,&
13838       -1.044,-1.045,-1.046,-1.048,-1.049,-1.051,-1.052,-1.053,-1.055,&
13839       -1.056,-1.057,-1.059,-1.060,-1.061,-1.063,-1.064,-1.065,-1.067,&
13840       -1.068,-1.069,-1.071,-1.072,-1.073,-1.074,-1.076,-1.077,-1.078,&
13841       -1.079,-1.081,-1.082,-1.083,-1.084,-1.086,-1.087,-1.088,-1.089,&
13842       -1.090,-1.092,-1.093,-1.094,-1.095,-1.096,-1.098,-1.099,-1.100,&
13843       -1.101,-1.102,-1.103,-1.105,-1.106,-1.107,-1.108,-1.109,-1.110,&
13844       -1.111,-1.112,-1.114,-1.115,-1.116,-1.117,-1.118,-1.119,-1.120,&
13845       -1.121,-1.122,-1.123,-1.124,-1.125,-1.127,-1.128,-1.129,-1.130,&
13846       -1.131,-1.132,-1.133,-1.134,-1.135,-1.136,-1.137,-1.138,-1.139,&
13847       -1.140,-1.141,-1.142,-1.143,-1.144,-1.145,-1.146,-1.147,-1.148,&
13848       -1.149,-1.150,-1.151,-1.152,-1.153,-1.153,-1.154,-1.155,-1.156,&
13849       -1.157,-1.158,-1.159,-1.160,-1.161,-1.162,-1.163,-1.164,-1.165,&
13850       -1.165,-1.166,-1.167,-1.168,-1.169,-1.170,-1.171,-1.172,-1.172,&
13851       -1.173,-1.174,-1.175,-1.176,-1.177,-1.178,-1.178,-1.179,-1.180,&
13852       -1.181,-1.182,-1.183,-1.183,-1.184,-1.185,-1.186,-1.187,-1.188,&
13853       -1.188,-1.189,-1.190,-1.191,-1.199,-1.207,-1.214,-1.221,-1.228,&
13854       -1.234,-1.240,-1.246,-1.252,-1.258,-1.263,-1.268,-1.273,-1.278,&
13855       -1.283,-1.287,-1.292,-1.296,-1.300,-1.304,-1.308,-1.312,-1.315,&
13856       -1.319,-1.322,-1.325,-1.329,-1.332,-1.335,-1.338,-1.341,-1.343,&
13857       -1.346,-1.349,-1.351,-1.354,-1.356,-1.358,-1.361,-1.363,-1.365,&
13858       -1.367,-1.369,-1.371,-1.373,-1.375,-1.377,-1.378,-1.380,-1.382,&
13859       -1.383,-1.385,-1.387,-1.388,-1.390,-1.391,-1.393,-1.394,-1.395,&
13860       -1.397,-1.398,-1.399,-1.400,-1.402,-1.403,-1.404,-1.405,-1.406,&
13861       -1.407,-1.408,-1.409,-1.410,-1.411,-1.412,-1.413,-1.414,-1.415,&
13862       -1.416,-1.417,-1.418,-1.419,-1.420,-1.420,-1.421,-1.422,-1.423,&
13863       -1.424,-1.424,-1.425,-1.426,-1.427,-1.427,-1.428,-1.429,-1.429,&
13864       -1.430,-1.430,-1.431,-1.432,-1.432,-1.433,-1.434,-1.434,-1.435,&
13865       -1.435,-1.436,-1.436,-1.437,-1.437,-1.438,-1.438,-1.439,-1.439,&
13866       -1.440,-1.440,-1.441,-1.441,-1.442,-1.442,-1.443,-1.443,-1.443,&
13867       -1.444,-1.444,-1.445,-1.445,-1.445,-1.446,-1.446,-1.447,-1.447,&
13868       -1.447,-1.448,-1.448,-1.448,-1.449,-1.449,-1.449,-1.450,-1.450,&
13869       -1.450,-1.451,-1.451,-1.451,-1.452,-1.452,-1.452,-1.453,-1.453,&
13870       -1.453,-1.454,-1.454,-1.454,-1.454,-1.455,-1.455,-1.455,-1.455,&
13871       -1.456,-1.456,-1.456                                           &
13872        /
13873 !C
13874 !C **  KCL
13875 !C
13876       DATA BNC20M/                                                   &
13877       -0.046,-0.098,-0.123,-0.139,-0.152,-0.162,-0.171,-0.178,-0.184,&
13878       -0.190,-0.195,-0.199,-0.203,-0.206,-0.209,-0.212,-0.215,-0.217,&
13879       -0.219,-0.221,-0.223,-0.225,-0.226,-0.228,-0.229,-0.230,-0.231,&
13880       -0.232,-0.233,-0.234,-0.235,-0.236,-0.236,-0.237,-0.238,-0.238,&
13881       -0.239,-0.239,-0.240,-0.240,-0.240,-0.241,-0.241,-0.241,-0.242,&
13882       -0.242,-0.242,-0.242,-0.243,-0.243,-0.243,-0.243,-0.243,-0.243,&
13883       -0.243,-0.243,-0.243,-0.243,-0.243,-0.243,-0.243,-0.243,-0.243,&
13884       -0.243,-0.243,-0.243,-0.243,-0.243,-0.243,-0.243,-0.243,-0.242,&
13885       -0.242,-0.242,-0.242,-0.242,-0.242,-0.241,-0.241,-0.241,-0.241,&
13886       -0.241,-0.240,-0.240,-0.240,-0.239,-0.239,-0.239,-0.239,-0.238,&
13887       -0.238,-0.238,-0.237,-0.237,-0.237,-0.236,-0.236,-0.235,-0.235,&
13888       -0.235,-0.234,-0.234,-0.233,-0.233,-0.232,-0.232,-0.232,-0.231,&
13889       -0.231,-0.230,-0.230,-0.229,-0.229,-0.228,-0.228,-0.227,-0.227,&
13890       -0.226,-0.226,-0.225,-0.225,-0.224,-0.224,-0.223,-0.223,-0.222,&
13891       -0.222,-0.221,-0.220,-0.220,-0.219,-0.219,-0.218,-0.218,-0.217,&
13892       -0.217,-0.216,-0.216,-0.215,-0.214,-0.214,-0.213,-0.213,-0.212,&
13893       -0.212,-0.211,-0.210,-0.210,-0.209,-0.209,-0.208,-0.208,-0.207,&
13894       -0.207,-0.206,-0.205,-0.205,-0.204,-0.204,-0.203,-0.203,-0.202,&
13895       -0.201,-0.201,-0.200,-0.200,-0.199,-0.199,-0.198,-0.197,-0.197,&
13896       -0.196,-0.196,-0.195,-0.194,-0.194,-0.193,-0.193,-0.192,-0.192,&
13897       -0.191,-0.190,-0.190,-0.189,-0.189,-0.188,-0.188,-0.187,-0.186,&
13898       -0.186,-0.185,-0.185,-0.184,-0.184,-0.183,-0.182,-0.182,-0.181,&
13899       -0.181,-0.180,-0.180,-0.179,-0.178,-0.178,-0.177,-0.177,-0.176,&
13900       -0.176,-0.175,-0.174,-0.174,-0.173,-0.173,-0.172,-0.172,-0.171,&
13901       -0.170,-0.170,-0.169,-0.169,-0.168,-0.168,-0.167,-0.166,-0.166,&
13902       -0.165,-0.165,-0.164,-0.164,-0.163,-0.162,-0.162,-0.161,-0.161,&
13903       -0.160,-0.160,-0.159,-0.158,-0.158,-0.157,-0.157,-0.156,-0.156,&
13904       -0.155,-0.155,-0.154,-0.153,-0.153,-0.152,-0.152,-0.151,-0.151,&
13905       -0.150,-0.150,-0.149,-0.148,-0.148,-0.147,-0.147,-0.146,-0.146,&
13906       -0.145,-0.145,-0.144,-0.143,-0.143,-0.142,-0.142,-0.141,-0.141,&
13907       -0.140,-0.140,-0.139,-0.139,-0.138,-0.137,-0.137,-0.136,-0.136,&
13908       -0.135,-0.135,-0.134,-0.134,-0.133,-0.133,-0.132,-0.131,-0.131,&
13909       -0.130,-0.130,-0.129,-0.129,-0.128,-0.128,-0.127,-0.127,-0.126,&
13910       -0.126,-0.125,-0.125,-0.124,-0.123,-0.123,-0.122,-0.122,-0.121,&
13911       -0.121,-0.120,-0.120,-0.119,-0.119,-0.118,-0.118,-0.117,-0.117,&
13912       -0.116,-0.116,-0.115,-0.115,-0.114,-0.113,-0.113,-0.112,-0.112,&
13913       -0.111,-0.111,-0.110,-0.110,-0.109,-0.109,-0.108,-0.108,-0.107,&
13914       -0.107,-0.106,-0.106,-0.105,-0.105,-0.104,-0.104,-0.103,-0.103,&
13915       -0.102,-0.102,-0.101,-0.101,-0.100,-0.100,-0.099,-0.099,-0.098,&
13916       -0.098,-0.097,-0.097,-0.096,-0.096,-0.095,-0.095,-0.094,-0.094,&
13917       -0.093,-0.093,-0.092,-0.092,-0.091,-0.091,-0.090,-0.090,-0.089,&
13918       -0.089,-0.088,-0.088,-0.087,-0.087,-0.086,-0.086,-0.085,-0.085,&
13919       -0.084,-0.084,-0.083,-0.083,-0.082,-0.082,-0.081,-0.081,-0.080,&
13920       -0.080,-0.079,-0.079,-0.078,-0.078,-0.077,-0.077,-0.077,-0.076,&
13921       -0.076,-0.075,-0.075,-0.074,-0.069,-0.064,-0.060,-0.055,-0.051,&
13922       -0.046,-0.042,-0.037,-0.033,-0.028,-0.024,-0.020,-0.016,-0.012,&
13923       -0.008,-0.004, 0.000, 0.004, 0.008, 0.012, 0.016, 0.020, 0.024,&
13924        0.028, 0.031, 0.035, 0.039, 0.042, 0.046, 0.049, 0.053, 0.056,&
13925        0.060, 0.063, 0.067, 0.070, 0.073, 0.077, 0.080, 0.083, 0.087,&
13926        0.090, 0.093, 0.096, 0.099, 0.102, 0.105, 0.108, 0.111, 0.114,&
13927        0.117, 0.120, 0.123, 0.126, 0.129, 0.132, 0.135, 0.138, 0.141,&
13928        0.143, 0.146, 0.149, 0.152, 0.154, 0.157, 0.160, 0.162, 0.165,&
13929        0.168, 0.170, 0.173, 0.176, 0.178, 0.181, 0.183, 0.186, 0.188,&
13930        0.191, 0.193, 0.196, 0.198, 0.200, 0.203, 0.205, 0.208, 0.210,&
13931        0.212, 0.215, 0.217, 0.219, 0.221, 0.224, 0.226, 0.228, 0.231,&
13932        0.233, 0.235, 0.237, 0.239, 0.242, 0.244, 0.246, 0.248, 0.250,&
13933        0.252, 0.254, 0.256, 0.258, 0.261, 0.263, 0.265, 0.267, 0.269,&
13934        0.271, 0.273, 0.275, 0.277, 0.279, 0.281, 0.283, 0.285, 0.286,&
13935        0.288, 0.290, 0.292, 0.294, 0.296, 0.298, 0.300, 0.302, 0.304,&
13936        0.305, 0.307, 0.309, 0.311, 0.313, 0.314, 0.316, 0.318, 0.320,&
13937        0.322, 0.323, 0.325, 0.327, 0.329, 0.330, 0.332, 0.334, 0.335,&
13938        0.337, 0.339, 0.341, 0.342, 0.344, 0.346, 0.347, 0.349, 0.350,&
13939        0.352, 0.354, 0.355                                           &
13940        /
13941 !C
13942 !C **  MGSO4
13943 !C
13944       DATA BNC21M/                                                   &
13945       -0.185,-0.400,-0.506,-0.579,-0.636,-0.683,-0.723,-0.757,-0.787,&
13946       -0.814,-0.839,-0.861,-0.881,-0.900,-0.917,-0.934,-0.949,-0.963,&
13947       -0.977,-0.989,-1.001,-1.013,-1.023,-1.034,-1.044,-1.053,-1.062,&
13948       -1.071,-1.079,-1.087,-1.094,-1.102,-1.109,-1.116,-1.122,-1.129,&
13949       -1.135,-1.141,-1.147,-1.152,-1.158,-1.163,-1.168,-1.173,-1.178,&
13950       -1.183,-1.187,-1.192,-1.196,-1.200,-1.205,-1.209,-1.213,-1.216,&
13951       -1.220,-1.224,-1.228,-1.231,-1.235,-1.238,-1.241,-1.244,-1.248,&
13952       -1.251,-1.254,-1.257,-1.260,-1.263,-1.265,-1.268,-1.271,-1.274,&
13953       -1.276,-1.279,-1.281,-1.284,-1.286,-1.288,-1.291,-1.293,-1.295,&
13954       -1.297,-1.300,-1.302,-1.304,-1.306,-1.308,-1.310,-1.312,-1.314,&
13955       -1.316,-1.317,-1.319,-1.321,-1.323,-1.324,-1.326,-1.328,-1.329,&
13956       -1.331,-1.333,-1.334,-1.336,-1.337,-1.339,-1.340,-1.341,-1.343,&
13957       -1.344,-1.346,-1.347,-1.348,-1.350,-1.351,-1.352,-1.353,-1.355,&
13958       -1.356,-1.357,-1.358,-1.359,-1.360,-1.362,-1.363,-1.364,-1.365,&
13959       -1.366,-1.367,-1.368,-1.369,-1.370,-1.371,-1.372,-1.373,-1.374,&
13960       -1.375,-1.376,-1.377,-1.377,-1.378,-1.379,-1.380,-1.381,-1.382,&
13961       -1.383,-1.383,-1.384,-1.385,-1.386,-1.387,-1.387,-1.388,-1.389,&
13962       -1.390,-1.390,-1.391,-1.392,-1.393,-1.393,-1.394,-1.395,-1.395,&
13963       -1.396,-1.397,-1.397,-1.398,-1.399,-1.399,-1.400,-1.401,-1.401,&
13964       -1.402,-1.402,-1.403,-1.404,-1.404,-1.405,-1.405,-1.406,-1.406,&
13965       -1.407,-1.407,-1.408,-1.408,-1.409,-1.410,-1.410,-1.411,-1.411,&
13966       -1.412,-1.412,-1.412,-1.413,-1.413,-1.414,-1.414,-1.415,-1.415,&
13967       -1.416,-1.416,-1.417,-1.417,-1.417,-1.418,-1.418,-1.419,-1.419,&
13968       -1.420,-1.420,-1.420,-1.421,-1.421,-1.422,-1.422,-1.422,-1.423,&
13969       -1.423,-1.423,-1.424,-1.424,-1.424,-1.425,-1.425,-1.426,-1.426,&
13970       -1.426,-1.427,-1.427,-1.427,-1.428,-1.428,-1.428,-1.428,-1.429,&
13971       -1.429,-1.429,-1.430,-1.430,-1.430,-1.431,-1.431,-1.431,-1.431,&
13972       -1.432,-1.432,-1.432,-1.433,-1.433,-1.433,-1.433,-1.434,-1.434,&
13973       -1.434,-1.434,-1.435,-1.435,-1.435,-1.435,-1.436,-1.436,-1.436,&
13974       -1.436,-1.437,-1.437,-1.437,-1.437,-1.437,-1.438,-1.438,-1.438,&
13975       -1.438,-1.439,-1.439,-1.439,-1.439,-1.439,-1.440,-1.440,-1.440,&
13976       -1.440,-1.440,-1.441,-1.441,-1.441,-1.441,-1.441,-1.441,-1.442,&
13977       -1.442,-1.442,-1.442,-1.442,-1.442,-1.443,-1.443,-1.443,-1.443,&
13978       -1.443,-1.443,-1.444,-1.444,-1.444,-1.444,-1.444,-1.444,-1.445,&
13979       -1.445,-1.445,-1.445,-1.445,-1.445,-1.445,-1.446,-1.446,-1.446,&
13980       -1.446,-1.446,-1.446,-1.446,-1.446,-1.447,-1.447,-1.447,-1.447,&
13981       -1.447,-1.447,-1.447,-1.447,-1.448,-1.448,-1.448,-1.448,-1.448,&
13982       -1.448,-1.448,-1.448,-1.448,-1.449,-1.449,-1.449,-1.449,-1.449,&
13983       -1.449,-1.449,-1.449,-1.449,-1.449,-1.450,-1.450,-1.450,-1.450,&
13984       -1.450,-1.450,-1.450,-1.450,-1.450,-1.450,-1.450,-1.451,-1.451,&
13985       -1.451,-1.451,-1.451,-1.451,-1.451,-1.451,-1.451,-1.451,-1.451,&
13986       -1.451,-1.451,-1.451,-1.452,-1.452,-1.452,-1.452,-1.452,-1.452,&
13987       -1.452,-1.452,-1.452,-1.452,-1.452,-1.452,-1.452,-1.452,-1.452,&
13988       -1.453,-1.453,-1.453,-1.453,-1.453,-1.453,-1.453,-1.453,-1.453,&
13989       -1.453,-1.453,-1.453,-1.453,-1.454,-1.454,-1.454,-1.455,-1.455,&
13990       -1.455,-1.455,-1.455,-1.455,-1.455,-1.455,-1.455,-1.455,-1.455,&
13991       -1.454,-1.454,-1.454,-1.454,-1.453,-1.453,-1.453,-1.452,-1.452,&
13992       -1.452,-1.451,-1.451,-1.450,-1.450,-1.450,-1.449,-1.449,-1.448,&
13993       -1.448,-1.447,-1.447,-1.446,-1.446,-1.445,-1.445,-1.444,-1.444,&
13994       -1.443,-1.442,-1.442,-1.441,-1.441,-1.440,-1.440,-1.439,-1.438,&
13995       -1.438,-1.437,-1.437,-1.436,-1.436,-1.435,-1.434,-1.434,-1.433,&
13996       -1.433,-1.432,-1.431,-1.431,-1.430,-1.430,-1.429,-1.428,-1.428,&
13997       -1.427,-1.426,-1.426,-1.425,-1.425,-1.424,-1.423,-1.423,-1.422,&
13998       -1.422,-1.421,-1.420,-1.420,-1.419,-1.418,-1.418,-1.417,-1.417,&
13999       -1.416,-1.415,-1.415,-1.414,-1.414,-1.413,-1.412,-1.412,-1.411,&
14000       -1.411,-1.410,-1.409,-1.409,-1.408,-1.408,-1.407,-1.406,-1.406,&
14001       -1.405,-1.405,-1.404,-1.403,-1.403,-1.402,-1.402,-1.401,-1.400,&
14002       -1.400,-1.399,-1.399,-1.398,-1.398,-1.397,-1.396,-1.396,-1.395,&
14003       -1.395,-1.394,-1.394,-1.393,-1.392,-1.392,-1.391,-1.391,-1.390,&
14004       -1.390,-1.389,-1.388,-1.388,-1.387,-1.387,-1.386,-1.386,-1.385,&
14005       -1.385,-1.384,-1.383,-1.383,-1.382,-1.382,-1.381,-1.381,-1.380,&
14006       -1.380,-1.379,-1.378,-1.378,-1.377,-1.377,-1.376,-1.376,-1.375,&
14007       -1.375,-1.374,-1.374                                           &
14008        /
14009 !C
14010 !C **  MGNO32
14011 !C
14012       DATA BNC22M/                                                   &
14013       -0.091,-0.189,-0.233,-0.262,-0.283,-0.299,-0.312,-0.322,-0.330,&
14014       -0.337,-0.343,-0.347,-0.351,-0.354,-0.356,-0.358,-0.359,-0.360,&
14015       -0.361,-0.361,-0.361,-0.360,-0.360,-0.359,-0.358,-0.356,-0.355,&
14016       -0.354,-0.352,-0.350,-0.348,-0.346,-0.344,-0.342,-0.340,-0.337,&
14017       -0.335,-0.332,-0.330,-0.327,-0.325,-0.322,-0.319,-0.316,-0.314,&
14018       -0.311,-0.308,-0.305,-0.302,-0.299,-0.297,-0.294,-0.291,-0.288,&
14019       -0.285,-0.282,-0.279,-0.276,-0.273,-0.270,-0.267,-0.263,-0.260,&
14020       -0.257,-0.254,-0.251,-0.248,-0.245,-0.242,-0.238,-0.235,-0.232,&
14021       -0.229,-0.225,-0.222,-0.219,-0.215,-0.212,-0.209,-0.205,-0.202,&
14022       -0.198,-0.195,-0.191,-0.188,-0.184,-0.181,-0.177,-0.173,-0.170,&
14023       -0.166,-0.162,-0.159,-0.155,-0.151,-0.147,-0.143,-0.140,-0.136,&
14024       -0.132,-0.128,-0.124,-0.120,-0.116,-0.112,-0.108,-0.104,-0.100,&
14025       -0.096,-0.091,-0.087,-0.083,-0.079,-0.075,-0.071,-0.067,-0.062,&
14026       -0.058,-0.054,-0.050,-0.046,-0.041,-0.037,-0.033,-0.029,-0.024,&
14027       -0.020,-0.016,-0.012,-0.008,-0.003, 0.001, 0.005, 0.009, 0.014,&
14028        0.018, 0.022, 0.026, 0.031, 0.035, 0.039, 0.043, 0.047, 0.052,&
14029        0.056, 0.060, 0.064, 0.069, 0.073, 0.077, 0.081, 0.085, 0.090,&
14030        0.094, 0.098, 0.102, 0.106, 0.110, 0.115, 0.119, 0.123, 0.127,&
14031        0.131, 0.135, 0.140, 0.144, 0.148, 0.152, 0.156, 0.160, 0.164,&
14032        0.169, 0.173, 0.177, 0.181, 0.185, 0.189, 0.193, 0.197, 0.201,&
14033        0.205, 0.209, 0.214, 0.218, 0.222, 0.226, 0.230, 0.234, 0.238,&
14034        0.242, 0.246, 0.250, 0.254, 0.258, 0.262, 0.266, 0.270, 0.274,&
14035        0.278, 0.282, 0.286, 0.290, 0.294, 0.298, 0.302, 0.306, 0.310,&
14036        0.314, 0.318, 0.321, 0.325, 0.329, 0.333, 0.337, 0.341, 0.345,&
14037        0.349, 0.353, 0.357, 0.361, 0.364, 0.368, 0.372, 0.376, 0.380,&
14038        0.384, 0.388, 0.391, 0.395, 0.399, 0.403, 0.407, 0.410, 0.414,&
14039        0.418, 0.422, 0.426, 0.429, 0.433, 0.437, 0.441, 0.445, 0.448,&
14040        0.452, 0.456, 0.459, 0.463, 0.467, 0.471, 0.474, 0.478, 0.482,&
14041        0.486, 0.489, 0.493, 0.497, 0.500, 0.504, 0.508, 0.511, 0.515,&
14042        0.519, 0.522, 0.526, 0.530, 0.533, 0.537, 0.540, 0.544, 0.548,&
14043        0.551, 0.555, 0.559, 0.562, 0.566, 0.569, 0.573, 0.576, 0.580,&
14044        0.584, 0.587, 0.591, 0.594, 0.598, 0.601, 0.605, 0.608, 0.612,&
14045        0.615, 0.619, 0.622, 0.626, 0.629, 0.633, 0.636, 0.640, 0.643,&
14046        0.647, 0.650, 0.654, 0.657, 0.661, 0.664, 0.668, 0.671, 0.674,&
14047        0.678, 0.681, 0.685, 0.688, 0.691, 0.695, 0.698, 0.702, 0.705,&
14048        0.708, 0.712, 0.715, 0.719, 0.722, 0.725, 0.729, 0.732, 0.735,&
14049        0.739, 0.742, 0.745, 0.749, 0.752, 0.755, 0.759, 0.762, 0.765,&
14050        0.768, 0.772, 0.775, 0.778, 0.782, 0.785, 0.788, 0.791, 0.795,&
14051        0.798, 0.801, 0.804, 0.808, 0.811, 0.814, 0.817, 0.821, 0.824,&
14052        0.827, 0.830, 0.833, 0.837, 0.840, 0.843, 0.846, 0.849, 0.853,&
14053        0.856, 0.859, 0.862, 0.865, 0.868, 0.872, 0.875, 0.878, 0.881,&
14054        0.884, 0.887, 0.890, 0.893, 0.897, 0.900, 0.903, 0.906, 0.909,&
14055        0.912, 0.915, 0.918, 0.921, 0.924, 0.928, 0.931, 0.934, 0.937,&
14056        0.940, 0.943, 0.946, 0.949, 0.952, 0.955, 0.958, 0.961, 0.964,&
14057        0.967, 0.970, 0.973, 0.976, 1.008, 1.038, 1.067, 1.095, 1.124,&
14058        1.152, 1.179, 1.206, 1.233, 1.260, 1.286, 1.312, 1.337, 1.363,&
14059        1.387, 1.412, 1.437, 1.461, 1.484, 1.508, 1.531, 1.554, 1.577,&
14060        1.600, 1.622, 1.644, 1.666, 1.687, 1.709, 1.730, 1.751, 1.772,&
14061        1.792, 1.812, 1.832, 1.852, 1.872, 1.892, 1.911, 1.930, 1.949,&
14062        1.968, 1.987, 2.005, 2.023, 2.042, 2.060, 2.077, 2.095, 2.113,&
14063        2.130, 2.147, 2.164, 2.181, 2.198, 2.215, 2.231, 2.248, 2.264,&
14064        2.280, 2.296, 2.312, 2.328, 2.343, 2.359, 2.374, 2.389, 2.405,&
14065        2.420, 2.435, 2.449, 2.464, 2.479, 2.493, 2.508, 2.522, 2.536,&
14066        2.550, 2.564, 2.578, 2.592, 2.606, 2.619, 2.633, 2.646, 2.660,&
14067        2.673, 2.686, 2.699, 2.712, 2.725, 2.738, 2.751, 2.763, 2.776,&
14068        2.788, 2.801, 2.813, 2.826, 2.838, 2.850, 2.862, 2.874, 2.886,&
14069        2.898, 2.910, 2.921, 2.933, 2.945, 2.956, 2.967, 2.979, 2.990,&
14070        3.001, 3.013, 3.024, 3.035, 3.046, 3.057, 3.068, 3.079, 3.089,&
14071        3.100, 3.111, 3.121, 3.132, 3.142, 3.153, 3.163, 3.173, 3.184,&
14072        3.194, 3.204, 3.214, 3.224, 3.234, 3.244, 3.254, 3.264, 3.274,&
14073        3.284, 3.293, 3.303, 3.313, 3.322, 3.332, 3.341, 3.351, 3.360,&
14074        3.370, 3.379, 3.388, 3.397, 3.407, 3.416, 3.425, 3.434, 3.443,&
14075        3.452, 3.461, 3.470                                           &
14076        /
14077 !C
14078 !C **  MGCL2
14079 !C
14080       DATA BNC23M/                                                   &
14081       -0.090,-0.186,-0.229,-0.256,-0.276,-0.290,-0.302,-0.310,-0.317,&
14082       -0.322,-0.327,-0.330,-0.332,-0.333,-0.334,-0.335,-0.335,-0.334,&
14083       -0.333,-0.332,-0.331,-0.329,-0.327,-0.325,-0.322,-0.320,-0.317,&
14084       -0.314,-0.311,-0.308,-0.305,-0.301,-0.298,-0.294,-0.291,-0.287,&
14085       -0.283,-0.279,-0.275,-0.272,-0.268,-0.264,-0.260,-0.255,-0.251,&
14086       -0.247,-0.243,-0.239,-0.235,-0.231,-0.226,-0.222,-0.218,-0.214,&
14087       -0.209,-0.205,-0.201,-0.196,-0.192,-0.188,-0.184,-0.179,-0.175,&
14088       -0.170,-0.166,-0.162,-0.157,-0.153,-0.148,-0.144,-0.139,-0.135,&
14089       -0.130,-0.126,-0.121,-0.117,-0.112,-0.107,-0.103,-0.098,-0.093,&
14090       -0.089,-0.084,-0.079,-0.074,-0.069,-0.065,-0.060,-0.055,-0.050,&
14091       -0.045,-0.040,-0.034,-0.029,-0.024,-0.019,-0.014,-0.009,-0.003,&
14092        0.002, 0.007, 0.013, 0.018, 0.023, 0.029, 0.034, 0.040, 0.045,&
14093        0.050, 0.056, 0.061, 0.067, 0.073, 0.078, 0.084, 0.089, 0.095,&
14094        0.100, 0.106, 0.112, 0.117, 0.123, 0.128, 0.134, 0.140, 0.145,&
14095        0.151, 0.157, 0.162, 0.168, 0.174, 0.179, 0.185, 0.190, 0.196,&
14096        0.202, 0.207, 0.213, 0.219, 0.224, 0.230, 0.235, 0.241, 0.247,&
14097        0.252, 0.258, 0.263, 0.269, 0.275, 0.280, 0.286, 0.291, 0.297,&
14098        0.302, 0.308, 0.313, 0.319, 0.325, 0.330, 0.336, 0.341, 0.347,&
14099        0.352, 0.358, 0.363, 0.369, 0.374, 0.380, 0.385, 0.390, 0.396,&
14100        0.401, 0.407, 0.412, 0.418, 0.423, 0.428, 0.434, 0.439, 0.445,&
14101        0.450, 0.455, 0.461, 0.466, 0.471, 0.477, 0.482, 0.487, 0.493,&
14102        0.498, 0.503, 0.509, 0.514, 0.519, 0.525, 0.530, 0.535, 0.540,&
14103        0.546, 0.551, 0.556, 0.561, 0.567, 0.572, 0.577, 0.582, 0.587,&
14104        0.593, 0.598, 0.603, 0.608, 0.613, 0.618, 0.624, 0.629, 0.634,&
14105        0.639, 0.644, 0.649, 0.654, 0.659, 0.664, 0.669, 0.675, 0.680,&
14106        0.685, 0.690, 0.695, 0.700, 0.705, 0.710, 0.715, 0.720, 0.725,&
14107        0.730, 0.735, 0.740, 0.745, 0.750, 0.755, 0.759, 0.764, 0.769,&
14108        0.774, 0.779, 0.784, 0.789, 0.794, 0.799, 0.804, 0.808, 0.813,&
14109        0.818, 0.823, 0.828, 0.833, 0.837, 0.842, 0.847, 0.852, 0.857,&
14110        0.861, 0.866, 0.871, 0.876, 0.880, 0.885, 0.890, 0.895, 0.899,&
14111        0.904, 0.909, 0.914, 0.918, 0.923, 0.928, 0.932, 0.937, 0.942,&
14112        0.946, 0.951, 0.955, 0.960, 0.965, 0.969, 0.974, 0.979, 0.983,&
14113        0.988, 0.992, 0.997, 1.001, 1.006, 1.011, 1.015, 1.020, 1.024,&
14114        1.029, 1.033, 1.038, 1.042, 1.047, 1.051, 1.056, 1.060, 1.065,&
14115        1.069, 1.073, 1.078, 1.082, 1.087, 1.091, 1.096, 1.100, 1.104,&
14116        1.109, 1.113, 1.118, 1.122, 1.126, 1.131, 1.135, 1.139, 1.144,&
14117        1.148, 1.152, 1.157, 1.161, 1.165, 1.170, 1.174, 1.178, 1.183,&
14118        1.187, 1.191, 1.195, 1.200, 1.204, 1.208, 1.212, 1.217, 1.221,&
14119        1.225, 1.229, 1.234, 1.238, 1.242, 1.246, 1.250, 1.255, 1.259,&
14120        1.263, 1.267, 1.271, 1.275, 1.279, 1.284, 1.288, 1.292, 1.296,&
14121        1.300, 1.304, 1.308, 1.312, 1.316, 1.321, 1.325, 1.329, 1.333,&
14122        1.337, 1.341, 1.345, 1.349, 1.353, 1.357, 1.361, 1.365, 1.369,&
14123        1.373, 1.377, 1.381, 1.385, 1.389, 1.393, 1.397, 1.401, 1.405,&
14124        1.409, 1.413, 1.417, 1.421, 1.425, 1.428, 1.432, 1.436, 1.440,&
14125        1.444, 1.448, 1.452, 1.456, 1.497, 1.535, 1.573, 1.610, 1.646,&
14126        1.682, 1.717, 1.752, 1.787, 1.821, 1.854, 1.888, 1.920, 1.953,&
14127        1.985, 2.016, 2.048, 2.078, 2.109, 2.139, 2.169, 2.198, 2.227,&
14128        2.256, 2.285, 2.313, 2.341, 2.368, 2.395, 2.422, 2.449, 2.475,&
14129        2.501, 2.527, 2.553, 2.578, 2.603, 2.628, 2.653, 2.677, 2.701,&
14130        2.725, 2.749, 2.772, 2.796, 2.819, 2.841, 2.864, 2.887, 2.909,&
14131        2.931, 2.953, 2.974, 2.996, 3.017, 3.038, 3.059, 3.080, 3.100,&
14132        3.121, 3.141, 3.161, 3.181, 3.201, 3.221, 3.240, 3.259, 3.279,&
14133        3.298, 3.317, 3.335, 3.354, 3.372, 3.391, 3.409, 3.427, 3.445,&
14134        3.463, 3.480, 3.498, 3.516, 3.533, 3.550, 3.567, 3.584, 3.601,&
14135        3.618, 3.634, 3.651, 3.667, 3.684, 3.700, 3.716, 3.732, 3.748,&
14136        3.764, 3.779, 3.795, 3.810, 3.826, 3.841, 3.856, 3.872, 3.887,&
14137        3.902, 3.916, 3.931, 3.946, 3.961, 3.975, 3.989, 4.004, 4.018,&
14138        4.032, 4.046, 4.060, 4.074, 4.088, 4.102, 4.116, 4.129, 4.143,&
14139        4.157, 4.170, 4.183, 4.197, 4.210, 4.223, 4.236, 4.249, 4.262,&
14140        4.275, 4.288, 4.300, 4.313, 4.326, 4.338, 4.351, 4.363, 4.376,&
14141        4.388, 4.400, 4.412, 4.424, 4.436, 4.449, 4.460, 4.472, 4.484,&
14142        4.496, 4.508, 4.519, 4.531, 4.543, 4.554, 4.566, 4.577, 4.588,&
14143        4.600, 4.611, 4.622                                           &
14144        /
14145       END
14146 !C
14147 !C=======================================================================
14148 !C
14149 !C *** ISORROPIA CODE
14150 !C *** SUBROUTINE KM323
14151 !C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD.
14152 !C     THE COMPUTATIONS HAVE BEEN PERFORMED AND THE RESULTS ARE STORED IN
14153 !C     LOOKUP TABLES. THE IONIC ACTIVITY 'IN' IS INPUT, AND THE ARRAY
14154 !C     'BINARR' IS RETURNED WITH THE BINARY COEFFICIENTS.
14155 !C
14156 !C     TEMPERATURE IS 323K
14157 !C
14158 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
14159 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
14160 !C *** WRITTEN BY ATHANASIOS NENES
14161 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
14162 !C
14163 !C=======================================================================
14164 !C
14165       SUBROUTINE KM3232p1 (IONIC, BINARR)
14166 !C
14167 !C *** Common block definition
14168 !C
14169       COMMON /KMC3232p1/                                         &
14170       BNC01M(  561),BNC02M(  561),BNC03M(  561),BNC04M(  561),&
14171       BNC05M(  561),BNC06M(  561),BNC07M(  561),BNC08M(  561),&
14172       BNC09M(  561),BNC10M(  561),BNC11M(  561),BNC12M(  561),&
14173       BNC13M(  561),BNC14M(  561),BNC15M(  561),BNC16M(  561),&
14174       BNC17M(  561),BNC18M(  561),BNC19M(  561),BNC20M(  561),&
14175       BNC21M(  561),BNC22M(  561),BNC23M(  561)
14176       REAL Binarr (23), Ionic
14177 !C
14178 !C *** Find position in arrays for bincoef
14179 !C
14180       IF (Ionic.LE. 0.200000E+02) THEN
14181          ipos = MIN(NINT( 0.200000E+02*Ionic) + 1,  400)
14182       ELSE
14183          ipos =   400+NINT( 0.200000E+01*Ionic- 0.400000E+02)
14184       ENDIF
14185       ipos = min(ipos,  561)
14186 !C
14187 !C *** Assign values to return array
14188 !C
14189       Binarr(01) = BNC01M(ipos)
14190       Binarr(02) = BNC02M(ipos)
14191       Binarr(03) = BNC03M(ipos)
14192       Binarr(04) = BNC04M(ipos)
14193       Binarr(05) = BNC05M(ipos)
14194       Binarr(06) = BNC06M(ipos)
14195       Binarr(07) = BNC07M(ipos)
14196       Binarr(08) = BNC08M(ipos)
14197       Binarr(09) = BNC09M(ipos)
14198       Binarr(10) = BNC10M(ipos)
14199       Binarr(11) = BNC11M(ipos)
14200       Binarr(12) = BNC12M(ipos)
14201       Binarr(13) = BNC13M(ipos)
14202       Binarr(14) = BNC14M(ipos)
14203       Binarr(15) = BNC15M(ipos)
14204       Binarr(16) = BNC16M(ipos)
14205       Binarr(17) = BNC17M(ipos)
14206       Binarr(18) = BNC18M(ipos)
14207       Binarr(19) = BNC19M(ipos)
14208       Binarr(20) = BNC20M(ipos)
14209       Binarr(21) = BNC21M(ipos)
14210       Binarr(22) = BNC22M(ipos)
14211       Binarr(23) = BNC23M(ipos)
14212 !C
14213 !C *** Return point ; End of subroutine
14214 !C
14215       RETURN
14216       END
14217
14218
14219       BLOCK DATA KMCF3232p1
14220 !C
14221 !C *** Common block definition
14222 !C
14223       COMMON /KMC3232p1/                                         &
14224       BNC01M(  561),BNC02M(  561),BNC03M(  561),BNC04M(  561),&
14225       BNC05M(  561),BNC06M(  561),BNC07M(  561),BNC08M(  561),&
14226       BNC09M(  561),BNC10M(  561),BNC11M(  561),BNC12M(  561),&
14227       BNC13M(  561),BNC14M(  561),BNC15M(  561),BNC16M(  561),&
14228       BNC17M(  561),BNC18M(  561),BNC19M(  561),BNC20M(  561),&
14229       BNC21M(  561),BNC22M(  561),BNC23M(  561)
14230
14231 !C
14232 !C *** NaCl
14233 !C
14234       DATA BNC01M/                                                   &
14235       -0.044,-0.092,-0.114,-0.129,-0.139,-0.147,-0.154,-0.159,-0.163,&
14236       -0.167,-0.170,-0.172,-0.174,-0.176,-0.177,-0.178,-0.179,-0.180,&
14237       -0.180,-0.181,-0.181,-0.181,-0.181,-0.180,-0.180,-0.180,-0.179,&
14238       -0.179,-0.178,-0.177,-0.177,-0.176,-0.175,-0.174,-0.173,-0.172,&
14239       -0.171,-0.170,-0.169,-0.168,-0.167,-0.166,-0.165,-0.163,-0.162,&
14240       -0.161,-0.160,-0.159,-0.157,-0.156,-0.155,-0.153,-0.152,-0.151,&
14241       -0.150,-0.148,-0.147,-0.146,-0.144,-0.143,-0.142,-0.140,-0.139,&
14242       -0.137,-0.136,-0.135,-0.133,-0.132,-0.130,-0.129,-0.127,-0.126,&
14243       -0.125,-0.123,-0.122,-0.120,-0.119,-0.117,-0.116,-0.114,-0.113,&
14244       -0.111,-0.109,-0.108,-0.106,-0.105,-0.103,-0.101,-0.100,-0.098,&
14245       -0.096,-0.095,-0.093,-0.091,-0.090,-0.088,-0.086,-0.084,-0.083,&
14246       -0.081,-0.079,-0.077,-0.076,-0.074,-0.072,-0.070,-0.068,-0.066,&
14247       -0.065,-0.063,-0.061,-0.059,-0.057,-0.055,-0.053,-0.052,-0.050,&
14248       -0.048,-0.046,-0.044,-0.042,-0.040,-0.038,-0.036,-0.035,-0.033,&
14249       -0.031,-0.029,-0.027,-0.025,-0.023,-0.021,-0.019,-0.017,-0.015,&
14250       -0.013,-0.012,-0.010,-0.008,-0.006,-0.004,-0.002, 0.000, 0.002,&
14251        0.004, 0.006, 0.008, 0.009, 0.011, 0.013, 0.015, 0.017, 0.019,&
14252        0.021, 0.023, 0.025, 0.027, 0.028, 0.030, 0.032, 0.034, 0.036,&
14253        0.038, 0.040, 0.042, 0.044, 0.045, 0.047, 0.049, 0.051, 0.053,&
14254        0.055, 0.057, 0.059, 0.060, 0.062, 0.064, 0.066, 0.068, 0.070,&
14255        0.072, 0.074, 0.075, 0.077, 0.079, 0.081, 0.083, 0.085, 0.086,&
14256        0.088, 0.090, 0.092, 0.094, 0.096, 0.097, 0.099, 0.101, 0.103,&
14257        0.105, 0.107, 0.108, 0.110, 0.112, 0.114, 0.116, 0.117, 0.119,&
14258        0.121, 0.123, 0.125, 0.127, 0.128, 0.130, 0.132, 0.134, 0.135,&
14259        0.137, 0.139, 0.141, 0.143, 0.144, 0.146, 0.148, 0.150, 0.151,&
14260        0.153, 0.155, 0.157, 0.159, 0.160, 0.162, 0.164, 0.166, 0.167,&
14261        0.169, 0.171, 0.173, 0.174, 0.176, 0.178, 0.180, 0.181, 0.183,&
14262        0.185, 0.186, 0.188, 0.190, 0.192, 0.193, 0.195, 0.197, 0.198,&
14263        0.200, 0.202, 0.204, 0.205, 0.207, 0.209, 0.210, 0.212, 0.214,&
14264        0.215, 0.217, 0.219, 0.221, 0.222, 0.224, 0.226, 0.227, 0.229,&
14265        0.231, 0.232, 0.234, 0.236, 0.237, 0.239, 0.241, 0.242, 0.244,&
14266        0.246, 0.247, 0.249, 0.250, 0.252, 0.254, 0.255, 0.257, 0.259,&
14267        0.260, 0.262, 0.264, 0.265, 0.267, 0.268, 0.270, 0.272, 0.273,&
14268        0.275, 0.276, 0.278, 0.280, 0.281, 0.283, 0.285, 0.286, 0.288,&
14269        0.289, 0.291, 0.293, 0.294, 0.296, 0.297, 0.299, 0.300, 0.302,&
14270        0.304, 0.305, 0.307, 0.308, 0.310, 0.311, 0.313, 0.315, 0.316,&
14271        0.318, 0.319, 0.321, 0.322, 0.324, 0.325, 0.327, 0.329, 0.330,&
14272        0.332, 0.333, 0.335, 0.336, 0.338, 0.339, 0.341, 0.342, 0.344,&
14273        0.345, 0.347, 0.349, 0.350, 0.352, 0.353, 0.355, 0.356, 0.358,&
14274        0.359, 0.361, 0.362, 0.364, 0.365, 0.367, 0.368, 0.370, 0.371,&
14275        0.373, 0.374, 0.376, 0.377, 0.379, 0.380, 0.382, 0.383, 0.384,&
14276        0.386, 0.387, 0.389, 0.390, 0.392, 0.393, 0.395, 0.396, 0.398,&
14277        0.399, 0.401, 0.402, 0.404, 0.405, 0.406, 0.408, 0.409, 0.411,&
14278        0.412, 0.414, 0.415, 0.417, 0.418, 0.419, 0.421, 0.422, 0.424,&
14279        0.425, 0.427, 0.428, 0.429, 0.445, 0.459, 0.472, 0.486, 0.499,&
14280        0.513, 0.526, 0.539, 0.552, 0.565, 0.577, 0.590, 0.602, 0.614,&
14281        0.626, 0.638, 0.650, 0.662, 0.674, 0.685, 0.697, 0.708, 0.719,&
14282        0.730, 0.741, 0.752, 0.763, 0.773, 0.784, 0.795, 0.805, 0.815,&
14283        0.825, 0.836, 0.846, 0.856, 0.866, 0.875, 0.885, 0.895, 0.904,&
14284        0.914, 0.923, 0.933, 0.942, 0.951, 0.960, 0.969, 0.979, 0.987,&
14285        0.996, 1.005, 1.014, 1.023, 1.031, 1.040, 1.049, 1.057, 1.065,&
14286        1.074, 1.082, 1.090, 1.099, 1.107, 1.115, 1.123, 1.131, 1.139,&
14287        1.147, 1.155, 1.163, 1.170, 1.178, 1.186, 1.193, 1.201, 1.209,&
14288        1.216, 1.224, 1.231, 1.238, 1.246, 1.253, 1.260, 1.267, 1.275,&
14289        1.282, 1.289, 1.296, 1.303, 1.310, 1.317, 1.324, 1.331, 1.338,&
14290        1.345, 1.351, 1.358, 1.365, 1.372, 1.378, 1.385, 1.392, 1.398,&
14291        1.405, 1.411, 1.418, 1.424, 1.431, 1.437, 1.443, 1.450, 1.456,&
14292        1.462, 1.469, 1.475, 1.481, 1.487, 1.493, 1.500, 1.506, 1.512,&
14293        1.518, 1.524, 1.530, 1.536, 1.542, 1.548, 1.554, 1.560, 1.565,&
14294        1.571, 1.577, 1.583, 1.589, 1.594, 1.600, 1.606, 1.612, 1.617,&
14295        1.623, 1.629, 1.634, 1.640, 1.645, 1.651, 1.656, 1.662, 1.667,&
14296        1.673, 1.678, 1.684, 1.689, 1.695, 1.700, 1.705, 1.711, 1.716,&
14297        1.721, 1.727, 1.732                                           &
14298        /
14299 !C
14300 !C **  Na2SO4
14301 !C
14302       DATA BNC02M/                                                   &
14303       -0.091,-0.196,-0.249,-0.285,-0.314,-0.337,-0.358,-0.375,-0.390,&
14304       -0.404,-0.417,-0.428,-0.439,-0.449,-0.458,-0.466,-0.475,-0.482,&
14305       -0.489,-0.496,-0.502,-0.508,-0.514,-0.520,-0.525,-0.530,-0.535,&
14306       -0.540,-0.544,-0.549,-0.553,-0.557,-0.561,-0.565,-0.569,-0.572,&
14307       -0.576,-0.579,-0.582,-0.585,-0.588,-0.591,-0.594,-0.597,-0.600,&
14308       -0.603,-0.605,-0.608,-0.610,-0.613,-0.615,-0.617,-0.620,-0.622,&
14309       -0.624,-0.626,-0.628,-0.630,-0.632,-0.634,-0.636,-0.638,-0.640,&
14310       -0.641,-0.643,-0.645,-0.647,-0.648,-0.650,-0.651,-0.653,-0.654,&
14311       -0.656,-0.657,-0.659,-0.660,-0.662,-0.663,-0.665,-0.666,-0.667,&
14312       -0.669,-0.670,-0.671,-0.672,-0.674,-0.675,-0.676,-0.677,-0.678,&
14313       -0.679,-0.681,-0.682,-0.683,-0.684,-0.685,-0.686,-0.687,-0.688,&
14314       -0.689,-0.690,-0.691,-0.692,-0.693,-0.694,-0.695,-0.696,-0.697,&
14315       -0.698,-0.699,-0.700,-0.701,-0.701,-0.702,-0.703,-0.704,-0.705,&
14316       -0.706,-0.706,-0.707,-0.708,-0.709,-0.710,-0.710,-0.711,-0.712,&
14317       -0.713,-0.713,-0.714,-0.715,-0.716,-0.716,-0.717,-0.718,-0.718,&
14318       -0.719,-0.720,-0.720,-0.721,-0.722,-0.722,-0.723,-0.724,-0.724,&
14319       -0.725,-0.725,-0.726,-0.727,-0.727,-0.728,-0.728,-0.729,-0.730,&
14320       -0.730,-0.731,-0.731,-0.732,-0.732,-0.733,-0.733,-0.734,-0.734,&
14321       -0.735,-0.735,-0.736,-0.736,-0.737,-0.737,-0.738,-0.738,-0.739,&
14322       -0.739,-0.740,-0.740,-0.741,-0.741,-0.742,-0.742,-0.742,-0.743,&
14323       -0.743,-0.744,-0.744,-0.745,-0.745,-0.745,-0.746,-0.746,-0.747,&
14324       -0.747,-0.747,-0.748,-0.748,-0.748,-0.749,-0.749,-0.750,-0.750,&
14325       -0.750,-0.751,-0.751,-0.751,-0.752,-0.752,-0.752,-0.753,-0.753,&
14326       -0.753,-0.754,-0.754,-0.754,-0.755,-0.755,-0.755,-0.755,-0.756,&
14327       -0.756,-0.756,-0.757,-0.757,-0.757,-0.758,-0.758,-0.758,-0.758,&
14328       -0.759,-0.759,-0.759,-0.759,-0.760,-0.760,-0.760,-0.760,-0.761,&
14329       -0.761,-0.761,-0.761,-0.762,-0.762,-0.762,-0.762,-0.763,-0.763,&
14330       -0.763,-0.763,-0.764,-0.764,-0.764,-0.764,-0.764,-0.765,-0.765,&
14331       -0.765,-0.765,-0.765,-0.766,-0.766,-0.766,-0.766,-0.766,-0.767,&
14332       -0.767,-0.767,-0.767,-0.767,-0.768,-0.768,-0.768,-0.768,-0.768,&
14333       -0.768,-0.769,-0.769,-0.769,-0.769,-0.769,-0.769,-0.770,-0.770,&
14334       -0.770,-0.770,-0.770,-0.770,-0.771,-0.771,-0.771,-0.771,-0.771,&
14335       -0.771,-0.771,-0.771,-0.772,-0.772,-0.772,-0.772,-0.772,-0.772,&
14336       -0.772,-0.773,-0.773,-0.773,-0.773,-0.773,-0.773,-0.773,-0.773,&
14337       -0.773,-0.774,-0.774,-0.774,-0.774,-0.774,-0.774,-0.774,-0.774,&
14338       -0.774,-0.775,-0.775,-0.775,-0.775,-0.775,-0.775,-0.775,-0.775,&
14339       -0.775,-0.775,-0.775,-0.775,-0.776,-0.776,-0.776,-0.776,-0.776,&
14340       -0.776,-0.776,-0.776,-0.776,-0.776,-0.776,-0.776,-0.776,-0.777,&
14341       -0.777,-0.777,-0.777,-0.777,-0.777,-0.777,-0.777,-0.777,-0.777,&
14342       -0.777,-0.777,-0.777,-0.777,-0.777,-0.777,-0.777,-0.777,-0.778,&
14343       -0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.778,&
14344       -0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.778,&
14345       -0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.778,&
14346       -0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.779,-0.779,&
14347       -0.779,-0.779,-0.779,-0.779,-0.779,-0.779,-0.778,-0.778,-0.778,&
14348       -0.778,-0.777,-0.777,-0.776,-0.776,-0.775,-0.774,-0.774,-0.773,&
14349       -0.772,-0.771,-0.770,-0.769,-0.768,-0.767,-0.766,-0.765,-0.764,&
14350       -0.763,-0.762,-0.760,-0.759,-0.758,-0.756,-0.755,-0.754,-0.752,&
14351       -0.751,-0.749,-0.748,-0.746,-0.745,-0.743,-0.742,-0.740,-0.739,&
14352       -0.737,-0.735,-0.734,-0.732,-0.730,-0.729,-0.727,-0.725,-0.723,&
14353       -0.722,-0.720,-0.718,-0.716,-0.714,-0.713,-0.711,-0.709,-0.707,&
14354       -0.705,-0.703,-0.701,-0.699,-0.697,-0.695,-0.693,-0.691,-0.690,&
14355       -0.688,-0.686,-0.683,-0.681,-0.679,-0.677,-0.675,-0.673,-0.671,&
14356       -0.669,-0.667,-0.665,-0.663,-0.661,-0.659,-0.656,-0.654,-0.652,&
14357       -0.650,-0.648,-0.646,-0.644,-0.641,-0.639,-0.637,-0.635,-0.633,&
14358       -0.630,-0.628,-0.626,-0.624,-0.621,-0.619,-0.617,-0.615,-0.612,&
14359       -0.610,-0.608,-0.606,-0.603,-0.601,-0.599,-0.597,-0.594,-0.592,&
14360       -0.590,-0.587,-0.585,-0.583,-0.580,-0.578,-0.576,-0.573,-0.571,&
14361       -0.569,-0.566,-0.564,-0.562,-0.559,-0.557,-0.555,-0.552,-0.550,&
14362       -0.547,-0.545,-0.543,-0.540,-0.538,-0.536,-0.533,-0.531,-0.528,&
14363       -0.526,-0.524,-0.521,-0.519,-0.516,-0.514,-0.511,-0.509,-0.507,&
14364       -0.504,-0.502,-0.499,-0.497,-0.494,-0.492,-0.490,-0.487,-0.485,&
14365       -0.482,-0.480,-0.477                                           &
14366        /
14367 !C
14368 !C **  NaNO3
14369 !C
14370       DATA BNC03M/                                                   &
14371       -0.045,-0.099,-0.125,-0.144,-0.159,-0.171,-0.181,-0.190,-0.198,&
14372       -0.206,-0.212,-0.218,-0.224,-0.229,-0.234,-0.239,-0.243,-0.247,&
14373       -0.251,-0.255,-0.258,-0.261,-0.265,-0.268,-0.271,-0.274,-0.276,&
14374       -0.279,-0.281,-0.284,-0.286,-0.289,-0.291,-0.293,-0.295,-0.297,&
14375       -0.299,-0.301,-0.303,-0.305,-0.306,-0.308,-0.310,-0.312,-0.313,&
14376       -0.315,-0.316,-0.318,-0.319,-0.321,-0.322,-0.323,-0.325,-0.326,&
14377       -0.327,-0.329,-0.330,-0.331,-0.332,-0.333,-0.335,-0.336,-0.337,&
14378       -0.338,-0.339,-0.340,-0.341,-0.342,-0.343,-0.344,-0.345,-0.346,&
14379       -0.347,-0.348,-0.349,-0.350,-0.350,-0.351,-0.352,-0.353,-0.354,&
14380       -0.355,-0.356,-0.356,-0.357,-0.358,-0.359,-0.359,-0.360,-0.361,&
14381       -0.362,-0.363,-0.363,-0.364,-0.365,-0.365,-0.366,-0.367,-0.368,&
14382       -0.368,-0.369,-0.370,-0.370,-0.371,-0.372,-0.372,-0.373,-0.374,&
14383       -0.374,-0.375,-0.375,-0.376,-0.377,-0.377,-0.378,-0.378,-0.379,&
14384       -0.380,-0.380,-0.381,-0.381,-0.382,-0.383,-0.383,-0.384,-0.384,&
14385       -0.385,-0.385,-0.386,-0.386,-0.387,-0.387,-0.388,-0.388,-0.389,&
14386       -0.389,-0.390,-0.390,-0.391,-0.391,-0.392,-0.392,-0.393,-0.393,&
14387       -0.394,-0.394,-0.395,-0.395,-0.396,-0.396,-0.397,-0.397,-0.397,&
14388       -0.398,-0.398,-0.399,-0.399,-0.400,-0.400,-0.400,-0.401,-0.401,&
14389       -0.402,-0.402,-0.402,-0.403,-0.403,-0.404,-0.404,-0.404,-0.405,&
14390       -0.405,-0.406,-0.406,-0.406,-0.407,-0.407,-0.407,-0.408,-0.408,&
14391       -0.408,-0.409,-0.409,-0.409,-0.410,-0.410,-0.411,-0.411,-0.411,&
14392       -0.412,-0.412,-0.412,-0.413,-0.413,-0.413,-0.413,-0.414,-0.414,&
14393       -0.414,-0.415,-0.415,-0.415,-0.416,-0.416,-0.416,-0.417,-0.417,&
14394       -0.417,-0.417,-0.418,-0.418,-0.418,-0.419,-0.419,-0.419,-0.419,&
14395       -0.420,-0.420,-0.420,-0.421,-0.421,-0.421,-0.421,-0.422,-0.422,&
14396       -0.422,-0.422,-0.423,-0.423,-0.423,-0.423,-0.424,-0.424,-0.424,&
14397       -0.424,-0.425,-0.425,-0.425,-0.425,-0.426,-0.426,-0.426,-0.426,&
14398       -0.427,-0.427,-0.427,-0.427,-0.428,-0.428,-0.428,-0.428,-0.428,&
14399       -0.429,-0.429,-0.429,-0.429,-0.430,-0.430,-0.430,-0.430,-0.430,&
14400       -0.431,-0.431,-0.431,-0.431,-0.431,-0.432,-0.432,-0.432,-0.432,&
14401       -0.432,-0.433,-0.433,-0.433,-0.433,-0.433,-0.434,-0.434,-0.434,&
14402       -0.434,-0.434,-0.435,-0.435,-0.435,-0.435,-0.435,-0.435,-0.436,&
14403       -0.436,-0.436,-0.436,-0.436,-0.436,-0.437,-0.437,-0.437,-0.437,&
14404       -0.437,-0.438,-0.438,-0.438,-0.438,-0.438,-0.438,-0.438,-0.439,&
14405       -0.439,-0.439,-0.439,-0.439,-0.439,-0.440,-0.440,-0.440,-0.440,&
14406       -0.440,-0.440,-0.440,-0.441,-0.441,-0.441,-0.441,-0.441,-0.441,&
14407       -0.442,-0.442,-0.442,-0.442,-0.442,-0.442,-0.442,-0.442,-0.443,&
14408       -0.443,-0.443,-0.443,-0.443,-0.443,-0.443,-0.444,-0.444,-0.444,&
14409       -0.444,-0.444,-0.444,-0.444,-0.444,-0.445,-0.445,-0.445,-0.445,&
14410       -0.445,-0.445,-0.445,-0.445,-0.446,-0.446,-0.446,-0.446,-0.446,&
14411       -0.446,-0.446,-0.446,-0.446,-0.447,-0.447,-0.447,-0.447,-0.447,&
14412       -0.447,-0.447,-0.447,-0.447,-0.447,-0.448,-0.448,-0.448,-0.448,&
14413       -0.448,-0.448,-0.448,-0.448,-0.448,-0.449,-0.449,-0.449,-0.449,&
14414       -0.449,-0.449,-0.449,-0.449,-0.449,-0.449,-0.449,-0.450,-0.450,&
14415       -0.450,-0.450,-0.450,-0.450,-0.451,-0.452,-0.452,-0.453,-0.454,&
14416       -0.454,-0.455,-0.455,-0.456,-0.456,-0.457,-0.457,-0.457,-0.458,&
14417       -0.458,-0.458,-0.458,-0.458,-0.458,-0.458,-0.459,-0.459,-0.459,&
14418       -0.459,-0.459,-0.458,-0.458,-0.458,-0.458,-0.458,-0.458,-0.458,&
14419       -0.457,-0.457,-0.457,-0.457,-0.456,-0.456,-0.456,-0.455,-0.455,&
14420       -0.455,-0.454,-0.454,-0.453,-0.453,-0.453,-0.452,-0.452,-0.451,&
14421       -0.451,-0.450,-0.450,-0.449,-0.449,-0.448,-0.448,-0.447,-0.446,&
14422       -0.446,-0.445,-0.445,-0.444,-0.443,-0.443,-0.442,-0.442,-0.441,&
14423       -0.440,-0.440,-0.439,-0.438,-0.437,-0.437,-0.436,-0.435,-0.435,&
14424       -0.434,-0.433,-0.432,-0.432,-0.431,-0.430,-0.429,-0.429,-0.428,&
14425       -0.427,-0.426,-0.425,-0.425,-0.424,-0.423,-0.422,-0.421,-0.420,&
14426       -0.420,-0.419,-0.418,-0.417,-0.416,-0.415,-0.414,-0.414,-0.413,&
14427       -0.412,-0.411,-0.410,-0.409,-0.408,-0.407,-0.406,-0.405,-0.404,&
14428       -0.404,-0.403,-0.402,-0.401,-0.400,-0.399,-0.398,-0.397,-0.396,&
14429       -0.395,-0.394,-0.393,-0.392,-0.391,-0.390,-0.389,-0.388,-0.387,&
14430       -0.386,-0.385,-0.384,-0.383,-0.382,-0.381,-0.380,-0.379,-0.378,&
14431       -0.377,-0.376,-0.375,-0.374,-0.373,-0.372,-0.371,-0.370,-0.369,&
14432       -0.368,-0.367,-0.366,-0.365,-0.364,-0.363,-0.362,-0.361,-0.360,&
14433       -0.359,-0.358,-0.356                                           &
14434        /
14435 !C
14436 !C **  (NH4)2SO4
14437 !C
14438       DATA BNC04M/                                                   &
14439       -0.091,-0.197,-0.249,-0.286,-0.315,-0.339,-0.359,-0.377,-0.392,&
14440       -0.406,-0.419,-0.431,-0.442,-0.452,-0.461,-0.470,-0.478,-0.486,&
14441       -0.493,-0.500,-0.507,-0.513,-0.519,-0.525,-0.530,-0.535,-0.540,&
14442       -0.545,-0.550,-0.554,-0.559,-0.563,-0.567,-0.571,-0.575,-0.579,&
14443       -0.582,-0.586,-0.589,-0.592,-0.596,-0.599,-0.602,-0.605,-0.608,&
14444       -0.611,-0.613,-0.616,-0.619,-0.621,-0.624,-0.626,-0.628,-0.631,&
14445       -0.633,-0.635,-0.637,-0.640,-0.642,-0.644,-0.646,-0.648,-0.650,&
14446       -0.652,-0.653,-0.655,-0.657,-0.659,-0.661,-0.662,-0.664,-0.666,&
14447       -0.667,-0.669,-0.670,-0.672,-0.673,-0.675,-0.676,-0.678,-0.679,&
14448       -0.681,-0.682,-0.683,-0.685,-0.686,-0.687,-0.689,-0.690,-0.691,&
14449       -0.693,-0.694,-0.695,-0.696,-0.697,-0.699,-0.700,-0.701,-0.702,&
14450       -0.703,-0.704,-0.705,-0.707,-0.708,-0.709,-0.710,-0.711,-0.712,&
14451       -0.713,-0.714,-0.715,-0.716,-0.717,-0.718,-0.719,-0.720,-0.721,&
14452       -0.722,-0.723,-0.724,-0.724,-0.725,-0.726,-0.727,-0.728,-0.729,&
14453       -0.730,-0.731,-0.731,-0.732,-0.733,-0.734,-0.735,-0.735,-0.736,&
14454       -0.737,-0.738,-0.738,-0.739,-0.740,-0.741,-0.741,-0.742,-0.743,&
14455       -0.744,-0.744,-0.745,-0.746,-0.746,-0.747,-0.748,-0.748,-0.749,&
14456       -0.750,-0.750,-0.751,-0.752,-0.752,-0.753,-0.754,-0.754,-0.755,&
14457       -0.755,-0.756,-0.757,-0.757,-0.758,-0.758,-0.759,-0.759,-0.760,&
14458       -0.761,-0.761,-0.762,-0.762,-0.763,-0.763,-0.764,-0.764,-0.765,&
14459       -0.765,-0.766,-0.766,-0.767,-0.767,-0.768,-0.768,-0.769,-0.769,&
14460       -0.770,-0.770,-0.771,-0.771,-0.772,-0.772,-0.772,-0.773,-0.773,&
14461       -0.774,-0.774,-0.775,-0.775,-0.776,-0.776,-0.776,-0.777,-0.777,&
14462       -0.778,-0.778,-0.778,-0.779,-0.779,-0.780,-0.780,-0.780,-0.781,&
14463       -0.781,-0.781,-0.782,-0.782,-0.783,-0.783,-0.783,-0.784,-0.784,&
14464       -0.784,-0.785,-0.785,-0.785,-0.786,-0.786,-0.786,-0.787,-0.787,&
14465       -0.787,-0.788,-0.788,-0.788,-0.789,-0.789,-0.789,-0.790,-0.790,&
14466       -0.790,-0.790,-0.791,-0.791,-0.791,-0.792,-0.792,-0.792,-0.793,&
14467       -0.793,-0.793,-0.793,-0.794,-0.794,-0.794,-0.794,-0.795,-0.795,&
14468       -0.795,-0.795,-0.796,-0.796,-0.796,-0.796,-0.797,-0.797,-0.797,&
14469       -0.797,-0.798,-0.798,-0.798,-0.798,-0.799,-0.799,-0.799,-0.799,&
14470       -0.800,-0.800,-0.800,-0.800,-0.800,-0.801,-0.801,-0.801,-0.801,&
14471       -0.801,-0.802,-0.802,-0.802,-0.802,-0.802,-0.803,-0.803,-0.803,&
14472       -0.803,-0.803,-0.804,-0.804,-0.804,-0.804,-0.804,-0.804,-0.805,&
14473       -0.805,-0.805,-0.805,-0.805,-0.806,-0.806,-0.806,-0.806,-0.806,&
14474       -0.806,-0.806,-0.807,-0.807,-0.807,-0.807,-0.807,-0.807,-0.808,&
14475       -0.808,-0.808,-0.808,-0.808,-0.808,-0.808,-0.809,-0.809,-0.809,&
14476       -0.809,-0.809,-0.809,-0.809,-0.810,-0.810,-0.810,-0.810,-0.810,&
14477       -0.810,-0.810,-0.810,-0.810,-0.811,-0.811,-0.811,-0.811,-0.811,&
14478       -0.811,-0.811,-0.811,-0.812,-0.812,-0.812,-0.812,-0.812,-0.812,&
14479       -0.812,-0.812,-0.812,-0.812,-0.813,-0.813,-0.813,-0.813,-0.813,&
14480       -0.813,-0.813,-0.813,-0.813,-0.813,-0.813,-0.814,-0.814,-0.814,&
14481       -0.814,-0.814,-0.814,-0.814,-0.814,-0.814,-0.814,-0.814,-0.814,&
14482       -0.814,-0.815,-0.815,-0.815,-0.815,-0.815,-0.815,-0.815,-0.815,&
14483       -0.815,-0.815,-0.815,-0.815,-0.816,-0.816,-0.817,-0.817,-0.817,&
14484       -0.817,-0.817,-0.817,-0.817,-0.817,-0.817,-0.817,-0.816,-0.816,&
14485       -0.816,-0.815,-0.815,-0.814,-0.813,-0.813,-0.812,-0.811,-0.811,&
14486       -0.810,-0.809,-0.808,-0.807,-0.806,-0.805,-0.804,-0.803,-0.802,&
14487       -0.801,-0.800,-0.799,-0.797,-0.796,-0.795,-0.794,-0.792,-0.791,&
14488       -0.790,-0.788,-0.787,-0.786,-0.784,-0.783,-0.781,-0.780,-0.778,&
14489       -0.777,-0.775,-0.774,-0.772,-0.771,-0.769,-0.767,-0.766,-0.764,&
14490       -0.762,-0.761,-0.759,-0.757,-0.756,-0.754,-0.752,-0.750,-0.749,&
14491       -0.747,-0.745,-0.743,-0.741,-0.740,-0.738,-0.736,-0.734,-0.732,&
14492       -0.730,-0.728,-0.727,-0.725,-0.723,-0.721,-0.719,-0.717,-0.715,&
14493       -0.713,-0.711,-0.709,-0.707,-0.705,-0.703,-0.701,-0.699,-0.697,&
14494       -0.695,-0.693,-0.691,-0.689,-0.687,-0.685,-0.683,-0.681,-0.678,&
14495       -0.676,-0.674,-0.672,-0.670,-0.668,-0.666,-0.664,-0.661,-0.659,&
14496       -0.657,-0.655,-0.653,-0.651,-0.648,-0.646,-0.644,-0.642,-0.640,&
14497       -0.638,-0.635,-0.633,-0.631,-0.629,-0.626,-0.624,-0.622,-0.620,&
14498       -0.618,-0.615,-0.613,-0.611,-0.609,-0.606,-0.604,-0.602,-0.599,&
14499       -0.597,-0.595,-0.593,-0.590,-0.588,-0.586,-0.583,-0.581,-0.579,&
14500       -0.577,-0.574,-0.572,-0.570,-0.567,-0.565,-0.563,-0.560,-0.558,&
14501       -0.556,-0.553,-0.551                                           &
14502        /
14503 !C
14504 !C **  NH4NO3
14505 !C
14506       DATA BNC05M/                                                   &
14507       -0.046,-0.101,-0.129,-0.149,-0.166,-0.179,-0.191,-0.202,-0.211,&
14508       -0.220,-0.228,-0.235,-0.242,-0.249,-0.255,-0.261,-0.266,-0.272,&
14509       -0.277,-0.282,-0.286,-0.291,-0.295,-0.299,-0.303,-0.307,-0.311,&
14510       -0.315,-0.319,-0.322,-0.326,-0.329,-0.332,-0.335,-0.339,-0.342,&
14511       -0.345,-0.348,-0.350,-0.353,-0.356,-0.359,-0.361,-0.364,-0.366,&
14512       -0.369,-0.371,-0.374,-0.376,-0.378,-0.380,-0.383,-0.385,-0.387,&
14513       -0.389,-0.391,-0.393,-0.395,-0.397,-0.399,-0.401,-0.403,-0.405,&
14514       -0.406,-0.408,-0.410,-0.412,-0.414,-0.415,-0.417,-0.419,-0.420,&
14515       -0.422,-0.424,-0.425,-0.427,-0.428,-0.430,-0.432,-0.433,-0.435,&
14516       -0.436,-0.438,-0.439,-0.441,-0.442,-0.444,-0.445,-0.447,-0.448,&
14517       -0.449,-0.451,-0.452,-0.454,-0.455,-0.456,-0.458,-0.459,-0.461,&
14518       -0.462,-0.463,-0.465,-0.466,-0.467,-0.469,-0.470,-0.471,-0.473,&
14519       -0.474,-0.475,-0.477,-0.478,-0.479,-0.480,-0.482,-0.483,-0.484,&
14520       -0.485,-0.487,-0.488,-0.489,-0.490,-0.492,-0.493,-0.494,-0.495,&
14521       -0.496,-0.498,-0.499,-0.500,-0.501,-0.502,-0.503,-0.504,-0.506,&
14522       -0.507,-0.508,-0.509,-0.510,-0.511,-0.512,-0.513,-0.514,-0.515,&
14523       -0.516,-0.517,-0.519,-0.520,-0.521,-0.522,-0.523,-0.524,-0.525,&
14524       -0.526,-0.527,-0.528,-0.529,-0.530,-0.531,-0.532,-0.533,-0.534,&
14525       -0.535,-0.535,-0.536,-0.537,-0.538,-0.539,-0.540,-0.541,-0.542,&
14526       -0.543,-0.544,-0.545,-0.546,-0.547,-0.547,-0.548,-0.549,-0.550,&
14527       -0.551,-0.552,-0.553,-0.553,-0.554,-0.555,-0.556,-0.557,-0.558,&
14528       -0.559,-0.559,-0.560,-0.561,-0.562,-0.563,-0.563,-0.564,-0.565,&
14529       -0.566,-0.567,-0.567,-0.568,-0.569,-0.570,-0.570,-0.571,-0.572,&
14530       -0.573,-0.574,-0.574,-0.575,-0.576,-0.576,-0.577,-0.578,-0.579,&
14531       -0.579,-0.580,-0.581,-0.582,-0.582,-0.583,-0.584,-0.584,-0.585,&
14532       -0.586,-0.586,-0.587,-0.588,-0.589,-0.589,-0.590,-0.591,-0.591,&
14533       -0.592,-0.593,-0.593,-0.594,-0.595,-0.595,-0.596,-0.596,-0.597,&
14534       -0.598,-0.598,-0.599,-0.600,-0.600,-0.601,-0.602,-0.602,-0.603,&
14535       -0.603,-0.604,-0.605,-0.605,-0.606,-0.606,-0.607,-0.608,-0.608,&
14536       -0.609,-0.609,-0.610,-0.611,-0.611,-0.612,-0.612,-0.613,-0.613,&
14537       -0.614,-0.615,-0.615,-0.616,-0.616,-0.617,-0.617,-0.618,-0.618,&
14538       -0.619,-0.620,-0.620,-0.621,-0.621,-0.622,-0.622,-0.623,-0.623,&
14539       -0.624,-0.624,-0.625,-0.625,-0.626,-0.626,-0.627,-0.627,-0.628,&
14540       -0.628,-0.629,-0.629,-0.630,-0.630,-0.631,-0.631,-0.632,-0.632,&
14541       -0.633,-0.633,-0.634,-0.634,-0.635,-0.635,-0.636,-0.636,-0.637,&
14542       -0.637,-0.638,-0.638,-0.639,-0.639,-0.639,-0.640,-0.640,-0.641,&
14543       -0.641,-0.642,-0.642,-0.643,-0.643,-0.643,-0.644,-0.644,-0.645,&
14544       -0.645,-0.646,-0.646,-0.647,-0.647,-0.647,-0.648,-0.648,-0.649,&
14545       -0.649,-0.649,-0.650,-0.650,-0.651,-0.651,-0.652,-0.652,-0.652,&
14546       -0.653,-0.653,-0.654,-0.654,-0.654,-0.655,-0.655,-0.656,-0.656,&
14547       -0.656,-0.657,-0.657,-0.658,-0.658,-0.658,-0.659,-0.659,-0.659,&
14548       -0.660,-0.660,-0.661,-0.661,-0.661,-0.662,-0.662,-0.662,-0.663,&
14549       -0.663,-0.663,-0.664,-0.664,-0.665,-0.665,-0.665,-0.666,-0.666,&
14550       -0.666,-0.667,-0.667,-0.667,-0.668,-0.668,-0.668,-0.669,-0.669,&
14551       -0.669,-0.670,-0.670,-0.670,-0.674,-0.677,-0.680,-0.683,-0.686,&
14552       -0.688,-0.691,-0.693,-0.696,-0.698,-0.700,-0.702,-0.705,-0.706,&
14553       -0.708,-0.710,-0.712,-0.714,-0.715,-0.717,-0.718,-0.720,-0.721,&
14554       -0.722,-0.723,-0.725,-0.726,-0.727,-0.728,-0.729,-0.730,-0.731,&
14555       -0.732,-0.732,-0.733,-0.734,-0.735,-0.735,-0.736,-0.736,-0.737,&
14556       -0.737,-0.738,-0.738,-0.739,-0.739,-0.739,-0.740,-0.740,-0.740,&
14557       -0.741,-0.741,-0.741,-0.741,-0.741,-0.741,-0.741,-0.741,-0.741,&
14558       -0.741,-0.741,-0.741,-0.741,-0.741,-0.741,-0.741,-0.741,-0.741,&
14559       -0.741,-0.740,-0.740,-0.740,-0.740,-0.739,-0.739,-0.739,-0.739,&
14560       -0.738,-0.738,-0.738,-0.737,-0.737,-0.736,-0.736,-0.736,-0.735,&
14561       -0.735,-0.734,-0.734,-0.733,-0.733,-0.732,-0.732,-0.731,-0.731,&
14562       -0.730,-0.729,-0.729,-0.728,-0.728,-0.727,-0.726,-0.726,-0.725,&
14563       -0.725,-0.724,-0.723,-0.723,-0.722,-0.721,-0.721,-0.720,-0.719,&
14564       -0.718,-0.718,-0.717,-0.716,-0.715,-0.715,-0.714,-0.713,-0.712,&
14565       -0.711,-0.711,-0.710,-0.709,-0.708,-0.707,-0.707,-0.706,-0.705,&
14566       -0.704,-0.703,-0.702,-0.701,-0.701,-0.700,-0.699,-0.698,-0.697,&
14567       -0.696,-0.695,-0.694,-0.693,-0.692,-0.692,-0.691,-0.690,-0.689,&
14568       -0.688,-0.687,-0.686,-0.685,-0.684,-0.683,-0.682,-0.681,-0.680,&
14569       -0.679,-0.678,-0.677                                           &
14570        /
14571 !C
14572 !C **  NH4Cl
14573 !C
14574       DATA BNC06M/                                                   &
14575       -0.045,-0.096,-0.120,-0.136,-0.149,-0.159,-0.167,-0.174,-0.181,&
14576       -0.186,-0.191,-0.195,-0.199,-0.202,-0.205,-0.208,-0.210,-0.213,&
14577       -0.215,-0.217,-0.219,-0.220,-0.222,-0.223,-0.225,-0.226,-0.227,&
14578       -0.228,-0.229,-0.230,-0.231,-0.232,-0.232,-0.233,-0.234,-0.234,&
14579       -0.235,-0.235,-0.236,-0.236,-0.237,-0.237,-0.237,-0.238,-0.238,&
14580       -0.238,-0.238,-0.238,-0.239,-0.239,-0.239,-0.239,-0.239,-0.239,&
14581       -0.239,-0.239,-0.239,-0.239,-0.239,-0.239,-0.239,-0.239,-0.239,&
14582       -0.239,-0.239,-0.239,-0.239,-0.239,-0.239,-0.239,-0.238,-0.238,&
14583       -0.238,-0.238,-0.238,-0.238,-0.237,-0.237,-0.237,-0.237,-0.237,&
14584       -0.236,-0.236,-0.236,-0.235,-0.235,-0.235,-0.235,-0.234,-0.234,&
14585       -0.234,-0.233,-0.233,-0.233,-0.232,-0.232,-0.231,-0.231,-0.231,&
14586       -0.230,-0.230,-0.229,-0.229,-0.229,-0.228,-0.228,-0.227,-0.227,&
14587       -0.226,-0.226,-0.225,-0.225,-0.224,-0.224,-0.224,-0.223,-0.223,&
14588       -0.222,-0.222,-0.221,-0.221,-0.220,-0.219,-0.219,-0.218,-0.218,&
14589       -0.217,-0.217,-0.216,-0.216,-0.215,-0.215,-0.214,-0.214,-0.213,&
14590       -0.213,-0.212,-0.211,-0.211,-0.210,-0.210,-0.209,-0.209,-0.208,&
14591       -0.208,-0.207,-0.206,-0.206,-0.205,-0.205,-0.204,-0.204,-0.203,&
14592       -0.203,-0.202,-0.201,-0.201,-0.200,-0.200,-0.199,-0.199,-0.198,&
14593       -0.197,-0.197,-0.196,-0.196,-0.195,-0.195,-0.194,-0.193,-0.193,&
14594       -0.192,-0.192,-0.191,-0.191,-0.190,-0.189,-0.189,-0.188,-0.188,&
14595       -0.187,-0.186,-0.186,-0.185,-0.185,-0.184,-0.184,-0.183,-0.182,&
14596       -0.182,-0.181,-0.181,-0.180,-0.179,-0.179,-0.178,-0.178,-0.177,&
14597       -0.177,-0.176,-0.175,-0.175,-0.174,-0.174,-0.173,-0.172,-0.172,&
14598       -0.171,-0.171,-0.170,-0.170,-0.169,-0.168,-0.168,-0.167,-0.167,&
14599       -0.166,-0.165,-0.165,-0.164,-0.164,-0.163,-0.163,-0.162,-0.161,&
14600       -0.161,-0.160,-0.160,-0.159,-0.158,-0.158,-0.157,-0.157,-0.156,&
14601       -0.156,-0.155,-0.154,-0.154,-0.153,-0.153,-0.152,-0.151,-0.151,&
14602       -0.150,-0.150,-0.149,-0.149,-0.148,-0.147,-0.147,-0.146,-0.146,&
14603       -0.145,-0.145,-0.144,-0.143,-0.143,-0.142,-0.142,-0.141,-0.140,&
14604       -0.140,-0.139,-0.139,-0.138,-0.138,-0.137,-0.136,-0.136,-0.135,&
14605       -0.135,-0.134,-0.134,-0.133,-0.132,-0.132,-0.131,-0.131,-0.130,&
14606       -0.130,-0.129,-0.128,-0.128,-0.127,-0.127,-0.126,-0.126,-0.125,&
14607       -0.125,-0.124,-0.123,-0.123,-0.122,-0.122,-0.121,-0.121,-0.120,&
14608       -0.119,-0.119,-0.118,-0.118,-0.117,-0.117,-0.116,-0.115,-0.115,&
14609       -0.114,-0.114,-0.113,-0.113,-0.112,-0.112,-0.111,-0.110,-0.110,&
14610       -0.109,-0.109,-0.108,-0.108,-0.107,-0.107,-0.106,-0.105,-0.105,&
14611       -0.104,-0.104,-0.103,-0.103,-0.102,-0.102,-0.101,-0.100,-0.100,&
14612       -0.099,-0.099,-0.098,-0.098,-0.097,-0.097,-0.096,-0.096,-0.095,&
14613       -0.094,-0.094,-0.093,-0.093,-0.092,-0.092,-0.091,-0.091,-0.090,&
14614       -0.090,-0.089,-0.088,-0.088,-0.087,-0.087,-0.086,-0.086,-0.085,&
14615       -0.085,-0.084,-0.084,-0.083,-0.083,-0.082,-0.081,-0.081,-0.080,&
14616       -0.080,-0.079,-0.079,-0.078,-0.078,-0.077,-0.077,-0.076,-0.076,&
14617       -0.075,-0.074,-0.074,-0.073,-0.073,-0.072,-0.072,-0.071,-0.071,&
14618       -0.070,-0.070,-0.069,-0.069,-0.068,-0.068,-0.067,-0.067,-0.066,&
14619       -0.065,-0.065,-0.064,-0.064,-0.058,-0.053,-0.048,-0.043,-0.038,&
14620       -0.033,-0.028,-0.023,-0.018,-0.013,-0.008,-0.003, 0.002, 0.006,&
14621        0.011, 0.016, 0.021, 0.025, 0.030, 0.035, 0.039, 0.044, 0.048,&
14622        0.053, 0.057, 0.062, 0.066, 0.070, 0.075, 0.079, 0.083, 0.088,&
14623        0.092, 0.096, 0.100, 0.105, 0.109, 0.113, 0.117, 0.121, 0.125,&
14624        0.129, 0.133, 0.137, 0.141, 0.145, 0.149, 0.153, 0.157, 0.161,&
14625        0.165, 0.169, 0.173, 0.176, 0.180, 0.184, 0.188, 0.192, 0.195,&
14626        0.199, 0.203, 0.207, 0.210, 0.214, 0.218, 0.221, 0.225, 0.228,&
14627        0.232, 0.236, 0.239, 0.243, 0.246, 0.250, 0.253, 0.257, 0.260,&
14628        0.264, 0.267, 0.271, 0.274, 0.278, 0.281, 0.285, 0.288, 0.291,&
14629        0.295, 0.298, 0.301, 0.305, 0.308, 0.311, 0.315, 0.318, 0.321,&
14630        0.325, 0.328, 0.331, 0.334, 0.338, 0.341, 0.344, 0.347, 0.350,&
14631        0.354, 0.357, 0.360, 0.363, 0.366, 0.369, 0.373, 0.376, 0.379,&
14632        0.382, 0.385, 0.388, 0.391, 0.394, 0.397, 0.400, 0.403, 0.406,&
14633        0.409, 0.412, 0.416, 0.419, 0.422, 0.425, 0.428, 0.430, 0.433,&
14634        0.436, 0.439, 0.442, 0.445, 0.448, 0.451, 0.454, 0.457, 0.460,&
14635        0.463, 0.466, 0.469, 0.471, 0.474, 0.477, 0.480, 0.483, 0.486,&
14636        0.489, 0.491, 0.494, 0.497, 0.500, 0.503, 0.506, 0.508, 0.511,&
14637        0.514, 0.517, 0.520                                           &
14638        /
14639 !C
14640 !C **  (2H,SO4)
14641 !C
14642       DATA BNC07M/                                                   &
14643       -0.091,-0.196,-0.248,-0.284,-0.312,-0.336,-0.355,-0.372,-0.388,&
14644       -0.401,-0.414,-0.425,-0.435,-0.445,-0.453,-0.462,-0.469,-0.477,&
14645       -0.484,-0.490,-0.496,-0.502,-0.508,-0.513,-0.518,-0.523,-0.528,&
14646       -0.532,-0.536,-0.540,-0.544,-0.548,-0.552,-0.556,-0.559,-0.562,&
14647       -0.566,-0.569,-0.572,-0.575,-0.578,-0.580,-0.583,-0.586,-0.588,&
14648       -0.591,-0.593,-0.595,-0.598,-0.600,-0.602,-0.604,-0.606,-0.608,&
14649       -0.610,-0.612,-0.614,-0.616,-0.618,-0.620,-0.621,-0.623,-0.625,&
14650       -0.626,-0.628,-0.629,-0.631,-0.632,-0.634,-0.635,-0.637,-0.638,&
14651       -0.639,-0.641,-0.642,-0.643,-0.644,-0.646,-0.647,-0.648,-0.649,&
14652       -0.650,-0.652,-0.653,-0.654,-0.655,-0.656,-0.657,-0.658,-0.659,&
14653       -0.660,-0.661,-0.662,-0.663,-0.664,-0.665,-0.666,-0.666,-0.667,&
14654       -0.668,-0.669,-0.670,-0.671,-0.671,-0.672,-0.673,-0.674,-0.675,&
14655       -0.675,-0.676,-0.677,-0.678,-0.678,-0.679,-0.680,-0.680,-0.681,&
14656       -0.682,-0.682,-0.683,-0.684,-0.684,-0.685,-0.686,-0.686,-0.687,&
14657       -0.687,-0.688,-0.689,-0.689,-0.690,-0.690,-0.691,-0.691,-0.692,&
14658       -0.692,-0.693,-0.693,-0.694,-0.694,-0.695,-0.695,-0.696,-0.696,&
14659       -0.697,-0.697,-0.698,-0.698,-0.699,-0.699,-0.700,-0.700,-0.700,&
14660       -0.701,-0.701,-0.702,-0.702,-0.702,-0.703,-0.703,-0.704,-0.704,&
14661       -0.704,-0.705,-0.705,-0.705,-0.706,-0.706,-0.706,-0.707,-0.707,&
14662       -0.707,-0.708,-0.708,-0.708,-0.709,-0.709,-0.709,-0.710,-0.710,&
14663       -0.710,-0.711,-0.711,-0.711,-0.711,-0.712,-0.712,-0.712,-0.712,&
14664       -0.713,-0.713,-0.713,-0.713,-0.714,-0.714,-0.714,-0.714,-0.715,&
14665       -0.715,-0.715,-0.715,-0.716,-0.716,-0.716,-0.716,-0.716,-0.717,&
14666       -0.717,-0.717,-0.717,-0.717,-0.718,-0.718,-0.718,-0.718,-0.718,&
14667       -0.719,-0.719,-0.719,-0.719,-0.719,-0.719,-0.720,-0.720,-0.720,&
14668       -0.720,-0.720,-0.720,-0.720,-0.721,-0.721,-0.721,-0.721,-0.721,&
14669       -0.721,-0.721,-0.722,-0.722,-0.722,-0.722,-0.722,-0.722,-0.722,&
14670       -0.722,-0.723,-0.723,-0.723,-0.723,-0.723,-0.723,-0.723,-0.723,&
14671       -0.723,-0.723,-0.724,-0.724,-0.724,-0.724,-0.724,-0.724,-0.724,&
14672       -0.724,-0.724,-0.724,-0.724,-0.724,-0.725,-0.725,-0.725,-0.725,&
14673       -0.725,-0.725,-0.725,-0.725,-0.725,-0.725,-0.725,-0.725,-0.725,&
14674       -0.725,-0.725,-0.725,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,&
14675       -0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,&
14676       -0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,&
14677       -0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,&
14678       -0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,&
14679       -0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,&
14680       -0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,&
14681       -0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,&
14682       -0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.725,-0.725,-0.725,&
14683       -0.725,-0.725,-0.725,-0.725,-0.725,-0.725,-0.725,-0.725,-0.725,&
14684       -0.725,-0.725,-0.725,-0.725,-0.725,-0.725,-0.725,-0.725,-0.725,&
14685       -0.724,-0.724,-0.724,-0.724,-0.724,-0.724,-0.724,-0.724,-0.724,&
14686       -0.724,-0.724,-0.724,-0.724,-0.724,-0.724,-0.724,-0.723,-0.723,&
14687       -0.723,-0.723,-0.723,-0.723,-0.722,-0.721,-0.721,-0.720,-0.719,&
14688       -0.717,-0.716,-0.715,-0.714,-0.713,-0.711,-0.710,-0.709,-0.707,&
14689       -0.706,-0.704,-0.703,-0.701,-0.700,-0.698,-0.696,-0.695,-0.693,&
14690       -0.691,-0.689,-0.688,-0.686,-0.684,-0.682,-0.680,-0.678,-0.676,&
14691       -0.675,-0.673,-0.671,-0.669,-0.667,-0.665,-0.663,-0.661,-0.658,&
14692       -0.656,-0.654,-0.652,-0.650,-0.648,-0.646,-0.644,-0.642,-0.639,&
14693       -0.637,-0.635,-0.633,-0.631,-0.628,-0.626,-0.624,-0.622,-0.619,&
14694       -0.617,-0.615,-0.612,-0.610,-0.608,-0.605,-0.603,-0.601,-0.598,&
14695       -0.596,-0.594,-0.591,-0.589,-0.587,-0.584,-0.582,-0.579,-0.577,&
14696       -0.575,-0.572,-0.570,-0.567,-0.565,-0.563,-0.560,-0.558,-0.555,&
14697       -0.553,-0.550,-0.548,-0.545,-0.543,-0.540,-0.538,-0.535,-0.533,&
14698       -0.530,-0.528,-0.525,-0.523,-0.520,-0.518,-0.515,-0.513,-0.510,&
14699       -0.508,-0.505,-0.503,-0.500,-0.498,-0.495,-0.493,-0.490,-0.487,&
14700       -0.485,-0.482,-0.480,-0.477,-0.475,-0.472,-0.470,-0.467,-0.464,&
14701       -0.462,-0.459,-0.457,-0.454,-0.451,-0.449,-0.446,-0.444,-0.441,&
14702       -0.438,-0.436,-0.433,-0.431,-0.428,-0.425,-0.423,-0.420,-0.418,&
14703       -0.415,-0.412,-0.410,-0.407,-0.404,-0.402,-0.399,-0.397,-0.394,&
14704       -0.391,-0.389,-0.386,-0.383,-0.381,-0.378,-0.375,-0.373,-0.370,&
14705       -0.367,-0.365,-0.362                                           &
14706        /
14707 !C
14708 !C **  (H,HSO4)
14709 !C
14710       DATA BNC08M/                                                   &
14711       -0.043,-0.086,-0.105,-0.116,-0.123,-0.128,-0.131,-0.134,-0.135,&
14712       -0.136,-0.136,-0.135,-0.134,-0.133,-0.131,-0.129,-0.127,-0.124,&
14713       -0.122,-0.118,-0.115,-0.112,-0.108,-0.104,-0.100,-0.096,-0.092,&
14714       -0.088,-0.083,-0.079,-0.074,-0.069,-0.064,-0.059,-0.054,-0.048,&
14715       -0.043,-0.037,-0.032,-0.026,-0.021,-0.015,-0.009,-0.003, 0.003,&
14716        0.009, 0.015, 0.021, 0.027, 0.034, 0.040, 0.046, 0.053, 0.059,&
14717        0.066, 0.072, 0.079, 0.086, 0.092, 0.099, 0.106, 0.112, 0.119,&
14718        0.126, 0.133, 0.140, 0.147, 0.154, 0.161, 0.168, 0.175, 0.182,&
14719        0.189, 0.196, 0.204, 0.211, 0.218, 0.226, 0.233, 0.240, 0.248,&
14720        0.255, 0.263, 0.270, 0.278, 0.286, 0.293, 0.301, 0.309, 0.317,&
14721        0.324, 0.332, 0.340, 0.348, 0.356, 0.364, 0.372, 0.380, 0.389,&
14722        0.397, 0.405, 0.413, 0.421, 0.430, 0.438, 0.446, 0.455, 0.463,&
14723        0.471, 0.480, 0.488, 0.497, 0.505, 0.514, 0.522, 0.530, 0.539,&
14724        0.547, 0.556, 0.564, 0.573, 0.581, 0.590, 0.598, 0.607, 0.615,&
14725        0.624, 0.632, 0.641, 0.649, 0.658, 0.666, 0.675, 0.683, 0.692,&
14726        0.700, 0.708, 0.717, 0.725, 0.734, 0.742, 0.750, 0.759, 0.767,&
14727        0.775, 0.784, 0.792, 0.800, 0.808, 0.817, 0.825, 0.833, 0.841,&
14728        0.849, 0.858, 0.866, 0.874, 0.882, 0.890, 0.898, 0.906, 0.915,&
14729        0.923, 0.931, 0.939, 0.947, 0.955, 0.963, 0.971, 0.979, 0.986,&
14730        0.994, 1.002, 1.010, 1.018, 1.026, 1.034, 1.042, 1.049, 1.057,&
14731        1.065, 1.073, 1.080, 1.088, 1.096, 1.104, 1.111, 1.119, 1.127,&
14732        1.134, 1.142, 1.150, 1.157, 1.165, 1.172, 1.180, 1.187, 1.195,&
14733        1.202, 1.210, 1.217, 1.225, 1.232, 1.240, 1.247, 1.254, 1.262,&
14734        1.269, 1.276, 1.284, 1.291, 1.298, 1.306, 1.313, 1.320, 1.327,&
14735        1.335, 1.342, 1.349, 1.356, 1.363, 1.371, 1.378, 1.385, 1.392,&
14736        1.399, 1.406, 1.413, 1.420, 1.427, 1.434, 1.441, 1.448, 1.455,&
14737        1.462, 1.469, 1.476, 1.483, 1.490, 1.497, 1.504, 1.510, 1.517,&
14738        1.524, 1.531, 1.538, 1.545, 1.551, 1.558, 1.565, 1.572, 1.578,&
14739        1.585, 1.592, 1.598, 1.605, 1.612, 1.618, 1.625, 1.632, 1.638,&
14740        1.645, 1.651, 1.658, 1.664, 1.671, 1.678, 1.684, 1.691, 1.697,&
14741        1.704, 1.710, 1.716, 1.723, 1.729, 1.736, 1.742, 1.749, 1.755,&
14742        1.761, 1.768, 1.774, 1.780, 1.787, 1.793, 1.799, 1.805, 1.812,&
14743        1.818, 1.824, 1.830, 1.837, 1.843, 1.849, 1.855, 1.861, 1.868,&
14744        1.874, 1.880, 1.886, 1.892, 1.898, 1.904, 1.910, 1.916, 1.923,&
14745        1.929, 1.935, 1.941, 1.947, 1.953, 1.959, 1.965, 1.971, 1.977,&
14746        1.983, 1.988, 1.994, 2.000, 2.006, 2.012, 2.018, 2.024, 2.030,&
14747        2.036, 2.041, 2.047, 2.053, 2.059, 2.065, 2.070, 2.076, 2.082,&
14748        2.088, 2.094, 2.099, 2.105, 2.111, 2.116, 2.122, 2.128, 2.134,&
14749        2.139, 2.145, 2.150, 2.156, 2.162, 2.167, 2.173, 2.179, 2.184,&
14750        2.190, 2.195, 2.201, 2.206, 2.212, 2.218, 2.223, 2.229, 2.234,&
14751        2.240, 2.245, 2.251, 2.256, 2.261, 2.267, 2.272, 2.278, 2.283,&
14752        2.289, 2.294, 2.299, 2.305, 2.310, 2.316, 2.321, 2.326, 2.332,&
14753        2.337, 2.342, 2.348, 2.353, 2.358, 2.364, 2.369, 2.374, 2.379,&
14754        2.385, 2.390, 2.395, 2.400, 2.406, 2.411, 2.416, 2.421, 2.426,&
14755        2.432, 2.437, 2.442, 2.447, 2.502, 2.553, 2.602, 2.651, 2.699,&
14756        2.746, 2.793, 2.839, 2.884, 2.929, 2.973, 3.017, 3.060, 3.102,&
14757        3.144, 3.186, 3.227, 3.267, 3.307, 3.346, 3.385, 3.424, 3.462,&
14758        3.499, 3.536, 3.573, 3.610, 3.646, 3.681, 3.716, 3.751, 3.786,&
14759        3.820, 3.854, 3.887, 3.920, 3.953, 3.985, 4.018, 4.049, 4.081,&
14760        4.112, 4.143, 4.174, 4.204, 4.234, 4.264, 4.294, 4.323, 4.352,&
14761        4.381, 4.410, 4.438, 4.466, 4.494, 4.522, 4.549, 4.577, 4.604,&
14762        4.630, 4.657, 4.683, 4.710, 4.736, 4.761, 4.787, 4.812, 4.838,&
14763        4.863, 4.888, 4.912, 4.937, 4.961, 4.985, 5.009, 5.033, 5.057,&
14764        5.080, 5.104, 5.127, 5.150, 5.173, 5.196, 5.218, 5.241, 5.263,&
14765        5.285, 5.307, 5.329, 5.351, 5.372, 5.394, 5.415, 5.436, 5.457,&
14766        5.478, 5.499, 5.520, 5.541, 5.561, 5.581, 5.602, 5.622, 5.642,&
14767        5.662, 5.682, 5.701, 5.721, 5.740, 5.760, 5.779, 5.798, 5.817,&
14768        5.836, 5.855, 5.874, 5.892, 5.911, 5.929, 5.948, 5.966, 5.984,&
14769        6.002, 6.020, 6.038, 6.056, 6.074, 6.092, 6.109, 6.127, 6.144,&
14770        6.161, 6.179, 6.196, 6.213, 6.230, 6.247, 6.264, 6.280, 6.297,&
14771        6.314, 6.330, 6.347, 6.363, 6.379, 6.396, 6.412, 6.428, 6.444,&
14772        6.460, 6.476, 6.492, 6.507, 6.523, 6.539, 6.554, 6.570, 6.585,&
14773        6.600, 6.616, 6.631                                           &
14774        /
14775 !C
14776 !C **  NH4HSO4
14777 !C
14778       DATA BNC09M/                                                   &
14779       -0.045,-0.095,-0.119,-0.135,-0.147,-0.157,-0.166,-0.173,-0.179,&
14780       -0.184,-0.189,-0.193,-0.196,-0.200,-0.203,-0.205,-0.208,-0.210,&
14781       -0.212,-0.213,-0.215,-0.216,-0.217,-0.218,-0.219,-0.219,-0.220,&
14782       -0.220,-0.221,-0.221,-0.221,-0.221,-0.221,-0.221,-0.220,-0.220,&
14783       -0.219,-0.219,-0.218,-0.217,-0.217,-0.216,-0.215,-0.214,-0.213,&
14784       -0.212,-0.211,-0.210,-0.208,-0.207,-0.206,-0.204,-0.203,-0.201,&
14785       -0.200,-0.198,-0.197,-0.195,-0.193,-0.192,-0.190,-0.188,-0.186,&
14786       -0.185,-0.183,-0.181,-0.179,-0.177,-0.175,-0.173,-0.171,-0.169,&
14787       -0.167,-0.165,-0.162,-0.160,-0.158,-0.156,-0.154,-0.151,-0.149,&
14788       -0.147,-0.144,-0.142,-0.140,-0.137,-0.135,-0.132,-0.130,-0.127,&
14789       -0.125,-0.122,-0.120,-0.117,-0.115,-0.112,-0.109,-0.107,-0.104,&
14790       -0.101,-0.099,-0.096,-0.093,-0.091,-0.088,-0.085,-0.082,-0.079,&
14791       -0.077,-0.074,-0.071,-0.068,-0.065,-0.063,-0.060,-0.057,-0.054,&
14792       -0.051,-0.048,-0.046,-0.043,-0.040,-0.037,-0.034,-0.031,-0.028,&
14793       -0.025,-0.023,-0.020,-0.017,-0.014,-0.011,-0.008,-0.005,-0.003,&
14794        0.000, 0.003, 0.006, 0.009, 0.012, 0.014, 0.017, 0.020, 0.023,&
14795        0.026, 0.029, 0.031, 0.034, 0.037, 0.040, 0.043, 0.045, 0.048,&
14796        0.051, 0.054, 0.057, 0.059, 0.062, 0.065, 0.068, 0.070, 0.073,&
14797        0.076, 0.079, 0.081, 0.084, 0.087, 0.089, 0.092, 0.095, 0.098,&
14798        0.100, 0.103, 0.106, 0.108, 0.111, 0.114, 0.116, 0.119, 0.122,&
14799        0.124, 0.127, 0.130, 0.132, 0.135, 0.137, 0.140, 0.143, 0.145,&
14800        0.148, 0.150, 0.153, 0.156, 0.158, 0.161, 0.163, 0.166, 0.168,&
14801        0.171, 0.174, 0.176, 0.179, 0.181, 0.184, 0.186, 0.189, 0.191,&
14802        0.194, 0.196, 0.199, 0.201, 0.204, 0.206, 0.209, 0.211, 0.214,&
14803        0.216, 0.219, 0.221, 0.223, 0.226, 0.228, 0.231, 0.233, 0.236,&
14804        0.238, 0.240, 0.243, 0.245, 0.248, 0.250, 0.252, 0.255, 0.257,&
14805        0.260, 0.262, 0.264, 0.267, 0.269, 0.271, 0.274, 0.276, 0.278,&
14806        0.281, 0.283, 0.285, 0.288, 0.290, 0.292, 0.295, 0.297, 0.299,&
14807        0.302, 0.304, 0.306, 0.308, 0.311, 0.313, 0.315, 0.317, 0.320,&
14808        0.322, 0.324, 0.326, 0.329, 0.331, 0.333, 0.335, 0.338, 0.340,&
14809        0.342, 0.344, 0.346, 0.349, 0.351, 0.353, 0.355, 0.357, 0.360,&
14810        0.362, 0.364, 0.366, 0.368, 0.371, 0.373, 0.375, 0.377, 0.379,&
14811        0.381, 0.383, 0.386, 0.388, 0.390, 0.392, 0.394, 0.396, 0.398,&
14812        0.400, 0.403, 0.405, 0.407, 0.409, 0.411, 0.413, 0.415, 0.417,&
14813        0.419, 0.421, 0.423, 0.426, 0.428, 0.430, 0.432, 0.434, 0.436,&
14814        0.438, 0.440, 0.442, 0.444, 0.446, 0.448, 0.450, 0.452, 0.454,&
14815        0.456, 0.458, 0.460, 0.462, 0.464, 0.466, 0.468, 0.470, 0.472,&
14816        0.474, 0.476, 0.478, 0.480, 0.482, 0.484, 0.486, 0.488, 0.490,&
14817        0.492, 0.494, 0.496, 0.498, 0.500, 0.502, 0.504, 0.506, 0.508,&
14818        0.510, 0.511, 0.513, 0.515, 0.517, 0.519, 0.521, 0.523, 0.525,&
14819        0.527, 0.529, 0.531, 0.533, 0.534, 0.536, 0.538, 0.540, 0.542,&
14820        0.544, 0.546, 0.548, 0.549, 0.551, 0.553, 0.555, 0.557, 0.559,&
14821        0.561, 0.563, 0.564, 0.566, 0.568, 0.570, 0.572, 0.574, 0.575,&
14822        0.577, 0.579, 0.581, 0.583, 0.585, 0.586, 0.588, 0.590, 0.592,&
14823        0.594, 0.595, 0.597, 0.599, 0.618, 0.636, 0.653, 0.670, 0.687,&
14824        0.704, 0.721, 0.737, 0.753, 0.769, 0.784, 0.800, 0.815, 0.830,&
14825        0.845, 0.860, 0.875, 0.889, 0.904, 0.918, 0.932, 0.946, 0.959,&
14826        0.973, 0.986, 1.000, 1.013, 1.026, 1.039, 1.052, 1.065, 1.077,&
14827        1.090, 1.102, 1.114, 1.126, 1.138, 1.150, 1.162, 1.174, 1.186,&
14828        1.197, 1.209, 1.220, 1.231, 1.242, 1.254, 1.265, 1.276, 1.286,&
14829        1.297, 1.308, 1.318, 1.329, 1.339, 1.350, 1.360, 1.370, 1.381,&
14830        1.391, 1.401, 1.411, 1.421, 1.430, 1.440, 1.450, 1.459, 1.469,&
14831        1.479, 1.488, 1.497, 1.507, 1.516, 1.525, 1.534, 1.544, 1.553,&
14832        1.562, 1.571, 1.579, 1.588, 1.597, 1.606, 1.615, 1.623, 1.632,&
14833        1.640, 1.649, 1.657, 1.666, 1.674, 1.683, 1.691, 1.699, 1.707,&
14834        1.715, 1.724, 1.732, 1.740, 1.748, 1.756, 1.764, 1.771, 1.779,&
14835        1.787, 1.795, 1.803, 1.810, 1.818, 1.826, 1.833, 1.841, 1.848,&
14836        1.856, 1.863, 1.871, 1.878, 1.885, 1.893, 1.900, 1.907, 1.915,&
14837        1.922, 1.929, 1.936, 1.943, 1.950, 1.957, 1.964, 1.971, 1.978,&
14838        1.985, 1.992, 1.999, 2.006, 2.013, 2.019, 2.026, 2.033, 2.040,&
14839        2.046, 2.053, 2.060, 2.066, 2.073, 2.079, 2.086, 2.093, 2.099,&
14840        2.105, 2.112, 2.118, 2.125, 2.131, 2.138, 2.144, 2.150, 2.156,&
14841        2.163, 2.169, 2.175                                           &
14842        /
14843 !C
14844 !C **  (H,NO3)
14845 !C
14846       DATA BNC10M/                                                   &
14847       -0.044,-0.092,-0.113,-0.127,-0.137,-0.145,-0.151,-0.156,-0.160,&
14848       -0.163,-0.165,-0.167,-0.169,-0.170,-0.171,-0.172,-0.172,-0.172,&
14849       -0.172,-0.172,-0.172,-0.172,-0.171,-0.171,-0.170,-0.169,-0.168,&
14850       -0.167,-0.166,-0.165,-0.164,-0.163,-0.162,-0.160,-0.159,-0.158,&
14851       -0.156,-0.155,-0.153,-0.152,-0.151,-0.149,-0.147,-0.146,-0.144,&
14852       -0.143,-0.141,-0.140,-0.138,-0.136,-0.135,-0.133,-0.131,-0.130,&
14853       -0.128,-0.126,-0.125,-0.123,-0.121,-0.120,-0.118,-0.116,-0.114,&
14854       -0.113,-0.111,-0.109,-0.107,-0.106,-0.104,-0.102,-0.100,-0.099,&
14855       -0.097,-0.095,-0.093,-0.091,-0.089,-0.088,-0.086,-0.084,-0.082,&
14856       -0.080,-0.078,-0.076,-0.074,-0.072,-0.070,-0.068,-0.066,-0.064,&
14857       -0.062,-0.060,-0.058,-0.056,-0.054,-0.052,-0.050,-0.048,-0.045,&
14858       -0.043,-0.041,-0.039,-0.037,-0.035,-0.032,-0.030,-0.028,-0.026,&
14859       -0.024,-0.021,-0.019,-0.017,-0.015,-0.012,-0.010,-0.008,-0.006,&
14860       -0.003,-0.001, 0.001, 0.004, 0.006, 0.008, 0.010, 0.013, 0.015,&
14861        0.017, 0.020, 0.022, 0.024, 0.027, 0.029, 0.031, 0.033, 0.036,&
14862        0.038, 0.040, 0.043, 0.045, 0.047, 0.049, 0.052, 0.054, 0.056,&
14863        0.059, 0.061, 0.063, 0.066, 0.068, 0.070, 0.072, 0.075, 0.077,&
14864        0.079, 0.081, 0.084, 0.086, 0.088, 0.091, 0.093, 0.095, 0.097,&
14865        0.100, 0.102, 0.104, 0.106, 0.109, 0.111, 0.113, 0.115, 0.118,&
14866        0.120, 0.122, 0.124, 0.127, 0.129, 0.131, 0.133, 0.135, 0.138,&
14867        0.140, 0.142, 0.144, 0.147, 0.149, 0.151, 0.153, 0.155, 0.158,&
14868        0.160, 0.162, 0.164, 0.166, 0.169, 0.171, 0.173, 0.175, 0.177,&
14869        0.179, 0.182, 0.184, 0.186, 0.188, 0.190, 0.192, 0.195, 0.197,&
14870        0.199, 0.201, 0.203, 0.205, 0.207, 0.210, 0.212, 0.214, 0.216,&
14871        0.218, 0.220, 0.222, 0.224, 0.227, 0.229, 0.231, 0.233, 0.235,&
14872        0.237, 0.239, 0.241, 0.243, 0.245, 0.248, 0.250, 0.252, 0.254,&
14873        0.256, 0.258, 0.260, 0.262, 0.264, 0.266, 0.268, 0.270, 0.272,&
14874        0.274, 0.276, 0.278, 0.281, 0.283, 0.285, 0.287, 0.289, 0.291,&
14875        0.293, 0.295, 0.297, 0.299, 0.301, 0.303, 0.305, 0.307, 0.309,&
14876        0.311, 0.313, 0.315, 0.317, 0.319, 0.321, 0.323, 0.325, 0.327,&
14877        0.329, 0.331, 0.333, 0.335, 0.337, 0.339, 0.341, 0.343, 0.344,&
14878        0.346, 0.348, 0.350, 0.352, 0.354, 0.356, 0.358, 0.360, 0.362,&
14879        0.364, 0.366, 0.368, 0.370, 0.372, 0.373, 0.375, 0.377, 0.379,&
14880        0.381, 0.383, 0.385, 0.387, 0.389, 0.391, 0.393, 0.394, 0.396,&
14881        0.398, 0.400, 0.402, 0.404, 0.406, 0.408, 0.409, 0.411, 0.413,&
14882        0.415, 0.417, 0.419, 0.421, 0.422, 0.424, 0.426, 0.428, 0.430,&
14883        0.432, 0.433, 0.435, 0.437, 0.439, 0.441, 0.443, 0.444, 0.446,&
14884        0.448, 0.450, 0.452, 0.454, 0.455, 0.457, 0.459, 0.461, 0.463,&
14885        0.464, 0.466, 0.468, 0.470, 0.471, 0.473, 0.475, 0.477, 0.479,&
14886        0.480, 0.482, 0.484, 0.486, 0.487, 0.489, 0.491, 0.493, 0.494,&
14887        0.496, 0.498, 0.500, 0.501, 0.503, 0.505, 0.507, 0.508, 0.510,&
14888        0.512, 0.514, 0.515, 0.517, 0.519, 0.521, 0.522, 0.524, 0.526,&
14889        0.527, 0.529, 0.531, 0.533, 0.534, 0.536, 0.538, 0.539, 0.541,&
14890        0.543, 0.544, 0.546, 0.548, 0.549, 0.551, 0.553, 0.554, 0.556,&
14891        0.558, 0.560, 0.561, 0.563, 0.581, 0.597, 0.613, 0.629, 0.645,&
14892        0.660, 0.676, 0.691, 0.706, 0.721, 0.736, 0.750, 0.765, 0.779,&
14893        0.793, 0.807, 0.820, 0.834, 0.848, 0.861, 0.874, 0.887, 0.900,&
14894        0.913, 0.926, 0.938, 0.951, 0.963, 0.975, 0.987, 0.999, 1.011,&
14895        1.023, 1.035, 1.046, 1.058, 1.069, 1.081, 1.092, 1.103, 1.114,&
14896        1.125, 1.136, 1.147, 1.157, 1.168, 1.178, 1.189, 1.199, 1.210,&
14897        1.220, 1.230, 1.240, 1.250, 1.260, 1.270, 1.279, 1.289, 1.299,&
14898        1.308, 1.318, 1.327, 1.337, 1.346, 1.355, 1.365, 1.374, 1.383,&
14899        1.392, 1.401, 1.410, 1.419, 1.427, 1.436, 1.445, 1.454, 1.462,&
14900        1.471, 1.479, 1.488, 1.496, 1.504, 1.513, 1.521, 1.529, 1.537,&
14901        1.546, 1.554, 1.562, 1.570, 1.578, 1.586, 1.593, 1.601, 1.609,&
14902        1.617, 1.624, 1.632, 1.640, 1.647, 1.655, 1.662, 1.670, 1.677,&
14903        1.685, 1.692, 1.700, 1.707, 1.714, 1.721, 1.729, 1.736, 1.743,&
14904        1.750, 1.757, 1.764, 1.771, 1.778, 1.785, 1.792, 1.799, 1.806,&
14905        1.813, 1.820, 1.826, 1.833, 1.840, 1.847, 1.853, 1.860, 1.866,&
14906        1.873, 1.880, 1.886, 1.893, 1.899, 1.906, 1.912, 1.918, 1.925,&
14907        1.931, 1.938, 1.944, 1.950, 1.956, 1.963, 1.969, 1.975, 1.981,&
14908        1.987, 1.994, 2.000, 2.006, 2.012, 2.018, 2.024, 2.030, 2.036,&
14909        2.042, 2.048, 2.054                                           &
14910        /
14911 !C
14912 !C **  (H,Cl)
14913 !C
14914       DATA BNC11M/                                                   &
14915       -0.043,-0.087,-0.106,-0.117,-0.124,-0.130,-0.133,-0.135,-0.137,&
14916       -0.138,-0.138,-0.137,-0.136,-0.135,-0.134,-0.132,-0.130,-0.127,&
14917       -0.125,-0.122,-0.119,-0.116,-0.113,-0.110,-0.107,-0.103,-0.099,&
14918       -0.096,-0.092,-0.088,-0.084,-0.080,-0.076,-0.071,-0.067,-0.063,&
14919       -0.058,-0.054,-0.049,-0.045,-0.040,-0.036,-0.031,-0.027,-0.022,&
14920       -0.017,-0.012,-0.008,-0.003, 0.002, 0.007, 0.012, 0.017, 0.022,&
14921        0.027, 0.031, 0.036, 0.041, 0.046, 0.051, 0.056, 0.061, 0.066,&
14922        0.071, 0.077, 0.082, 0.087, 0.092, 0.097, 0.102, 0.107, 0.113,&
14923        0.118, 0.123, 0.128, 0.134, 0.139, 0.144, 0.149, 0.155, 0.160,&
14924        0.166, 0.171, 0.177, 0.182, 0.188, 0.193, 0.199, 0.204, 0.210,&
14925        0.216, 0.221, 0.227, 0.233, 0.239, 0.244, 0.250, 0.256, 0.262,&
14926        0.268, 0.274, 0.280, 0.286, 0.292, 0.298, 0.304, 0.310, 0.316,&
14927        0.322, 0.328, 0.334, 0.340, 0.346, 0.352, 0.358, 0.364, 0.370,&
14928        0.377, 0.383, 0.389, 0.395, 0.401, 0.407, 0.413, 0.420, 0.426,&
14929        0.432, 0.438, 0.444, 0.450, 0.457, 0.463, 0.469, 0.475, 0.481,&
14930        0.487, 0.493, 0.499, 0.505, 0.512, 0.518, 0.524, 0.530, 0.536,&
14931        0.542, 0.548, 0.554, 0.560, 0.566, 0.572, 0.578, 0.584, 0.590,&
14932        0.596, 0.602, 0.608, 0.614, 0.620, 0.626, 0.632, 0.638, 0.643,&
14933        0.649, 0.655, 0.661, 0.667, 0.673, 0.679, 0.684, 0.690, 0.696,&
14934        0.702, 0.708, 0.713, 0.719, 0.725, 0.731, 0.737, 0.742, 0.748,&
14935        0.754, 0.759, 0.765, 0.771, 0.776, 0.782, 0.788, 0.793, 0.799,&
14936        0.805, 0.810, 0.816, 0.821, 0.827, 0.833, 0.838, 0.844, 0.849,&
14937        0.855, 0.860, 0.866, 0.871, 0.877, 0.882, 0.888, 0.893, 0.899,&
14938        0.904, 0.909, 0.915, 0.920, 0.926, 0.931, 0.936, 0.942, 0.947,&
14939        0.953, 0.958, 0.963, 0.969, 0.974, 0.979, 0.984, 0.990, 0.995,&
14940        1.000, 1.005, 1.011, 1.016, 1.021, 1.026, 1.032, 1.037, 1.042,&
14941        1.047, 1.052, 1.057, 1.062, 1.068, 1.073, 1.078, 1.083, 1.088,&
14942        1.093, 1.098, 1.103, 1.108, 1.113, 1.118, 1.123, 1.128, 1.133,&
14943        1.138, 1.143, 1.148, 1.153, 1.158, 1.163, 1.168, 1.173, 1.178,&
14944        1.183, 1.188, 1.193, 1.198, 1.202, 1.207, 1.212, 1.217, 1.222,&
14945        1.227, 1.232, 1.236, 1.241, 1.246, 1.251, 1.256, 1.260, 1.265,&
14946        1.270, 1.275, 1.279, 1.284, 1.289, 1.293, 1.298, 1.303, 1.307,&
14947        1.312, 1.317, 1.321, 1.326, 1.331, 1.335, 1.340, 1.345, 1.349,&
14948        1.354, 1.358, 1.363, 1.368, 1.372, 1.377, 1.381, 1.386, 1.390,&
14949        1.395, 1.399, 1.404, 1.408, 1.413, 1.417, 1.422, 1.426, 1.431,&
14950        1.435, 1.440, 1.444, 1.449, 1.453, 1.457, 1.462, 1.466, 1.471,&
14951        1.475, 1.479, 1.484, 1.488, 1.492, 1.497, 1.501, 1.506, 1.510,&
14952        1.514, 1.518, 1.523, 1.527, 1.531, 1.536, 1.540, 1.544, 1.548,&
14953        1.553, 1.557, 1.561, 1.565, 1.570, 1.574, 1.578, 1.582, 1.587,&
14954        1.591, 1.595, 1.599, 1.603, 1.607, 1.612, 1.616, 1.620, 1.624,&
14955        1.628, 1.632, 1.636, 1.640, 1.645, 1.649, 1.653, 1.657, 1.661,&
14956        1.665, 1.669, 1.673, 1.677, 1.681, 1.685, 1.689, 1.693, 1.697,&
14957        1.701, 1.705, 1.709, 1.713, 1.717, 1.721, 1.725, 1.729, 1.733,&
14958        1.737, 1.741, 1.745, 1.749, 1.753, 1.757, 1.761, 1.765, 1.769,&
14959        1.772, 1.776, 1.780, 1.784, 1.826, 1.864, 1.901, 1.938, 1.974,&
14960        2.010, 2.045, 2.080, 2.114, 2.148, 2.181, 2.214, 2.246, 2.278,&
14961        2.310, 2.341, 2.372, 2.403, 2.433, 2.463, 2.492, 2.522, 2.550,&
14962        2.579, 2.607, 2.635, 2.663, 2.690, 2.717, 2.744, 2.770, 2.796,&
14963        2.822, 2.848, 2.873, 2.898, 2.923, 2.948, 2.972, 2.996, 3.020,&
14964        3.044, 3.068, 3.091, 3.114, 3.137, 3.160, 3.182, 3.205, 3.227,&
14965        3.249, 3.271, 3.292, 3.314, 3.335, 3.356, 3.377, 3.398, 3.418,&
14966        3.439, 3.459, 3.479, 3.499, 3.519, 3.539, 3.558, 3.578, 3.597,&
14967        3.616, 3.635, 3.654, 3.673, 3.691, 3.710, 3.728, 3.746, 3.765,&
14968        3.783, 3.800, 3.818, 3.836, 3.853, 3.871, 3.888, 3.905, 3.922,&
14969        3.939, 3.956, 3.973, 3.990, 4.006, 4.023, 4.039, 4.055, 4.071,&
14970        4.088, 4.104, 4.119, 4.135, 4.151, 4.167, 4.182, 4.198, 4.213,&
14971        4.228, 4.243, 4.259, 4.274, 4.289, 4.304, 4.318, 4.333, 4.348,&
14972        4.362, 4.377, 4.391, 4.406, 4.420, 4.434, 4.448, 4.462, 4.476,&
14973        4.490, 4.504, 4.518, 4.532, 4.545, 4.559, 4.572, 4.586, 4.599,&
14974        4.613, 4.626, 4.639, 4.652, 4.665, 4.678, 4.691, 4.704, 4.717,&
14975        4.730, 4.743, 4.756, 4.768, 4.781, 4.793, 4.806, 4.818, 4.831,&
14976        4.843, 4.855, 4.867, 4.880, 4.892, 4.904, 4.916, 4.928, 4.940,&
14977        4.952, 4.964, 4.975                                           &
14978        /
14979 !C
14980 !C **  NaHSO4
14981 !C
14982       DATA BNC12M/                                                   &
14983       -0.044,-0.092,-0.113,-0.127,-0.138,-0.146,-0.152,-0.157,-0.162,&
14984       -0.165,-0.168,-0.170,-0.172,-0.174,-0.175,-0.176,-0.176,-0.177,&
14985       -0.177,-0.177,-0.176,-0.176,-0.176,-0.175,-0.174,-0.173,-0.172,&
14986       -0.171,-0.169,-0.168,-0.167,-0.165,-0.163,-0.161,-0.160,-0.158,&
14987       -0.156,-0.154,-0.151,-0.149,-0.147,-0.145,-0.142,-0.140,-0.137,&
14988       -0.135,-0.132,-0.130,-0.127,-0.124,-0.122,-0.119,-0.116,-0.113,&
14989       -0.110,-0.107,-0.104,-0.101,-0.098,-0.095,-0.092,-0.089,-0.086,&
14990       -0.083,-0.080,-0.076,-0.073,-0.070,-0.067,-0.063,-0.060,-0.057,&
14991       -0.053,-0.050,-0.046,-0.043,-0.039,-0.036,-0.032,-0.029,-0.025,&
14992       -0.021,-0.018,-0.014,-0.010,-0.007,-0.003, 0.001, 0.005, 0.009,&
14993        0.012, 0.016, 0.020, 0.024, 0.028, 0.032, 0.036, 0.040, 0.044,&
14994        0.048, 0.052, 0.056, 0.060, 0.064, 0.068, 0.073, 0.077, 0.081,&
14995        0.085, 0.089, 0.093, 0.098, 0.102, 0.106, 0.110, 0.115, 0.119,&
14996        0.123, 0.127, 0.131, 0.136, 0.140, 0.144, 0.148, 0.153, 0.157,&
14997        0.161, 0.165, 0.170, 0.174, 0.178, 0.182, 0.187, 0.191, 0.195,&
14998        0.199, 0.204, 0.208, 0.212, 0.216, 0.220, 0.225, 0.229, 0.233,&
14999        0.237, 0.241, 0.245, 0.250, 0.254, 0.258, 0.262, 0.266, 0.270,&
15000        0.274, 0.279, 0.283, 0.287, 0.291, 0.295, 0.299, 0.303, 0.307,&
15001        0.311, 0.315, 0.319, 0.323, 0.327, 0.331, 0.335, 0.339, 0.343,&
15002        0.347, 0.351, 0.355, 0.359, 0.363, 0.367, 0.371, 0.375, 0.379,&
15003        0.383, 0.387, 0.391, 0.395, 0.399, 0.402, 0.406, 0.410, 0.414,&
15004        0.418, 0.422, 0.426, 0.429, 0.433, 0.437, 0.441, 0.445, 0.449,&
15005        0.452, 0.456, 0.460, 0.464, 0.467, 0.471, 0.475, 0.479, 0.482,&
15006        0.486, 0.490, 0.494, 0.497, 0.501, 0.505, 0.508, 0.512, 0.516,&
15007        0.519, 0.523, 0.527, 0.530, 0.534, 0.538, 0.541, 0.545, 0.548,&
15008        0.552, 0.556, 0.559, 0.563, 0.566, 0.570, 0.573, 0.577, 0.581,&
15009        0.584, 0.588, 0.591, 0.595, 0.598, 0.602, 0.605, 0.609, 0.612,&
15010        0.616, 0.619, 0.623, 0.626, 0.630, 0.633, 0.636, 0.640, 0.643,&
15011        0.647, 0.650, 0.654, 0.657, 0.660, 0.664, 0.667, 0.671, 0.674,&
15012        0.677, 0.681, 0.684, 0.687, 0.691, 0.694, 0.697, 0.701, 0.704,&
15013        0.707, 0.711, 0.714, 0.717, 0.721, 0.724, 0.727, 0.730, 0.734,&
15014        0.737, 0.740, 0.743, 0.747, 0.750, 0.753, 0.756, 0.760, 0.763,&
15015        0.766, 0.769, 0.773, 0.776, 0.779, 0.782, 0.785, 0.788, 0.792,&
15016        0.795, 0.798, 0.801, 0.804, 0.807, 0.811, 0.814, 0.817, 0.820,&
15017        0.823, 0.826, 0.829, 0.832, 0.835, 0.839, 0.842, 0.845, 0.848,&
15018        0.851, 0.854, 0.857, 0.860, 0.863, 0.866, 0.869, 0.872, 0.875,&
15019        0.878, 0.881, 0.884, 0.887, 0.890, 0.893, 0.896, 0.899, 0.902,&
15020        0.905, 0.908, 0.911, 0.914, 0.917, 0.920, 0.923, 0.926, 0.929,&
15021        0.932, 0.935, 0.938, 0.941, 0.944, 0.947, 0.949, 0.952, 0.955,&
15022        0.958, 0.961, 0.964, 0.967, 0.970, 0.973, 0.975, 0.978, 0.981,&
15023        0.984, 0.987, 0.990, 0.993, 0.995, 0.998, 1.001, 1.004, 1.007,&
15024        1.010, 1.012, 1.015, 1.018, 1.021, 1.024, 1.026, 1.029, 1.032,&
15025        1.035, 1.038, 1.040, 1.043, 1.046, 1.049, 1.051, 1.054, 1.057,&
15026        1.060, 1.062, 1.065, 1.068, 1.071, 1.073, 1.076, 1.079, 1.082,&
15027        1.084, 1.087, 1.090, 1.092, 1.121, 1.148, 1.174, 1.199, 1.225,&
15028        1.250, 1.274, 1.299, 1.323, 1.346, 1.370, 1.393, 1.416, 1.438,&
15029        1.461, 1.483, 1.504, 1.526, 1.547, 1.568, 1.589, 1.610, 1.630,&
15030        1.650, 1.670, 1.690, 1.710, 1.729, 1.748, 1.767, 1.786, 1.805,&
15031        1.823, 1.841, 1.860, 1.878, 1.895, 1.913, 1.930, 1.948, 1.965,&
15032        1.982, 1.999, 2.015, 2.032, 2.048, 2.065, 2.081, 2.097, 2.113,&
15033        2.129, 2.144, 2.160, 2.175, 2.191, 2.206, 2.221, 2.236, 2.251,&
15034        2.265, 2.280, 2.294, 2.309, 2.323, 2.337, 2.352, 2.366, 2.379,&
15035        2.393, 2.407, 2.421, 2.434, 2.448, 2.461, 2.474, 2.488, 2.501,&
15036        2.514, 2.527, 2.540, 2.552, 2.565, 2.578, 2.590, 2.603, 2.615,&
15037        2.628, 2.640, 2.652, 2.664, 2.676, 2.688, 2.700, 2.712, 2.724,&
15038        2.735, 2.747, 2.759, 2.770, 2.782, 2.793, 2.805, 2.816, 2.827,&
15039        2.838, 2.849, 2.860, 2.871, 2.882, 2.893, 2.904, 2.915, 2.926,&
15040        2.936, 2.947, 2.957, 2.968, 2.978, 2.989, 2.999, 3.010, 3.020,&
15041        3.030, 3.040, 3.050, 3.060, 3.070, 3.080, 3.090, 3.100, 3.110,&
15042        3.120, 3.130, 3.139, 3.149, 3.159, 3.168, 3.178, 3.188, 3.197,&
15043        3.206, 3.216, 3.225, 3.235, 3.244, 3.253, 3.262, 3.272, 3.281,&
15044        3.290, 3.299, 3.308, 3.317, 3.326, 3.335, 3.344, 3.353, 3.361,&
15045        3.370, 3.379, 3.388                                           &
15046        /
15047 !C
15048 !C **  (NH4)3H(SO4)2
15049 !C
15050       DATA BNC13M/                                                   &
15051       -0.072,-0.156,-0.197,-0.226,-0.248,-0.266,-0.282,-0.295,-0.307,&
15052       -0.317,-0.327,-0.336,-0.344,-0.351,-0.358,-0.364,-0.370,-0.375,&
15053       -0.380,-0.385,-0.390,-0.394,-0.398,-0.402,-0.406,-0.409,-0.412,&
15054       -0.415,-0.418,-0.421,-0.424,-0.426,-0.429,-0.431,-0.433,-0.435,&
15055       -0.437,-0.439,-0.441,-0.442,-0.444,-0.446,-0.447,-0.449,-0.450,&
15056       -0.451,-0.452,-0.453,-0.454,-0.456,-0.456,-0.457,-0.458,-0.459,&
15057       -0.460,-0.461,-0.461,-0.462,-0.462,-0.463,-0.463,-0.464,-0.464,&
15058       -0.465,-0.465,-0.465,-0.466,-0.466,-0.466,-0.467,-0.467,-0.467,&
15059       -0.467,-0.467,-0.467,-0.467,-0.467,-0.467,-0.467,-0.467,-0.467,&
15060       -0.467,-0.467,-0.467,-0.467,-0.467,-0.466,-0.466,-0.466,-0.466,&
15061       -0.466,-0.465,-0.465,-0.465,-0.464,-0.464,-0.464,-0.463,-0.463,&
15062       -0.463,-0.462,-0.462,-0.461,-0.461,-0.460,-0.460,-0.459,-0.459,&
15063       -0.458,-0.458,-0.457,-0.457,-0.456,-0.456,-0.455,-0.455,-0.454,&
15064       -0.454,-0.453,-0.452,-0.452,-0.451,-0.451,-0.450,-0.449,-0.449,&
15065       -0.448,-0.447,-0.447,-0.446,-0.445,-0.445,-0.444,-0.443,-0.443,&
15066       -0.442,-0.441,-0.441,-0.440,-0.439,-0.439,-0.438,-0.437,-0.437,&
15067       -0.436,-0.435,-0.434,-0.434,-0.433,-0.432,-0.432,-0.431,-0.430,&
15068       -0.429,-0.429,-0.428,-0.427,-0.427,-0.426,-0.425,-0.424,-0.424,&
15069       -0.423,-0.422,-0.421,-0.421,-0.420,-0.419,-0.418,-0.418,-0.417,&
15070       -0.416,-0.415,-0.415,-0.414,-0.413,-0.412,-0.412,-0.411,-0.410,&
15071       -0.409,-0.409,-0.408,-0.407,-0.406,-0.406,-0.405,-0.404,-0.403,&
15072       -0.403,-0.402,-0.401,-0.400,-0.400,-0.399,-0.398,-0.397,-0.397,&
15073       -0.396,-0.395,-0.394,-0.394,-0.393,-0.392,-0.391,-0.391,-0.390,&
15074       -0.389,-0.388,-0.388,-0.387,-0.386,-0.385,-0.385,-0.384,-0.383,&
15075       -0.382,-0.381,-0.381,-0.380,-0.379,-0.378,-0.378,-0.377,-0.376,&
15076       -0.375,-0.375,-0.374,-0.373,-0.372,-0.372,-0.371,-0.370,-0.369,&
15077       -0.369,-0.368,-0.367,-0.366,-0.366,-0.365,-0.364,-0.363,-0.363,&
15078       -0.362,-0.361,-0.360,-0.360,-0.359,-0.358,-0.357,-0.357,-0.356,&
15079       -0.355,-0.354,-0.354,-0.353,-0.352,-0.351,-0.351,-0.350,-0.349,&
15080       -0.348,-0.348,-0.347,-0.346,-0.345,-0.345,-0.344,-0.343,-0.342,&
15081       -0.342,-0.341,-0.340,-0.339,-0.339,-0.338,-0.337,-0.336,-0.336,&
15082       -0.335,-0.334,-0.333,-0.333,-0.332,-0.331,-0.331,-0.330,-0.329,&
15083       -0.328,-0.328,-0.327,-0.326,-0.325,-0.325,-0.324,-0.323,-0.322,&
15084       -0.322,-0.321,-0.320,-0.320,-0.319,-0.318,-0.317,-0.317,-0.316,&
15085       -0.315,-0.314,-0.314,-0.313,-0.312,-0.312,-0.311,-0.310,-0.309,&
15086       -0.309,-0.308,-0.307,-0.306,-0.306,-0.305,-0.304,-0.304,-0.303,&
15087       -0.302,-0.301,-0.301,-0.300,-0.299,-0.299,-0.298,-0.297,-0.296,&
15088       -0.296,-0.295,-0.294,-0.294,-0.293,-0.292,-0.291,-0.291,-0.290,&
15089       -0.289,-0.289,-0.288,-0.287,-0.286,-0.286,-0.285,-0.284,-0.284,&
15090       -0.283,-0.282,-0.281,-0.281,-0.280,-0.279,-0.279,-0.278,-0.277,&
15091       -0.277,-0.276,-0.275,-0.274,-0.274,-0.273,-0.272,-0.272,-0.271,&
15092       -0.270,-0.270,-0.269,-0.268,-0.267,-0.267,-0.266,-0.265,-0.265,&
15093       -0.264,-0.263,-0.263,-0.262,-0.261,-0.261,-0.260,-0.259,-0.258,&
15094       -0.258,-0.257,-0.256,-0.256,-0.255,-0.254,-0.254,-0.253,-0.252,&
15095       -0.252,-0.251,-0.250,-0.250,-0.242,-0.235,-0.229,-0.222,-0.215,&
15096       -0.209,-0.202,-0.196,-0.189,-0.183,-0.176,-0.170,-0.164,-0.157,&
15097       -0.151,-0.145,-0.139,-0.133,-0.127,-0.121,-0.115,-0.109,-0.103,&
15098       -0.097,-0.091,-0.085,-0.079,-0.073,-0.067,-0.062,-0.056,-0.050,&
15099       -0.045,-0.039,-0.033,-0.028,-0.022,-0.017,-0.011,-0.006, 0.000,&
15100        0.005, 0.010, 0.016, 0.021, 0.026, 0.032, 0.037, 0.042, 0.048,&
15101        0.053, 0.058, 0.063, 0.068, 0.073, 0.079, 0.084, 0.089, 0.094,&
15102        0.099, 0.104, 0.109, 0.114, 0.119, 0.124, 0.129, 0.134, 0.138,&
15103        0.143, 0.148, 0.153, 0.158, 0.163, 0.167, 0.172, 0.177, 0.182,&
15104        0.186, 0.191, 0.196, 0.201, 0.205, 0.210, 0.215, 0.219, 0.224,&
15105        0.228, 0.233, 0.238, 0.242, 0.247, 0.251, 0.256, 0.260, 0.265,&
15106        0.269, 0.274, 0.278, 0.283, 0.287, 0.291, 0.296, 0.300, 0.305,&
15107        0.309, 0.313, 0.318, 0.322, 0.326, 0.331, 0.335, 0.339, 0.344,&
15108        0.348, 0.352, 0.357, 0.361, 0.365, 0.369, 0.374, 0.378, 0.382,&
15109        0.386, 0.390, 0.395, 0.399, 0.403, 0.407, 0.411, 0.415, 0.419,&
15110        0.424, 0.428, 0.432, 0.436, 0.440, 0.444, 0.448, 0.452, 0.456,&
15111        0.460, 0.464, 0.468, 0.472, 0.476, 0.480, 0.484, 0.488, 0.492,&
15112        0.496, 0.500, 0.504, 0.508, 0.512, 0.516, 0.520, 0.524, 0.528,&
15113        0.532, 0.536, 0.540                                           &
15114        /
15115 !C
15116 !C **  CASO4
15117 !C
15118       DATA BNC14M/                                                   &
15119        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15120        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15121        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15122        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15123        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15124        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15125        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15126        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15127        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15128        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15129        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15130        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15131        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15132        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15133        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15134        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15135        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15136        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15137        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15138        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15139        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15140        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15141        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15142        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15143        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15144        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15145        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15146        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15147        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15148        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15149        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15150        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15151        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15152        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15153        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15154        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15155        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15156        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15157        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15158        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15159        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15160        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15161        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15162        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15163        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15164        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15165        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15166        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15167        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15168        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15169        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15170        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15171        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15172        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15173        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15174        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15175        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15176        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15177        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15178        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15179        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15180        0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000,&
15181        0.000, 0.000, 0.000                                           &
15182        /
15183 !C
15184 !C **  CANO32
15185 !C
15186       DATA BNC15M/                                                   &
15187       -0.090,-0.191,-0.239,-0.271,-0.296,-0.316,-0.332,-0.346,-0.358,&
15188       -0.368,-0.378,-0.386,-0.393,-0.400,-0.405,-0.411,-0.416,-0.420,&
15189       -0.424,-0.428,-0.431,-0.434,-0.437,-0.440,-0.442,-0.444,-0.446,&
15190       -0.448,-0.450,-0.451,-0.453,-0.454,-0.455,-0.456,-0.457,-0.458,&
15191       -0.459,-0.460,-0.460,-0.461,-0.461,-0.462,-0.462,-0.463,-0.463,&
15192       -0.463,-0.463,-0.463,-0.464,-0.464,-0.464,-0.464,-0.464,-0.464,&
15193       -0.464,-0.463,-0.463,-0.463,-0.463,-0.463,-0.462,-0.462,-0.462,&
15194       -0.462,-0.461,-0.461,-0.460,-0.460,-0.460,-0.459,-0.459,-0.458,&
15195       -0.458,-0.457,-0.457,-0.456,-0.455,-0.455,-0.454,-0.454,-0.453,&
15196       -0.452,-0.451,-0.451,-0.450,-0.449,-0.448,-0.448,-0.447,-0.446,&
15197       -0.445,-0.444,-0.443,-0.442,-0.441,-0.440,-0.439,-0.439,-0.438,&
15198       -0.437,-0.435,-0.434,-0.433,-0.432,-0.431,-0.430,-0.429,-0.428,&
15199       -0.427,-0.426,-0.425,-0.423,-0.422,-0.421,-0.420,-0.419,-0.417,&
15200       -0.416,-0.415,-0.414,-0.413,-0.411,-0.410,-0.409,-0.408,-0.406,&
15201       -0.405,-0.404,-0.403,-0.401,-0.400,-0.399,-0.398,-0.396,-0.395,&
15202       -0.394,-0.392,-0.391,-0.390,-0.388,-0.387,-0.386,-0.385,-0.383,&
15203       -0.382,-0.381,-0.379,-0.378,-0.377,-0.375,-0.374,-0.373,-0.371,&
15204       -0.370,-0.369,-0.367,-0.366,-0.365,-0.363,-0.362,-0.361,-0.359,&
15205       -0.358,-0.357,-0.355,-0.354,-0.353,-0.351,-0.350,-0.349,-0.347,&
15206       -0.346,-0.345,-0.343,-0.342,-0.341,-0.339,-0.338,-0.337,-0.335,&
15207       -0.334,-0.333,-0.331,-0.330,-0.328,-0.327,-0.326,-0.324,-0.323,&
15208       -0.322,-0.320,-0.319,-0.318,-0.316,-0.315,-0.314,-0.312,-0.311,&
15209       -0.310,-0.308,-0.307,-0.306,-0.304,-0.303,-0.301,-0.300,-0.299,&
15210       -0.297,-0.296,-0.295,-0.293,-0.292,-0.291,-0.289,-0.288,-0.287,&
15211       -0.285,-0.284,-0.283,-0.281,-0.280,-0.279,-0.277,-0.276,-0.275,&
15212       -0.273,-0.272,-0.271,-0.269,-0.268,-0.267,-0.265,-0.264,-0.263,&
15213       -0.261,-0.260,-0.259,-0.257,-0.256,-0.255,-0.253,-0.252,-0.251,&
15214       -0.249,-0.248,-0.247,-0.245,-0.244,-0.243,-0.241,-0.240,-0.239,&
15215       -0.237,-0.236,-0.235,-0.233,-0.232,-0.231,-0.230,-0.228,-0.227,&
15216       -0.226,-0.224,-0.223,-0.222,-0.220,-0.219,-0.218,-0.216,-0.215,&
15217       -0.214,-0.213,-0.211,-0.210,-0.209,-0.207,-0.206,-0.205,-0.203,&
15218       -0.202,-0.201,-0.200,-0.198,-0.197,-0.196,-0.194,-0.193,-0.192,&
15219       -0.191,-0.189,-0.188,-0.187,-0.185,-0.184,-0.183,-0.182,-0.180,&
15220       -0.179,-0.178,-0.176,-0.175,-0.174,-0.173,-0.171,-0.170,-0.169,&
15221       -0.167,-0.166,-0.165,-0.164,-0.162,-0.161,-0.160,-0.159,-0.157,&
15222       -0.156,-0.155,-0.154,-0.152,-0.151,-0.150,-0.149,-0.147,-0.146,&
15223       -0.145,-0.144,-0.142,-0.141,-0.140,-0.139,-0.137,-0.136,-0.135,&
15224       -0.134,-0.132,-0.131,-0.130,-0.129,-0.127,-0.126,-0.125,-0.124,&
15225       -0.122,-0.121,-0.120,-0.119,-0.117,-0.116,-0.115,-0.114,-0.113,&
15226       -0.111,-0.110,-0.109,-0.108,-0.106,-0.105,-0.104,-0.103,-0.102,&
15227       -0.100,-0.099,-0.098,-0.097,-0.095,-0.094,-0.093,-0.092,-0.091,&
15228       -0.089,-0.088,-0.087,-0.086,-0.085,-0.083,-0.082,-0.081,-0.080,&
15229       -0.079,-0.077,-0.076,-0.075,-0.074,-0.073,-0.071,-0.070,-0.069,&
15230       -0.068,-0.067,-0.065,-0.064,-0.063,-0.062,-0.061,-0.059,-0.058,&
15231       -0.057,-0.056,-0.055,-0.054,-0.041,-0.029,-0.018,-0.006, 0.005,&
15232        0.017, 0.028, 0.039, 0.050, 0.061, 0.072, 0.083, 0.094, 0.104,&
15233        0.115, 0.125, 0.136, 0.146, 0.156, 0.167, 0.177, 0.187, 0.197,&
15234        0.207, 0.217, 0.227, 0.236, 0.246, 0.256, 0.265, 0.275, 0.284,&
15235        0.294, 0.303, 0.312, 0.322, 0.331, 0.340, 0.349, 0.358, 0.367,&
15236        0.376, 0.385, 0.394, 0.403, 0.411, 0.420, 0.429, 0.437, 0.446,&
15237        0.455, 0.463, 0.472, 0.480, 0.488, 0.497, 0.505, 0.513, 0.521,&
15238        0.530, 0.538, 0.546, 0.554, 0.562, 0.570, 0.578, 0.586, 0.594,&
15239        0.602, 0.610, 0.617, 0.625, 0.633, 0.641, 0.648, 0.656, 0.664,&
15240        0.671, 0.679, 0.686, 0.694, 0.701, 0.709, 0.716, 0.723, 0.731,&
15241        0.738, 0.745, 0.753, 0.760, 0.767, 0.774, 0.782, 0.789, 0.796,&
15242        0.803, 0.810, 0.817, 0.824, 0.831, 0.838, 0.845, 0.852, 0.859,&
15243        0.866, 0.873, 0.880, 0.886, 0.893, 0.900, 0.907, 0.914, 0.920,&
15244        0.927, 0.934, 0.940, 0.947, 0.954, 0.960, 0.967, 0.973, 0.980,&
15245        0.987, 0.993, 1.000, 1.006, 1.013, 1.019, 1.025, 1.032, 1.038,&
15246        1.045, 1.051, 1.057, 1.064, 1.070, 1.076, 1.083, 1.089, 1.095,&
15247        1.101, 1.108, 1.114, 1.120, 1.126, 1.132, 1.139, 1.145, 1.151,&
15248        1.157, 1.163, 1.169, 1.175, 1.181, 1.187, 1.193, 1.199, 1.205,&
15249        1.211, 1.217, 1.223                                           &
15250        /
15251 !C
15252 !C **  CACL2
15253 !C
15254       DATA BNC16M/                                                   &
15255       -0.088,-0.184,-0.228,-0.256,-0.277,-0.293,-0.305,-0.315,-0.323,&
15256       -0.330,-0.335,-0.340,-0.343,-0.346,-0.349,-0.350,-0.352,-0.353,&
15257       -0.353,-0.353,-0.353,-0.353,-0.352,-0.352,-0.351,-0.349,-0.348,&
15258       -0.347,-0.345,-0.343,-0.341,-0.339,-0.337,-0.335,-0.333,-0.331,&
15259       -0.328,-0.326,-0.324,-0.321,-0.318,-0.316,-0.313,-0.311,-0.308,&
15260       -0.305,-0.302,-0.299,-0.297,-0.294,-0.291,-0.288,-0.285,-0.282,&
15261       -0.279,-0.276,-0.273,-0.270,-0.267,-0.264,-0.261,-0.258,-0.255,&
15262       -0.252,-0.249,-0.246,-0.243,-0.239,-0.236,-0.233,-0.230,-0.227,&
15263       -0.223,-0.220,-0.217,-0.214,-0.210,-0.207,-0.203,-0.200,-0.197,&
15264       -0.193,-0.190,-0.186,-0.183,-0.179,-0.176,-0.172,-0.168,-0.165,&
15265       -0.161,-0.158,-0.154,-0.150,-0.146,-0.143,-0.139,-0.135,-0.131,&
15266       -0.127,-0.123,-0.119,-0.115,-0.111,-0.107,-0.103,-0.099,-0.095,&
15267       -0.091,-0.087,-0.083,-0.079,-0.075,-0.071,-0.067,-0.063,-0.059,&
15268       -0.055,-0.050,-0.046,-0.042,-0.038,-0.034,-0.030,-0.026,-0.021,&
15269       -0.017,-0.013,-0.009,-0.005, 0.000, 0.004, 0.008, 0.012, 0.016,&
15270        0.020, 0.025, 0.029, 0.033, 0.037, 0.041, 0.046, 0.050, 0.054,&
15271        0.058, 0.062, 0.066, 0.071, 0.075, 0.079, 0.083, 0.087, 0.091,&
15272        0.095, 0.100, 0.104, 0.108, 0.112, 0.116, 0.120, 0.124, 0.128,&
15273        0.133, 0.137, 0.141, 0.145, 0.149, 0.153, 0.157, 0.161, 0.165,&
15274        0.169, 0.174, 0.178, 0.182, 0.186, 0.190, 0.194, 0.198, 0.202,&
15275        0.206, 0.210, 0.214, 0.218, 0.222, 0.226, 0.230, 0.234, 0.238,&
15276        0.242, 0.246, 0.250, 0.254, 0.258, 0.262, 0.266, 0.270, 0.274,&
15277        0.278, 0.282, 0.286, 0.290, 0.294, 0.298, 0.302, 0.306, 0.310,&
15278        0.314, 0.318, 0.321, 0.325, 0.329, 0.333, 0.337, 0.341, 0.345,&
15279        0.349, 0.353, 0.356, 0.360, 0.364, 0.368, 0.372, 0.376, 0.380,&
15280        0.383, 0.387, 0.391, 0.395, 0.399, 0.403, 0.406, 0.410, 0.414,&
15281        0.418, 0.422, 0.425, 0.429, 0.433, 0.437, 0.440, 0.444, 0.448,&
15282        0.452, 0.455, 0.459, 0.463, 0.467, 0.470, 0.474, 0.478, 0.482,&
15283        0.485, 0.489, 0.493, 0.496, 0.500, 0.504, 0.507, 0.511, 0.515,&
15284        0.518, 0.522, 0.526, 0.529, 0.533, 0.537, 0.540, 0.544, 0.548,&
15285        0.551, 0.555, 0.558, 0.562, 0.566, 0.569, 0.573, 0.576, 0.580,&
15286        0.584, 0.587, 0.591, 0.594, 0.598, 0.601, 0.605, 0.609, 0.612,&
15287        0.616, 0.619, 0.623, 0.626, 0.630, 0.633, 0.637, 0.640, 0.644,&
15288        0.647, 0.651, 0.654, 0.658, 0.661, 0.665, 0.668, 0.672, 0.675,&
15289        0.678, 0.682, 0.685, 0.689, 0.692, 0.696, 0.699, 0.703, 0.706,&
15290        0.709, 0.713, 0.716, 0.720, 0.723, 0.726, 0.730, 0.733, 0.737,&
15291        0.740, 0.743, 0.747, 0.750, 0.753, 0.757, 0.760, 0.763, 0.767,&
15292        0.770, 0.773, 0.777, 0.780, 0.783, 0.787, 0.790, 0.793, 0.797,&
15293        0.800, 0.803, 0.807, 0.810, 0.813, 0.816, 0.820, 0.823, 0.826,&
15294        0.829, 0.833, 0.836, 0.839, 0.842, 0.846, 0.849, 0.852, 0.855,&
15295        0.859, 0.862, 0.865, 0.868, 0.871, 0.875, 0.878, 0.881, 0.884,&
15296        0.887, 0.891, 0.894, 0.897, 0.900, 0.903, 0.906, 0.910, 0.913,&
15297        0.916, 0.919, 0.922, 0.925, 0.928, 0.932, 0.935, 0.938, 0.941,&
15298        0.944, 0.947, 0.950, 0.953, 0.957, 0.960, 0.963, 0.966, 0.969,&
15299        0.972, 0.975, 0.978, 0.981, 1.014, 1.044, 1.074, 1.103, 1.132,&
15300        1.161, 1.189, 1.218, 1.245, 1.273, 1.300, 1.327, 1.353, 1.380,&
15301        1.406, 1.431, 1.457, 1.482, 1.507, 1.532, 1.556, 1.580, 1.604,&
15302        1.628, 1.652, 1.675, 1.698, 1.721, 1.744, 1.766, 1.788, 1.811,&
15303        1.832, 1.854, 1.876, 1.897, 1.918, 1.939, 1.960, 1.981, 2.001,&
15304        2.022, 2.042, 2.062, 2.082, 2.101, 2.121, 2.140, 2.160, 2.179,&
15305        2.198, 2.217, 2.235, 2.254, 2.273, 2.291, 2.309, 2.327, 2.345,&
15306        2.363, 2.381, 2.398, 2.416, 2.433, 2.451, 2.468, 2.485, 2.502,&
15307        2.519, 2.535, 2.552, 2.569, 2.585, 2.601, 2.618, 2.634, 2.650,&
15308        2.666, 2.682, 2.698, 2.713, 2.729, 2.745, 2.760, 2.775, 2.791,&
15309        2.806, 2.821, 2.836, 2.851, 2.866, 2.881, 2.895, 2.910, 2.925,&
15310        2.939, 2.954, 2.968, 2.982, 2.997, 3.011, 3.025, 3.039, 3.053,&
15311        3.067, 3.081, 3.094, 3.108, 3.122, 3.135, 3.149, 3.162, 3.176,&
15312        3.189, 3.202, 3.216, 3.229, 3.242, 3.255, 3.268, 3.281, 3.294,&
15313        3.307, 3.319, 3.332, 3.345, 3.357, 3.370, 3.383, 3.395, 3.407,&
15314        3.420, 3.432, 3.444, 3.457, 3.469, 3.481, 3.493, 3.505, 3.517,&
15315        3.529, 3.541, 3.553, 3.565, 3.577, 3.588, 3.600, 3.612, 3.623,&
15316        3.635, 3.646, 3.658, 3.669, 3.681, 3.692, 3.704, 3.715, 3.726,&
15317        3.737, 3.748, 3.760                                           &
15318        /
15319 !C
15320 !C **  K2SO4
15321 !C
15322       DATA BNC17M/                                                   &
15323       -0.091,-0.197,-0.249,-0.286,-0.315,-0.339,-0.359,-0.377,-0.392,&
15324       -0.406,-0.419,-0.431,-0.442,-0.452,-0.461,-0.470,-0.478,-0.486,&
15325       -0.493,-0.500,-0.507,-0.513,-0.519,-0.525,-0.530,-0.535,-0.540,&
15326       -0.545,-0.550,-0.554,-0.559,-0.563,-0.567,-0.571,-0.575,-0.579,&
15327       -0.582,-0.586,-0.589,-0.592,-0.596,-0.599,-0.602,-0.605,-0.608,&
15328       -0.611,-0.613,-0.616,-0.619,-0.621,-0.624,-0.626,-0.628,-0.631,&
15329       -0.633,-0.635,-0.637,-0.640,-0.642,-0.644,-0.646,-0.648,-0.650,&
15330       -0.652,-0.653,-0.655,-0.657,-0.659,-0.661,-0.662,-0.664,-0.666,&
15331       -0.667,-0.669,-0.670,-0.672,-0.673,-0.675,-0.676,-0.678,-0.679,&
15332       -0.681,-0.682,-0.683,-0.685,-0.686,-0.687,-0.689,-0.690,-0.691,&
15333       -0.693,-0.694,-0.695,-0.696,-0.697,-0.699,-0.700,-0.701,-0.702,&
15334       -0.703,-0.704,-0.705,-0.707,-0.708,-0.709,-0.710,-0.711,-0.712,&
15335       -0.713,-0.714,-0.715,-0.716,-0.717,-0.718,-0.719,-0.720,-0.721,&
15336       -0.722,-0.723,-0.724,-0.724,-0.725,-0.726,-0.727,-0.728,-0.729,&
15337       -0.730,-0.731,-0.731,-0.732,-0.733,-0.734,-0.735,-0.735,-0.736,&
15338       -0.737,-0.738,-0.738,-0.739,-0.740,-0.741,-0.741,-0.742,-0.743,&
15339       -0.744,-0.744,-0.745,-0.746,-0.746,-0.747,-0.748,-0.748,-0.749,&
15340       -0.750,-0.750,-0.751,-0.752,-0.752,-0.753,-0.754,-0.754,-0.755,&
15341       -0.755,-0.756,-0.757,-0.757,-0.758,-0.758,-0.759,-0.759,-0.760,&
15342       -0.761,-0.761,-0.762,-0.762,-0.763,-0.763,-0.764,-0.764,-0.765,&
15343       -0.765,-0.766,-0.766,-0.767,-0.767,-0.768,-0.768,-0.769,-0.769,&
15344       -0.770,-0.770,-0.771,-0.771,-0.772,-0.772,-0.772,-0.773,-0.773,&
15345       -0.774,-0.774,-0.775,-0.775,-0.776,-0.776,-0.776,-0.777,-0.777,&
15346       -0.778,-0.778,-0.778,-0.779,-0.779,-0.780,-0.780,-0.780,-0.781,&
15347       -0.781,-0.781,-0.782,-0.782,-0.783,-0.783,-0.783,-0.784,-0.784,&
15348       -0.784,-0.785,-0.785,-0.785,-0.786,-0.786,-0.786,-0.787,-0.787,&
15349       -0.787,-0.788,-0.788,-0.788,-0.789,-0.789,-0.789,-0.790,-0.790,&
15350       -0.790,-0.790,-0.791,-0.791,-0.791,-0.792,-0.792,-0.792,-0.793,&
15351       -0.793,-0.793,-0.793,-0.794,-0.794,-0.794,-0.794,-0.795,-0.795,&
15352       -0.795,-0.795,-0.796,-0.796,-0.796,-0.796,-0.797,-0.797,-0.797,&
15353       -0.797,-0.798,-0.798,-0.798,-0.798,-0.799,-0.799,-0.799,-0.799,&
15354       -0.800,-0.800,-0.800,-0.800,-0.800,-0.801,-0.801,-0.801,-0.801,&
15355       -0.801,-0.802,-0.802,-0.802,-0.802,-0.802,-0.803,-0.803,-0.803,&
15356       -0.803,-0.803,-0.804,-0.804,-0.804,-0.804,-0.804,-0.804,-0.805,&
15357       -0.805,-0.805,-0.805,-0.805,-0.806,-0.806,-0.806,-0.806,-0.806,&
15358       -0.806,-0.806,-0.807,-0.807,-0.807,-0.807,-0.807,-0.807,-0.808,&
15359       -0.808,-0.808,-0.808,-0.808,-0.808,-0.808,-0.809,-0.809,-0.809,&
15360       -0.809,-0.809,-0.809,-0.809,-0.810,-0.810,-0.810,-0.810,-0.810,&
15361       -0.810,-0.810,-0.810,-0.810,-0.811,-0.811,-0.811,-0.811,-0.811,&
15362       -0.811,-0.811,-0.811,-0.812,-0.812,-0.812,-0.812,-0.812,-0.812,&
15363       -0.812,-0.812,-0.812,-0.812,-0.813,-0.813,-0.813,-0.813,-0.813,&
15364       -0.813,-0.813,-0.813,-0.813,-0.813,-0.813,-0.814,-0.814,-0.814,&
15365       -0.814,-0.814,-0.814,-0.814,-0.814,-0.814,-0.814,-0.814,-0.814,&
15366       -0.814,-0.815,-0.815,-0.815,-0.815,-0.815,-0.815,-0.815,-0.815,&
15367       -0.815,-0.815,-0.815,-0.815,-0.816,-0.816,-0.817,-0.817,-0.817,&
15368       -0.817,-0.817,-0.817,-0.817,-0.817,-0.817,-0.817,-0.816,-0.816,&
15369       -0.816,-0.815,-0.815,-0.814,-0.813,-0.813,-0.812,-0.811,-0.811,&
15370       -0.810,-0.809,-0.808,-0.807,-0.806,-0.805,-0.804,-0.803,-0.802,&
15371       -0.801,-0.800,-0.799,-0.797,-0.796,-0.795,-0.794,-0.792,-0.791,&
15372       -0.790,-0.788,-0.787,-0.786,-0.784,-0.783,-0.781,-0.780,-0.778,&
15373       -0.777,-0.775,-0.774,-0.772,-0.771,-0.769,-0.767,-0.766,-0.764,&
15374       -0.762,-0.761,-0.759,-0.757,-0.756,-0.754,-0.752,-0.750,-0.749,&
15375       -0.747,-0.745,-0.743,-0.741,-0.740,-0.738,-0.736,-0.734,-0.732,&
15376       -0.730,-0.728,-0.727,-0.725,-0.723,-0.721,-0.719,-0.717,-0.715,&
15377       -0.713,-0.711,-0.709,-0.707,-0.705,-0.703,-0.701,-0.699,-0.697,&
15378       -0.695,-0.693,-0.691,-0.689,-0.687,-0.685,-0.683,-0.681,-0.678,&
15379       -0.676,-0.674,-0.672,-0.670,-0.668,-0.666,-0.664,-0.661,-0.659,&
15380       -0.657,-0.655,-0.653,-0.651,-0.648,-0.646,-0.644,-0.642,-0.640,&
15381       -0.638,-0.635,-0.633,-0.631,-0.629,-0.626,-0.624,-0.622,-0.620,&
15382       -0.618,-0.615,-0.613,-0.611,-0.609,-0.606,-0.604,-0.602,-0.599,&
15383       -0.597,-0.595,-0.593,-0.590,-0.588,-0.586,-0.583,-0.581,-0.579,&
15384       -0.577,-0.574,-0.572,-0.570,-0.567,-0.565,-0.563,-0.560,-0.558,&
15385       -0.556,-0.553,-0.551                                           &
15386        /
15387 !C
15388 !C **  KHSO4
15389 !C
15390       DATA BNC18M/                                                   &
15391       -0.045,-0.094,-0.118,-0.134,-0.147,-0.156,-0.165,-0.171,-0.177,&
15392       -0.182,-0.187,-0.191,-0.195,-0.198,-0.200,-0.203,-0.205,-0.207,&
15393       -0.209,-0.210,-0.212,-0.213,-0.214,-0.215,-0.215,-0.216,-0.216,&
15394       -0.216,-0.217,-0.217,-0.217,-0.217,-0.216,-0.216,-0.216,-0.215,&
15395       -0.214,-0.214,-0.213,-0.212,-0.211,-0.210,-0.209,-0.208,-0.207,&
15396       -0.206,-0.205,-0.204,-0.202,-0.201,-0.199,-0.198,-0.196,-0.195,&
15397       -0.193,-0.191,-0.190,-0.188,-0.186,-0.184,-0.183,-0.181,-0.179,&
15398       -0.177,-0.175,-0.173,-0.171,-0.169,-0.167,-0.165,-0.163,-0.160,&
15399       -0.158,-0.156,-0.154,-0.152,-0.149,-0.147,-0.145,-0.142,-0.140,&
15400       -0.137,-0.135,-0.133,-0.130,-0.128,-0.125,-0.123,-0.120,-0.117,&
15401       -0.115,-0.112,-0.109,-0.107,-0.104,-0.101,-0.099,-0.096,-0.093,&
15402       -0.090,-0.088,-0.085,-0.082,-0.079,-0.076,-0.074,-0.071,-0.068,&
15403       -0.065,-0.062,-0.059,-0.056,-0.053,-0.050,-0.047,-0.044,-0.042,&
15404       -0.039,-0.036,-0.033,-0.030,-0.027,-0.024,-0.021,-0.018,-0.015,&
15405       -0.012,-0.009,-0.006,-0.003, 0.000, 0.003, 0.006, 0.009, 0.012,&
15406        0.015, 0.018, 0.020, 0.023, 0.026, 0.029, 0.032, 0.035, 0.038,&
15407        0.041, 0.044, 0.047, 0.050, 0.053, 0.055, 0.058, 0.061, 0.064,&
15408        0.067, 0.070, 0.073, 0.076, 0.078, 0.081, 0.084, 0.087, 0.090,&
15409        0.093, 0.095, 0.098, 0.101, 0.104, 0.107, 0.109, 0.112, 0.115,&
15410        0.118, 0.121, 0.123, 0.126, 0.129, 0.132, 0.134, 0.137, 0.140,&
15411        0.143, 0.145, 0.148, 0.151, 0.153, 0.156, 0.159, 0.162, 0.164,&
15412        0.167, 0.170, 0.172, 0.175, 0.178, 0.180, 0.183, 0.186, 0.188,&
15413        0.191, 0.193, 0.196, 0.199, 0.201, 0.204, 0.206, 0.209, 0.212,&
15414        0.214, 0.217, 0.219, 0.222, 0.225, 0.227, 0.230, 0.232, 0.235,&
15415        0.237, 0.240, 0.242, 0.245, 0.247, 0.250, 0.252, 0.255, 0.257,&
15416        0.260, 0.262, 0.265, 0.267, 0.270, 0.272, 0.275, 0.277, 0.280,&
15417        0.282, 0.285, 0.287, 0.289, 0.292, 0.294, 0.297, 0.299, 0.302,&
15418        0.304, 0.306, 0.309, 0.311, 0.314, 0.316, 0.318, 0.321, 0.323,&
15419        0.325, 0.328, 0.330, 0.333, 0.335, 0.337, 0.340, 0.342, 0.344,&
15420        0.347, 0.349, 0.351, 0.354, 0.356, 0.358, 0.360, 0.363, 0.365,&
15421        0.367, 0.370, 0.372, 0.374, 0.376, 0.379, 0.381, 0.383, 0.386,&
15422        0.388, 0.390, 0.392, 0.395, 0.397, 0.399, 0.401, 0.403, 0.406,&
15423        0.408, 0.410, 0.412, 0.415, 0.417, 0.419, 0.421, 0.423, 0.425,&
15424        0.428, 0.430, 0.432, 0.434, 0.436, 0.439, 0.441, 0.443, 0.445,&
15425        0.447, 0.449, 0.451, 0.454, 0.456, 0.458, 0.460, 0.462, 0.464,&
15426        0.466, 0.468, 0.471, 0.473, 0.475, 0.477, 0.479, 0.481, 0.483,&
15427        0.485, 0.487, 0.489, 0.491, 0.494, 0.496, 0.498, 0.500, 0.502,&
15428        0.504, 0.506, 0.508, 0.510, 0.512, 0.514, 0.516, 0.518, 0.520,&
15429        0.522, 0.524, 0.526, 0.528, 0.530, 0.532, 0.534, 0.536, 0.538,&
15430        0.540, 0.542, 0.544, 0.546, 0.548, 0.550, 0.552, 0.554, 0.556,&
15431        0.558, 0.560, 0.562, 0.564, 0.566, 0.568, 0.570, 0.572, 0.574,&
15432        0.576, 0.578, 0.580, 0.582, 0.584, 0.585, 0.587, 0.589, 0.591,&
15433        0.593, 0.595, 0.597, 0.599, 0.601, 0.603, 0.605, 0.607, 0.608,&
15434        0.610, 0.612, 0.614, 0.616, 0.618, 0.620, 0.622, 0.623, 0.625,&
15435        0.627, 0.629, 0.631, 0.633, 0.653, 0.671, 0.689, 0.707, 0.724,&
15436        0.741, 0.758, 0.775, 0.792, 0.808, 0.824, 0.840, 0.856, 0.872,&
15437        0.887, 0.903, 0.918, 0.933, 0.947, 0.962, 0.977, 0.991, 1.005,&
15438        1.019, 1.033, 1.047, 1.060, 1.074, 1.087, 1.101, 1.114, 1.127,&
15439        1.140, 1.152, 1.165, 1.178, 1.190, 1.202, 1.215, 1.227, 1.239,&
15440        1.251, 1.262, 1.274, 1.286, 1.297, 1.309, 1.320, 1.332, 1.343,&
15441        1.354, 1.365, 1.376, 1.387, 1.397, 1.408, 1.419, 1.429, 1.440,&
15442        1.450, 1.461, 1.471, 1.481, 1.491, 1.501, 1.511, 1.521, 1.531,&
15443        1.541, 1.551, 1.561, 1.570, 1.580, 1.589, 1.599, 1.608, 1.617,&
15444        1.627, 1.636, 1.645, 1.654, 1.663, 1.672, 1.681, 1.690, 1.699,&
15445        1.708, 1.717, 1.726, 1.734, 1.743, 1.751, 1.760, 1.768, 1.777,&
15446        1.785, 1.794, 1.802, 1.810, 1.819, 1.827, 1.835, 1.843, 1.851,&
15447        1.859, 1.867, 1.875, 1.883, 1.891, 1.899, 1.907, 1.915, 1.922,&
15448        1.930, 1.938, 1.945, 1.953, 1.960, 1.968, 1.976, 1.983, 1.990,&
15449        1.998, 2.005, 2.013, 2.020, 2.027, 2.034, 2.042, 2.049, 2.056,&
15450        2.063, 2.070, 2.077, 2.084, 2.091, 2.098, 2.105, 2.112, 2.119,&
15451        2.126, 2.133, 2.140, 2.147, 2.154, 2.160, 2.167, 2.174, 2.180,&
15452        2.187, 2.194, 2.200, 2.207, 2.213, 2.220, 2.227, 2.233, 2.240,&
15453        2.246, 2.252, 2.259                                           &
15454        /
15455 !C
15456 !C **  KNO3
15457 !C
15458       DATA BNC19M/                                                   &
15459       -0.046,-0.105,-0.136,-0.159,-0.178,-0.194,-0.208,-0.221,-0.233,&
15460       -0.244,-0.255,-0.265,-0.274,-0.283,-0.291,-0.299,-0.307,-0.315,&
15461       -0.322,-0.329,-0.336,-0.342,-0.349,-0.355,-0.361,-0.367,-0.373,&
15462       -0.379,-0.384,-0.390,-0.395,-0.400,-0.405,-0.410,-0.415,-0.420,&
15463       -0.425,-0.430,-0.434,-0.439,-0.443,-0.447,-0.452,-0.456,-0.460,&
15464       -0.464,-0.468,-0.472,-0.476,-0.480,-0.483,-0.487,-0.491,-0.494,&
15465       -0.498,-0.501,-0.505,-0.508,-0.511,-0.515,-0.518,-0.521,-0.524,&
15466       -0.528,-0.531,-0.534,-0.537,-0.540,-0.543,-0.546,-0.549,-0.552,&
15467       -0.555,-0.557,-0.560,-0.563,-0.566,-0.569,-0.571,-0.574,-0.577,&
15468       -0.580,-0.582,-0.585,-0.588,-0.590,-0.593,-0.596,-0.598,-0.601,&
15469       -0.604,-0.606,-0.609,-0.611,-0.614,-0.616,-0.619,-0.622,-0.624,&
15470       -0.627,-0.629,-0.632,-0.634,-0.637,-0.639,-0.641,-0.644,-0.646,&
15471       -0.649,-0.651,-0.654,-0.656,-0.658,-0.661,-0.663,-0.666,-0.668,&
15472       -0.670,-0.673,-0.675,-0.677,-0.679,-0.682,-0.684,-0.686,-0.688,&
15473       -0.691,-0.693,-0.695,-0.697,-0.699,-0.702,-0.704,-0.706,-0.708,&
15474       -0.710,-0.712,-0.714,-0.716,-0.718,-0.721,-0.723,-0.725,-0.727,&
15475       -0.729,-0.731,-0.733,-0.735,-0.737,-0.739,-0.740,-0.742,-0.744,&
15476       -0.746,-0.748,-0.750,-0.752,-0.754,-0.756,-0.757,-0.759,-0.761,&
15477       -0.763,-0.765,-0.767,-0.768,-0.770,-0.772,-0.774,-0.775,-0.777,&
15478       -0.779,-0.780,-0.782,-0.784,-0.786,-0.787,-0.789,-0.791,-0.792,&
15479       -0.794,-0.796,-0.797,-0.799,-0.800,-0.802,-0.804,-0.805,-0.807,&
15480       -0.808,-0.810,-0.811,-0.813,-0.814,-0.816,-0.817,-0.819,-0.820,&
15481       -0.822,-0.823,-0.825,-0.826,-0.828,-0.829,-0.831,-0.832,-0.834,&
15482       -0.835,-0.836,-0.838,-0.839,-0.841,-0.842,-0.843,-0.845,-0.846,&
15483       -0.847,-0.849,-0.850,-0.851,-0.853,-0.854,-0.855,-0.857,-0.858,&
15484       -0.859,-0.861,-0.862,-0.863,-0.864,-0.866,-0.867,-0.868,-0.869,&
15485       -0.871,-0.872,-0.873,-0.874,-0.875,-0.877,-0.878,-0.879,-0.880,&
15486       -0.881,-0.882,-0.884,-0.885,-0.886,-0.887,-0.888,-0.889,-0.890,&
15487       -0.892,-0.893,-0.894,-0.895,-0.896,-0.897,-0.898,-0.899,-0.900,&
15488       -0.901,-0.902,-0.904,-0.905,-0.906,-0.907,-0.908,-0.909,-0.910,&
15489       -0.911,-0.912,-0.913,-0.914,-0.915,-0.916,-0.917,-0.918,-0.919,&
15490       -0.920,-0.921,-0.922,-0.923,-0.924,-0.925,-0.926,-0.926,-0.927,&
15491       -0.928,-0.929,-0.930,-0.931,-0.932,-0.933,-0.934,-0.935,-0.936,&
15492       -0.936,-0.937,-0.938,-0.939,-0.940,-0.941,-0.942,-0.943,-0.943,&
15493       -0.944,-0.945,-0.946,-0.947,-0.948,-0.948,-0.949,-0.950,-0.951,&
15494       -0.952,-0.953,-0.953,-0.954,-0.955,-0.956,-0.957,-0.957,-0.958,&
15495       -0.959,-0.960,-0.960,-0.961,-0.962,-0.963,-0.963,-0.964,-0.965,&
15496       -0.966,-0.966,-0.967,-0.968,-0.969,-0.969,-0.970,-0.971,-0.971,&
15497       -0.972,-0.973,-0.974,-0.974,-0.975,-0.976,-0.976,-0.977,-0.978,&
15498       -0.978,-0.979,-0.980,-0.980,-0.981,-0.982,-0.982,-0.983,-0.984,&
15499       -0.984,-0.985,-0.986,-0.986,-0.987,-0.988,-0.988,-0.989,-0.989,&
15500       -0.990,-0.991,-0.991,-0.992,-0.992,-0.993,-0.994,-0.994,-0.995,&
15501       -0.995,-0.996,-0.997,-0.997,-0.998,-0.998,-0.999,-1.000,-1.000,&
15502       -1.001,-1.001,-1.002,-1.002,-1.003,-1.003,-1.004,-1.005,-1.005,&
15503       -1.006,-1.006,-1.007,-1.007,-1.013,-1.018,-1.022,-1.027,-1.031,&
15504       -1.035,-1.039,-1.042,-1.046,-1.049,-1.052,-1.055,-1.058,-1.060,&
15505       -1.063,-1.065,-1.067,-1.069,-1.071,-1.073,-1.075,-1.076,-1.078,&
15506       -1.079,-1.081,-1.082,-1.083,-1.084,-1.085,-1.086,-1.087,-1.088,&
15507       -1.088,-1.089,-1.089,-1.090,-1.090,-1.091,-1.091,-1.091,-1.092,&
15508       -1.092,-1.092,-1.092,-1.092,-1.092,-1.092,-1.092,-1.092,-1.092,&
15509       -1.092,-1.091,-1.091,-1.091,-1.091,-1.090,-1.090,-1.090,-1.089,&
15510       -1.089,-1.088,-1.088,-1.087,-1.087,-1.086,-1.085,-1.085,-1.084,&
15511       -1.084,-1.083,-1.082,-1.082,-1.081,-1.080,-1.079,-1.079,-1.078,&
15512       -1.077,-1.076,-1.075,-1.074,-1.074,-1.073,-1.072,-1.071,-1.070,&
15513       -1.069,-1.068,-1.067,-1.066,-1.065,-1.064,-1.063,-1.062,-1.061,&
15514       -1.060,-1.059,-1.058,-1.057,-1.056,-1.055,-1.054,-1.053,-1.052,&
15515       -1.051,-1.050,-1.049,-1.047,-1.046,-1.045,-1.044,-1.043,-1.042,&
15516       -1.041,-1.040,-1.038,-1.037,-1.036,-1.035,-1.034,-1.032,-1.031,&
15517       -1.030,-1.029,-1.028,-1.026,-1.025,-1.024,-1.023,-1.022,-1.020,&
15518       -1.019,-1.018,-1.017,-1.015,-1.014,-1.013,-1.012,-1.010,-1.009,&
15519       -1.008,-1.007,-1.005,-1.004,-1.003,-1.001,-1.000,-0.999,-0.998,&
15520       -0.996,-0.995,-0.994,-0.992,-0.991,-0.990,-0.989,-0.987,-0.986,&
15521       -0.985,-0.983,-0.982                                           &
15522        /
15523 !C
15524 !C **  KCL
15525 !C
15526       DATA BNC20M/                                                   &
15527       -0.045,-0.095,-0.119,-0.136,-0.148,-0.158,-0.166,-0.173,-0.179,&
15528       -0.184,-0.189,-0.193,-0.197,-0.200,-0.203,-0.206,-0.208,-0.210,&
15529       -0.212,-0.214,-0.216,-0.217,-0.219,-0.220,-0.221,-0.222,-0.223,&
15530       -0.224,-0.225,-0.226,-0.227,-0.227,-0.228,-0.229,-0.229,-0.229,&
15531       -0.230,-0.230,-0.231,-0.231,-0.231,-0.231,-0.232,-0.232,-0.232,&
15532       -0.232,-0.232,-0.232,-0.232,-0.232,-0.233,-0.233,-0.233,-0.232,&
15533       -0.232,-0.232,-0.232,-0.232,-0.232,-0.232,-0.232,-0.232,-0.232,&
15534       -0.232,-0.231,-0.231,-0.231,-0.231,-0.231,-0.230,-0.230,-0.230,&
15535       -0.230,-0.229,-0.229,-0.229,-0.229,-0.228,-0.228,-0.228,-0.227,&
15536       -0.227,-0.227,-0.226,-0.226,-0.226,-0.225,-0.225,-0.224,-0.224,&
15537       -0.224,-0.223,-0.223,-0.222,-0.222,-0.221,-0.221,-0.220,-0.220,&
15538       -0.219,-0.219,-0.218,-0.218,-0.217,-0.217,-0.216,-0.216,-0.215,&
15539       -0.215,-0.214,-0.213,-0.213,-0.212,-0.212,-0.211,-0.211,-0.210,&
15540       -0.209,-0.209,-0.208,-0.208,-0.207,-0.206,-0.206,-0.205,-0.205,&
15541       -0.204,-0.203,-0.203,-0.202,-0.201,-0.201,-0.200,-0.200,-0.199,&
15542       -0.198,-0.198,-0.197,-0.196,-0.196,-0.195,-0.194,-0.194,-0.193,&
15543       -0.192,-0.192,-0.191,-0.191,-0.190,-0.189,-0.189,-0.188,-0.187,&
15544       -0.187,-0.186,-0.185,-0.185,-0.184,-0.183,-0.183,-0.182,-0.181,&
15545       -0.181,-0.180,-0.179,-0.179,-0.178,-0.177,-0.177,-0.176,-0.175,&
15546       -0.175,-0.174,-0.173,-0.173,-0.172,-0.171,-0.171,-0.170,-0.169,&
15547       -0.169,-0.168,-0.167,-0.167,-0.166,-0.165,-0.165,-0.164,-0.163,&
15548       -0.163,-0.162,-0.161,-0.161,-0.160,-0.159,-0.159,-0.158,-0.157,&
15549       -0.157,-0.156,-0.155,-0.155,-0.154,-0.153,-0.153,-0.152,-0.151,&
15550       -0.151,-0.150,-0.149,-0.149,-0.148,-0.147,-0.147,-0.146,-0.145,&
15551       -0.145,-0.144,-0.143,-0.143,-0.142,-0.141,-0.141,-0.140,-0.140,&
15552       -0.139,-0.138,-0.138,-0.137,-0.136,-0.136,-0.135,-0.134,-0.134,&
15553       -0.133,-0.132,-0.132,-0.131,-0.130,-0.130,-0.129,-0.128,-0.128,&
15554       -0.127,-0.126,-0.126,-0.125,-0.124,-0.124,-0.123,-0.122,-0.122,&
15555       -0.121,-0.120,-0.120,-0.119,-0.119,-0.118,-0.117,-0.117,-0.116,&
15556       -0.115,-0.115,-0.114,-0.113,-0.113,-0.112,-0.111,-0.111,-0.110,&
15557       -0.109,-0.109,-0.108,-0.108,-0.107,-0.106,-0.106,-0.105,-0.104,&
15558       -0.104,-0.103,-0.102,-0.102,-0.101,-0.100,-0.100,-0.099,-0.099,&
15559       -0.098,-0.097,-0.097,-0.096,-0.095,-0.095,-0.094,-0.093,-0.093,&
15560       -0.092,-0.092,-0.091,-0.090,-0.090,-0.089,-0.088,-0.088,-0.087,&
15561       -0.087,-0.086,-0.085,-0.085,-0.084,-0.083,-0.083,-0.082,-0.082,&
15562       -0.081,-0.080,-0.080,-0.079,-0.078,-0.078,-0.077,-0.077,-0.076,&
15563       -0.075,-0.075,-0.074,-0.073,-0.073,-0.072,-0.072,-0.071,-0.070,&
15564       -0.070,-0.069,-0.069,-0.068,-0.067,-0.067,-0.066,-0.065,-0.065,&
15565       -0.064,-0.064,-0.063,-0.062,-0.062,-0.061,-0.061,-0.060,-0.059,&
15566       -0.059,-0.058,-0.058,-0.057,-0.056,-0.056,-0.055,-0.055,-0.054,&
15567       -0.053,-0.053,-0.052,-0.051,-0.051,-0.050,-0.050,-0.049,-0.048,&
15568       -0.048,-0.047,-0.047,-0.046,-0.046,-0.045,-0.044,-0.044,-0.043,&
15569       -0.043,-0.042,-0.041,-0.041,-0.040,-0.040,-0.039,-0.038,-0.038,&
15570       -0.037,-0.037,-0.036,-0.035,-0.035,-0.034,-0.034,-0.033,-0.032,&
15571       -0.032,-0.031,-0.031,-0.030,-0.024,-0.018,-0.012,-0.007,-0.001,&
15572        0.005, 0.010, 0.016, 0.021, 0.027, 0.032, 0.037, 0.043, 0.048,&
15573        0.053, 0.058, 0.064, 0.069, 0.074, 0.079, 0.084, 0.089, 0.094,&
15574        0.099, 0.104, 0.109, 0.113, 0.118, 0.123, 0.128, 0.132, 0.137,&
15575        0.142, 0.146, 0.151, 0.156, 0.160, 0.165, 0.169, 0.174, 0.178,&
15576        0.183, 0.187, 0.191, 0.196, 0.200, 0.205, 0.209, 0.213, 0.217,&
15577        0.222, 0.226, 0.230, 0.234, 0.238, 0.242, 0.247, 0.251, 0.255,&
15578        0.259, 0.263, 0.267, 0.271, 0.275, 0.279, 0.283, 0.287, 0.291,&
15579        0.295, 0.298, 0.302, 0.306, 0.310, 0.314, 0.318, 0.321, 0.325,&
15580        0.329, 0.333, 0.337, 0.340, 0.344, 0.348, 0.351, 0.355, 0.359,&
15581        0.362, 0.366, 0.370, 0.373, 0.377, 0.380, 0.384, 0.387, 0.391,&
15582        0.394, 0.398, 0.401, 0.405, 0.408, 0.412, 0.415, 0.419, 0.422,&
15583        0.426, 0.429, 0.433, 0.436, 0.439, 0.443, 0.446, 0.449, 0.453,&
15584        0.456, 0.459, 0.463, 0.466, 0.469, 0.473, 0.476, 0.479, 0.482,&
15585        0.486, 0.489, 0.492, 0.495, 0.499, 0.502, 0.505, 0.508, 0.511,&
15586        0.514, 0.518, 0.521, 0.524, 0.527, 0.530, 0.533, 0.536, 0.540,&
15587        0.543, 0.546, 0.549, 0.552, 0.555, 0.558, 0.561, 0.564, 0.567,&
15588        0.570, 0.573, 0.576, 0.579, 0.582, 0.585, 0.588, 0.591, 0.594,&
15589        0.597, 0.600, 0.603                                           &
15590        /
15591 !C
15592 !C **  MGSO4
15593 !C
15594       DATA BNC21M/                                                   &
15595       -0.181,-0.389,-0.491,-0.562,-0.617,-0.661,-0.699,-0.732,-0.760,&
15596       -0.786,-0.809,-0.829,-0.849,-0.866,-0.882,-0.897,-0.911,-0.924,&
15597       -0.937,-0.948,-0.959,-0.969,-0.979,-0.988,-0.997,-1.006,-1.014,&
15598       -1.021,-1.028,-1.035,-1.042,-1.048,-1.055,-1.061,-1.066,-1.072,&
15599       -1.077,-1.082,-1.087,-1.092,-1.096,-1.100,-1.105,-1.109,-1.113,&
15600       -1.117,-1.120,-1.124,-1.128,-1.131,-1.134,-1.137,-1.141,-1.144,&
15601       -1.146,-1.149,-1.152,-1.155,-1.157,-1.160,-1.162,-1.165,-1.167,&
15602       -1.169,-1.172,-1.174,-1.176,-1.178,-1.180,-1.182,-1.184,-1.186,&
15603       -1.187,-1.189,-1.191,-1.192,-1.194,-1.196,-1.197,-1.199,-1.200,&
15604       -1.202,-1.203,-1.204,-1.206,-1.207,-1.208,-1.209,-1.210,-1.211,&
15605       -1.213,-1.214,-1.215,-1.216,-1.217,-1.218,-1.218,-1.219,-1.220,&
15606       -1.221,-1.222,-1.223,-1.223,-1.224,-1.225,-1.225,-1.226,-1.227,&
15607       -1.227,-1.228,-1.229,-1.229,-1.230,-1.230,-1.231,-1.231,-1.232,&
15608       -1.232,-1.233,-1.233,-1.233,-1.234,-1.234,-1.235,-1.235,-1.235,&
15609       -1.236,-1.236,-1.236,-1.236,-1.237,-1.237,-1.237,-1.237,-1.238,&
15610       -1.238,-1.238,-1.238,-1.238,-1.239,-1.239,-1.239,-1.239,-1.239,&
15611       -1.239,-1.239,-1.239,-1.239,-1.239,-1.240,-1.240,-1.240,-1.240,&
15612       -1.240,-1.240,-1.240,-1.240,-1.240,-1.240,-1.240,-1.240,-1.240,&
15613       -1.239,-1.239,-1.239,-1.239,-1.239,-1.239,-1.239,-1.239,-1.239,&
15614       -1.239,-1.239,-1.238,-1.238,-1.238,-1.238,-1.238,-1.238,-1.238,&
15615       -1.237,-1.237,-1.237,-1.237,-1.237,-1.237,-1.236,-1.236,-1.236,&
15616       -1.236,-1.235,-1.235,-1.235,-1.235,-1.235,-1.234,-1.234,-1.234,&
15617       -1.233,-1.233,-1.233,-1.233,-1.232,-1.232,-1.232,-1.232,-1.231,&
15618       -1.231,-1.231,-1.230,-1.230,-1.230,-1.229,-1.229,-1.229,-1.228,&
15619       -1.228,-1.228,-1.227,-1.227,-1.227,-1.226,-1.226,-1.226,-1.225,&
15620       -1.225,-1.225,-1.224,-1.224,-1.223,-1.223,-1.223,-1.222,-1.222,&
15621       -1.222,-1.221,-1.221,-1.220,-1.220,-1.220,-1.219,-1.219,-1.218,&
15622       -1.218,-1.217,-1.217,-1.217,-1.216,-1.216,-1.215,-1.215,-1.214,&
15623       -1.214,-1.214,-1.213,-1.213,-1.212,-1.212,-1.211,-1.211,-1.210,&
15624       -1.210,-1.210,-1.209,-1.209,-1.208,-1.208,-1.207,-1.207,-1.206,&
15625       -1.206,-1.205,-1.205,-1.204,-1.204,-1.203,-1.203,-1.202,-1.202,&
15626       -1.201,-1.201,-1.200,-1.200,-1.199,-1.199,-1.198,-1.198,-1.197,&
15627       -1.197,-1.196,-1.196,-1.195,-1.195,-1.194,-1.194,-1.193,-1.193,&
15628       -1.192,-1.192,-1.191,-1.191,-1.190,-1.190,-1.189,-1.188,-1.188,&
15629       -1.187,-1.187,-1.186,-1.186,-1.185,-1.185,-1.184,-1.184,-1.183,&
15630       -1.182,-1.182,-1.181,-1.181,-1.180,-1.180,-1.179,-1.179,-1.178,&
15631       -1.177,-1.177,-1.176,-1.176,-1.175,-1.175,-1.174,-1.174,-1.173,&
15632       -1.172,-1.172,-1.171,-1.171,-1.170,-1.169,-1.169,-1.168,-1.168,&
15633       -1.167,-1.167,-1.166,-1.165,-1.165,-1.164,-1.164,-1.163,-1.163,&
15634       -1.162,-1.161,-1.161,-1.160,-1.160,-1.159,-1.158,-1.158,-1.157,&
15635       -1.157,-1.156,-1.155,-1.155,-1.154,-1.154,-1.153,-1.152,-1.152,&
15636       -1.151,-1.151,-1.150,-1.149,-1.149,-1.148,-1.148,-1.147,-1.146,&
15637       -1.146,-1.145,-1.144,-1.144,-1.143,-1.143,-1.142,-1.141,-1.141,&
15638       -1.140,-1.140,-1.139,-1.138,-1.138,-1.137,-1.136,-1.136,-1.135,&
15639       -1.135,-1.134,-1.133,-1.133,-1.126,-1.120,-1.113,-1.107,-1.100,&
15640       -1.094,-1.087,-1.080,-1.074,-1.067,-1.060,-1.054,-1.047,-1.040,&
15641       -1.033,-1.027,-1.020,-1.013,-1.006,-0.999,-0.992,-0.985,-0.978,&
15642       -0.971,-0.965,-0.958,-0.951,-0.944,-0.937,-0.930,-0.923,-0.916,&
15643       -0.909,-0.902,-0.895,-0.888,-0.881,-0.874,-0.867,-0.860,-0.853,&
15644       -0.846,-0.839,-0.832,-0.825,-0.818,-0.811,-0.804,-0.797,-0.790,&
15645       -0.783,-0.776,-0.769,-0.762,-0.755,-0.748,-0.741,-0.734,-0.727,&
15646       -0.720,-0.713,-0.706,-0.699,-0.692,-0.685,-0.678,-0.671,-0.664,&
15647       -0.657,-0.650,-0.644,-0.637,-0.630,-0.623,-0.616,-0.609,-0.602,&
15648       -0.595,-0.588,-0.581,-0.574,-0.567,-0.560,-0.554,-0.547,-0.540,&
15649       -0.533,-0.526,-0.519,-0.512,-0.505,-0.498,-0.492,-0.485,-0.478,&
15650       -0.471,-0.464,-0.457,-0.450,-0.444,-0.437,-0.430,-0.423,-0.416,&
15651       -0.409,-0.403,-0.396,-0.389,-0.382,-0.375,-0.369,-0.362,-0.355,&
15652       -0.348,-0.341,-0.335,-0.328,-0.321,-0.314,-0.308,-0.301,-0.294,&
15653       -0.287,-0.280,-0.274,-0.267,-0.260,-0.254,-0.247,-0.240,-0.233,&
15654       -0.227,-0.220,-0.213,-0.206,-0.200,-0.193,-0.186,-0.180,-0.173,&
15655       -0.166,-0.160,-0.153,-0.146,-0.140,-0.133,-0.126,-0.119,-0.113,&
15656       -0.106,-0.100,-0.093,-0.086,-0.080,-0.073,-0.066,-0.060,-0.053,&
15657       -0.046,-0.040,-0.033                                           &
15658        /
15659 !C
15660 !C **  MGNO32
15661 !C
15662       DATA BNC22M/                                                   &
15663       -0.088,-0.185,-0.228,-0.257,-0.278,-0.294,-0.306,-0.317,-0.325,&
15664       -0.332,-0.337,-0.342,-0.346,-0.349,-0.351,-0.353,-0.355,-0.356,&
15665       -0.357,-0.357,-0.357,-0.357,-0.356,-0.356,-0.355,-0.354,-0.353,&
15666       -0.352,-0.350,-0.349,-0.347,-0.345,-0.343,-0.341,-0.339,-0.337,&
15667       -0.335,-0.333,-0.330,-0.328,-0.326,-0.323,-0.321,-0.318,-0.316,&
15668       -0.313,-0.310,-0.308,-0.305,-0.302,-0.300,-0.297,-0.294,-0.291,&
15669       -0.288,-0.286,-0.283,-0.280,-0.277,-0.274,-0.271,-0.268,-0.266,&
15670       -0.263,-0.260,-0.257,-0.254,-0.251,-0.248,-0.245,-0.242,-0.239,&
15671       -0.235,-0.232,-0.229,-0.226,-0.223,-0.220,-0.216,-0.213,-0.210,&
15672       -0.207,-0.203,-0.200,-0.197,-0.193,-0.190,-0.186,-0.183,-0.180,&
15673       -0.176,-0.173,-0.169,-0.165,-0.162,-0.158,-0.155,-0.151,-0.147,&
15674       -0.143,-0.140,-0.136,-0.132,-0.128,-0.125,-0.121,-0.117,-0.113,&
15675       -0.109,-0.105,-0.101,-0.098,-0.094,-0.090,-0.086,-0.082,-0.078,&
15676       -0.074,-0.070,-0.066,-0.062,-0.058,-0.054,-0.050,-0.046,-0.042,&
15677       -0.038,-0.034,-0.030,-0.026,-0.022,-0.018,-0.014,-0.010,-0.006,&
15678       -0.002, 0.002, 0.006, 0.010, 0.014, 0.018, 0.022, 0.026, 0.030,&
15679        0.034, 0.038, 0.042, 0.046, 0.050, 0.054, 0.058, 0.062, 0.066,&
15680        0.070, 0.074, 0.078, 0.082, 0.086, 0.090, 0.094, 0.098, 0.102,&
15681        0.106, 0.110, 0.114, 0.118, 0.122, 0.126, 0.130, 0.134, 0.137,&
15682        0.141, 0.145, 0.149, 0.153, 0.157, 0.161, 0.165, 0.169, 0.173,&
15683        0.177, 0.180, 0.184, 0.188, 0.192, 0.196, 0.200, 0.204, 0.207,&
15684        0.211, 0.215, 0.219, 0.223, 0.227, 0.231, 0.234, 0.238, 0.242,&
15685        0.246, 0.250, 0.253, 0.257, 0.261, 0.265, 0.269, 0.272, 0.276,&
15686        0.280, 0.284, 0.288, 0.291, 0.295, 0.299, 0.303, 0.306, 0.310,&
15687        0.314, 0.318, 0.321, 0.325, 0.329, 0.332, 0.336, 0.340, 0.343,&
15688        0.347, 0.351, 0.355, 0.358, 0.362, 0.366, 0.369, 0.373, 0.377,&
15689        0.380, 0.384, 0.388, 0.391, 0.395, 0.398, 0.402, 0.406, 0.409,&
15690        0.413, 0.417, 0.420, 0.424, 0.427, 0.431, 0.435, 0.438, 0.442,&
15691        0.445, 0.449, 0.452, 0.456, 0.459, 0.463, 0.467, 0.470, 0.474,&
15692        0.477, 0.481, 0.484, 0.488, 0.491, 0.495, 0.498, 0.502, 0.505,&
15693        0.509, 0.512, 0.516, 0.519, 0.523, 0.526, 0.530, 0.533, 0.537,&
15694        0.540, 0.543, 0.547, 0.550, 0.554, 0.557, 0.561, 0.564, 0.567,&
15695        0.571, 0.574, 0.578, 0.581, 0.584, 0.588, 0.591, 0.595, 0.598,&
15696        0.601, 0.605, 0.608, 0.611, 0.615, 0.618, 0.621, 0.625, 0.628,&
15697        0.631, 0.635, 0.638, 0.641, 0.645, 0.648, 0.651, 0.655, 0.658,&
15698        0.661, 0.665, 0.668, 0.671, 0.674, 0.678, 0.681, 0.684, 0.687,&
15699        0.691, 0.694, 0.697, 0.700, 0.704, 0.707, 0.710, 0.713, 0.717,&
15700        0.720, 0.723, 0.726, 0.729, 0.733, 0.736, 0.739, 0.742, 0.745,&
15701        0.749, 0.752, 0.755, 0.758, 0.761, 0.764, 0.768, 0.771, 0.774,&
15702        0.777, 0.780, 0.783, 0.786, 0.790, 0.793, 0.796, 0.799, 0.802,&
15703        0.805, 0.808, 0.811, 0.814, 0.818, 0.821, 0.824, 0.827, 0.830,&
15704        0.833, 0.836, 0.839, 0.842, 0.845, 0.848, 0.851, 0.854, 0.857,&
15705        0.860, 0.864, 0.867, 0.870, 0.873, 0.876, 0.879, 0.882, 0.885,&
15706        0.888, 0.891, 0.894, 0.897, 0.900, 0.903, 0.906, 0.909, 0.912,&
15707        0.915, 0.918, 0.921, 0.924, 0.955, 0.984, 1.013, 1.041, 1.070,&
15708        1.097, 1.125, 1.152, 1.179, 1.205, 1.231, 1.257, 1.283, 1.308,&
15709        1.334, 1.359, 1.383, 1.408, 1.432, 1.456, 1.479, 1.503, 1.526,&
15710        1.549, 1.572, 1.594, 1.617, 1.639, 1.661, 1.683, 1.704, 1.726,&
15711        1.747, 1.768, 1.789, 1.810, 1.830, 1.851, 1.871, 1.891, 1.911,&
15712        1.930, 1.950, 1.969, 1.989, 2.008, 2.027, 2.046, 2.064, 2.083,&
15713        2.101, 2.120, 2.138, 2.156, 2.174, 2.192, 2.209, 2.227, 2.244,&
15714        2.262, 2.279, 2.296, 2.313, 2.330, 2.347, 2.363, 2.380, 2.396,&
15715        2.413, 2.429, 2.445, 2.461, 2.477, 2.493, 2.509, 2.525, 2.540,&
15716        2.556, 2.571, 2.587, 2.602, 2.617, 2.632, 2.647, 2.662, 2.677,&
15717        2.692, 2.707, 2.721, 2.736, 2.750, 2.765, 2.779, 2.793, 2.807,&
15718        2.822, 2.836, 2.850, 2.863, 2.877, 2.891, 2.905, 2.918, 2.932,&
15719        2.946, 2.959, 2.972, 2.986, 2.999, 3.012, 3.025, 3.039, 3.052,&
15720        3.065, 3.078, 3.090, 3.103, 3.116, 3.129, 3.141, 3.154, 3.167,&
15721        3.179, 3.191, 3.204, 3.216, 3.229, 3.241, 3.253, 3.265, 3.277,&
15722        3.289, 3.301, 3.313, 3.325, 3.337, 3.349, 3.361, 3.372, 3.384,&
15723        3.396, 3.407, 3.419, 3.431, 3.442, 3.453, 3.465, 3.476, 3.488,&
15724        3.499, 3.510, 3.521, 3.532, 3.544, 3.555, 3.566, 3.577, 3.588,&
15725        3.599, 3.610, 3.621                                           &
15726        /
15727 !C
15728 !C **  MGCL2
15729 !C
15730       DATA BNC23M/                                                   &
15731       -0.088,-0.182,-0.225,-0.252,-0.271,-0.286,-0.297,-0.306,-0.313,&
15732       -0.319,-0.323,-0.327,-0.329,-0.331,-0.332,-0.333,-0.333,-0.333,&
15733       -0.333,-0.332,-0.331,-0.329,-0.328,-0.326,-0.324,-0.322,-0.319,&
15734       -0.317,-0.314,-0.312,-0.309,-0.306,-0.303,-0.300,-0.296,-0.293,&
15735       -0.290,-0.286,-0.283,-0.279,-0.276,-0.272,-0.268,-0.265,-0.261,&
15736       -0.257,-0.253,-0.250,-0.246,-0.242,-0.238,-0.234,-0.230,-0.226,&
15737       -0.223,-0.219,-0.215,-0.211,-0.207,-0.203,-0.199,-0.195,-0.191,&
15738       -0.187,-0.183,-0.179,-0.174,-0.170,-0.166,-0.162,-0.158,-0.154,&
15739       -0.150,-0.145,-0.141,-0.137,-0.133,-0.128,-0.124,-0.120,-0.115,&
15740       -0.111,-0.106,-0.102,-0.097,-0.093,-0.088,-0.084,-0.079,-0.074,&
15741       -0.070,-0.065,-0.060,-0.056,-0.051,-0.046,-0.041,-0.036,-0.031,&
15742       -0.027,-0.022,-0.017,-0.012,-0.007,-0.002, 0.003, 0.008, 0.013,&
15743        0.019, 0.024, 0.029, 0.034, 0.039, 0.044, 0.049, 0.055, 0.060,&
15744        0.065, 0.070, 0.075, 0.081, 0.086, 0.091, 0.096, 0.101, 0.107,&
15745        0.112, 0.117, 0.122, 0.128, 0.133, 0.138, 0.143, 0.149, 0.154,&
15746        0.159, 0.164, 0.170, 0.175, 0.180, 0.185, 0.190, 0.196, 0.201,&
15747        0.206, 0.211, 0.216, 0.222, 0.227, 0.232, 0.237, 0.242, 0.248,&
15748        0.253, 0.258, 0.263, 0.268, 0.273, 0.279, 0.284, 0.289, 0.294,&
15749        0.299, 0.304, 0.309, 0.314, 0.320, 0.325, 0.330, 0.335, 0.340,&
15750        0.345, 0.350, 0.355, 0.360, 0.365, 0.370, 0.375, 0.380, 0.386,&
15751        0.391, 0.396, 0.401, 0.406, 0.411, 0.416, 0.421, 0.426, 0.431,&
15752        0.436, 0.441, 0.446, 0.450, 0.455, 0.460, 0.465, 0.470, 0.475,&
15753        0.480, 0.485, 0.490, 0.495, 0.500, 0.505, 0.509, 0.514, 0.519,&
15754        0.524, 0.529, 0.534, 0.539, 0.543, 0.548, 0.553, 0.558, 0.563,&
15755        0.568, 0.572, 0.577, 0.582, 0.587, 0.592, 0.596, 0.601, 0.606,&
15756        0.611, 0.615, 0.620, 0.625, 0.629, 0.634, 0.639, 0.644, 0.648,&
15757        0.653, 0.658, 0.662, 0.667, 0.672, 0.676, 0.681, 0.686, 0.690,&
15758        0.695, 0.700, 0.704, 0.709, 0.713, 0.718, 0.723, 0.727, 0.732,&
15759        0.736, 0.741, 0.745, 0.750, 0.754, 0.759, 0.764, 0.768, 0.773,&
15760        0.777, 0.782, 0.786, 0.791, 0.795, 0.800, 0.804, 0.809, 0.813,&
15761        0.817, 0.822, 0.826, 0.831, 0.835, 0.840, 0.844, 0.848, 0.853,&
15762        0.857, 0.862, 0.866, 0.870, 0.875, 0.879, 0.884, 0.888, 0.892,&
15763        0.897, 0.901, 0.905, 0.910, 0.914, 0.918, 0.923, 0.927, 0.931,&
15764        0.935, 0.940, 0.944, 0.948, 0.953, 0.957, 0.961, 0.965, 0.970,&
15765        0.974, 0.978, 0.982, 0.986, 0.991, 0.995, 0.999, 1.003, 1.007,&
15766        1.012, 1.016, 1.020, 1.024, 1.028, 1.032, 1.037, 1.041, 1.045,&
15767        1.049, 1.053, 1.057, 1.061, 1.065, 1.070, 1.074, 1.078, 1.082,&
15768        1.086, 1.090, 1.094, 1.098, 1.102, 1.106, 1.110, 1.114, 1.118,&
15769        1.122, 1.126, 1.130, 1.134, 1.138, 1.142, 1.146, 1.150, 1.154,&
15770        1.158, 1.162, 1.166, 1.170, 1.174, 1.178, 1.182, 1.186, 1.190,&
15771        1.194, 1.198, 1.202, 1.206, 1.210, 1.214, 1.217, 1.221, 1.225,&
15772        1.229, 1.233, 1.237, 1.241, 1.245, 1.248, 1.252, 1.256, 1.260,&
15773        1.264, 1.268, 1.271, 1.275, 1.279, 1.283, 1.287, 1.290, 1.294,&
15774        1.298, 1.302, 1.306, 1.309, 1.313, 1.317, 1.321, 1.324, 1.328,&
15775        1.332, 1.336, 1.339, 1.343, 1.383, 1.420, 1.456, 1.491, 1.527,&
15776        1.561, 1.596, 1.630, 1.663, 1.696, 1.729, 1.761, 1.793, 1.825,&
15777        1.856, 1.887, 1.918, 1.948, 1.978, 2.008, 2.037, 2.066, 2.095,&
15778        2.123, 2.152, 2.180, 2.207, 2.235, 2.262, 2.289, 2.315, 2.342,&
15779        2.368, 2.394, 2.419, 2.445, 2.470, 2.495, 2.520, 2.544, 2.569,&
15780        2.593, 2.617, 2.641, 2.664, 2.688, 2.711, 2.734, 2.757, 2.780,&
15781        2.802, 2.824, 2.847, 2.869, 2.890, 2.912, 2.934, 2.955, 2.976,&
15782        2.997, 3.018, 3.039, 3.060, 3.080, 3.101, 3.121, 3.141, 3.161,&
15783        3.181, 3.201, 3.220, 3.240, 3.259, 3.279, 3.298, 3.317, 3.336,&
15784        3.354, 3.373, 3.392, 3.410, 3.428, 3.447, 3.465, 3.483, 3.501,&
15785        3.519, 3.536, 3.554, 3.572, 3.589, 3.606, 3.624, 3.641, 3.658,&
15786        3.675, 3.692, 3.709, 3.725, 3.742, 3.759, 3.775, 3.791, 3.808,&
15787        3.824, 3.840, 3.856, 3.872, 3.888, 3.904, 3.920, 3.935, 3.951,&
15788        3.967, 3.982, 3.997, 4.013, 4.028, 4.043, 4.058, 4.074, 4.089,&
15789        4.103, 4.118, 4.133, 4.148, 4.163, 4.177, 4.192, 4.206, 4.221,&
15790        4.235, 4.249, 4.264, 4.278, 4.292, 4.306, 4.320, 4.334, 4.348,&
15791        4.362, 4.376, 4.390, 4.403, 4.417, 4.431, 4.444, 4.458, 4.471,&
15792        4.484, 4.498, 4.511, 4.524, 4.538, 4.551, 4.564, 4.577, 4.590,&
15793        4.603, 4.616, 4.629                                           &
15794        /
15795 !C
15796 !C *** END OF BLOCK DATA EXPON ******************************************
15797 !C
15798       END
15799
15800
15801 !CC*************************************************************************
15802 !CC
15803 !CC  TOOLBOX LIBRARY v.1.0 (May 1995)
15804 !CC
15805 !CC  Program unit   : SUBROUTINE CHRBLN
15806 !CC  Purpose        : Position of last non-blank character in a string
15807 !CC  Author         : Athanasios Nenes
15808 !CC
15809 !CC  ======================= ARGUMENTS / USAGE =============================
15810 !CC
15811 !CC  STR        is the CHARACTER variable containing the string examined
15812 !CC  IBLK       is a INTEGER variable containing the position of last non
15813 !CC             blank character. If string is all spaces (ie '   '), then
15814 !CC             the value returned is 1.
15815 !CC
15816 !CC  EXAMPLE:
15817 !CC             STR = 'TEST1.DAT     '
15818 !CC             CALL CHRBLN (STR, IBLK)
15819 !CC
15820 !CC  after execution of this code segment, "IBLK" has the value "9", which
15821 !CC  is the position of the last non-blank character of "STR".
15822 !CC
15823 !CC***********************************************************************
15824 !CC
15825       SUBROUTINE CHRBLN2p1 (STR, IBLK)
15826 !CC
15827 !CC***********************************************************************
15828       CHARACTER*(*) STR
15829 !C
15830       IBLK = 1                       ! Substring pointer (default=1)
15831       ILEN = LEN(STR)                ! Length of string
15832       DO 10 i=ILEN,1,-1
15833          IF (STR(i:i).NE.' ' .AND. STR(i:i).NE.CHAR(0)) THEN
15834             IBLK = i
15835             RETURN
15836          ENDIF
15837 10    CONTINUE
15838       RETURN
15839 !C
15840       END
15841
15842
15843 !CC*************************************************************************
15844 !CC
15845 !CC  TOOLBOX LIBRARY v.1.0 (May 1995)
15846 !CC
15847 !CC  Program unit   : SUBROUTINE SHFTRGHT
15848 !CC  Purpose        : RIGHT-JUSTIFICATION FUNCTION ON A STRING
15849 !CC  Author         : Athanasios Nenes
15850 !CC
15851 !CC  ======================= ARGUMENTS / USAGE =============================
15852 !CC
15853 !CC  STRING     is the CHARACTER variable with the string to be justified
15854 !CC
15855 !CC  EXAMPLE:
15856 !CC             STRING    = 'AAAA    '
15857 !CC             CALL SHFTRGHT (STRING)
15858 !CC
15859 !CC  after execution of this code segment, STRING contains the value
15860 !CC  '    AAAA'.
15861 !CC
15862 !CC*************************************************************************
15863 !CC
15864       SUBROUTINE SHFTRGHT2p1 (CHR)
15865 !CC
15866 !CC***********************************************************************
15867       CHARACTER CHR*(*)
15868 !C
15869       I1  = LEN(CHR)             ! Total length of string
15870       CALL CHRBLN2p1(CHR,I2)        ! Position of last non-blank character
15871       IF (I2.EQ.I1) RETURN
15872 !C
15873       DO 10 I=I2,1,-1            ! Shift characters
15874          CHR(I1+I-I2:I1+I-I2) = CHR(I:I)
15875          CHR(I:I) = ' '
15876 10    CONTINUE
15877       RETURN
15878 !C
15879       END
15880
15881
15882
15883
15884 !CC*************************************************************************
15885 !CC
15886 !CC  TOOLBOX LIBRARY v.1.0 (May 1995)
15887 !CC
15888 !CC  Program unit   : SUBROUTINE RPLSTR
15889 !CC  Purpose        : REPLACE CHARACTERS OCCURING IN A STRING
15890 !CC  Author         : Athanasios Nenes
15891 !CC
15892 !CC  ======================= ARGUMENTS / USAGE =============================
15893 !CC
15894 !CC  STRING     is the CHARACTER variable with the string to be edited
15895 !CC  OLD        is the old character which is to be replaced
15896 !CC  NEW        is the new character which OLD is to be replaced with
15897 !CC  IERR       is 0 if everything went well, is 1 if 'NEW' contains 'OLD'.
15898 !CC             In this case, this is invalid, and no change is done.
15899 !CC
15900 !CC  EXAMPLE:
15901 !CC             STRING    = 'AAAA'
15902 !CC             OLD       = 'A'
15903 !CC             NEW       = 'B'
15904 !CC             CALL RPLSTR (STRING, OLD, NEW)
15905 !CC
15906 !CC  after execution of this code segment, STRING contains the value
15907 !CC  'BBBB'.
15908 !CC
15909 !CC*************************************************************************
15910 !CC
15911       SUBROUTINE RPLSTR2p1 (STRING, OLD, NEW, IERR)
15912 !CC
15913 !CC***********************************************************************
15914       CHARACTER STRING*(*), OLD*(*), NEW*(*)
15915 !C
15916 !C *** INITIALIZE ********************************************************
15917 !C
15918       ILO = LEN(OLD)
15919 !C
15920 !C *** CHECK AND SEE IF 'NEW' CONTAINS 'OLD', WHICH CANNOT ***************
15921 !C
15922       IP = INDEX(NEW,OLD)
15923       IF (IP.NE.0) THEN
15924          IERR = 1
15925          RETURN
15926       ELSE
15927          IERR = 0
15928       ENDIF
15929 !C
15930 !C *** PROCEED WITH REPLACING *******************************************
15931 !C
15932 10    IP = INDEX(STRING,OLD)      ! SEE IF 'OLD' EXISTS IN 'STRING'
15933       IF (IP.EQ.0) RETURN         ! 'OLD' DOES NOT EXIST ; RETURN
15934       STRING(IP:IP+ILO-1) = NEW   ! REPLACE SUBSTRING 'OLD' WITH 'NEW'
15935       GOTO 10                     ! GO FOR NEW OCCURANCE OF 'OLD'
15936 !C
15937       END
15938
15939
15940 !CC*************************************************************************
15941 !CC
15942 !CC  TOOLBOX LIBRARY v.1.0 (May 1995)
15943 !CC
15944 !CC  Program unit   : SUBROUTINE INPTD
15945 !CC  Purpose        : Prompts user for a value (DOUBLE). A default value
15946 !CC                   is provided, so if user presses <Enter>, the default
15947 !CC                   is used.
15948 !CC  Author         : Athanasios Nenes
15949 !CC
15950 !CC  ======================= ARGUMENTS / USAGE =============================
15951 !CC
15952 !CC  VAR        is the DOUBLE PRECISION variable which value is to be saved
15953 !CC  DEF        is a DOUBLE PRECISION variable, with the default value of VAR.
15954 !CC  PROMPT     is a CHARACTER varible containing the prompt string.
15955 !CC  PRFMT      is a CHARACTER variable containing the FORMAT specifier
15956 !CC             for the default value DEF.
15957 !CC  IERR       is an INTEGER error flag, and has the values:
15958 !CC             0 - No error detected.
15959 !CC             1 - Invalid FORMAT and/or Invalid default value.
15960 !CC             2 - Bad value specified by user
15961 !CC
15962 !CC  EXAMPLE:
15963 !CC             CALL INPTD (VAR, 1.0D0, 'Give value for A ', '*', Ierr)
15964 !CC
15965 !CC  after execution of this code segment, the user is prompted for the
15966 !CC  value of variable VAR. If <Enter> is pressed (ie no value is specified)
15967 !CC  then 1.0 is assigned to VAR. The default value is displayed in free-
15968 !CC  format. The error status is specified by variable Ierr
15969 !CC
15970 !CC***********************************************************************
15971 !CC
15972       SUBROUTINE INPTD2p1 (VAR, DEF, PROMPT, PRFMT, IERR)
15973 !CC
15974 !CC***********************************************************************
15975       CHARACTER PROMPT*(*), PRFMT*(*), BUFFER*128
15976       DOUBLE PRECISION DEF, VAR
15977       INTEGER IERR
15978 !C
15979       IERR = 0
15980 !C
15981 !C *** WRITE DEFAULT VALUE TO WORK BUFFER *******************************
15982 !C
15983       WRITE (BUFFER, FMT=PRFMT, ERR=10) DEF
15984       CALL CHRBLN2p1 (BUFFER, IEND)
15985 !C
15986 !C *** PROMPT USER FOR INPUT AND READ IT ********************************
15987 !C
15988       WRITE (*,*) PROMPT,' [',BUFFER(1:IEND),']: '
15989       READ  (*, '(A)', ERR=20, END=20) BUFFER
15990       CALL CHRBLN2p1 (BUFFER,IEND)
15991 !C
15992 !C *** READ DATA OR SET DEFAULT ? ****************************************
15993 !C
15994       IF (IEND.EQ.1 .AND. BUFFER(1:1).EQ.' ') THEN
15995          VAR = DEF
15996       ELSE
15997          READ (BUFFER, *, ERR=20, END=20) VAR
15998       ENDIF
15999 !C
16000 !C *** RETURN POINT ******************************************************
16001 !C
16002 30    RETURN
16003 !C
16004 !C *** ERROR HANDLER *****************************************************
16005 !C
16006 10    IERR = 1       ! Bad FORMAT and/or bad default value
16007       GOTO 30
16008 !C
16009 20    IERR = 2       ! Bad number given by user
16010       GOTO 30
16011 !C
16012       END
16013
16014
16015 !CC*************************************************************************
16016 !CC
16017 !CC  TOOLBOX LIBRARY v.1.0 (May 1995)
16018 !CC
16019 !CC  Program unit   : SUBROUTINE Pushend
16020 !CC  Purpose        : Positions the pointer of a sequential file at its end
16021 !CC                   Simulates the ACCESS='APPEND' clause of a F77L OPEN
16022 !CC                   statement with Standard Fortran commands.
16023 !CC
16024 !CC  ======================= ARGUMENTS / USAGE =============================
16025 !CC
16026 !CC  Iunit      is a INTEGER variable, the file unit which the file is
16027 !CC             connected to.
16028 !CC
16029 !CC  EXAMPLE:
16030 !CC             CALL PUSHEND (10)
16031 !CC
16032 !CC  after execution of this code segment, the pointer of unit 10 is
16033 !CC  pushed to its end.
16034 !CC
16035 !CC***********************************************************************
16036 !CC
16037       SUBROUTINE Pushend2p1 (Iunit)
16038 !CC
16039 !CC***********************************************************************
16040 !C
16041       LOGICAL OPNED
16042 !C
16043 !C *** INQUIRE IF Iunit CONNECTED TO FILE ********************************
16044 !C
16045       INQUIRE (UNIT=Iunit, OPENED=OPNED)
16046       IF (.NOT.OPNED) GOTO 25
16047 !C
16048 !C *** Iunit CONNECTED, PUSH POINTER TO END ******************************
16049 !C
16050 10    READ (Iunit,'()', ERR=20, END=20)
16051       GOTO 10
16052 !C
16053 !C *** RETURN POINT ******************************************************
16054 !C
16055 20    BACKSPACE (Iunit)
16056 25    RETURN
16057       END
16058
16059
16060
16061 !CC*************************************************************************
16062 !CC
16063 !CC  TOOLBOX LIBRARY v.1.0 (May 1995)
16064 !CC
16065 !CC  Program unit   : SUBROUTINE APPENDEXT
16066 !CC  Purpose        : Fix extension in file name string
16067 !CC
16068 !CC  ======================= ARGUMENTS / USAGE =============================
16069 !CC
16070 !CC  Filename   is the CHARACTER variable with the file name
16071 !CC  Defext     is the CHARACTER variable with extension (including '.',
16072 !CC             ex. '.DAT')
16073 !CC  Overwrite  is a LOGICAL value, .TRUE. overwrites any existing extension
16074 !CC             in "Filename" with "Defext", .FALSE. puts "Defext" only if
16075 !CC             there is no extension in "Filename".
16076 !CC
16077 !CC  EXAMPLE:
16078 !CC             FILENAME1 = 'TEST.DAT'
16079 !CC             FILENAME2 = 'TEST.DAT'
16080 !CC             CALL APPENDEXT (FILENAME1, '.TXT', .FALSE.)
16081 !CC             CALL APPENDEXT (FILENAME2, '.TXT', .TRUE. )
16082 !CC
16083 !CC  after execution of this code segment, "FILENAME1" has the value
16084 !CC  'TEST.DAT', while "FILENAME2" has the value 'TEST.TXT'
16085 !CC
16086 !CC***********************************************************************
16087 !CC
16088       SUBROUTINE Appendext2p1 (Filename, Defext, Overwrite)
16089 !CC
16090 !CC***********************************************************************
16091       CHARACTER*(*) Filename, Defext
16092       LOGICAL       Overwrite
16093 !C
16094       CALL CHRBLN2p1 (Filename, Iend)
16095       IF (Filename(1:1).EQ.' ' .AND. Iend.EQ.1) RETURN  ! Filename empty
16096       Idot = INDEX (Filename, '.')                      ! Append extension ?
16097       IF (Idot.EQ.0) Filename = Filename(1:Iend)//Defext
16098       IF (Overwrite .AND. Idot.NE.0) &
16099                     Filename = Filename(:Idot-1)//Defext
16100       RETURN
16101       END
16102
16103
16104
16105
16106
16107 !C=======================================================================
16108 !C
16109 !C *** ISORROPIA CODE
16110 !C *** SUBROUTINE POLY3
16111 !C *** FINDS THE REAL ROOTS OF THE THIRD ORDER ALGEBRAIC EQUATION:
16112 !C     X**3 + A1*X**2 + A2*X + A3 = 0.0
16113 !C     THE EQUATION IS SOLVED ANALYTICALLY.
16114 !C
16115 !C     PARAMETERS A1, A2, A3 ARE SPECIFIED BY THE USER. THE MINIMUM
16116 !C     NONEGATIVE ROOT IS RETURNED IN VARIABLE 'ROOT'. IF NO ROOT IS
16117 !C     FOUND (WHICH IS GREATER THAN ZERO), ROOT HAS THE VALUE 1D30.
16118 !C     AND THE FLAG ISLV HAS A VALUE GREATER THAN ZERO.
16119 !C
16120 !C     SOLUTION FORMULA IS FOUND IN PAGE 32 OF:
16121 !C     MATHEMATICAL HANDBOOK OF FORMULAS AND TABLES
16122 !C     SCHAUM'S OUTLINE SERIES
16123 !C     MURRAY SPIEGER, McGRAW-HILL, NEW YORK, 1968
16124 !C     (GREEK TRANSLATION: BY SOTIRIOS PERSIDES, ESPI, ATHENS, 1976)
16125 !C
16126 !C     A SPECIAL CASE IS CONSIDERED SEPERATELY ; WHEN A3 = 0, THEN
16127 !C     ONE ROOT IS X=0.0, AND THE OTHER TWO FROM THE SOLUTION OF THE
16128 !C     QUADRATIC EQUATION X**2 + A1*X + A2 = 0.0
16129 !C     THIS SPECIAL CASE IS CONSIDERED BECAUSE THE ANALYTICAL FORMULA
16130 !C     DOES NOT YIELD ACCURATE RESULTS (DUE TO NUMERICAL ROUNDOFF ERRORS)
16131 !C
16132 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
16133 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
16134 !C *** WRITTEN BY ATHANASIOS NENES
16135 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
16136 !C
16137 !C=======================================================================
16138 !C
16139       SUBROUTINE POLY32p1 (A1, A2, A3, ROOT, ISLV)
16140 !C
16141       IMPLICIT DOUBLE PRECISION (A-H, O-Z)
16142       PARAMETER (EXPON=1.D0/3.D0,     ZERO=0.D0, THET1=120.D0/180.D0,&
16143                  THET2=240.D0/180.D0, PI=3.14159265358932, EPS=1D-50)
16144       DOUBLE PRECISION  X(3)
16145 !C
16146 !C *** SPECIAL CASE : QUADRATIC*X EQUATION *****************************
16147 !C
16148       IF (ABS(A3).LE.EPS) THEN
16149          ISLV = 1
16150          IX   = 1
16151          X(1) = ZERO
16152          D    = A1*A1-4.D0*A2
16153          IF (D.GE.ZERO) THEN
16154             IX   = 3
16155             SQD  = SQRT(D)
16156             X(2) = 0.5*(-A1+SQD)
16157             X(3) = 0.5*(-A1-SQD)
16158          ENDIF
16159       ELSE
16160 !C
16161 !C *** NORMAL CASE : CUBIC EQUATION ************************************
16162 !C
16163 !C DEFINE PARAMETERS Q, R, S, T, D
16164 !C
16165          ISLV= 1
16166          Q   = (3.D0*A2 - A1*A1)/9.D0
16167          R   = (9.D0*A1*A2 - 27.D0*A3 - 2.D0*A1*A1*A1)/54.D0
16168          D   = Q*Q*Q + R*R
16169 !C
16170 !C *** CALCULATE ROOTS *************************************************
16171 !C
16172 !C  D < 0, THREE REAL ROOTS
16173 !C
16174          IF (D.LT.-EPS) THEN        ! D < -EPS  : D < ZERO
16175             IX   = 3
16176             THET = EXPON*ACOS(R/SQRT(-Q*Q*Q))
16177             COEF = 2.D0*SQRT(-Q)
16178             X(1) = COEF*COS(THET)            - EXPON*A1
16179             X(2) = COEF*COS(THET + THET1*PI) - EXPON*A1
16180             X(3) = COEF*COS(THET + THET2*PI) - EXPON*A1
16181 !C
16182 !C  D = 0, THREE REAL (ONE DOUBLE) ROOTS
16183 !C
16184          ELSE IF (D.LE.EPS) THEN    ! -EPS <= D <= EPS  : D = ZERO
16185             IX   = 2
16186             SSIG = SIGN (1.D0, R)
16187             S    = SSIG*(ABS(R))**EXPON
16188             X(1) = 2.D0*S  - EXPON*A1
16189             X(2) =     -S  - EXPON*A1
16190 !C
16191 !C  D > 0, ONE REAL ROOT
16192 !C
16193          ELSE                       ! D > EPS  : D > ZERO
16194             IX   = 1
16195             SQD  = SQRT(D)
16196             SSIG = SIGN (1.D0, R+SQD)       ! TRANSFER SIGN TO SSIG
16197             TSIG = SIGN (1.D0, R-SQD)
16198             S    = SSIG*(ABS(R+SQD))**EXPON ! EXPONENTIATE ABS()
16199             T    = TSIG*(ABS(R-SQD))**EXPON
16200             X(1) = S + T - EXPON*A1
16201          ENDIF
16202       ENDIF
16203 !C
16204 !C *** SELECT APPROPRIATE ROOT *****************************************
16205 !C
16206       ROOT = 1.D30
16207       DO 10 I=1,IX
16208          IF (X(I).GT.ZERO) THEN
16209             ROOT = MIN (ROOT, X(I))
16210             ISLV = 0
16211          ENDIF
16212 10    CONTINUE
16213 !C
16214 !C *** END OF SUBROUTINE POLY3 *****************************************
16215 !C
16216       RETURN
16217       END
16218
16219
16220
16221
16222 !C=======================================================================
16223 !C
16224 !C *** ISORROPIA CODE
16225 !C *** SUBROUTINE POLY3B
16226 !C *** FINDS A REAL ROOT OF THE THIRD ORDER ALGEBRAIC EQUATION:
16227 !C     X**3 + A1*X**2 + A2*X + A3 = 0.0
16228 !C     THE EQUATION IS SOLVED NUMERICALLY (BISECTION).
16229 !C
16230 !C     PARAMETERS A1, A2, A3 ARE SPECIFIED BY THE USER. THE MINIMUM
16231 !C     NONEGATIVE ROOT IS RETURNED IN VARIABLE 'ROOT'. IF NO ROOT IS
16232 !C     FOUND (WHICH IS GREATER THAN ZERO), ROOT HAS THE VALUE 1D30.
16233 !C     AND THE FLAG ISLV HAS A VALUE GREATER THAN ZERO.
16234 !C
16235 !C     RTLW, RTHI DEFINE THE INTERVAL WHICH THE ROOT IS LOOKED FOR.
16236 !C
16237 !C=======================================================================
16238 !C
16239       SUBROUTINE POLY3B2p1 (A1, A2, A3, RTLW, RTHI, ROOT, ISLV)
16240 !C
16241       IMPLICIT DOUBLE PRECISION (A-H, O-Z)
16242       PARAMETER (ZERO=0.D0, EPS=1D-15, MAXIT=100, NDIV=5)
16243 !C
16244       FUNC(X) = X**3.d0 + A1*X**2.0 + A2*X + A3
16245 !C
16246 !C *** INITIAL VALUES FOR BISECTION *************************************
16247 !C
16248       X1   = RTLW
16249       Y1   = FUNC(X1)
16250       IF (ABS(Y1).LE.EPS) THEN     ! Is low a root?
16251          ROOT = RTLW
16252          GOTO 50
16253       ENDIF
16254 !C
16255 !C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ***********************
16256 !C
16257       DX = (RTHI-RTLW)/FLOAT(NDIV)
16258       DO 10 I=1,NDIV
16259          X2 = X1+DX
16260          Y2 = FUNC (X2)
16261          IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2) .LT. ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO)
16262          X1 = X2
16263          Y1 = Y2
16264 10    CONTINUE
16265 !C
16266 !C *** NO SUBDIVISION WITH SOLUTION FOUND
16267 !C
16268       IF (ABS(Y2) .LT. EPS) THEN   ! X2 is a root
16269          ROOT = X2
16270       ELSE
16271          ROOT = 1.d30
16272          ISLV = 1
16273       ENDIF
16274       GOTO 50
16275 !C
16276 !C *** BISECTION *******************************************************
16277 !C
16278 20    DO 30 I=1,MAXIT
16279          X3 = 0.5*(X1+X2)
16280          Y3 = FUNC (X3)
16281          IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN  ! (Y1*Y3 .LE. ZERO)
16282             Y2    = Y3
16283             X2    = X3
16284          ELSE
16285             Y1    = Y3
16286             X1    = X3
16287          ENDIF
16288          IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40
16289 30    CONTINUE
16290 !C
16291 !C *** CONVERGED ; RETURN ***********************************************
16292 !C
16293 40    X3   = 0.5*(X1+X2)
16294       Y3   = FUNC (X3)
16295       ROOT = X3
16296       ISLV = 0
16297 !C
16298 50    RETURN
16299 !C
16300 !C *** END OF SUBROUTINE POLY3B *****************************************
16301 !C
16302       END
16303
16304
16305
16306 !ccc      PROGRAM DRIVER
16307 !ccc      DOUBLE PRECISION ROOT
16308 !cccC
16309 !ccc      CALL POLY3 (-1.d0, 1.d0, -1.d0, ROOT, ISLV)
16310 !ccc      IF (ISLV.NE.0) STOP 'Error in POLY3'
16311 !ccc      WRITE (*,*) 'Root=', ROOT
16312 !cccC
16313 !ccc      CALL POLY3B (-1.d0, 1.d0, -1.d0, -10.d0, 10.d0, ROOT, ISLV)
16314 !ccc      IF (ISLV.NE.0) STOP 'Error in POLY3B'
16315 !ccc      WRITE (*,*) 'Root=', ROOT
16316 !cccC
16317 !ccc      END
16318 !C=======================================================================
16319 !C
16320 !C *** ISORROPIA CODE
16321 !C *** FUNCTION EX10
16322 !C *** 10^X FUNCTION ; ALTERNATE OF LIBRARY ROUTINE ; USED BECAUSE IT IS
16323 !C     MUCH FASTER BUT WITHOUT GREAT LOSS IN ACCURACY. ,
16324 !C     MAXIMUM ERROR IS 2%, EXECUTION TIME IS 42% OF THE LIBRARY ROUTINE
16325 !C     (ON A 80286/80287 MACHINE, using Lahey FORTRAN 77 v.3.0).
16326 !C
16327 !C     EXPONENT RANGE IS BETWEEN -K AND K (K IS THE REAL ARGUMENT 'K')
16328 !C     MAX VALUE FOR K: 9.999
16329 !C     IF X < -K, X IS SET TO -K, IF X > K, X IS SET TO K
16330 !C
16331 !C     THE EXPONENT IS CALCULATED BY THE PRODUCT ADEC*AINT, WHERE ADEC
16332 !C     IS THE MANTISSA AND AINT IS THE MAGNITUDE (EXPONENT). BOTH
16333 !C     MANTISSA AND MAGNITUDE ARE PRE-CALCULATED AND STORED IN LOOKUP
16334 !C     TABLES ; THIS LEADS TO THE INCREASED SPEED.
16335 !C
16336 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
16337 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
16338 !C *** WRITTEN BY ATHANASIOS NENES
16339 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
16340 !C
16341 !C=======================================================================
16342 !C
16343       FUNCTION EX102p1(X,K)
16344       REAL    X, EX102p1, Y, AINT10, ADEC10, K
16345       INTEGER K1, K2
16346       COMMON /EXPNC2p1/ AINT10(20), ADEC10(200)
16347 !C
16348 !C *** LIMIT X TO [-K, K] RANGE *****************************************
16349 !C
16350       Y    = MAX(-K, MIN(X,K))   ! MIN: -9.999, MAX: 9.999
16351 !C
16352 !C *** GET INTEGER AND DECIMAL PART *************************************
16353 !C
16354       K1   = INT(Y)
16355       K2   = INT(100*(Y-K1))
16356 !C
16357 !C *** CALCULATE EXP FUNCTION *******************************************
16358 !C
16359       EX102p1 = AINT10(K1+10)*ADEC10(K2+100)
16360 !C
16361 !C *** END OF EXP FUNCTION **********************************************
16362 !C
16363       RETURN
16364       END
16365
16366
16367 !C=======================================================================
16368 !C
16369 !C *** ISORROPIA CODE
16370 !C *** BLOCK DATA EXPON
16371 !C *** CONTAINS DATA FOR EXPONENT ARRAYS NEEDED IN FUNCTION EXP10
16372 !C
16373 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
16374 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
16375 !C *** WRITTEN BY ATHANASIOS NENES
16376 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
16377 !C
16378 !C=======================================================================
16379 !C
16380       BLOCK DATA EXPON2p1
16381 !C
16382 !C *** Common block definition
16383 !C
16384       REAL AINT10, ADEC10
16385       COMMON /EXPNC2p1/ AINT10(20), ADEC10(200)
16386 !C
16387 !C *** Integer part
16388 !C
16389       DATA AINT10/                                                &
16390        0.1000E-08, 0.1000E-07, 0.1000E-06, 0.1000E-05, 0.1000E-04,&
16391        0.1000E-03, 0.1000E-02, 0.1000E-01, 0.1000E+00, 0.1000E+01,&
16392        0.1000E+02, 0.1000E+03, 0.1000E+04, 0.1000E+05, 0.1000E+06,&
16393        0.1000E+07, 0.1000E+08, 0.1000E+09, 0.1000E+10, 0.1000E+11 &
16394        /
16395 !C
16396 !C *** decimal part
16397 !C
16398       DATA (ADEC10(I),I=1,100)/                                    &
16399        0.1023E+00, 0.1047E+00, 0.1072E+00, 0.1096E+00, 0.1122E+00, &
16400        0.1148E+00, 0.1175E+00, 0.1202E+00, 0.1230E+00, 0.1259E+00, &
16401        0.1288E+00, 0.1318E+00, 0.1349E+00, 0.1380E+00, 0.1413E+00, &
16402        0.1445E+00, 0.1479E+00, 0.1514E+00, 0.1549E+00, 0.1585E+00, &
16403        0.1622E+00, 0.1660E+00, 0.1698E+00, 0.1738E+00, 0.1778E+00, &
16404        0.1820E+00, 0.1862E+00, 0.1905E+00, 0.1950E+00, 0.1995E+00, &
16405        0.2042E+00, 0.2089E+00, 0.2138E+00, 0.2188E+00, 0.2239E+00, &
16406        0.2291E+00, 0.2344E+00, 0.2399E+00, 0.2455E+00, 0.2512E+00, &
16407        0.2570E+00, 0.2630E+00, 0.2692E+00, 0.2754E+00, 0.2818E+00, &
16408        0.2884E+00, 0.2951E+00, 0.3020E+00, 0.3090E+00, 0.3162E+00, &
16409        0.3236E+00, 0.3311E+00, 0.3388E+00, 0.3467E+00, 0.3548E+00, &
16410        0.3631E+00, 0.3715E+00, 0.3802E+00, 0.3890E+00, 0.3981E+00, &
16411        0.4074E+00, 0.4169E+00, 0.4266E+00, 0.4365E+00, 0.4467E+00, &
16412        0.4571E+00, 0.4677E+00, 0.4786E+00, 0.4898E+00, 0.5012E+00, &
16413        0.5129E+00, 0.5248E+00, 0.5370E+00, 0.5495E+00, 0.5623E+00, &
16414        0.5754E+00, 0.5888E+00, 0.6026E+00, 0.6166E+00, 0.6310E+00, &
16415        0.6457E+00, 0.6607E+00, 0.6761E+00, 0.6918E+00, 0.7079E+00, &
16416        0.7244E+00, 0.7413E+00, 0.7586E+00, 0.7762E+00, 0.7943E+00, &
16417        0.8128E+00, 0.8318E+00, 0.8511E+00, 0.8710E+00, 0.8913E+00, &
16418        0.9120E+00, 0.9333E+00, 0.9550E+00, 0.9772E+00, 0.1000E+01/
16419
16420       DATA (ADEC10(I),I=101,200)/                                  &
16421        0.1023E+01, 0.1047E+01, 0.1072E+01, 0.1096E+01, 0.1122E+01, &
16422        0.1148E+01, 0.1175E+01, 0.1202E+01, 0.1230E+01, 0.1259E+01, &
16423        0.1288E+01, 0.1318E+01, 0.1349E+01, 0.1380E+01, 0.1413E+01, &
16424        0.1445E+01, 0.1479E+01, 0.1514E+01, 0.1549E+01, 0.1585E+01, &
16425        0.1622E+01, 0.1660E+01, 0.1698E+01, 0.1738E+01, 0.1778E+01, &
16426        0.1820E+01, 0.1862E+01, 0.1905E+01, 0.1950E+01, 0.1995E+01, &
16427        0.2042E+01, 0.2089E+01, 0.2138E+01, 0.2188E+01, 0.2239E+01, &
16428        0.2291E+01, 0.2344E+01, 0.2399E+01, 0.2455E+01, 0.2512E+01, &
16429        0.2570E+01, 0.2630E+01, 0.2692E+01, 0.2754E+01, 0.2818E+01, &
16430        0.2884E+01, 0.2951E+01, 0.3020E+01, 0.3090E+01, 0.3162E+01, &
16431        0.3236E+01, 0.3311E+01, 0.3388E+01, 0.3467E+01, 0.3548E+01, &
16432        0.3631E+01, 0.3715E+01, 0.3802E+01, 0.3890E+01, 0.3981E+01, &
16433        0.4074E+01, 0.4169E+01, 0.4266E+01, 0.4365E+01, 0.4467E+01, &
16434        0.4571E+01, 0.4677E+01, 0.4786E+01, 0.4898E+01, 0.5012E+01, &
16435        0.5129E+01, 0.5248E+01, 0.5370E+01, 0.5495E+01, 0.5623E+01, &
16436        0.5754E+01, 0.5888E+01, 0.6026E+01, 0.6166E+01, 0.6310E+01, &
16437        0.6457E+01, 0.6607E+01, 0.6761E+01, 0.6918E+01, 0.7079E+01, &
16438        0.7244E+01, 0.7413E+01, 0.7586E+01, 0.7762E+01, 0.7943E+01, &
16439        0.8128E+01, 0.8318E+01, 0.8511E+01, 0.8710E+01, 0.8913E+01, &
16440        0.9120E+01, 0.9333E+01, 0.9550E+01, 0.9772E+01, 0.1000E+02  &
16441        /
16442 !C
16443 !C *** END OF BLOCK DATA EXPON ******************************************
16444 !C
16445       END
16446
16447
16448 !C=======================================================================
16449 !C
16450 !C *** ISORROPIA CODE
16451 !C *** SUBROUTINE PUSHERR
16452 !C *** THIS SUBROUTINE SAVES AN ERROR MESSAGE IN THE ERROR STACK
16453 !C
16454 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
16455 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
16456 !C *** WRITTEN BY ATHANASIOS NENES
16457 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
16458 !C
16459 !C=======================================================================
16460 !C
16461       SUBROUTINE PUSHERR2p1 (IERR,ERRINF)
16462       INCLUDE 'module_isrpia_inc.F'
16463       CHARACTER ERRINF*(*)
16464 !C
16465 !C *** SAVE ERROR CODE IF THERE IS ANY SPACE ***************************
16466 !C
16467       IF (NOFER.LT.NERRMX) THEN
16468          NOFER         = NOFER + 1
16469          ERRSTK(NOFER) = IERR
16470          ERRMSG(NOFER) = ERRINF
16471          STKOFL        =.FALSE.
16472       ELSE
16473          STKOFL        =.TRUE.      ! STACK OVERFLOW
16474       ENDIF
16475 !C
16476 !C *** END OF SUBROUTINE PUSHERR ****************************************
16477 !C
16478       END
16479
16480 !C=======================================================================
16481 !C
16482 !C *** ISORROPIA CODE
16483 !C *** SUBROUTINE ISERRINF
16484 !C *** THIS SUBROUTINE OBTAINS A COPY OF THE ERROR STACK (& MESSAGES)
16485 !C
16486 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
16487 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
16488 !C *** WRITTEN BY ATHANASIOS NENES
16489 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
16490 !C
16491 !C=======================================================================
16492 !C
16493       SUBROUTINE ISERRINF2p1 (ERRSTKI, ERRMSGI, NOFERI, STKOFLI)
16494       INCLUDE 'module_isrpia_inc.F'
16495       CHARACTER ERRMSGI*40
16496       INTEGER   ERRSTKI
16497       LOGICAL   STKOFLI
16498       DIMENSION ERRMSGI(NERRMX), ERRSTKI(NERRMX)
16499 !C
16500 !C *** OBTAIN WHOLE ERROR STACK ****************************************
16501 !C
16502       DO 10 I=1,NOFER              ! Error messages & codes
16503         ERRSTKI(I) = ERRSTK(I)
16504         ERRMSGI(I) = ERRMSG(I)
16505   10  CONTINUE
16506 !C
16507       STKOFLI = STKOFL
16508       NOFERI  = NOFER
16509 !C
16510       RETURN
16511 !C
16512 !C *** END OF SUBROUTINE ISERRINF ***************************************
16513 !C
16514       END
16515 !C=======================================================================
16516 !C
16517 !C *** ISORROPIA CODE
16518 !C *** SUBROUTINE ERRSTAT
16519 !C *** THIS SUBROUTINE REPORTS ERROR MESSAGES TO UNIT 'IO'
16520 !C
16521 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
16522 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
16523 !C *** WRITTEN BY ATHANASIOS NENES
16524 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
16525 !C
16526 !C=======================================================================
16527 !C
16528       SUBROUTINE ERRSTAT2p1 (IO,IERR,ERRINF)
16529       INCLUDE 'module_isrpia_inc.F'
16530       CHARACTER CER*4, NCIS*29, NCIF*27, NSIS*26, NSIF*24, ERRINF*(*)
16531       DATA NCIS /'NO CONVERGENCE IN SUBROUTINE '/,  &
16532            NCIF /'NO CONVERGENCE IN FUNCTION '  /,  &
16533            NSIS /'NO SOLUTION IN SUBROUTINE '   /,  &
16534            NSIF /'NO SOLUTION IN FUNCTION '     /
16535 !C
16536 !C *** WRITE ERROR IN CHARACTER *****************************************
16537 !C
16538       WRITE (CER,'(I4)') IERR
16539       CALL RPLSTR2p1 (CER, ' ', '0',IOK)   ! REPLACE BLANKS WITH ZEROS
16540       CALL CHRBLN2p1 (ERRINF, IEND)        ! LAST POSITION OF ERRINF CHAR
16541 !C
16542 !C *** WRITE ERROR TYPE (FATAL, WARNING ) *******************************
16543 !C
16544       IF (IERR.EQ.0) THEN
16545          WRITE (IO,1000) 'NO ERRORS DETECTED '
16546          GOTO 10
16547 !C
16548       ELSE IF (IERR.LT.0) THEN
16549          WRITE (IO,1000) 'ERROR STACK EXHAUSTED '
16550          GOTO 10
16551 !C
16552       ELSE IF (IERR.GT.1000) THEN
16553          WRITE (IO,1100) 'FATAL',CER
16554 !C
16555       ELSE
16556          WRITE (IO,1100) 'WARNING',CER
16557       ENDIF
16558 !C
16559 !C *** WRITE ERROR MESSAGE **********************************************
16560 !C
16561 !C FATAL MESSAGES
16562 !C
16563       IF (IERR.EQ.1001) THEN
16564          CALL CHRBLN2p1 (SCASE, IEND)
16565          WRITE (IO,1000) 'CASE NOT SUPPORTED IN CALCMR ['//SCASE(1:IEND) &
16566                          //']'
16567 !C
16568       ELSEIF (IERR.EQ.1002) THEN
16569          CALL CHRBLN2p1 (SCASE, IEND)
16570          WRITE (IO,1000) 'CASE NOT SUPPORTED ['//SCASE(1:IEND)//']'
16571 !C
16572 !C WARNING MESSAGES
16573 !C
16574       ELSEIF (IERR.EQ.0001) THEN
16575          WRITE (IO,1000) NSIS,ERRINF
16576 !C
16577       ELSEIF (IERR.EQ.0002) THEN
16578          WRITE (IO,1000) NCIS,ERRINF
16579 !C
16580       ELSEIF (IERR.EQ.0003) THEN
16581          WRITE (IO,1000) NSIF,ERRINF
16582 !C
16583       ELSEIF (IERR.EQ.0004) THEN
16584          WRITE (IO,1000) NCIF,ERRINF
16585 !C
16586       ELSE IF (IERR.EQ.0019) THEN
16587          WRITE (IO,1000) 'HNO3(aq) AFFECTS H+, WHICH '// &
16588                          'MIGHT AFFECT SO4/HSO4 RATIO'
16589          WRITE (IO,1000) 'DIRECT INCREASE IN H+ [',ERRINF(1:IEND),'] %'
16590 !C
16591       ELSE IF (IERR.EQ.0020) THEN
16592          IF (W(4).GT.TINY .AND. W(5).GT.TINY) THEN
16593             WRITE (IO,1000) 'HSO4-SO4 EQUILIBRIUM MIGHT AFFECT HNO3,' &
16594                           //'HCL DISSOLUTION'
16595          ELSE
16596             WRITE (IO,1000) 'HSO4-SO4 EQUILIBRIUM MIGHT AFFECT NH3 ' &
16597                           //'DISSOLUTION'
16598          ENDIF
16599          WRITE (IO,1000) 'DIRECT DECREASE IN H+ [',ERRINF(1:IEND),'] %'
16600 !C
16601       ELSE IF (IERR.EQ.0021) THEN
16602          WRITE (IO,1000) 'HNO3(aq),HCL(aq) AFFECT H+, WHICH '// &
16603                          'MIGHT AFFECT SO4/HSO4 RATIO'
16604          WRITE (IO,1000) 'DIRECT INCREASE IN H+ [',ERRINF(1:IEND),'] %'
16605 !C
16606       ELSE IF (IERR.EQ.0022) THEN
16607          WRITE (IO,1000) 'HCL(g) EQUILIBRIUM YIELDS NONPHYSICAL '// &
16608                          'DISSOLUTION'
16609          WRITE (IO,1000) 'A TINY AMOUNT [',ERRINF(1:IEND),'] IS '// &
16610                          'ASSUMED TO BE DISSOLVED'
16611 !C
16612       ELSEIF (IERR.EQ.0033) THEN
16613          WRITE (IO,1000) 'HCL(aq) AFFECTS H+, WHICH '// &
16614                          'MIGHT AFFECT SO4/HSO4 RATIO'
16615          WRITE (IO,1000) 'DIRECT INCREASE IN H+ [',ERRINF(1:IEND),'] %'
16616 !C
16617       ELSEIF (IERR.EQ.0050) THEN
16618          WRITE (IO,1000) 'TOO MUCH SODIUM GIVEN AS INPUT.'
16619          WRITE (IO,1000) 'REDUCED TO COMPLETELY NEUTRALIZE SO4,Cl,NO3.'
16620          WRITE (IO,1000) 'EXCESS SODIUM IS IGNORED.'
16621 !C
16622       ELSEIF (IERR.EQ.0051) THEN
16623          WRITE (IO,1000) 'TOO MUCH CALCIUM GIVEN AS INPUT.'
16624          WRITE (IO,1000) 'REDUCED TO COMPLETELY NEUTRALIZE SO4,Cl,NO3.'
16625          WRITE (IO,1000) 'EXCESS CALCIUM IS IGNORED.'
16626 !C
16627       ELSEIF (IERR.EQ.0052) THEN
16628          WRITE (IO,1000) 'TOO MUCH SODIUM (+Ca) GIVEN AS INPUT.'
16629          WRITE (IO,1000) 'REDUCED TO COMPLETELY NEUTRALIZE SO4,Cl,NO3.'
16630          WRITE (IO,1000) 'EXCESS SODIUM IS IGNORED.'
16631 !C
16632       ELSEIF (IERR.EQ.0053) THEN
16633          WRITE (IO,1000) 'TOO MUCH MAGNESIUM (+Ca,Na) GIVEN AS INPUT.'
16634          WRITE (IO,1000) 'REDUCED TO COMPLETELY NEUTRALIZE SO4,Cl,NO3.'
16635          WRITE (IO,1000) 'EXCESS MAGNESIUM IS IGNORED.'
16636 !C
16637       ELSEIF (IERR.EQ.0054) THEN
16638          WRITE (IO,1000) 'TOO MUCH POTASSIUM(+Ca,Na,Mg) GIVEN AS INPUT.'
16639          WRITE (IO,1000) 'REDUCED TO COMPLETELY NEUTRALIZE SO4,Cl,NO3.'
16640          WRITE (IO,1000) 'EXCESS POTASSIUM IS IGNORED.'
16641 !C
16642       ELSE
16643          WRITE (IO,1000) 'NO DIAGNOSTIC MESSAGE AVAILABLE'
16644       ENDIF
16645 !C
16646 10    RETURN
16647 !C
16648 !C *** FORMAT STATEMENTS *************************************
16649 !C
16650 1000  FORMAT (1X,A:A:A:A:A)
16651 1100  FORMAT (1X,A,' ERROR [',A4,']:')
16652 !C
16653 !C *** END OF SUBROUTINE ERRSTAT *****************************
16654 !C
16655       END
16656 !C=======================================================================
16657 !C
16658 !C *** ISORROPIA CODE
16659 !C *** SUBROUTINE ISORINF
16660 !C *** THIS SUBROUTINE PROVIDES INFORMATION ABOUT ISORROPIA
16661 !C
16662 !C ======================== ARGUMENTS / USAGE ===========================
16663 !C
16664 !C  OUTPUT:
16665 !C  1. [VERSI]
16666 !C     CHARACTER*15 variable.
16667 !C     Contains version-date information of ISORROPIA
16668 !C
16669 !C  2. [NCMP]
16670 !C     INTEGER variable.
16671 !C     The number of components needed in input array WI
16672 !C     (or, the number of major species accounted for by ISORROPIA)
16673 !C
16674 !C  3. [NION]
16675 !C     INTEGER variable
16676 !C     The number of ions considered in the aqueous phase
16677 !C
16678 !C  4. [NAQGAS]
16679 !C     INTEGER variable
16680 !C     The number of undissociated species found in aqueous aerosol
16681 !C     phase
16682 !C
16683 !C  5. [NSOL]
16684 !C     INTEGER variable
16685 !C     The number of solids considered in the solid aerosol phase
16686 !C
16687 !C  6. [NERR]
16688 !C     INTEGER variable
16689 !C     The size of the error stack (maximum number of errors that can
16690 !C     be stored before the stack exhausts).
16691 !C
16692 !C  7. [TIN]
16693 !C     DOUBLE PRECISION variable
16694 !C     The value used for a very small number.
16695 !C
16696 !C  8. [GRT]
16697 !C     DOUBLE PRECISION variable
16698 !C     The value used for a very large number.
16699 !C
16700 !C *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,
16701 !C *** GEORGIA INSTITUTE OF TECHNOLOGY
16702 !C *** WRITTEN BY ATHANASIOS NENES
16703 !C *** UPDATED BY CHRISTOS FOUNTOUKIS
16704 !C
16705 !C=======================================================================
16706 !C
16707       SUBROUTINE ISORINF2p1 (VERSI, NCMP, NION, NAQGAS, NSOL, NERR, TIN, &
16708                           GRT)
16709       INCLUDE 'module_isrpia_inc.F'
16710       CHARACTER VERSI*(*)
16711 !C
16712 !C *** ASSIGN INFO *******************************************************
16713 !C
16714       VERSI  = VERSION
16715       NCMP   = NCOMP
16716       NION   = NIONS
16717       NAQGAS = NGASAQ
16718       NSOL   = NSLDS
16719       NERR   = NERRMX
16720       TIN    = TINY
16721       GRT    = GREAT
16722 !C
16723       RETURN
16724 !C
16725 !C *** END OF SUBROUTINE ISORINF *******************************************
16726 !C
16727       END
16728