From d2ae34e3f4c450b92462b7daa63416005977a4fd Mon Sep 17 00:00:00 2001 From: Scott R Charlton Date: Wed, 18 Jan 2012 04:33:40 +0000 Subject: [PATCH] added missing SetSelectedOutputStringOn git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/branches/ErrorHandling@6079 1feff8c3-07ed-0310-ac33-dd36852eb9cd --- src/IPhreeqcF.f | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) diff --git a/src/IPhreeqcF.f b/src/IPhreeqcF.f index 018a6f7a..c7060e58 100644 --- a/src/IPhreeqcF.f +++ b/src/IPhreeqcF.f @@ -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 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +