max/iphreeqc
1
0
Fork 0
mirror of https://git.gfz-potsdam.de/naaice/iphreeqc.git synced 2025-12-15 16:18:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

added F90ClearAccumulatedLines

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@4410 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2010-05-17 23:44:32 +00:00
parent 93926c9b29
commit 8cfffff789
2 changed files with 63 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
doc/examples/F90ClearAccumulatedLines.f90 Normal file
View File

@ -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

5
doc/examples/Makefile
View File

@ -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