mirror of
https://git.gfz-potsdam.de/naaice/iphreeqc.git
synced 2025-12-16 00:28:23 +01:00
9ce16bc323
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/branches/class@4174 1feff8c3-07ed-0310-ac33-dd36852eb9cd
40 lines
916 B
Fortran
40 lines
916 B
Fortran
PROGRAM DRIVER
|
|
|
|
IMPLICIT NONE
|
|
INCLUDE '..\include\IPhreeqc.f90.inc'
|
|
INTEGER iresult
|
|
INTEGER rows, cols
|
|
CHARACTER(30) comp
|
|
INTEGER n
|
|
INTEGER i
|
|
|
|
iresult = LoadDatabase
|
|
&('wateq4f.dat')
|
|
IF (iresult.NE.VR_OK) THEN
|
|
CALL OutputLastError
|
|
STOP 'Failed to load database'
|
|
ENDIF
|
|
|
|
!! iresult= Runfile('CO2test',
|
|
!! & .true.,.true.,.true.,.true.)
|
|
CALL SetOutputOn(.TRUE.)
|
|
CALL SetErrorOn(.TRUE.)
|
|
CALL SetLogOn(.TRUE.)
|
|
CALL SetSelectedOutputOn(.TRUE.)
|
|
iresult= Runfile('tester')
|
|
|
|
IF (iresult.NE.VR_OK) THEN
|
|
CALL OutputLastError
|
|
STOP 'Failed to run'
|
|
ENDIF
|
|
|
|
rows = GetSelectedOutputRowCount()
|
|
cols = GetSelectedOutputColumnCount()
|
|
|
|
PRINT*,'Rows= ',rows
|
|
PRINT*,'Cols= ',cols
|
|
|
|
|
|
STOP 'Ok'
|
|
|
|
END |