max/iphreeqc
1
0
Fork 0
mirror of https://git.gfz-potsdam.de/naaice/iphreeqc.git synced 2025-12-15 16:18:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

Merge commit 'fd242bd33f1f6b3b91cd6d4f5a5336db0edfa81e'

Browse Source
This commit is contained in:
Scott R Charlton 2019-11-19 14:20:33 -07:00
commit 077fbf97fb
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
phreeqcpp/cvode.cpp
View File

@ -3589,7 +3589,8 @@ CVsldet(CVodeMem cv_mem)
realtype rr, rrcut, vrrtol, vrrt2, sqtol, rrtol;
realtype smink, smaxk, sumrat, sumrsq, vmin, vmax, drrmax, adrr;
realtype /*small_cvode,*/ tem, sqmax, saqk, qp, s, sqmaxk, saqj, sqmin;
realtype rsa, rsb, rsc, rsd, rse, rd1a, rd1b, rd1c, rd1d;
//realtype rsa, rsb, rsc, rsd, rse, rd1a, rd1b, rd1c, rd1d;
realtype rsa, rsb, rsc, rsd, rse, rd1a, rd1b, rd1c;
//realtype rd2a, rd2b, rd2c, rd3a, rd3b, cest1, corr1;
realtype rd2a, rd2b, rd3a, cest1, corr1;
realtype ratp, ratm, qfac1, qfac2, bb, rrb;
@ -3850,7 +3851,7 @@ CVsldet(CVodeMem cv_mem)
rd1a = rsa - rsb;
rd1b = rsb - rsc;
rd1c = rsc - rsd;
rd1d = rsd - rse;
//rd1d = rsd - rse;
rd2a = rd1a - rd1b;
rd2b = rd1b - rd1c;
//rd2c = rd1c - rd1d;