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

git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/branches/ErrorHandling@6101 1feff8c3-07ed-0310-ac33-dd36852eb9cd
---
 .../F90GetSelectedOutputStringLine.f90        | 31 ++++++++++++++++++
 doc/examples/GetSelectedOutputString.c        | 32 +++++++++++++++++++
 2 files changed, 63 insertions(+)
 create mode 100644 doc/examples/F90GetSelectedOutputStringLine.f90
 create mode 100644 doc/examples/GetSelectedOutputString.c

diff --git a/doc/examples/F90GetSelectedOutputStringLine.f90 b/doc/examples/F90GetSelectedOutputStringLine.f90
new file mode 100644
index 00000000..ce269ae8
--- /dev/null
+++ b/doc/examples/F90GetSelectedOutputStringLine.f90
@@ -0,0 +1,31 @@
+PROGRAM example
+  INCLUDE "IPhreeqc.f90.inc"
+  INTEGER(KIND=4)   :: id
+  INTEGER(KIND=4)   :: i
+  CHARACTER(LEN=400):: line
+  
+  id = CreateIPhreeqc()
+  IF (id.LT.0) THEN
+     STOP
+  END IF
+  
+  IF (LoadDatabase(id, "phreeqc.dat").NE.0) THEN
+     CALL OutputErrorString(id)
+     STOP
+  END IF
+  
+  IF (RunFile(id, "ex2").NE.0) THEN
+     CALL OutputErrorString(id)
+     STOP
+  END IF
+  
+  WRITE(*,*) "selected-output:"
+  DO i=1,GetSelectedOutputStringLineCount(id)
+     CALL GetSelectedOutputStringLine(id, i, line)
+     WRITE(*,*) TRIM(line)
+  END DO
+
+  IF (DestroyIPhreeqc(id).NE.IPQ_OK) THEN
+     STOP
+  END IF
+END PROGRAM example
diff --git a/doc/examples/GetSelectedOutputString.c b/doc/examples/GetSelectedOutputString.c
new file mode 100644
index 00000000..d637ab5d
--- /dev/null
+++ b/doc/examples/GetSelectedOutputString.c
@@ -0,0 +1,32 @@
+#include <stdlib.h>
+#include <stdio.h>
+#include <IPhreeqc.h>
+
+int main(void)
+{
+  int id;
+
+  id = CreateIPhreeqc();
+  if (id < 0) {
+    return EXIT_FAILURE;
+  }
+
+  if (LoadDatabase(id, "phreeqc.dat") != 0) {
+    OutputErrorString(id);
+    return EXIT_FAILURE;
+  }
+
+  if (RunFile(id, "ex2") != 0) {
+    OutputErrorString(id);
+    return EXIT_FAILURE;
+  }
+
+  printf("selected-output:\n");
+  printf("%s\n", GetSelectedOutputString(id));
+
+  if (DestroyIPhreeqc(id)) {
+    return EXIT_FAILURE;
+  }
+
+  return EXIT_SUCCESS;
+}