max/iphreeqc
1
0
Fork 0
mirror of https://git.gfz-potsdam.de/naaice/iphreeqc.git synced 2025-12-16 16:44:49 +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. # Process this file with autoconf to produce a configure script.
AC_PREREQ([2.64]) 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_AUX_DIR([config])
AC_CONFIG_MACRO_DIR([m4]) AC_CONFIG_MACRO_DIR([m4])

3
include/IPhreeqc.f.inc
View File

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

14
include/IPhreeqc.f90.inc
View File

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

2
src/IPhreeqcF.f
View File

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