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 '09af2d5b127a8efe403f47751c7c8465ec94874d'

Browse Source
This commit is contained in:
Darth Vader 2024-05-27 19:31:41 +00:00
commit fb3f60ce26
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
phreeqcpp/tidy.cpp
View File

@ -5431,6 +5431,16 @@ tidy_isotope_ratios(void)
/*
* Mark master species list as minor isotope
*/
if (isotope_ratio[i]->isotope_name == NULL)
{
input_error++;
error_string = sformatf(
"For ISOTOPE_RATIO, did not find ISOTOPE name for this isotope ratio %s",
isotope_ratio[i]->name);
error_msg(error_string, CONTINUE);
continue;
}
master_isotope_ptr =
master_isotope_search(isotope_ratio[i]->isotope_name);
if (master_isotope_ptr == NULL)

4
phreeqcpp/utilities.cpp
View File

@ -41,6 +41,10 @@ calc_alk(CReaction& rxn_ref)
break;
}
return_value += r_token->coef * master_ptr->alk;
//if (strcmp(r_token->name, "e-") == 0 && strcmp(rxn_ref.token[0].name,"e-") != 0)
//{
// std::cerr << rxn_ref.token[0].name << " Non-master species has e- in reaction.\n";
//}
r_token++;
}
return (return_value);