mirror of
https://git.gfz-potsdam.de/naaice/iphreeqc.git
synced 2025-12-16 08:38:23 +01:00
2ac72344de
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@4105 1feff8c3-07ed-0310-ac33-dd36852eb9cd
92 lines
2.9 KiB
C++
92 lines
2.9 KiB
C++
! GetSelectedOutputValue TYPES
|
|
INTEGER,PARAMETER :: TT_EMPTY = 0
|
|
INTEGER,PARAMETER :: TT_ERROR = 1
|
|
INTEGER,PARAMETER :: TT_DOUBLE = 3
|
|
INTEGER,PARAMETER :: TT_STRING = 4
|
|
|
|
|
|
! ERROR (TT_ERROR) TYPES
|
|
INTEGER,PARAMETER :: VR_OK = 0
|
|
INTEGER,PARAMETER :: VR_OUTOFMEMORY = 1
|
|
INTEGER,PARAMETER :: VR_BADVARTYPE = 2
|
|
INTEGER,PARAMETER :: VR_INVALIDARG = 3
|
|
INTEGER,PARAMETER :: VR_INVALIDROW = 4
|
|
INTEGER,PARAMETER :: VR_INVALIDCOL = 5
|
|
|
|
|
|
INTERFACE
|
|
FUNCTION LoadDatabase(FILENAME)
|
|
CHARACTER(LEN=*) :: FILENAME
|
|
INTEGER(KIND=4) :: LoadDatabase
|
|
END FUNCTION LoadDatabase
|
|
END INTERFACE
|
|
|
|
|
|
INTERFACE
|
|
SUBROUTINE OutputLastError
|
|
END SUBROUTINE OutputLastError
|
|
END INTERFACE
|
|
|
|
|
|
INTERFACE
|
|
FUNCTION AccumulateLine(LINE)
|
|
CHARACTER(LEN=*) :: LINE
|
|
INTEGER(KIND=4) :: AccumulateLine
|
|
END FUNCTION AccumulateLine
|
|
END INTERFACE
|
|
|
|
|
|
INTERFACE
|
|
FUNCTION Run(OUTPUT_ON, ERROR_ON, LOG_ON, SELECTED_ON)
|
|
LOGICAL(KIND=4) :: OUTPUT_ON
|
|
LOGICAL(KIND=4) :: ERROR_ON
|
|
LOGICAL(KIND=4) :: LOG_ON
|
|
LOGICAL(KIND=4) :: SELECTED_ON
|
|
INTEGER(KIND=4) :: Run
|
|
END FUNCTION Run
|
|
END INTERFACE
|
|
|
|
|
|
INTERFACE
|
|
FUNCTION RunFile(FNAME,OUT_ON,ERR_ON,LOG_ON,SEL_ON)
|
|
CHARACTER(LEN=*) :: FNAME
|
|
LOGICAL(KIND=4) :: OUT_ON
|
|
LOGICAL(KIND=4) :: ERR_ON
|
|
LOGICAL(KIND=4) :: LOG_ON
|
|
LOGICAL(KIND=4) :: SEL_ON
|
|
INTEGER(KIND=4) :: RunFile
|
|
END FUNCTION RunFile
|
|
END INTERFACE
|
|
|
|
|
|
INTERFACE
|
|
SUBROUTINE OutputLines
|
|
END SUBROUTINE OutputLines
|
|
END INTERFACE
|
|
|
|
|
|
INTERFACE
|
|
FUNCTION GetSelectedOutputRowCount()
|
|
INTEGER(KIND=4) :: GetSelectedOutputRowCount
|
|
END FUNCTION GetSelectedOutputRowCount
|
|
END INTERFACE
|
|
|
|
|
|
INTERFACE
|
|
FUNCTION GetSelectedOutputColumnCount()
|
|
INTEGER(KIND=4) :: GetSelectedOutputColumnCount
|
|
END FUNCTION GetSelectedOutputColumnCount
|
|
END INTERFACE
|
|
|
|
|
|
INTERFACE
|
|
FUNCTION GetSelectedOutputValue(ROW,COL,VTYPE,DVALUE,SVALUE)
|
|
INTEGER(KIND=4) :: ROW
|
|
INTEGER(KIND=4) :: COL
|
|
INTEGER(KIND=4) :: VTYPE
|
|
REAL(KIND=8) :: DVALUE
|
|
CHARACTER(LEN=*) :: SVALUE
|
|
INTEGER(KIND=4) :: GetSelectedOutputValue
|
|
END FUNCTION GetSelectedOutputValue
|
|
END INTERFACE
|