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

Updated Makefile; changed single-quotes to double-quotes since they didn't format correcly in html

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@4463 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2010-05-24 23:08:45 +00:00
parent f86562b6d1
commit eaf070d56b
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
doc/Makefile
View File

@ -10,10 +10,12 @@ EXAMPLES = \
examples/CreateIPhreeqc.c \
examples/GetComponent.c \
examples/GetDumpString.c \
examples/GetSelectedOutputValue.c \
examples/F90ClearAccumulatedLines.f90 \
examples/F90CreateIPhreeqc.f90 \
examples/F90DestroyIPhreeqc.f90 \
examples/F90GetComponent.f90 \
examples/F90GetSelectedOutputValue.f90 \
examples/F90GetDumpLine.f90 \
examples/F90GetDumpStringLine.f90

4
doc/examples/F90GetSelectedOutputValue.f90
View File

@ -27,9 +27,9 @@ PROGRAM example
DO j=1,GetSelectedOutputColumnCount(id)
IF (GetSelectedOutputValue(id, i, j, vt, dv, sv).EQ.IPQ_OK) THEN
IF (vt.EQ.TT_DOUBLE) THEN
WRITE(*,"(g12.6,A1)",ADVANCE='NO') dv, ' '
WRITE(*,"(g12.6,A1)",ADVANCE="NO") dv, " "
ELSE IF (vt.EQ.TT_STRING) THEN
WRITE(*,"(A12,A1)",ADVANCE='NO') sv, ' '
WRITE(*,"(A12,A1)",ADVANCE="NO") sv, " "
END IF
END IF
END DO