mirror of
https://git.gfz-potsdam.de/naaice/iphreeqc.git
synced 2025-12-15 16:18:22 +01:00
e180be69b0
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@4106 1feff8c3-07ed-0310-ac33-dd36852eb9cd
103 lines
3.5 KiB
Fortran
103 lines
3.5 KiB
Fortran
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION build_tally_table()
|
|
IMPLICIT NONE
|
|
INTEGER :: build_tally_table
|
|
#if defined(_WIN32)
|
|
INTERFACE
|
|
FUNCTION build_tally_tableF()
|
|
!DEC$ ATTRIBUTES C,REFERENCE::build_tally_tableF
|
|
!DEC$ ATTRIBUTES ALIAS:'_build_tally_tableF'::build_tally_tableF
|
|
INTEGER(KIND=4) :: build_tally_tableF
|
|
END FUNCTION build_tally_tableF
|
|
END INTERFACE
|
|
#else
|
|
INTEGER :: build_tally_tableF
|
|
#endif
|
|
|
|
build_tally_table = build_tally_tableF()
|
|
END FUNCTION build_tally_table
|
|
|
|
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION get_tally_table_rows_columns(rows, cols)
|
|
IMPLICIT NONE
|
|
INTEGER :: get_tally_table_rows_columns
|
|
INTEGER :: rows
|
|
INTEGER :: cols
|
|
#if defined(_WIN32)
|
|
INTERFACE
|
|
FUNCTION rows_cols(rows,cols)
|
|
!DEC$ ATTRIBUTES C,REFERENCE::rows_cols
|
|
!DEC$ ATTRIBUTES ALIAS:'_get_tally_table_rows_columnsF'::rows_cols
|
|
INTEGER :: rows
|
|
INTEGER :: cols
|
|
INTEGER(KIND=4) :: rows_cols
|
|
END FUNCTION rows_cols
|
|
END INTERFACE
|
|
|
|
get_tally_table_rows_columns = rows_cols(rows,cols)
|
|
#else
|
|
INTEGER get_tally_table_rows_columnsF
|
|
get_tally_table_rows_columns =
|
|
& get_tally_table_rows_columnsF(rows,cols)
|
|
#endif
|
|
END FUNCTION get_tally_table_rows_columns
|
|
|
|
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION get_tally_table_column_heading(col,etype,string)
|
|
IMPLICIT NONE
|
|
INTEGER col
|
|
INTEGER etype
|
|
CHARACTER(*) string
|
|
INTEGER adjcol
|
|
INTEGER get_tally_table_column_heading
|
|
#if defined(_WIN32)
|
|
INTERFACE
|
|
FUNCTION col_head(col,etype,string)
|
|
!DEC$ ATTRIBUTES C,REFERENCE::col_head
|
|
!DEC$ ATTRIBUTES ALIAS:'_get_tally_table_column_headingF'::col_head
|
|
INTEGER col
|
|
INTEGER etype
|
|
CHARACTER(*) string
|
|
INTEGER col_head
|
|
END FUNCTION col_head
|
|
END INTERFACE
|
|
adjcol = col - 1
|
|
get_tally_table_column_heading = col_head(adjcol,etype,string)
|
|
#else
|
|
INTEGER get_tally_table_column_headingF
|
|
adjcol = col - 1
|
|
get_tally_table_column_heading =
|
|
& get_tally_table_column_headingF(adjcol,etype,string)
|
|
#endif
|
|
etype = etype + 1
|
|
END FUNCTION get_tally_table_column_heading
|
|
|
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
FUNCTION get_tally_table_row_heading(row,string)
|
|
IMPLICIT NONE
|
|
INTEGER row
|
|
CHARACTER(*) string
|
|
INTEGER adjrow
|
|
INTEGER get_tally_table_row_heading
|
|
#if defined(_WIN32)
|
|
INTERFACE
|
|
FUNCTION row_head(row,string)
|
|
!DEC$ ATTRIBUTES C,REFERENCE::row_head
|
|
!DEC$ ATTRIBUTES ALIAS:'_get_tally_table_row_headingF'::row_head
|
|
INTEGER row
|
|
CHARACTER(*) string
|
|
INTEGER row_head
|
|
END FUNCTION row_head
|
|
END INTERFACE
|
|
adjrow = row - 1
|
|
get_tally_table_row_heading = row_head(adjrow,string)
|
|
#else
|
|
INTEGER get_tally_table_row_headingF
|
|
adjrow = row - 1
|
|
get_tally_table_row_heading =
|
|
& get_tally_table_row_headingF(adjrow,string)
|
|
#endif
|
|
END FUNCTION get_tally_table_row_heading
|