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