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

added missing SetSelectedOutputStringOn

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/branches/ErrorHandling@6079 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2012-01-18 04:33:40 +00:00
parent c03368eb45
commit d2ae34e3f4
1 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/IPhreeqcF.f
View File

@ -542,25 +542,24 @@
SetSelectedOutputFileName = SetSelectedOutputFileNameF(ID,FNAME) SetSelectedOutputFileName = SetSelectedOutputFileNameF(ID,FNAME)
END FUNCTION SetSelectedOutputFileName END FUNCTION SetSelectedOutputFileName
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION SetSelectedOutputFileOn(ID,SELECTED_ON) FUNCTION SetSelectedOutputFileOn(ID,SELOUT_FILE_ON)
IMPLICIT NONE IMPLICIT NONE
INTEGER(KIND=4) :: ID INTEGER(KIND=4) :: ID
LOGICAL(KIND=4) :: SELECTED_ON LOGICAL(KIND=4) :: SELOUT_FILE_ON
INTEGER(KIND=4) :: SetSelectedOutputFileOn INTEGER(KIND=4) :: SetSelectedOutputFileOn
INTEGER(KIND=4) :: SetSelectedOutputFileOnF INTEGER(KIND=4) :: SetSelectedOutputFileOnF
SetSelectedOutputFileOn = SetSelectedOutputFileOnF(ID, SetSelectedOutputFileOn = SetSelectedOutputFileOnF(ID,
& SELECTED_ON) & SELOUT_FILE_ON)
END FUNCTION SetSelectedOutputFileOn END FUNCTION SetSelectedOutputFileOn
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION GetSelectedOutputStringOn(ID) FUNCTION SetSelectedOutputStringOn(ID,SELOUT_STRING_ON)
IMPLICIT NONE IMPLICIT NONE
INTEGER(KIND=4) :: ID INTEGER(KIND=4) :: ID
LOGICAL(KIND=4) :: GetSelectedOutputStringOn LOGICAL(KIND=4) :: SELOUT_STRING_ON
INTEGER(KIND=4) :: GetSelectedOutputStringOnF INTEGER(KIND=4) :: SetSelectedOutputStringOn
IF (GetSelectedOutputStringOnF(ID).EQ.0) THEN INTEGER(KIND=4) :: SetSelectedOutputStringOnF
GetSelectedOutputStringOn = .FALSE. SetSelectedOutputStringOn = SetSelectedOutputStringOnF(ID,
ELSE & SELOUT_STRING_ON)
GetSelectedOutputStringOn = .TRUE. END FUNCTION SetSelectedOutputStringOn
ENDIF
END FUNCTION GetSelectedOutputStringOn
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!