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

updated for latest IPhreeqc

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@6641 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2012-06-07 00:21:55 +00:00
parent 0803930034
commit 7c27e85d9d
1 changed files with 0 additions and 102 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

102
TallyF.F
View File

@ -1,102 +0,0 @@
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
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