From dddf7fe2b59be289b2329a3227bc831c011aac8d Mon Sep 17 00:00:00 2001
From: Scott R Charlton <charlton@usgs.gov>
Date: Tue, 24 Jan 2012 00:42:47 +0000
Subject: [PATCH] working on documentation examples

git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/branches/ErrorHandling@6097 1feff8c3-07ed-0310-ac33-dd36852eb9cd
---
 IPhreeqc.f90.inc | 13 +++++++++++--
 IPhreeqcF.f      |  9 +++++++++
 2 files changed, 20 insertions(+), 2 deletions(-)

diff --git a/IPhreeqc.f90.inc b/IPhreeqc.f90.inc
index 566e33bd..0a7b5403 100644
--- a/IPhreeqc.f90.inc
+++ b/IPhreeqc.f90.inc
@@ -377,14 +377,23 @@
 
 
        INTERFACE
-        FUNCTION SetErrorFileOn(ID,ERR_ON)
+        FUNCTION SetErrorFileOn(ID,ERR_FILE_ON)
          INTEGER(KIND=4),  INTENT(IN) :: ID
-         LOGICAL(KIND=4),  INTENT(IN) :: ERR_ON
+         LOGICAL(KIND=4),  INTENT(IN) :: ERR_FILE_ON
          INTEGER(KIND=4)              :: SetErrorFileOn
         END FUNCTION SetErrorFileOn
        END INTERFACE
 
 
+       INTERFACE
+        FUNCTION SetErrorStringOn(ID,ERR_STRING_ON)
+         INTEGER(KIND=4),  INTENT(IN) :: ID
+         LOGICAL(KIND=4),  INTENT(IN) :: ERR_ON
+         INTEGER(KIND=4)              :: SetErrorStringOn
+        END FUNCTION SetErrorStringOn
+       END INTERFACE
+
+
        INTERFACE
         FUNCTION SetLogFileName(ID,FNAME)
          INTEGER(KIND=4),  INTENT(IN) :: ID
diff --git a/IPhreeqcF.f b/IPhreeqcF.f
index c7060e58..d3c72baf 100644
--- a/IPhreeqcF.f
+++ b/IPhreeqcF.f
@@ -478,6 +478,15 @@
         INTEGER(KIND=4) :: SetErrorFileOnF
         SetErrorFileOn = SetErrorFileOnF(ID,ERROR_ON)
       END FUNCTION SetErrorFileOn
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+      FUNCTION SetErrorStringOn(ID,ERROR_STRING_ON)
+        IMPLICIT NONE
+        INTEGER(KIND=4) :: ID
+		LOGICAL(KIND=4) :: ERROR_STRING_ON
+        INTEGER(KIND=4) :: SetErrorStringOn
+        INTEGER(KIND=4) :: SetErrorStringOnF
+        SetErrorStringOn = SetErrorStringOnF(ID,ERROR_STRING_ON)
+      END FUNCTION SetDumpStringOn
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
       FUNCTION SetLogFileName(ID,FNAME)
         IMPLICIT NONE