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 include files

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

2
configure.ac
View File

@ -2,7 +2,7 @@
# Process this file with autoconf to produce a configure script.
AC_PREREQ([2.64])
AC_INIT([IPhreeqc], [2.17.1-4411], [charlton@usgs.gov])
AC_INIT([IPhreeqc], [2.17.1-4450], [charlton@usgs.gov])
AC_CONFIG_AUX_DIR([config])
AC_CONFIG_MACRO_DIR([m4])

3
include/IPhreeqc.f.inc
View File

@ -65,9 +65,6 @@ C
INTEGER(KIND=4) GetWarningStringLineCount
INTEGER(KIND=4) LoadDatabase
INTEGER(KIND=4) LoadDatabaseString
INTEGER(KIND=4) OutputErrorString
INTEGER(KIND=4) OutputWarningString
INTEGER(KIND=4) OutputAccumulatedLines
INTEGER(KIND=4) RunAccumulated
INTEGER(KIND=4) RunFile
INTEGER(KIND=4) RunString

14
include/IPhreeqc.f90.inc
View File

@ -220,6 +220,13 @@
END INTERFACE
INTERFACE
SUBROUTINE OutputAccumulatedLines(ID)
INTEGER(KIND=4), INTENT(IN) :: ID
END SUBROUTINE OutputAccumulatedLines
END INTERFACE
INTERFACE
SUBROUTINE OutputErrorString(ID)
INTEGER(KIND=4), INTENT(IN) :: ID
@ -234,13 +241,6 @@
END INTERFACE
INTERFACE
SUBROUTINE OutputAccumulatedLines(ID)
INTEGER(KIND=4), INTENT(IN) :: ID
END SUBROUTINE OutputAccumulatedLines
END INTERFACE
INTERFACE
FUNCTION RunAccumulated(ID)
INTEGER(KIND=4), INTENT(IN) :: ID

2
src/IPhreeqcF.f
View File

@ -14,7 +14,7 @@
CHARACTER(LEN=*) :: ERROR_MSG
INTEGER(KIND=4) :: AddError
INTEGER(KIND=4) :: AddErrorF
AddError = AddErrorF(ID,LINE)
AddError = AddErrorF(ID,ERROR_MSG)
END FUNCTION AddError
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION AddWarning(ID,WARN_MSG)