max/iphreeqc
1
0
Fork 0
mirror of https://git.gfz-potsdam.de/naaice/iphreeqc.git synced 2025-12-16 16:44:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

added KIND= to fortran wrappers

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@4348 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2010-05-06 03:18:32 +00:00
parent 2f1b9f0d90
commit 4a9fdcfffb
1 changed files with 94 additions and 94 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

188
IPhreeqcF.f
View File

@ -1,250 +1,250 @@
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION CreateIPhreeqc() FUNCTION CreateIPhreeqc()
IMPLICIT NONE IMPLICIT NONE
INTEGER :: CreateIPhreeqc INTEGER(KIND=4) :: CreateIPhreeqc
INTEGER :: CreateIPhreeqcF INTEGER(KIND=4) :: CreateIPhreeqcF
CreateIPhreeqc = CreateIPhreeqcF() CreateIPhreeqc = CreateIPhreeqcF()
END FUNCTION CreateIPhreeqc END FUNCTION CreateIPhreeqc
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION DestroyIPhreeqc(ID) FUNCTION DestroyIPhreeqc(ID)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
INTEGER :: DestroyIPhreeqc INTEGER(KIND=4) :: DestroyIPhreeqc
INTEGER :: DestroyIPhreeqcF INTEGER(KIND=4) :: DestroyIPhreeqcF
DestroyIPhreeqc = DestroyIPhreeqcF(ID) DestroyIPhreeqc = DestroyIPhreeqcF(ID)
END FUNCTION DestroyIPhreeqc END FUNCTION DestroyIPhreeqc
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION LoadDatabase(ID,FILENAME) FUNCTION LoadDatabase(ID,FILENAME)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER (KIND=4) :: ID
CHARACTER(LEN=*) :: FILENAME CHARACTER(LEN=*) :: FILENAME
INTEGER :: LoadDatabase INTEGER(KIND=4) :: LoadDatabase
INTEGER :: LoadDatabaseF INTEGER(KIND=4) :: LoadDatabaseF
LoadDatabase = LoadDatabaseF(ID,FILENAME) LoadDatabase = LoadDatabaseF(ID,FILENAME)
END FUNCTION LoadDatabase END FUNCTION LoadDatabase
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION LoadDatabaseString(ID,INPUT) FUNCTION LoadDatabaseString(ID,INPUT)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
CHARACTER(LEN=*) :: INPUT CHARACTER(LEN=*) :: INPUT
INTEGER :: LoadDatabaseString INTEGER(KIND=4) :: LoadDatabaseString
INTEGER :: LoadDatabaseStringF INTEGER(KIND=4) :: LoadDatabaseStringF
LoadDatabaseString = LoadDatabaseStringF(ID,INPUT) LoadDatabaseString = LoadDatabaseStringF(ID,INPUT)
END FUNCTION LoadDatabaseString END FUNCTION LoadDatabaseString
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION UnLoadDatabase(ID) FUNCTION UnLoadDatabase(ID)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
INTEGER :: UnLoadDatabase INTEGER(KIND=4) :: UnLoadDatabase
INTEGER :: UnLoadDatabaseF INTEGER(KIND=4) :: UnLoadDatabaseF
UnLoadDatabase = UnLoadDatabaseF(ID) UnLoadDatabase = UnLoadDatabaseF(ID)
END FUNCTION UnLoadDatabase END FUNCTION UnLoadDatabase
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
SUBROUTINE OutputError(ID) SUBROUTINE OutputError(ID)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
CALL OutputErrorF(ID) CALL OutputErrorF(ID)
END SUBROUTINE OutputError END SUBROUTINE OutputError
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
SUBROUTINE OutputWarning(ID) SUBROUTINE OutputWarning(ID)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
CALL OutputWarningF(ID) CALL OutputWarningF(ID)
END SUBROUTINE OutputWarning END SUBROUTINE OutputWarning
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION AccumulateLine(ID,LINE) FUNCTION AccumulateLine(ID,LINE)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
CHARACTER(LEN=*) :: LINE CHARACTER(LEN=*) :: LINE
INTEGER :: AccumulateLine INTEGER(KIND=4) :: AccumulateLine
INTEGER :: AccumulateLineF INTEGER(KIND=4) :: AccumulateLineF
AccumulateLine = AccumulateLineF(ID,LINE) AccumulateLine = AccumulateLineF(ID,LINE)
END FUNCTION AccumulateLine END FUNCTION AccumulateLine
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION SetSelectedOutputOn(ID,SELECTED_ON) FUNCTION SetSelectedOutputOn(ID,SELECTED_ON)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
LOGICAL :: SELECTED_ON LOGICAL(KIND=4) :: SELECTED_ON
INTEGER :: SetSelectedOutputOn INTEGER(KIND=4) :: SetSelectedOutputOn
INTEGER :: SetSelectedOutputOnF INTEGER(KIND=4) :: SetSelectedOutputOnF
SetSelectedOutputOn = SetSelectedOutputOnF(ID,SELECTED_ON) SetSelectedOutputOn = SetSelectedOutputOnF(ID,SELECTED_ON)
END FUNCTION SetSelectedOutputOn END FUNCTION SetSelectedOutputOn
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION SetOutputOn(ID,OUTPUT_ON) FUNCTION SetOutputOn(ID,OUTPUT_ON)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
LOGICAL :: OUTPUT_ON LOGICAL(KIND=4) :: OUTPUT_ON
INTEGER :: SetOutputOn INTEGER(KIND=4) :: SetOutputOn
INTEGER :: SetOutputOnF INTEGER(KIND=4) :: SetOutputOnF
SetOutputOn = SetOutputOnF(ID,OUTPUT_ON) SetOutputOn = SetOutputOnF(ID,OUTPUT_ON)
END FUNCTION SetOutputOn END FUNCTION SetOutputOn
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION SetErrorOn(ID,ERROR_ON) FUNCTION SetErrorOn(ID,ERROR_ON)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
LOGICAL :: ERROR_ON LOGICAL(KIND=4) :: ERROR_ON
INTEGER :: SetErrorOn INTEGER(KIND=4) :: SetErrorOn
INTEGER :: SetErrorOnF INTEGER(KIND=4) :: SetErrorOnF
SetErrorOn = SetErrorOnF(ID,ERROR_ON) SetErrorOn = SetErrorOnF(ID,ERROR_ON)
END FUNCTION SetErrorOn END FUNCTION SetErrorOn
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION SetLogOn(ID,LOG_ON) FUNCTION SetLogOn(ID,LOG_ON)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
LOGICAL :: LOG_ON LOGICAL(KIND=4) :: LOG_ON
INTEGER :: SetLogOn INTEGER(KIND=4) :: SetLogOn
INTEGER :: SetLogOnF INTEGER(KIND=4) :: SetLogOnF
SetLogOn = SetLogOnF(ID,LOG_ON) SetLogOn = SetLogOnF(ID,LOG_ON)
END FUNCTION SetLogOn END FUNCTION SetLogOn
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION SetDumpOn(ID,DUMP_ON) FUNCTION SetDumpOn(ID,DUMP_ON)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
LOGICAL :: DUMP_ON LOGICAL(KIND=4) :: DUMP_ON
INTEGER :: SetDumpOn INTEGER(KIND=4) :: SetDumpOn
INTEGER :: SetDumpOnF INTEGER(KIND=4) :: SetDumpOnF
SetDumpOn = SetDumpOnF(ID,DUMP_ON) SetDumpOn = SetDumpOnF(ID,DUMP_ON)
END FUNCTION SetDumpOn END FUNCTION SetDumpOn
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION SetDumpStringOn(ID,DUMP_STRING_ON) FUNCTION SetDumpStringOn(ID,DUMP_STRING_ON)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
LOGICAL :: DUMP_STRING_ON LOGICAL(KIND=4) :: DUMP_STRING_ON
INTEGER :: SetDumpStringOn INTEGER(KIND=4) :: SetDumpStringOn
INTEGER :: SetDumpStringOnF INTEGER(KIND=4) :: SetDumpStringOnF
SetDumpStringOn = SetDumpStringOnF(ID,DUMP_STRING_ON) SetDumpStringOn = SetDumpStringOnF(ID,DUMP_STRING_ON)
END FUNCTION SetDumpStringOn END FUNCTION SetDumpStringOn
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION GetDumpLineCount(ID) FUNCTION GetDumpLineCount(ID)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
INTEGER :: GetDumpLineCount INTEGER(KIND=4) :: GetDumpLineCount
INTEGER :: GetDumpLineCountF INTEGER(KIND=4) :: GetDumpLineCountF
GetDumpLineCount = GetDumpLineCountF(ID) GetDumpLineCount = GetDumpLineCountF(ID)
END FUNCTION GetDumpLineCount END FUNCTION GetDumpLineCount
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION GetDumpLine(ID,N,LINE) FUNCTION GetDumpLine(ID,N,LINE)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
INTEGER :: N INTEGER(KIND=4) :: N
CHARACTER(LEN=*) :: LINE CHARACTER(LEN=*) :: LINE
INTEGER :: GetDumpLine INTEGER(KIND=4) :: GetDumpLine
INTEGER :: GetDumpLineF INTEGER(KIND=4) :: GetDumpLineF
GetDumpLine = GetDumpLineF(ID,N,LINE) GetDumpLine = GetDumpLineF(ID,N,LINE)
END FUNCTION GetDumpLine END FUNCTION GetDumpLine
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION GetErrorLineCount(ID) FUNCTION GetErrorLineCount(ID)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
INTEGER :: GetErrorLineCount INTEGER(KIND=4) :: GetErrorLineCount
INTEGER :: GetErrorLineCountF INTEGER(KIND=4) :: GetErrorLineCountF
GetErrorLineCount = GetErrorLineCountF(ID) GetErrorLineCount = GetErrorLineCountF(ID)
END FUNCTION GetErrorLineCount END FUNCTION GetErrorLineCount
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION GetErrorLine(ID,N,LINE) FUNCTION GetErrorLine(ID,N,LINE)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
INTEGER :: N INTEGER(KIND=4) :: N
CHARACTER(LEN=*) :: LINE CHARACTER(LEN=*) :: LINE
INTEGER :: GetErrorLine INTEGER(KIND=4) :: GetErrorLine
INTEGER :: GetErrorLineF INTEGER(KIND=4) :: GetErrorLineF
GetErrorLine = GetErrorLineF(ID,N,LINE) GetErrorLine = GetErrorLineF(ID,N,LINE)
END FUNCTION GetErrorLine END FUNCTION GetErrorLine
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION GetComponentCount(ID) FUNCTION GetComponentCount(ID)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
INTEGER :: GetComponentCount INTEGER(KIND=4) :: GetComponentCount
INTEGER :: GetComponentCountF INTEGER(KIND=4) :: GetComponentCountF
GetComponentCount = GetComponentCountF(ID) GetComponentCount = GetComponentCountF(ID)
END FUNCTION GetComponentCount END FUNCTION GetComponentCount
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION GetComponent(ID,N,COMP) FUNCTION GetComponent(ID,N,COMP)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
INTEGER :: N INTEGER(KIND=4) :: N
CHARACTER(LEN=*) :: COMP CHARACTER(LEN=*) :: COMP
INTEGER :: GetComponent INTEGER(KIND=4) :: GetComponent
INTEGER :: GetComponentF INTEGER(KIND=4) :: GetComponentF
GetComponent = GetComponentF(ID,N,COMP) GetComponent = GetComponentF(ID,N,COMP)
END FUNCTION GetComponent END FUNCTION GetComponent
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION RunAccumulated(ID) FUNCTION RunAccumulated(ID)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
INTEGER :: RunAccumulated INTEGER(KIND=4) :: RunAccumulated
INTEGER :: RunAccumulatedF INTEGER(KIND=4) :: RunAccumulatedF
RunAccumulated = RunAccumulatedF(ID) RunAccumulated = RunAccumulatedF(ID)
END FUNCTION RunAccumulated END FUNCTION RunAccumulated
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION RunFile(ID,FILENAME) FUNCTION RunFile(ID,FILENAME)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
CHARACTER(LEN=*) :: FILENAME CHARACTER(LEN=*) :: FILENAME
INTEGER :: RunFile INTEGER(KIND=4) :: RunFile
INTEGER :: RunFileF INTEGER(KIND=4) :: RunFileF
RunFile = RunFileF(ID,FILENAME) RunFile = RunFileF(ID,FILENAME)
END FUNCTION RunFile END FUNCTION RunFile
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION RunString(ID,INPUT) FUNCTION RunString(ID,INPUT)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
CHARACTER(LEN=*) :: INPUT CHARACTER(LEN=*) :: INPUT
INTEGER :: RunString INTEGER(KIND=4) :: RunString
INTEGER :: RunStringF INTEGER(KIND=4) :: RunStringF
RunString = RunStringF(ID,INPUT) RunString = RunStringF(ID,INPUT)
END FUNCTION RunString END FUNCTION RunString
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION GetSelectedOutputRowCount(ID) FUNCTION GetSelectedOutputRowCount(ID)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
INTEGER :: GetSelectedOutputRowCount INTEGER(KIND=4) :: GetSelectedOutputRowCount
INTEGER :: GetSelectedOutputRowCountF INTEGER(KIND=4) :: GetSelectedOutputRowCountF
GetSelectedOutputRowCount = GetSelectedOutputRowCountF(ID) GetSelectedOutputRowCount = GetSelectedOutputRowCountF(ID)
END FUNCTION GetSelectedOutputRowCount END FUNCTION GetSelectedOutputRowCount
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION GetSelectedOutputColumnCount(ID) FUNCTION GetSelectedOutputColumnCount(ID)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
INTEGER :: GetSelectedOutputColumnCount INTEGER(KIND=4) :: GetSelectedOutputColumnCount
INTEGER :: GetSelectedOutputColumnCountF INTEGER(KIND=4) :: GetSelectedOutputColumnCountF
GetSelectedOutputColumnCount = GetSelectedOutputColumnCountF(ID) GetSelectedOutputColumnCount = GetSelectedOutputColumnCountF(ID)
END FUNCTION GetSelectedOutputColumnCount END FUNCTION GetSelectedOutputColumnCount
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION GetSelectedOutputValue(ID,ROW,COL,VTYPE,DVALUE,SVALUE) FUNCTION GetSelectedOutputValue(ID,ROW,COL,VTYPE,DVALUE,SVALUE)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
INTEGER :: ROW INTEGER(KIND=4) :: ROW
INTEGER :: COL INTEGER(KIND=4) :: COL
INTEGER :: VTYPE INTEGER(KIND=4) :: VTYPE
REAL*8 :: DVALUE REAL(KIND=8) :: DVALUE
CHARACTER(LEN=*) :: SVALUE CHARACTER(LEN=*) :: SVALUE
INTEGER :: GetSelectedOutputValue INTEGER(KIND=4) :: GetSelectedOutputValue
INTEGER :: GetSelectedOutputValueF INTEGER(KIND=4) :: GetSelectedOutputValueF
GetSelectedOutputValue = GetSelectedOutputValueF(ID,ROW, GetSelectedOutputValue = GetSelectedOutputValueF(ID,ROW,
& COL,VTYPE,DVALUE,SVALUE) & COL,VTYPE,DVALUE,SVALUE)
END FUNCTION GetSelectedOutputValue END FUNCTION GetSelectedOutputValue
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
SUBROUTINE OutputLines(ID) SUBROUTINE OutputLines(ID)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
CALL OutputLinesF(ID) CALL OutputLinesF(ID)
END SUBROUTINE OutputLines END SUBROUTINE OutputLines
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION GetWarningLineCount(ID) FUNCTION GetWarningLineCount(ID)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
INTEGER :: GetWarningLineCount INTEGER(KIND=4) :: GetWarningLineCount
INTEGER :: GetWarningLineCountF INTEGER(KIND=4) :: GetWarningLineCountF
GetWarningLineCount = GetWarningLineCountF(ID) GetWarningLineCount = GetWarningLineCountF(ID)
END FUNCTION GetWarningLineCount END FUNCTION GetWarningLineCount
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FUNCTION GetWarningLine(ID,N,LINE) FUNCTION GetWarningLine(ID,N,LINE)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ID INTEGER(KIND=4) :: ID
INTEGER :: N INTEGER(KIND=4) :: N
CHARACTER(LEN=*) :: LINE CHARACTER(LEN=*) :: LINE
INTEGER :: GetWarningLine INTEGER(KIND=4) :: GetWarningLine
INTEGER :: GetWarningLineF INTEGER(KIND=4) :: GetWarningLineF
GetWarningLine = GetWarningLineF(ID,N,LINE) GetWarningLine = GetWarningLineF(ID,N,LINE)
END FUNCTION GetWarningLine END FUNCTION GetWarningLine