mirror of
https://git.gfz-potsdam.de/naaice/iphreeqc.git
synced 2025-12-16 16:44:49 +01:00
a0ac5895e9
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@4452 1feff8c3-07ed-0310-ac33-dd36852eb9cd
28 lines
551 B
FortranFixed
28 lines
551 B
FortranFixed
SUBROUTINE F_MAIN
|
|
|
|
IMPLICIT NONE
|
|
INCLUDE 'IPhreeqc.f.inc'
|
|
INTEGER id
|
|
|
|
id = CreateIPhreeqc()
|
|
IF (id.LT.0) THEN
|
|
STOP
|
|
END IF
|
|
|
|
IF (LoadDatabase(id, "phreeqc.dat").NE.0) THEN
|
|
CALL OutputErrorString(id)
|
|
STOP
|
|
END IF
|
|
|
|
IF (RunFile(id, "ex1").NE.0) THEN
|
|
CALL OutputErrorString(id)
|
|
STOP
|
|
END IF
|
|
|
|
IF (DestroyIPhreeqc(id).NE.0) THEN
|
|
CALL OutputErrorString(id)
|
|
STOP
|
|
END IF
|
|
|
|
END SUBROUTINE F_MAIN
|