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

Merge commit '1a3663493c8f6e1f9accef266dce18790271ca2b'

Browse Source
This commit is contained in:
Darth Vader 2023-08-25 15:29:56 +00:00
commit 41d3a2b050
1 changed files with 732 additions and 732 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/phreeqcpp/basicsubs.cpp
View File

@ -1239,7 +1239,7 @@ calc_t_sc(const char *name)
strcpy(token, name);
s_ptr = s_search(token);
if (s_ptr != NULL)
if (s_ptr != NULL && s_ptr->in)
{
if (!s_ptr->z)
return (0);
@ -1249,7 +1249,7 @@ calc_t_sc(const char *name)
LDBLE t = s_ptr->dw_t_SC * 1e7 * F_C_MOL * F_C_MOL / (R_KJ_DEG_MOL * 298150.0) * viscos_0_25 / viscos_0;
return (t / SC);
}
return (-999.99);
return (0);
}
/* ---------------------------------------------------------------------- */
@ -1264,7 +1264,7 @@ calc_f_visc(const char *name)
{
strcpy(token, name);
s_ptr = s_search(token);
if (s_ptr != NULL)
if (s_ptr != NULL && s_ptr->in)
return s_ptr->dw_t_visc;
}
return 0;