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

added GetWarningLineCount GetWarningLine for fortran

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/branches/class@4229 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2010-04-08 00:37:39 +00:00
parent 564ee782ad
commit 8d81109897
3 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
include/IPhreeqc.f90.inc
View File

@ -20,6 +20,7 @@
END FUNCTION CreateIPhreeqc
END INTERFACE
INTERFACE
FUNCTION LoadDatabase(ID,FILENAME)
INTEGER(KIND=4) :: ID

2
src/fwrap.cpp
View File

@ -23,6 +23,8 @@ compile fortran with:
#define GetSelectedOutputColumnCountF getselectedoutputcolumncountf_
#define GetSelectedOutputRowCountF getselectedoutputrowcountf_
#define GetSelectedOutputValueF getselectedoutputvaluef_
#define GetWarningLineCountF getwarninglinecountf
#define GetWarningLineF getwarninglinef
#define LoadDatabaseF loaddatabasef_
#define LoadDatabaseStringF loaddatabasestringf_
#define OutputLastErrorF outputlasterrorf_

2
test/kinn.f
View File

@ -25,6 +25,8 @@
CALL OutputLastError(id)
STOP
ENDIF
iresult = GetWarningLineCount(id)
!!!! DO 45 k=1,10