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

got rid of some warnings

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@4453 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2010-05-21 07:51:45 +00:00
parent a0ac5895e9
commit 5701f87232
4 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
doc/examples/F90ClearAccumulatedLines.f90
View File

@ -1,7 +1,6 @@
PROGRAM example
INCLUDE "IPhreeqc.f90.inc"
INTEGER(KIND=4) :: id
INTEGER(KIND=4) :: i
id = CreateIPhreeqc()
IF (id.LT.0) THEN

4
doc/examples/F90GetSelectedOutputValue.f90
View File

@ -35,4 +35,8 @@ PROGRAM example
END DO
WRITE(*,*)
END DO
IF (DestroyIPhreeqc(id).NE.IPQ_OK) THEN
STOP
END IF
END PROGRAM example

7
doc/examples/GetSelectedOutputValue.c
View File

@ -30,7 +30,7 @@ int main(void)
if (GetSelectedOutputValue(id, i, j, &v) == VR_OK) {
switch (v.type) {
case TT_LONG:
printf("%d ", v.lVal);
printf("%ld ", v.lVal);
break;
case TT_DOUBLE:
printf("%g ", v.dVal);
@ -44,5 +44,10 @@ int main(void)
}
printf("\n");
}
if (DestroyIPhreeqc(id)) {
return EXIT_FAILURE;
}
return EXIT_SUCCESS;
}

4
doc/examples/Makefile
View File

@ -4,8 +4,8 @@ CXX = g++
DEFS = -DNDEBUG=1 -DFC_FUNC\(name,NAME\)=name\ \#\#\ _ -DFC_FUNC_\(name,NAME\)=name\ \#\#\ _ -DFC_MAIN=MAIN__
F77 = gfortran
FC = gfortran
CFLAGS = -g -O2
FFLAGS = -I../../include -g -O2
CFLAGS = -g -O2 -Wall
FFLAGS = -I../../include -g -O2 -Wall
FCLIBS = -L/usr/lib/gcc/i586-manbo-linux-gnu/4.4.1 -L/usr/lib/gcc/i586-manbo-linux-gnu/4.4.1/../../.. -lgfortranbegin -lgfortran -lm
LIBTOOL = /bin/sh ../../_build/libtool
LDFLAGS =