#! /usr/bin/gawk -f
# Last edited on 2017-02-24 05:59:29 by jstolfi

function fill_water_solubility_table_NH4H2PO4() \
  { 
    # Fills the global table {g_w} with water solubility (g in 100 g)
    # of "NH4H2PO4" (monoammonium dihydrogenphosphate, MAP).

    # The values below were computed from a formula fitted to various
    # data sets in the literature.  The first two values were fixed 
    # by hand. It seems that there is an eutectic at -4.3 C.
    
    g_w["NH4H2PO4",  -4.3] =   20.3; # Hand corrected.
    g_w["NH4H2PO4",   0.0] =   23.8; # Hand corrected.
    g_w["NH4H2PO4",   5.0] =   26.2;
    g_w["NH4H2PO4",  10.0] =   29.4;
    g_w["NH4H2PO4",  15.0] =   32.9;
    g_w["NH4H2PO4",  20.0] =   36.8;
    g_w["NH4H2PO4",  25.0] =   41.0;
    g_w["NH4H2PO4",  30.0] =   45.6;
    g_w["NH4H2PO4",  35.0] =   50.7;
    g_w["NH4H2PO4",  40.0] =   56.1;
    g_w["NH4H2PO4",  45.0] =   62.1;
    g_w["NH4H2PO4",  50.0] =   68.6;
    g_w["NH4H2PO4",  55.0] =   75.7;
    g_w["NH4H2PO4",  60.0] =   83.4;
    g_w["NH4H2PO4",  65.0] =   91.7;
    g_w["NH4H2PO4",  70.0] =  100.9;
    g_w["NH4H2PO4",  75.0] =  110.8;
    g_w["NH4H2PO4",  80.0] =  121.7;
    g_w["NH4H2PO4",  85.0] =  133.6;
    g_w["NH4H2PO4",  90.0] =  146.7;
    g_w["NH4H2PO4",  95.0] =  160.9;
    g_w["NH4H2PO4", 100.0] =  176.6;
    g_w["NH4H2PO4", 105.0] =  193.8;
    g_w["NH4H2PO4", 110.0] =  212.8;
    g_w["NH4H2PO4", 120.0] =  257.1;
    g_w["NH4H2PO4", 130.0] =  311.5;
    g_w["NH4H2PO4", 140.0] =  379.2;
    g_w["NH4H2PO4", 150.0] =  464.3;
    g_w["NH4H2PO4", 160.0] =  572.6;
  }