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

Try using goto(s)

Browse Source
This commit is contained in:
Charlton, Scott R 2023-10-31 14:15:28 -06:00
parent 9b10ce3f5c
commit 988bdee0a6
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
phreeqcpp/prep.cpp
View File

@ -5415,8 +5415,13 @@ k_temp(LDBLE tc, LDBLE pa) /* pa - pressure in atm */
// if (tc == current_tc && pa == current_pa && ((fabs(mu_x - current_mu) < 1e-3 * mu_x) || !mu_terms_in_logk)) // if (tc == current_tc && pa == current_pa && ((fabs(mu_x - current_mu) < 1e-3 * mu_x) || !mu_terms_in_logk))
// return OK; // return OK;
if (tc != current_tc || pa != current_pa || !((fabs(mu_x - current_mu) < 1e-3 * mu_x) || !mu_terms_in_logk)) if (tc != current_tc) goto proceed;
return OK; if (pa != current_pa) goto proceed;
if (fabs(mu_x - current_mu) > 1e-3 * mu_x) goto proceed;
if (mu_terms_in_logk) goto proceed;
return OK;
proceed:
int i; int i;
LDBLE tempk = tc + 273.15; LDBLE tempk = tc + 273.15;