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

working on documentation examples

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/branches/ErrorHandling@6097 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2012-01-24 00:42:47 +00:00
parent fb0ec4984f
commit 6b4e9714c6
2 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/IPhreeqc.f90.inc
View File

@ -377,14 +377,23 @@
INTERFACE
FUNCTION SetErrorFileOn(ID,ERR_ON)
FUNCTION SetErrorFileOn(ID,ERR_FILE_ON)
INTEGER(KIND=4), INTENT(IN) :: ID
LOGICAL(KIND=4), INTENT(IN) :: ERR_ON
LOGICAL(KIND=4), INTENT(IN) :: ERR_FILE_ON
INTEGER(KIND=4) :: SetErrorFileOn
END FUNCTION SetErrorFileOn
END INTERFACE
INTERFACE
FUNCTION SetErrorStringOn(ID,ERR_STRING_ON)
INTEGER(KIND=4), INTENT(IN) :: ID
LOGICAL(KIND=4), INTENT(IN) :: ERR_ON
INTEGER(KIND=4) :: SetErrorStringOn
END FUNCTION SetErrorStringOn
END INTERFACE
INTERFACE
FUNCTION SetLogFileName(ID,FNAME)
INTEGER(KIND=4), INTENT(IN) :: ID

9
src/IPhreeqcF.f
View File

@ -478,6 +478,15 @@
INTEGER(KIND=4) :: SetErrorFileOnF
SetErrorFileOn = SetErrorFileOnF(ID,ERROR_ON)
END FUNCTION SetErrorFileOn
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION SetErrorStringOn(ID,ERROR_STRING_ON)
IMPLICIT NONE
INTEGER(KIND=4) :: ID
LOGICAL(KIND=4) :: ERROR_STRING_ON
INTEGER(KIND=4) :: SetErrorStringOn
INTEGER(KIND=4) :: SetErrorStringOnF
SetErrorStringOn = SetErrorStringOnF(ID,ERROR_STRING_ON)
END FUNCTION SetDumpStringOn
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION SetLogFileName(ID,FNAME)
IMPLICIT NONE