mirror of
https://git.gfz-potsdam.de/naaice/iphreeqc.git
synced 2025-12-16 08:38:23 +01:00
12ac80f2a7
# IPQ_DLL_EXPORT int GetDumpFileOn(int id); # IPQ_DLL_EXPORT IPQ_RESULT SetDumpOn(int id, int dump_on); # IPQ_DLL_EXPORT IPQ_RESULT SetDumpFileOn(int id, int dump_on); s/etDumpOn/etDumpFileOn/g s/etdumpon/etdumpfileon/g s/ETDUMPON/ETDUMPFILEON/g # IPQ_DLL_EXPORT int GetErrorOn(int id); # IPQ_DLL_EXPORT int GetErrorFileOn(int id); # IPQ_DLL_EXPORT IPQ_RESULT SetErrorOn(int id, int error_on); # IPQ_DLL_EXPORT IPQ_RESULT SetErrorFileOn(int id, int error_on); s/etErrorOn/etErrorFileOn/g s/eterroron/eterrorfileon/g s/ETERRORON/ETERRORFILEON/g # IPQ_DLL_EXPORT int GetLogOn(int id); # IPQ_DLL_EXPORT int GetLogFileOn(int id); # IPQ_DLL_EXPORT IPQ_RESULT SetLogOn(int id, int log_on); # IPQ_DLL_EXPORT IPQ_RESULT SetLogFileOn(int id, int log_on); s/etLogOn/etLogFileOn/g s/etlogon/etlogfileon/g s/ETLOGON/ETLOGFILEON/g # IPQ_DLL_EXPORT int GetOutputOn(int id); # IPQ_DLL_EXPORT int GetOutputFileOn(int id); # IPQ_DLL_EXPORT IPQ_RESULT SetOutputOn(int id, int output_on); # IPQ_DLL_EXPORT IPQ_RESULT SetOutputFileOn(int id, int output_on); s/etOutputOn/etOutputFileOn/g s/etoutputon/etoutputfileon/g s/ETOUTPUTON/ETOUTPUTFILEON/g # IPQ_DLL_EXPORT int GetSelectedOutputOn(int id); # IPQ_DLL_EXPORT int GetSelectedOutputFileOn(int id); # IPQ_DLL_EXPORT IPQ_RESULT SetSelectedOutputOn(int id, int sel_on); # IPQ_DLL_EXPORT IPQ_RESULT SetSelectedOutputFileOn(int id, int sel_on); s/etSelectedOutputOn/etSelectedOutputFileOn/g s/etselectedoutputon/etselectedoutputfileon/g s/ETSELECTEDOUTPUTON/ETSELECTEDOUTPUTFILEON/g # IPQ_DLL_EXPORT const char* GetDumpLine(int id, int n); # IPQ_DLL_EXPORT const char* GetDumpStringLine(int id, int n); # IPQ_DLL_EXPORT int GetDumpLineCount(int id); # IPQ_DLL_EXPORT int GetDumpStringLineCount(int id); s/GetDumpLine/GetDumpStringLine/g s/getdumpline/getdumpstringline/g s/GETDUMPLINE/GETDUMPSTRINGLINE/g # IPQ_DLL_EXPORT const char* GetErrorLine(int id, int n); # IPQ_DLL_EXPORT const char* GetErrorStringLine(int id, int n); # IPQ_DLL_EXPORT int GetErrorLineCount(int id); # IPQ_DLL_EXPORT int GetErrorStringLineCount(int id); s/GetErrorLine/GetErrorStringLine/g s/geterrorline/geterrorstringline/g s/GETERRORLINE/GETERRORSTRINGLINE/g # IPQ_DLL_EXPORT const char* GetWarningLine(int id, int n); # IPQ_DLL_EXPORT const char* GetWarningStringLine(int id, int n); # IPQ_DLL_EXPORT int GetWarningLineCount(int id); # IPQ_DLL_EXPORT int GetWarningStringLineCount(int id); s/GetWarningLine/GetWarningStringLine/g s/getwarningline/getwarningstringline/g s/GETWARNINGLINE/GETWARNINGSTRINGLINE/g # IPQ_DLL_EXPORT void OutputError(int id); # IPQ_DLL_EXPORT void OutputErrorString(int id); s/OutputError/OutputErrorString/g s/outputerror/outputerrorstring/g s/OUTPUTERROR/OUTPUTERRORSTRING/g # IPQ_DLL_EXPORT void OutputLines(int id); # IPQ_DLL_EXPORT void OutputAccumulatedLines(int id); s/OutputLines/OutputAccumulatedLines/g s/outputlines/outputaccumulatedlines/g s/OUTPUTLINES/OUTPUTACCUMULATEDLINES/g # IPQ_DLL_EXPORT void OutputWarning(int id); # IPQ_DLL_EXPORT void OutputWarningString(int id); s/OutputWarning/OutputWarningString/g s/outputwarning/outputwarningstring/g s/OUTPUTWARNING/OUTPUTWARNINGSTRING/g git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@4412 1feff8c3-07ed-0310-ac33-dd36852eb9cd
81 lines
1.6 KiB
Fortran
81 lines
1.6 KiB
Fortran
PROGRAM example
|
|
INCLUDE "IPhreeqc.f90.inc"
|
|
INTEGER(KIND=4) :: id
|
|
INTEGER(KIND=4) :: i
|
|
CHARACTER(LEN=80) :: line
|
|
|
|
id = CreateIPhreeqc()
|
|
IF (id.LT.0) THEN
|
|
STOP
|
|
ENDIF
|
|
|
|
IF (SetDumpStringOn(id, .TRUE.).NE.IPQ_OK) THEN
|
|
CALL OutputErrorString(id)
|
|
STOP
|
|
ENDIF
|
|
|
|
IF (LoadDatabase(id, "phreeqc.dat").NE.0) THEN
|
|
CALL OutputErrorString(id)
|
|
STOP
|
|
ENDIF
|
|
|
|
IF (AccumulateLine(id, "SOLUTION 1 Pure water").NE.IPQ_OK) THEN
|
|
CALL OutputErrorString(id)
|
|
STOP
|
|
ENDIF
|
|
|
|
IF (AccumulateLine(id, "EQUILIBRIUM_PHASES 1").NE.IPQ_OK) THEN
|
|
CALL OutputErrorString(id)
|
|
STOP
|
|
ENDIF
|
|
|
|
IF (AccumulateLine(id, " Calcite 0 10").NE.IPQ_OK) THEN
|
|
CALL OutputErrorString(id)
|
|
STOP
|
|
ENDIF
|
|
|
|
IF (AccumulateLine(id, "SAVE solution 1").NE.IPQ_OK) THEN
|
|
CALL OutputErrorString(id)
|
|
STOP
|
|
ENDIF
|
|
|
|
IF (AccumulateLine(id, "SAVE equilibrium_phases 1").NE.IPQ_OK) THEN
|
|
CALL OutputErrorString(id)
|
|
STOP
|
|
ENDIF
|
|
|
|
IF (AccumulateLine(id, "DUMP").NE.IPQ_OK) THEN
|
|
CALL OutputErrorString(id)
|
|
STOP
|
|
ENDIF
|
|
|
|
IF (AccumulateLine(id, " -solution 1").NE.IPQ_OK) THEN
|
|
CALL OutputErrorString(id)
|
|
STOP
|
|
ENDIF
|
|
|
|
IF (AccumulateLine(id, " -equilibrium_phases 1").NE.IPQ_OK) THEN
|
|
CALL OutputErrorString(id)
|
|
STOP
|
|
ENDIF
|
|
|
|
WRITE(*,*) "Input:"
|
|
CALL OutputAccumulatedLines(id)
|
|
|
|
IF (RunAccumulated(id).NE.0) THEN
|
|
CALL OutputErrorString(id)
|
|
STOP
|
|
ENDIF
|
|
|
|
WRITE(*,*) "Dump:"
|
|
DO i=1,GetDumpStringLineCount(id)
|
|
CALL GetDumpStringLine(id, i, line)
|
|
WRITE(*,*) TRIM(line)
|
|
ENDDO
|
|
|
|
IF (DestroyIPhreeqc(id).NE.IPQ_OK) THEN
|
|
CALL OutputErrorString(id)
|
|
STOP
|
|
ENDIF
|
|
END PROGRAM example
|