From 1ce85992bc80dbb1da5f9cce94682458587f43c5 Mon Sep 17 00:00:00 2001 From: Scott R Charlton Date: Tue, 24 Jan 2012 05:16:28 +0000 Subject: [PATCH] working on documentation examples git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/branches/ErrorHandling@6105 1feff8c3-07ed-0310-ac33-dd36852eb9cd --- doc/examples/F90GetSelectedOutputStringLine.f90 | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/doc/examples/F90GetSelectedOutputStringLine.f90 b/doc/examples/F90GetSelectedOutputStringLine.f90 index ce269ae8..d22a976c 100644 --- a/doc/examples/F90GetSelectedOutputStringLine.f90 +++ b/doc/examples/F90GetSelectedOutputStringLine.f90 @@ -9,6 +9,11 @@ PROGRAM example STOP END IF + IF (SetSelectedOutputStringOn(id, .TRUE.).NE.IPQ_OK) THEN + CALL OutputErrorString(id) + STOP + END IF + IF (LoadDatabase(id, "phreeqc.dat").NE.0) THEN CALL OutputErrorString(id) STOP