COSMOT = 1.0e0 + OSMOT*LOG_10 / OSUM; /* C C CALCULATE THE ACTIVITY OF WATER C */ AW = exp(-OSUM * COSMOT / 55.50837e0);