SOLUTION 1 #formation watertemp 22pH 6units ppmNa 69863Ca 19000Mg 2916S 280Cl 149650-water 0.05SOLUTION 2 #Sea watertemp 22pH 5.5units ppmNa 18328Ca 650Mg 2210S 4290Cl 32695-water 0.05ENDUSER_PRINT10 gyp_mol = EQUI("Gypsum") 20 gyp_mg_100cc = (gyp_mol * GFW("CaSO4:2H2O") * 1000 / SOLN_VOL) * 0.130 anh_mol = EQUI("Anhydrite")40 anh_mg_100cc = (anh_mol * GFW("CaSO4") * 1000 / SOLN_VOL) * 0.150 PRINT "Gypsum scale, mg/100cc: ", STR_F$(gyp_mg_100cc, 10, 1)60 PRINT "Anhydrite scale, mg/100cc: ", STR_F$(anh_mg_100cc, 10, 1)EQUILIBRIUM_PHASESGypsum 0 0Anhydrite 0 0MIX 11 0.5 #FRACTION 0.5 OF Formation water2 0.5 #FRACTION 0.5 OF Sea waterEND