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

updated for OutputLastError changing to OutputError

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@4344 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2010-05-06 01:28:51 +00:00
parent 712aabbdac
commit c9a417887b
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/kinn.f
View File

@ -15,14 +15,14 @@
id = CreateIPhreeqc() id = CreateIPhreeqc()
IF (id.LT.0) THEN IF (id.LT.0) THEN
CALL OutputLastError(id) CALL OutputError(id)
STOP STOP
ENDIF ENDIF
iresult = LoadDatabase(id, 'llnl.dat') iresult = LoadDatabase(id, 'llnl.dat')
IF (iresult.NE.0) THEN IF (iresult.NE.0) THEN
CALL OutputLastError(id) CALL OutputError(id)
STOP STOP
ENDIF ENDIF
@ -41,7 +41,7 @@
iresult = SetDumpOn(id, .FALSE.) iresult = SetDumpOn(id, .FALSE.)
iresult = RunAccumulated(id) iresult = RunAccumulated(id)
IF (iresult.NE.0) THEN IF (iresult.NE.0) THEN
CALL OutputLastError(id) CALL OutputError(id)
STOP STOP
ENDIF ENDIF

6
test2/test2.for
View File

@ -11,14 +11,14 @@
id = CreateIPhreeqc() id = CreateIPhreeqc()
IF (id.LT.0) THEN IF (id.LT.0) THEN
CALL OutputLastError(id) CALL OutputError(id)
STOP STOP
ENDIF ENDIF
iresult = LoadDatabase iresult = LoadDatabase
&(id, 'wateq4f.dat') &(id, 'wateq4f.dat')
IF (iresult.NE.0) THEN IF (iresult.NE.0) THEN
CALL OutputLastError(id) CALL OutputError(id)
STOP 'Failed to load database' STOP 'Failed to load database'
ENDIF ENDIF
@ -31,7 +31,7 @@
iresult= Runfile(id, 'tester') iresult= Runfile(id, 'tester')
IF (iresult.NE.0) THEN IF (iresult.NE.0) THEN
CALL OutputLastError(id) CALL OutputError(id)
STOP 'Failed to run' STOP 'Failed to run'
ENDIF ENDIF

2
testcpp/testcpp.cpp
View File

@ -43,7 +43,7 @@ int main(int argc, char* argv[])
std::cout << "Ok\n"; std::cout << "Ok\n";
return 0; return 0;
error: error:
std::cout << obj.GetLastErrorString(); std::cout << obj.GetErrorString();
return 1; return 1;
} }