TITLE IX with IllitePHASESFix_PHH+ = H+log_k 0.0delta_h 0.0USER_PRINT10 PRINT "Na, mol, solution: ", STR_F$(TOTMOL("Na"),20,10)20 PRINT "Na, mol, exchange: ", STR_F$(MOL("NaX")*TOT("Water"), 20, 10)30 PRINT "Na, mol, system: ", STR_F$(SYS("Na"), 20, 10)40 PRINT50 PRINT "Cl, mol, solution: ", STR_F$(TOTMOL("Cl"),20,10)SOLUTION 2 Min Solution temp 25 pH 7 pe 8 redox pe units mol/kgw density 1.001 Ca 0.0002884 Cl 0.00085616 Fe 3.58e-07 K 0.0001054 Mg 0 N(5) 2.177e-05 Na 0.00085616 S(6) 0.00016 -water 1 # kgENDEQUILIBRIUM_PHASES 1 Illite 0 Fix_PH -7.0 HCl 10.0ENDEXCHANGE 1 KX Illite equilibrium_phase 0.6 -equilibrate with solution 2 -pitzer_exchange_gammas falseUSE solution 2ENDUSE solution 2USE exchange 1USE equilibrium_phases 1SAVE equilibrium_phases 2SAVE exchange 1end