From 8cfffff78914b82ec326f88547034da68e4aba4d Mon Sep 17 00:00:00 2001
From: Scott R Charlton <charlton@usgs.gov>
Date: Mon, 17 May 2010 23:44:32 +0000
Subject: [PATCH] added F90ClearAccumulatedLines

git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@4410 1feff8c3-07ed-0310-ac33-dd36852eb9cd
---
 doc/examples/F90ClearAccumulatedLines.f90 | 59 +++++++++++++++++++++++
 doc/examples/Makefile                     |  5 +-
 2 files changed, 63 insertions(+), 1 deletion(-)
 create mode 100644 doc/examples/F90ClearAccumulatedLines.f90

diff --git a/doc/examples/F90ClearAccumulatedLines.f90 b/doc/examples/F90ClearAccumulatedLines.f90
new file mode 100644
index 00000000..4134a2c8
--- /dev/null
+++ b/doc/examples/F90ClearAccumulatedLines.f90
@@ -0,0 +1,59 @@
+PROGRAM example
+  INCLUDE "IPhreeqc.f90.inc"
+  INTEGER(KIND=4) :: id
+  INTEGER(KIND=4) :: i
+  
+  id = CreateIPhreeqc()
+  IF (id.LT.0) THEN
+     STOP
+  ENDIF
+  
+  IF (LoadDatabase(id, "../../database/wateq4f.dat").NE.0) THEN
+     CALL OutputError(id)
+     STOP
+  ENDIF
+  
+  IF (AccumulateLine(id, "SOLUTION 1").NE.IPQ_OK) THEN
+     CALL OutputError(id)
+     STOP
+  ENDIF
+  
+  IF (AccumulateLine(id, "pH -2").NE.IPQ_OK) THEN
+     CALL OutputError(id)
+     STOP
+  ENDIF
+  
+  IF (AccumulateLine(id, "END").NE.IPQ_OK) THEN
+     CALL OutputError(id)
+     STOP
+  ENDIF
+  
+  IF (RunAccumulated(id).NE.0) THEN
+     CALL OutputLines(id)
+     CALL OutputError(id)
+     IF (AccumulateLine(id, "SOLUTION 1").NE.IPQ_OK) THEN
+        CALL OutputError(id)
+        STOP
+     ENDIF
+     
+     IF (AccumulateLine(id, "pH 2").NE.IPQ_OK) THEN
+        CALL OutputError(id)
+        STOP
+     ENDIF
+     
+     IF (AccumulateLine(id, "END").NE.IPQ_OK) THEN
+        CALL OutputError(id)
+        STOP
+     ENDIF
+     
+     IF (RunAccumulated(id).NE.0) THEN
+        STOP
+     ENDIF
+  ENDIF
+  
+  IF (DestroyIPhreeqc(id).NE.IPQ_OK) THEN
+     CALL OutputError(id)
+     STOP
+  ENDIF
+  WRITE(*,*) "Ok"
+END PROGRAM example
diff --git a/doc/examples/Makefile b/doc/examples/Makefile
index ff9dcb8c..ce6fce01 100644
--- a/doc/examples/Makefile
+++ b/doc/examples/Makefile
@@ -21,7 +21,8 @@ TARGETS = \
 F90_TARGETS = \
 	F90CreateIPhreeqc \
 	F90GetComponent \
-	F90GetDumpLine
+	F90GetDumpLine \
+	F90ClearAccumulatedLines
 
 
 all: $(TARGETS) $(F90_TARGETS)
@@ -51,6 +52,8 @@ F90GetComponent: F90GetComponent.lo $(IPHREEQC_LA)
 F90GetDumpLine: F90GetDumpLine.lo $(IPHREEQC_LA)
 	$(LIBTOOL) --mode=link $(CXX) $(LDFLAGS) -o $@ $< $(IPHREEQC_LA) $(FCLIBS)
 
+F90ClearAccumulatedLines: F90ClearAccumulatedLines.lo $(IPHREEQC_LA)
+	$(LIBTOOL) --mode=link $(CXX) $(LDFLAGS) -o $@ $< $(IPHREEQC_LA) $(FCLIBS)
 
 .SUFFIXES: .c .cxx .f .f90 .lo