

     INTERP2D-LV8 and
     INTERP2D-LV15 are wrapper programs to test operation of subroutines that interpolate log K's at intermediate temperatures, and at the correspoding P's of liquid-vapor saturation.

     Orginally named here LOGKLV  and LKLVEX
     and becoming in Chim INTRP2D and INTRP2D_L

     INTRP2D is for interpolating log K's from log K's in the original Soltherm format, at T = 25, 50, 100, 150, 200, 250, 300, and 350C. Since many Soltherm species do not have all 8 log K's extending to 350C, also tested were data sets that have 99999.999 for values above a given temperature. The idea being to find the highest T valid value, and to restrict extrapolation to a maximum of 50 C above that.

     INTRP2D_L uses 15 Log K values read from full grid data blocks at 25,50,75,100,125,150,175,200,225,250,275,300,325,and 350C and at the correct P for L-V saturation. Unlike INTRP2D, all 15 vaules are always present and so this one is a bit simpler.


_____________________
More on INTRP2D

Subroutine INTRP2D is computationally the same in each of the following, but v.0.2 has some extra output from it.
Log K values are those for quartz before adopting the aqs. SiO2 data from Steffansson.
V.01 with data to 350 and so extrapolation to 400 is permitted. This is the working version.
V.02 with data to 300 only, and so extrapolation to 350 only is permitted.
   Extra output here for additional verification info.
V.03 as for V.02 but with extra output removed.
i.e.:
      DATA TARRAY  /25.D0, 50.D0, 100.D0, 150.D0, 200.D0, 250.D0,
     +             300.D0, 350.D0/
**** Quartz data to 350°C:
      DATA LVARRA /-4.047D0,-3.644D0,-3.117D0,-2.752D0,-2.465D0,
     1           -2.228D0,-2.034D0,-1.913D0/
V.XX versions not shown were incremental tests, decreasing the allowed upper temperature by one step each time, by changing data statements in the source code, e.g.:
**** Quartz data up to 300°C.
*      DATA LVARRA /-4.047D0,-3.644D0,-3.117D0,-2.752D0,-2.465D0,
*     1           -2.228D0,-2.034D0,99999.999D0/
**** Quartz data up to 250°C.
*      DATA LVARRA /-4.047D0,-3.644D0,-3.117D0,-2.752D0,-2.465D0,
*     1           -2.228D0,99999.999D0,99999.999D0/
**** Quartz data up to 200°C.
*      DATA LVARRA /-4.047D0,-3.644D0,-3.117D0,-2.752D0,-2.465D0,
*     1           99999.999D0,99999.999D0,99999.999D0/
**** Quartz data up to 150°C.
*      DATA LVARRA /-4.047D0,-3.644D0,-3.117D0,-2.752D0,99999.999D0,
*     1           99999.999D0,99999.999D0,99999.999D0/
**** Quartz data up to 100°C.
*      DATA LVARRA /-4.047D0,-3.644D0,-3.117D0,99999.999D0,99999.999D0,
*     1           99999.999D0,99999.999D0,99999.999D0/
**** Quartz data up to 50°C.
*      DATA LVARRA /-4.047D0,-3.644D0,99999.999D0,99999.999D0,
*     1           99999.999D0,
*     1           99999.999D0,99999.999D0,99999.999D0/
**** Quartz data up to 25°C.
*      DATA LVARRA /-4.047D0,99999.999D0,99999.999D0,99999.999D0,
*     1           99999.999D0,
*     1           99999.999D0,99999.999D0,99999.999D0/
_____________________
