mirror of
https://git.gfz-potsdam.de/naaice/iphreeqc.git
synced 2025-12-16 08:38:23 +01:00
9b3a5e3b03
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@4432 1feff8c3-07ed-0310-ac33-dd36852eb9cd
32 lines
609 B
Fortran
32 lines
609 B
Fortran
PROGRAM example
|
|
INCLUDE "IPhreeqc.f90.inc"
|
|
INTEGER(KIND=4) :: id
|
|
INTEGER(KIND=4) :: i
|
|
CHARACTER(LEN=40) :: comp
|
|
|
|
id = CreateIPhreeqc()
|
|
IF (id.LT.0) THEN
|
|
STOP
|
|
ENDIF
|
|
|
|
IF (LoadDatabase(id, "phreeqc.dat").NE.0) THEN
|
|
CALL OutputErrorString(id)
|
|
STOP
|
|
ENDIF
|
|
|
|
IF (RunFile(id, "ex2").NE.0) THEN
|
|
CALL OutputErrorString(id)
|
|
STOP
|
|
ENDIF
|
|
|
|
DO i=1,GetComponentCount(id)
|
|
CALL GetComponent(id, i, comp)
|
|
WRITE(*,*) "comp #", i, "= ", comp
|
|
ENDDO
|
|
|
|
IF (DestroyIPhreeqc(id).NE.IPQ_OK) THEN
|
|
CALL OutputErrorString(id)
|
|
STOP
|
|
ENDIF
|
|
END PROGRAM example
|