PHASESFix_H+ H+ = H+ log_k 0ENDSOLUTION 1 pH 9 # log10 H+ mol/kgw temp 25 units mol/kgw Na 2.89E-01 Mg 2.45E-07 K 4.52E-02 S(6) 1.11E-02 Cl 1.80E-01 charge C(4) 1.20E-01 Ca 7.81E-06 -water 1 # kgSELECTED_OUTPUT 2-file adjust_pH.pqiUSER_PUNCH 2-start5 IF GET(1) = 0 THEN PUT(LA("H+"), 1)10 target_h = 10^GET(1)20 gamma_h = GAMMA("H+")30 new_ph = LOG10(target_h * gamma_h)40 s$ = "USE solution 1" + EOL$50 s$ = s$ + "EQUILIBRIUM_PHASES 1" + EOL$60 s$ = s$ + "Fix_H+" + STR_F$(new_pH, 15, 10) + " HCl 10 " + EOL$70 s$ = s$ + "SAVE solution 1" + EOL$90 PUNCH s$100 END-endEND# Iterate 2 times to adjust to specified H+ concentrationSELECTED_OUTPUT 2-file adjust_pH.pqiINCLUDE$ adjust_pH.pqiENDSELECTED_OUTPUT 2-file adjust_pH.pqiINCLUDE$ adjust_pH.pqiEND