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

working on documentation examples

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/branches/ErrorHandling@6105 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2012-01-24 05:16:28 +00:00
parent 5a2014c6b2
commit 1ce85992bc
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
doc/examples/F90GetSelectedOutputStringLine.f90
View File

@ -9,6 +9,11 @@ PROGRAM example
STOP STOP
END IF END IF
IF (SetSelectedOutputStringOn(id, .TRUE.).NE.IPQ_OK) THEN
CALL OutputErrorString(id)
STOP
END IF
IF (LoadDatabase(id, "phreeqc.dat").NE.0) THEN IF (LoadDatabase(id, "phreeqc.dat").NE.0) THEN
CALL OutputErrorString(id) CALL OutputErrorString(id)
STOP STOP