max/iphreeqc
1
0
Fork 0
mirror of https://git.gfz-potsdam.de/naaice/iphreeqc.git synced 2025-12-13 07:08:23 +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()
IF (id.LT.0) THEN
CALL OutputLastError(id)
CALL OutputError(id)
STOP
ENDIF
iresult = LoadDatabase(id, 'llnl.dat')
IF (iresult.NE.0) THEN
CALL OutputLastError(id)
CALL OutputError(id)
STOP
ENDIF
@ -41,7 +41,7 @@
iresult = SetDumpOn(id, .FALSE.)
iresult = RunAccumulated(id)
IF (iresult.NE.0) THEN
CALL OutputLastError(id)
CALL OutputError(id)
STOP
ENDIF

6
test2/test2.for
View File

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

2
testcpp/testcpp.cpp
View File

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