mirror of
https://git.gfz-potsdam.de/naaice/iphreeqc.git
synced 2025-12-16 16:44:49 +01:00
ecaddcf49f
TestInterface.cpp TestInterface.h IPhreeqc.hpp IPhreeqc.h IPhreeqc.cpp module_output.cpp module_files.cpp fwrap.cpp fwrap2.cpp fwrap3.cpp IPhreeqc.cpp CVar.hxx ErrorReporter.hxx OutputFiles.hxx Phreeqc.hxx PhreeqcParser.hxx SelectedOutput.hxx Var.h Remove from IPhreeqc IPhreeqc.cpp IPhreeqc.h IPhreeqc.hpp module_output.cpp module_files.cpp git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/branches/class@4213 1feff8c3-07ed-0310-ac33-dd36852eb9cd
46 lines
1.0 KiB
Fortran
46 lines
1.0 KiB
Fortran
PROGRAM DRIVER
|
|
|
|
IMPLICIT NONE
|
|
INCLUDE '..\include\IPhreeqc.f90.inc'
|
|
INTEGER iresult
|
|
INTEGER rows, cols
|
|
CHARACTER(30) comp
|
|
INTEGER n
|
|
INTEGER i
|
|
INTEGER id
|
|
|
|
id = CreateIPhreeqc()
|
|
IF (id.LT.0) THEN
|
|
CALL OutputLastError(id)
|
|
STOP
|
|
ENDIF
|
|
|
|
iresult = LoadDatabase
|
|
&(id, 'wateq4f.dat')
|
|
IF (iresult.NE.0) THEN
|
|
CALL OutputLastError(id)
|
|
STOP 'Failed to load database'
|
|
ENDIF
|
|
|
|
!! iresult= Runfile('CO2test',
|
|
!! & .true.,.true.,.true.,.true.)
|
|
CALL SetOutputOn(id, .TRUE.)
|
|
CALL SetErrorOn(id, .TRUE.)
|
|
CALL SetLogOn(id, .TRUE.)
|
|
CALL SetSelectedOutputOn(id, .TRUE.)
|
|
iresult= Runfile(id, 'tester')
|
|
|
|
IF (iresult.NE.0) THEN
|
|
CALL OutputLastError(id)
|
|
STOP 'Failed to run'
|
|
ENDIF
|
|
|
|
rows = GetSelectedOutputRowCount(id)
|
|
cols = GetSelectedOutputColumnCount(id)
|
|
|
|
PRINT*,'Rows= ',rows
|
|
PRINT*,'Cols= ',cols
|
|
|
|
STOP 'Ok'
|
|
|
|
END |