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)
END FUNCTION SetSelectedOutputFileName
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION SetSelectedOutputFileOn(ID,SELECTED_ON)
FUNCTION SetSelectedOutputFileOn(ID,SELOUT_FILE_ON)
IMPLICIT NONE
INTEGER(KIND=4) :: ID
LOGICAL(KIND=4) :: SELECTED_ON
LOGICAL(KIND=4) :: SELOUT_FILE_ON
INTEGER(KIND=4) :: SetSelectedOutputFileOn
INTEGER(KIND=4) :: SetSelectedOutputFileOnF
SetSelectedOutputFileOn = SetSelectedOutputFileOnF(ID,
& SELECTED_ON)
& SELOUT_FILE_ON)
END FUNCTION SetSelectedOutputFileOn
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION GetSelectedOutputStringOn(ID)
FUNCTION SetSelectedOutputStringOn(ID,SELOUT_STRING_ON)
IMPLICIT NONE
INTEGER(KIND=4) :: ID
LOGICAL(KIND=4) :: GetSelectedOutputStringOn
INTEGER(KIND=4) :: GetSelectedOutputStringOnF
IF (GetSelectedOutputStringOnF(ID).EQ.0) THEN
GetSelectedOutputStringOn = .FALSE.
ELSE
GetSelectedOutputStringOn = .TRUE.
ENDIF
END FUNCTION GetSelectedOutputStringOn
LOGICAL(KIND=4) :: SELOUT_STRING_ON
INTEGER(KIND=4) :: SetSelectedOutputStringOn
INTEGER(KIND=4) :: SetSelectedOutputStringOnF
SetSelectedOutputStringOn = SetSelectedOutputStringOnF(ID,
& SELOUT_STRING_ON)
END FUNCTION SetSelectedOutputStringOn
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!