From 8d81109897fd8d8009cd14055045a80fa74af8b3 Mon Sep 17 00:00:00 2001 From: Scott R Charlton Date: Thu, 8 Apr 2010 00:37:39 +0000 Subject: [PATCH] added GetWarningLineCount GetWarningLine for fortran git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/branches/class@4229 1feff8c3-07ed-0310-ac33-dd36852eb9cd --- include/IPhreeqc.f90.inc | 1 + src/fwrap.cpp | 2 ++ test/kinn.f | 2 ++ 3 files changed, 5 insertions(+) diff --git a/include/IPhreeqc.f90.inc b/include/IPhreeqc.f90.inc index 9967a38e..dd2db22b 100644 --- a/include/IPhreeqc.f90.inc +++ b/include/IPhreeqc.f90.inc @@ -20,6 +20,7 @@ END FUNCTION CreateIPhreeqc END INTERFACE + INTERFACE FUNCTION LoadDatabase(ID,FILENAME) INTEGER(KIND=4) :: ID diff --git a/src/fwrap.cpp b/src/fwrap.cpp index a47fa27b..6eff2c10 100644 --- a/src/fwrap.cpp +++ b/src/fwrap.cpp @@ -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_ diff --git a/test/kinn.f b/test/kinn.f index dd8f0712..2c73a87a 100644 --- a/test/kinn.f +++ b/test/kinn.f @@ -25,6 +25,8 @@ CALL OutputLastError(id) STOP ENDIF + + iresult = GetWarningLineCount(id) !!!! DO 45 k=1,10