mirror of
https://git.gfz-potsdam.de/naaice/iphreeqc.git
synced 2025-12-16 16:44:49 +01:00
c3c27d34d8
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@4349 1feff8c3-07ed-0310-ac33-dd36852eb9cd
323 lines
12 KiB
Fortran
323 lines
12 KiB
Fortran
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION AccumulateLine(ID,LINE)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
CHARACTER(LEN=*) :: LINE
|
|
INTEGER(KIND=4) :: AccumulateLine
|
|
INTEGER(KIND=4) :: AccumulateLineF
|
|
AccumulateLine = AccumulateLineF(ID,LINE)
|
|
END FUNCTION AccumulateLine
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION CreateIPhreeqc()
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: CreateIPhreeqc
|
|
INTEGER(KIND=4) :: CreateIPhreeqcF
|
|
CreateIPhreeqc = CreateIPhreeqcF()
|
|
END FUNCTION CreateIPhreeqc
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION DestroyIPhreeqc(ID)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
INTEGER(KIND=4) :: DestroyIPhreeqc
|
|
INTEGER(KIND=4) :: DestroyIPhreeqcF
|
|
DestroyIPhreeqc = DestroyIPhreeqcF(ID)
|
|
END FUNCTION DestroyIPhreeqc
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION GetComponent(ID,N,COMP)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
INTEGER(KIND=4) :: N
|
|
CHARACTER(LEN=*) :: COMP
|
|
INTEGER(KIND=4) :: GetComponent
|
|
INTEGER(KIND=4) :: GetComponentF
|
|
GetComponent = GetComponentF(ID,N,COMP)
|
|
END FUNCTION GetComponent
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION GetComponentCount(ID)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
INTEGER(KIND=4) :: GetComponentCount
|
|
INTEGER(KIND=4) :: GetComponentCountF
|
|
GetComponentCount = GetComponentCountF(ID)
|
|
END FUNCTION GetComponentCount
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION GetDumpLine(ID,N,LINE)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
INTEGER(KIND=4) :: N
|
|
CHARACTER(LEN=*) :: LINE
|
|
INTEGER(KIND=4) :: GetDumpLine
|
|
INTEGER(KIND=4) :: GetDumpLineF
|
|
GetDumpLine = GetDumpLineF(ID,N,LINE)
|
|
END FUNCTION GetDumpLine
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION GetDumpLineCount(ID)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
INTEGER(KIND=4) :: GetDumpLineCount
|
|
INTEGER(KIND=4) :: GetDumpLineCountF
|
|
GetDumpLineCount = GetDumpLineCountF(ID)
|
|
END FUNCTION GetDumpLineCount
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION GetDumpOn(ID)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
LOGICAL(KIND=4) :: GetDumpOn
|
|
INTEGER(KIND=4) :: GetDumpOnF
|
|
IF (GetDumpOnF(ID).EQ.0) THEN
|
|
GetDumpOn = .FALSE.
|
|
ELSE
|
|
GetDumpOn = .TRUE.
|
|
ENDIF
|
|
END FUNCTION GetDumpOn
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION GetDumpStringOn(ID)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
LOGICAL(KIND=4) :: GetDumpStringOn
|
|
INTEGER(KIND=4) :: GetDumpStringOnF
|
|
IF (GetDumpStringOnF(ID).EQ.0) THEN
|
|
GetDumpStringOn = .FALSE.
|
|
ELSE
|
|
GetDumpStringOn = .TRUE.
|
|
ENDIF
|
|
END FUNCTION GetDumpStringOn
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION GetErrorLine(ID,N,LINE)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
INTEGER(KIND=4) :: N
|
|
CHARACTER(LEN=*) :: LINE
|
|
INTEGER(KIND=4) :: GetErrorLine
|
|
INTEGER(KIND=4) :: GetErrorLineF
|
|
GetErrorLine = GetErrorLineF(ID,N,LINE)
|
|
END FUNCTION GetErrorLine
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION GetErrorLineCount(ID)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
INTEGER(KIND=4) :: GetErrorLineCount
|
|
INTEGER(KIND=4) :: GetErrorLineCountF
|
|
GetErrorLineCount = GetErrorLineCountF(ID)
|
|
END FUNCTION GetErrorLineCount
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION GetErrorOn(ID)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
LOGICAL(KIND=4) :: GetErrorOn
|
|
INTEGER(KIND=4) :: GetErrorOnF
|
|
IF (GetErrorOnF(ID).EQ.0) THEN
|
|
GetErrorOn = .FALSE.
|
|
ELSE
|
|
GetErrorOn = .TRUE.
|
|
ENDIF
|
|
END FUNCTION GetErrorOn
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION GetLogOn(ID)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
LOGICAL(KIND=4) :: GetLogOn
|
|
INTEGER(KIND=4) :: GetLogOnF
|
|
IF (GetLogOnF(ID).EQ.0) THEN
|
|
GetLogOn = .FALSE.
|
|
ELSE
|
|
GetLogOn = .TRUE.
|
|
ENDIF
|
|
END FUNCTION GetLogOn
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION GetOutputOn(ID)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
LOGICAL(KIND=4) :: GetOutputOn
|
|
INTEGER(KIND=4) :: GetOutputOnF
|
|
IF (GetOutputOnF(ID).EQ.0) THEN
|
|
GetOutputOn = .FALSE.
|
|
ELSE
|
|
GetOutputOn = .TRUE.
|
|
ENDIF
|
|
END FUNCTION GetOutputOn
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION GetSelectedOutputColumnCount(ID)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
INTEGER(KIND=4) :: GetSelectedOutputColumnCount
|
|
INTEGER(KIND=4) :: GetSelectedOutputColumnCountF
|
|
GetSelectedOutputColumnCount = GetSelectedOutputColumnCountF(ID)
|
|
END FUNCTION GetSelectedOutputColumnCount
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION GetSelectedOutputOn(ID)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
LOGICAL(KIND=4) :: GetSelectedOutputOn
|
|
INTEGER(KIND=4) :: GetSelectedOutputOnF
|
|
IF (GetSelectedOutputOnF(ID).EQ.0) THEN
|
|
GetSelectedOutputOn = .FALSE.
|
|
ELSE
|
|
GetSelectedOutputOn = .TRUE.
|
|
ENDIF
|
|
END FUNCTION GetSelectedOutputOn
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION GetSelectedOutputRowCount(ID)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
INTEGER(KIND=4) :: GetSelectedOutputRowCount
|
|
INTEGER(KIND=4) :: GetSelectedOutputRowCountF
|
|
GetSelectedOutputRowCount = GetSelectedOutputRowCountF(ID)
|
|
END FUNCTION GetSelectedOutputRowCount
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION GetSelectedOutputValue(ID,ROW,COL,VTYPE,DVALUE,SVALUE)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
INTEGER(KIND=4) :: ROW
|
|
INTEGER(KIND=4) :: COL
|
|
INTEGER(KIND=4) :: VTYPE
|
|
REAL(KIND=8) :: DVALUE
|
|
CHARACTER(LEN=*) :: SVALUE
|
|
INTEGER(KIND=4) :: GetSelectedOutputValue
|
|
INTEGER(KIND=4) :: GetSelectedOutputValueF
|
|
GetSelectedOutputValue = GetSelectedOutputValueF(ID,ROW,
|
|
& COL,VTYPE,DVALUE,SVALUE)
|
|
END FUNCTION GetSelectedOutputValue
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION GetWarningLine(ID,N,LINE)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
INTEGER(KIND=4) :: N
|
|
CHARACTER(LEN=*) :: LINE
|
|
INTEGER(KIND=4) :: GetWarningLine
|
|
INTEGER(KIND=4) :: GetWarningLineF
|
|
GetWarningLine = GetWarningLineF(ID,N,LINE)
|
|
END FUNCTION GetWarningLine
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION GetWarningLineCount(ID)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
INTEGER(KIND=4) :: GetWarningLineCount
|
|
INTEGER(KIND=4) :: GetWarningLineCountF
|
|
GetWarningLineCount = GetWarningLineCountF(ID)
|
|
END FUNCTION GetWarningLineCount
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION LoadDatabase(ID,FILENAME)
|
|
IMPLICIT NONE
|
|
INTEGER (KIND=4) :: ID
|
|
CHARACTER(LEN=*) :: FILENAME
|
|
INTEGER(KIND=4) :: LoadDatabase
|
|
INTEGER(KIND=4) :: LoadDatabaseF
|
|
LoadDatabase = LoadDatabaseF(ID,FILENAME)
|
|
END FUNCTION LoadDatabase
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION LoadDatabaseString(ID,INPUT)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
CHARACTER(LEN=*) :: INPUT
|
|
INTEGER(KIND=4) :: LoadDatabaseString
|
|
INTEGER(KIND=4) :: LoadDatabaseStringF
|
|
LoadDatabaseString = LoadDatabaseStringF(ID,INPUT)
|
|
END FUNCTION LoadDatabaseString
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
SUBROUTINE OutputError(ID)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
CALL OutputErrorF(ID)
|
|
END SUBROUTINE OutputError
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
SUBROUTINE OutputLines(ID)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
CALL OutputLinesF(ID)
|
|
END SUBROUTINE OutputLines
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
SUBROUTINE OutputWarning(ID)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
CALL OutputWarningF(ID)
|
|
END SUBROUTINE OutputWarning
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION SetSelectedOutputOn(ID,SELECTED_ON)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
LOGICAL(KIND=4) :: SELECTED_ON
|
|
INTEGER(KIND=4) :: SetSelectedOutputOn
|
|
INTEGER(KIND=4) :: SetSelectedOutputOnF
|
|
SetSelectedOutputOn = SetSelectedOutputOnF(ID,SELECTED_ON)
|
|
END FUNCTION SetSelectedOutputOn
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION SetOutputOn(ID,OUTPUT_ON)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
LOGICAL(KIND=4) :: OUTPUT_ON
|
|
INTEGER(KIND=4) :: SetOutputOn
|
|
INTEGER(KIND=4) :: SetOutputOnF
|
|
SetOutputOn = SetOutputOnF(ID,OUTPUT_ON)
|
|
END FUNCTION SetOutputOn
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION SetErrorOn(ID,ERROR_ON)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
LOGICAL(KIND=4) :: ERROR_ON
|
|
INTEGER(KIND=4) :: SetErrorOn
|
|
INTEGER(KIND=4) :: SetErrorOnF
|
|
SetErrorOn = SetErrorOnF(ID,ERROR_ON)
|
|
END FUNCTION SetErrorOn
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION SetLogOn(ID,LOG_ON)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
LOGICAL(KIND=4) :: LOG_ON
|
|
INTEGER(KIND=4) :: SetLogOn
|
|
INTEGER(KIND=4) :: SetLogOnF
|
|
SetLogOn = SetLogOnF(ID,LOG_ON)
|
|
END FUNCTION SetLogOn
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION SetDumpOn(ID,DUMP_ON)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
LOGICAL(KIND=4) :: DUMP_ON
|
|
INTEGER(KIND=4) :: SetDumpOn
|
|
INTEGER(KIND=4) :: SetDumpOnF
|
|
SetDumpOn = SetDumpOnF(ID,DUMP_ON)
|
|
END FUNCTION SetDumpOn
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION SetDumpStringOn(ID,DUMP_STRING_ON)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
LOGICAL(KIND=4) :: DUMP_STRING_ON
|
|
INTEGER(KIND=4) :: SetDumpStringOn
|
|
INTEGER(KIND=4) :: SetDumpStringOnF
|
|
SetDumpStringOn = SetDumpStringOnF(ID,DUMP_STRING_ON)
|
|
END FUNCTION SetDumpStringOn
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION RunAccumulated(ID)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
INTEGER(KIND=4) :: RunAccumulated
|
|
INTEGER(KIND=4) :: RunAccumulatedF
|
|
RunAccumulated = RunAccumulatedF(ID)
|
|
END FUNCTION RunAccumulated
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION RunFile(ID,FILENAME)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
CHARACTER(LEN=*) :: FILENAME
|
|
INTEGER(KIND=4) :: RunFile
|
|
INTEGER(KIND=4) :: RunFileF
|
|
RunFile = RunFileF(ID,FILENAME)
|
|
END FUNCTION RunFile
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION RunString(ID,INPUT)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
CHARACTER(LEN=*) :: INPUT
|
|
INTEGER(KIND=4) :: RunString
|
|
INTEGER(KIND=4) :: RunStringF
|
|
RunString = RunStringF(ID,INPUT)
|
|
END FUNCTION RunString
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION UnLoadDatabase(ID)
|
|
IMPLICIT NONE
|
|
INTEGER(KIND=4) :: ID
|
|
INTEGER(KIND=4) :: UnLoadDatabase
|
|
INTEGER(KIND=4) :: UnLoadDatabaseF
|
|
UnLoadDatabase = UnLoadDatabaseF(ID)
|
|
END FUNCTION UnLoadDatabase
|