RATEScalcite -start1 REM PARM(1) = specific surface area of calcite, mol/dm3/s [units – mol/dm3/s]10 si_cc = SR("Calcite") [units - -]20 rate = PARM(1)*(1 - si_cc) [units – mol/dm3/s] 30 mole = rate*time [units – mol/dm3] 40 if(mole > m) then mole = m50 save mole -end