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

Optimizing compute_gfw

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/phreeqc3/trunk@8885 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
David L Parkhurst 2014-07-29 19:19:14 +00:00
parent 9f0ee02150
commit 685a4d45b3
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basicsubs.cpp
View File

@ -230,7 +230,8 @@ calc_dens(void)
if (s_x[i]->type != AQ && s_x[i]->type != HPLUS)
continue;
compute_gfw(s_x[i]->name, &gfw);
//compute_gfw(s_x[i]->name, &gfw);
gfw = s_x[i]->gfw;
M_T += s_x[i]->moles * gfw;
V_solutes += s_x[i]->moles * s_x[i]->logk[vm_tc];
}

2
prep.cpp
View File

@ -1207,7 +1207,9 @@ build_model(void)
space((void **) ((void *) &s_x), count_s_x + 1,
&max_s_x, sizeof(struct species *));
}
compute_gfw(s[i]->name, &s[i]->gfw);
s_x[count_s_x++] = s[i];
/*
* Write mass action equation for current model
*/