mirror of
https://git.gfz-potsdam.de/naaice/iphreeqc.git
synced 2025-12-15 16:18:22 +01:00
6546b94c28
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@4108 1feff8c3-07ed-0310-ac33-dd36852eb9cd
33 lines
745 B
Fortran
33 lines
745 B
Fortran
PROGRAM DRIVER
|
|
|
|
IMPLICIT NONE
|
|
INCLUDE '../include/IPhreeqc.f.inc'
|
|
INTEGER iresult
|
|
INTEGER rows, cols
|
|
|
|
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.)
|
|
iresult= Runfile('tester',
|
|
& .true.,.true.,.true.,.true.)
|
|
|
|
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 |