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

updated for common directory and optional string length argument

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@10769 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2016-01-30 02:50:37 +00:00
parent 993349370d
commit b1da32aa01
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
doc/examples/F90GetSelectedOutputValue.f90
View File

@ -6,6 +6,7 @@ PROGRAM example
INTEGER(KIND=4) :: vt
REAL(KIND=8) :: dv
CHARACTER(LEN=40) :: sv
INTEGER(KIND=4) :: sl
id = CreateIPhreeqc()
IF (id.LT.0) THEN
@ -21,15 +22,19 @@ PROGRAM example
CALL OutputErrorString(id)
STOP
END IF
WRITE(*,*) "selected-output:"
DO i=0,GetSelectedOutputRowCount(id)
DO j=1,GetSelectedOutputColumnCount(id)
IF (GetSelectedOutputValue(id, i, j, vt, dv, sv).EQ.IPQ_OK) THEN
IF (GetSelectedOutputValue(id, i, j, vt, dv, sv, sl).EQ.IPQ_OK) THEN
IF (vt.EQ.TT_DOUBLE) THEN
WRITE(*,"(g12.6,A1)",ADVANCE="NO") dv, " "
ELSE IF (vt.EQ.TT_STRING) THEN
WRITE(*,"(A12,A1)",ADVANCE="NO") sv, " "
IF (sl.EQ.0) THEN
WRITE(*,"(A12,A1)",ADVANCE="NO") sv, " "
ELSE
WRITE(*,"(A12,A1)",ADVANCE="NO") "#ERR", " "
END IF
END IF
END IF
END DO

2
doc/examples/Makefile
View File

@ -1,5 +1,5 @@
CC = gcc
CPPFLAGS = -I../../src -I../../src/phreeqcpp -I../../src/phreeqcpp/PhreeqcKeywords
CPPFLAGS = -I../../src -I../../src/phreeqcpp -I../../src/phreeqcpp/common -I../../src/phreeqcpp/PhreeqcKeywords
CXX = g++
DEFS = -DNDEBUG=1 -DFC_FUNC\(name,NAME\)=name\ \#\#\ _ -DFC_FUNC_\(name,NAME\)=name\ \#\#\ _ -DFC_MAIN=MAIN__
F77 = gfortran