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

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 293bbe0ff1
commit dddf7fe2b5
2 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
IPhreeqc.f90.inc
View File

@ -377,14 +377,23 @@
INTERFACE INTERFACE
FUNCTION SetErrorFileOn(ID,ERR_ON) FUNCTION SetErrorFileOn(ID,ERR_FILE_ON)
INTEGER(KIND=4), INTENT(IN) :: ID 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 INTEGER(KIND=4) :: SetErrorFileOn
END FUNCTION SetErrorFileOn END FUNCTION SetErrorFileOn
END INTERFACE 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 INTERFACE
FUNCTION SetLogFileName(ID,FNAME) FUNCTION SetLogFileName(ID,FNAME)
INTEGER(KIND=4), INTENT(IN) :: ID INTEGER(KIND=4), INTENT(IN) :: ID

9
IPhreeqcF.f
View File

@ -478,6 +478,15 @@
INTEGER(KIND=4) :: SetErrorFileOnF INTEGER(KIND=4) :: SetErrorFileOnF
SetErrorFileOn = SetErrorFileOnF(ID,ERROR_ON) SetErrorFileOn = SetErrorFileOnF(ID,ERROR_ON)
END FUNCTION SetErrorFileOn 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) FUNCTION SetLogFileName(ID,FNAME)
IMPLICIT NONE IMPLICIT NONE