PROGRAM example USE iphreeqc INTEGER(KIND=4) :: 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, "ex2").NE.0) THEN CALL outputerrorstring(id) stop END IF IF (destroyiphreeqc(id).NE.ipq_ok) THEN CALL outputerrorstring(id) stop END IF END PROGRAM example
Dim iphreeqc, comp, comps, strSet iphreeqc = CreateObject("IPhreeqcCOM.Object")iphreeqc.LoadDatabase("phreeqc.dat")iphreeqc.RunFile("ex2")str = "components:" & vbNewLinecomps = iphreeqc.GetComponentList()For Each comp in comps str = str & comp & vbNewLineNextWScript.Echo(str)