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

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 FUNCTION CreateIPhreeqc
END INTERFACE END INTERFACE
INTERFACE INTERFACE
FUNCTION LoadDatabase(ID,FILENAME) FUNCTION LoadDatabase(ID,FILENAME)
INTEGER(KIND=4) :: ID INTEGER(KIND=4) :: ID

2
src/fwrap.cpp
View File

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

2
test/kinn.f
View File

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