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

Checking in OpenMP pragmas in IPhreeqcLib.cpp.

Browse Source 
Working on Reaction_module, IPhreeqcPhast, and IPhreeqc interactions.

Runs through initial phreeqc calculation.

git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@6800 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
David L Parkhurst 2012-07-20 00:20:16 +00:00
parent f88aa3463d
commit 5eaf0d1d00
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/IPhreeqcLib.cpp
View File

@ -899,9 +899,13 @@ int
IPhreeqcLib::CreateIPhreeqc(void)
{
int n = IPQ_OUTOFMEMORY;
IPhreeqc* IPhreeqcPtr;
try
{
IPhreeqc* IPhreeqcPtr = new IPhreeqc;
#pragma omp critical(IPhreeqcLib)
{
IPhreeqcPtr = new IPhreeqc;
}
n = IPhreeqcPtr->Index;
}
catch(...)
@ -918,8 +922,11 @@ IPhreeqcLib::DestroyIPhreeqc(int id)
if (id >= 0)
{
if (IPhreeqc *ptr = IPhreeqcLib::GetInstance(id))
{
#pragma omp critical(IPhreeqcLib)
{
delete ptr;
}
retval = IPQ_OK;
}
}
@ -929,8 +936,14 @@ IPhreeqcLib::DestroyIPhreeqc(int id)
IPhreeqc*
IPhreeqcLib::GetInstance(int id)
{
std::map<size_t, IPhreeqc*>::iterator it = IPhreeqc::Instances.find(size_t(id));
if (it != IPhreeqc::Instances.end())
std::map<size_t, IPhreeqc*>::iterator it;
bool found=false;
#pragma omp critical(IPhreeqcLib)
{
it = IPhreeqc::Instances.find(size_t(id));
found = (it != IPhreeqc::Instances.end());
}
if (found)
{
return (*it).second;
}