pyEQL 1.4.0rc9__cp313-cp313-macosx_11_0_arm64.whl

pyEQL/phreeqc/ext/iphreeqc-3.8.6-17100/src/IPhreeqc_interface_F.cpp

@@ -0,0 +1,535 @@
+#ifndef IPHREEQC_NO_FORTRAN_MODULE
+#include <ctype.h>   /* isgraph */
+#include <stdlib.h>  /* malloc */
+#include <memory.h>  /* memcpy */
+#include <assert.h>  /* assert */
+#include <stdio.h>   /* sprintf */
+#include <cstring>
+#include "phrqtype.h"
+#include "IPhreeqc.h"
+#include "Phreeqc.h" /* snprintf */
+
+#include "IPhreeqc_interface_F.h"
+#ifdef SKIP
+char *
+f2cstring(char* fstring, size_t len)
+{
+    char *cstr, *str;
+    long i;
+
+    str = fstring;
+    for (i = (long) len - 1; i >= 0 && !isgraph((int) str[i]); i--);
+    cstr = (char *) malloc((size_t) (i + 2));
+    if (!cstr) return 0;
+
+    cstr[i + 1] = '\0';
+    if ((i + 1) > 0) memcpy(cstr, str, (size_t) (i + 1));
+    return cstr;
+}
+#endif
+void
+padfstring(char *dest, const char *src, int* len)
+{
+    int sofar, c_len;
+
+    c_len = (int)strlen(src);
+    for (sofar = 0; (sofar < *len) && (*src != '\0'); ++sofar)
+        *dest++ = *src++;
+
+    while (sofar++ < *len)
+        *dest++ = ' ';
+    *len = c_len;
+}
+
+IPQ_RESULT
+AccumulateLineF(int *id, char *line)
+{
+	IPQ_RESULT n;
+	n = ::AccumulateLine(*id, line);
+	return n;
+}
+int
+AddErrorF(int *id, char *error_msg)
+{
+	int n;
+	n = ::AddError(*id, error_msg);
+	return n;
+}
+
+int
+AddWarningF(int *id, char *warn_msg)
+{
+	int n;
+	n = ::AddWarning(*id, warn_msg);
+	return n;
+}
+
+IPQ_RESULT
+ClearAccumulatedLinesF(int *id)
+{
+	return ::ClearAccumulatedLines(*id);
+}
+
+int
+CreateIPhreeqcF(void)
+{
+	return ::CreateIPhreeqc();
+}
+
+int
+DestroyIPhreeqcF(int *id)
+{
+	return ::DestroyIPhreeqc(*id);
+}
+
+int
+GetComponentCountF(int *id)
+{
+	return ::GetComponentCount(*id);
+}
+
+void
+GetComponentF(int *id, int *n, char* comp, int* line_length)
+{
+	padfstring(comp, ::GetComponent(*id, (*n) - 1), line_length);
+}
+
+int
+GetCurrentSelectedOutputUserNumberF(int *id)
+{
+	return ::GetCurrentSelectedOutputUserNumber(*id);
+}
+
+void
+GetDumpFileNameF(int *id, char* fname, int* fname_length)
+{
+	padfstring(fname, ::GetDumpFileName(*id), fname_length);
+}
+
+int
+GetDumpFileOnF(int *id)
+{
+	return ::GetDumpFileOn(*id);
+}
+
+/*
+GetDumpStringF
+*/
+
+int
+GetDumpStringLineCountF(int *id)
+{
+	return ::GetDumpStringLineCount(*id);
+}
+
+void
+GetDumpStringLineF(int *id, int* n, char* line, int* line_length)
+{
+	padfstring(line, ::GetDumpStringLine(*id, (*n) - 1), line_length);
+}
+
+int
+GetDumpStringOnF(int *id)
+{
+	return ::GetDumpStringOn(*id);
+}
+
+void
+GetErrorFileNameF(int *id, char* fname, int* fname_length)
+{
+	padfstring(fname, ::GetErrorFileName(*id), fname_length);
+}
+
+int
+GetErrorFileOnF(int *id)
+{
+	return ::GetErrorFileOn(*id);
+}
+
+int
+GetErrorOnF(int *id)
+{
+	return ::GetErrorOn(*id);
+}
+
+/*
+GetErrorStringF
+*/
+
+int
+GetErrorStringLineCountF(int *id)
+{
+	return ::GetErrorStringLineCount(*id);
+}
+
+void
+GetErrorStringLineF(int *id, int* n, char* line, int* line_length)
+{
+	padfstring(line, ::GetErrorStringLine(*id, (*n) - 1), line_length);
+}
+
+int
+GetErrorStringOnF(int *id)
+{
+	return ::GetErrorStringOn(*id);
+}
+
+void 
+GetLogFileNameF(int *id, char* fname, int* fname_length)
+{
+	padfstring(fname, ::GetLogFileName(*id), fname_length);
+}
+
+int
+GetLogFileOnF(int *id)
+{
+	return ::GetLogFileOn(*id);
+}
+
+int
+GetLogStringLineCountF(int *id)
+{
+	return ::GetLogStringLineCount(*id);
+}
+
+void
+GetLogStringLineF(int *id, int* n, char* line, int* line_length)
+{
+	padfstring(line, ::GetLogStringLine(*id, (*n) - 1), line_length);
+}
+
+int
+GetLogStringOnF(int *id)
+{
+	return ::GetLogStringOn(*id);
+}
+
+int
+GetNthSelectedOutputUserNumberF(int *id, int* n)
+{
+	return ::GetNthSelectedOutputUserNumber(*id, (*n) - 1);
+}
+
+void
+GetOutputFileNameF(int *id, char* fname, int* fname_length)
+{
+	padfstring(fname, ::GetOutputFileName(*id), fname_length);
+}
+
+int
+GetOutputStringLineCountF(int *id)
+{
+	return ::GetOutputStringLineCount(*id);
+}
+
+void
+GetOutputStringLineF(int *id, int* n, char* line, int* line_length)
+{
+	padfstring(line, ::GetOutputStringLine(*id, (*n) - 1), line_length);
+}
+
+int
+GetOutputStringOnF(int *id)
+{
+	return ::GetOutputStringOn(*id);
+}
+
+int
+GetOutputFileOnF(int *id)
+{
+	return ::GetOutputFileOn(*id);
+}
+
+int
+GetSelectedOutputColumnCountF(int *id)
+{
+	return ::GetSelectedOutputColumnCount(*id);
+}
+
+int
+GetSelectedOutputCountF(int *id)
+{
+	return ::GetSelectedOutputCount(*id);
+}
+
+void
+GetSelectedOutputFileNameF(int *id, char* fname, int* fname_length)
+{
+	padfstring(fname, ::GetSelectedOutputFileName(*id), fname_length);
+}
+
+int
+GetSelectedOutputFileOnF(int *id)
+{
+	return ::GetSelectedOutputFileOn(*id);
+}
+
+/*
+GetSelectedOutputStringF
+*/
+
+int
+GetSelectedOutputStringLineCountF(int *id)
+{
+	return ::GetSelectedOutputStringLineCount(*id);
+}
+
+void
+GetSelectedOutputStringLineF(int *id, int* n, char* line, int* line_length)
+{
+	padfstring(line, ::GetSelectedOutputStringLine(*id, (*n) - 1), line_length);
+}
+
+int
+GetSelectedOutputStringOnF(int *id)
+{
+	return ::GetSelectedOutputStringOn(*id);
+}
+
+int
+GetSelectedOutputRowCountF(int *id)
+{
+	int rows = ::GetSelectedOutputRowCount(*id);
+	if (rows > 0)
+	{
+		rows -= 1;
+	}
+	return rows;
+}
+
+IPQ_RESULT
+GetSelectedOutputValueF(int *id, int *row, int *col, int *vtype, double* dvalue, char* svalue, int* svalue_length)
+{
+	IPQ_RESULT result;
+	VAR v;
+	VarInit(&v);
+	char buffer[100];
+
+	int adjcol = *col - 1;
+	result = ::GetSelectedOutputValue(*id, *row, adjcol, &v);
+
+	switch (v.type)
+	{
+	case TT_EMPTY:
+		*vtype = v.type;
+		break;
+	case TT_ERROR:
+		*vtype = v.type;
+		break;
+	case TT_LONG:
+		*vtype = TT_DOUBLE;
+		*dvalue = (double)v.lVal;
+		::snprintf(buffer, sizeof(buffer), "%ld", v.lVal);
+		padfstring(svalue, buffer, svalue_length);
+		break;
+	case TT_DOUBLE:
+		*vtype = v.type;
+		*dvalue = v.dVal;
+		::snprintf(buffer, sizeof(buffer), "%23.15e", v.dVal);
+		padfstring(svalue, buffer, svalue_length);
+		break;
+	case TT_STRING:
+		*vtype = v.type;
+		padfstring(svalue, v.sVal, svalue_length);
+		break;
+	default:
+		assert(0);
+	}
+	::VarClear(&v);
+	return result;
+}
+
+void
+GetVersionStringF(char* version, int* version_length)
+{
+	padfstring(version, ::GetVersionString(), version_length);
+}
+
+/*
+GetWarningStringF
+*/
+
+int
+GetWarningStringLineCountF(int *id)
+{
+	return ::GetWarningStringLineCount(*id);
+}
+
+void
+GetWarningStringLineF(int *id, int* n, char* line, int* line_length)
+{
+	padfstring(line, ::GetWarningStringLine(*id, (*n) - 1), line_length);
+}
+
+int
+LoadDatabaseF(int *id, char* filename)
+{
+	int n = ::LoadDatabase(*id, filename);
+	return n;
+}
+
+int
+LoadDatabaseStringF(int *id, char* input)
+{
+	int n = ::LoadDatabaseString(*id, input);
+	return n;
+}
+
+void
+OutputAccumulatedLinesF(int *id)
+{
+	::OutputAccumulatedLines(*id);
+}
+
+void
+OutputErrorStringF(int *id)
+{
+	::OutputErrorString(*id);
+}
+
+void
+OutputWarningStringF(int *id)
+{
+	::OutputWarningString(*id);
+}
+
+int
+RunAccumulatedF(int *id)
+{
+	return ::RunAccumulated(*id);
+}
+
+int
+RunFileF(int *id, char* filename)
+{
+	int n = ::RunFile(*id, filename);
+	return n;
+}
+
+int
+RunStringF(int *id, char* input)
+{
+	int n = ::RunString(*id, input);
+	return n;
+}
+#ifdef IPHREEQC_NO_FORTRAN_MODULE
+IPQ_RESULT
+SetBasicFortranCallbackF(int *id, double (*fcn)(double *x1, double *x2, const char *str, size_t l))
+{
+	return ::SetBasicFortranCallback(*id, fcn);
+}
+#else
+IPQ_RESULT
+SetBasicFortranCallbackF(int *id, double (*fcn)(double *x1, double *x2, const char *str, int l))
+{
+	return ::SetBasicFortranCallback(*id, fcn);
+}
+#endif
+
+IPQ_RESULT
+SetCurrentSelectedOutputUserNumberF(int *id, int *n)
+{
+	return ::SetCurrentSelectedOutputUserNumber(*id, *n);
+}
+
+IPQ_RESULT
+SetDumpFileNameF(int *id, char* fname)
+{
+	IPQ_RESULT n = ::SetDumpFileName(*id, fname);
+	return n;
+}
+
+IPQ_RESULT
+SetDumpFileOnF(int *id, int* dump_on)
+{
+	return ::SetDumpFileOn(*id, *dump_on);
+}
+
+IPQ_RESULT
+SetDumpStringOnF(int *id, int* dump_string_on)
+{
+	return ::SetDumpStringOn(*id, *dump_string_on);
+}
+
+IPQ_RESULT
+SetErrorFileNameF(int *id, char* fname)
+{
+	IPQ_RESULT n = ::SetErrorFileName(*id, fname);
+	return n;
+}
+
+IPQ_RESULT
+SetErrorFileOnF(int *id, int* error_file_on)
+{
+	return ::SetErrorFileOn(*id, *error_file_on);
+}
+
+IPQ_RESULT
+SetErrorOnF(int *id, int* error_on)
+{
+	return ::SetErrorOn(*id, *error_on);
+}
+
+IPQ_RESULT
+SetErrorStringOnF(int *id, int* error_string_on)
+{
+	return ::SetErrorStringOn(*id, *error_string_on);
+}
+
+IPQ_RESULT
+SetLogFileNameF(int *id, char* fname)
+{
+	IPQ_RESULT n = ::SetLogFileName(*id, fname);
+	return n;
+}
+
+IPQ_RESULT
+SetLogFileOnF(int *id, int* log_on)
+{
+	return ::SetLogFileOn(*id, *log_on);
+}
+
+IPQ_RESULT
+SetLogStringOnF(int *id, int* log_string_on)
+{
+	return ::SetLogStringOn(*id, *log_string_on);
+}
+
+IPQ_RESULT
+SetOutputFileNameF(int *id, char* fname)
+{
+	IPQ_RESULT n = ::SetOutputFileName(*id, fname);
+	return n;
+}
+
+IPQ_RESULT
+SetOutputFileOnF(int *id, int* output_on)
+{
+	return ::SetOutputFileOn(*id, *output_on);
+}
+
+IPQ_RESULT
+SetOutputStringOnF(int *id, int* output_string_on)
+{
+	return ::SetOutputStringOn(*id, *output_string_on);
+}
+
+IPQ_RESULT
+SetSelectedOutputFileNameF(int *id, char* fname)
+{
+	IPQ_RESULT n = ::SetSelectedOutputFileName(*id, fname);
+	return n;
+}
+
+IPQ_RESULT
+SetSelectedOutputFileOnF(int *id, int* sel_on)
+{
+	return ::SetSelectedOutputFileOn(*id, *sel_on);
+}
+
+IPQ_RESULT
+SetSelectedOutputStringOnF(int *id, int* selected_output_string_on)
+{
+	return ::SetSelectedOutputStringOn(*id, *selected_output_string_on);
+}
+#endif

pyEQL/phreeqc/ext/iphreeqc-3.8.6-17100/src/IPhreeqc_interface_F.h

@@ -0,0 +1,162 @@
+#ifndef __IPHREEQC_INTERFACE__H
+#define __IPHREEQC_INTERFACE__H
+
+#include "PHRQ_exports.h"
+
+#ifdef SKIP
+#if defined(FC_FUNC)
+#define AccumulateLineF                     FC_FUNC (accumulatelinef,                     ACCUMULATELINEF)
+#define AddErrorF                           FC_FUNC (adderrorf,                           ADDERRORF)
+#define AddWarningF                         FC_FUNC (addwarningf,                         ADDWARNINGF)
+#define ClearAccumulatedLinesF              FC_FUNC (clearaccumulatedlinesf,              CLEARACCUMULATEDLINESF)
+#define CreateIPhreeqcF                     FC_FUNC (createiphreeqcf,                     CREATEIPHREEQCF)
+#define DestroyIPhreeqcF                    FC_FUNC (destroyiphreeqcf,                    DESTROYIPHREEQCF)
+#define GetComponentF                       FC_FUNC (getcomponentf,                       GETCOMPONENTF)
+#define GetComponentCountF                  FC_FUNC (getcomponentcountf,                  GETCOMPONENTCOUNTF)
+#define GetCurrentSelectedOutputUserNumberF FC_FUNC (getcurrentselectedoutputusernumberf, GETCURRENTSELECTEDOUTPUTUSERNUMBERF)
+#define GetDumpFileNameF                    FC_FUNC (getdumpfilenamef,                    GETDUMPFILENAMEF)
+#define GetDumpFileOnF                      FC_FUNC (getdumpfileonf,                      GETDUMPFILEONF)
+#define GetDumpStringLineF                  FC_FUNC (getdumpstringlinef,                  GETDUMPSTRINGLINEF)
+#define GetDumpStringLineCountF             FC_FUNC (getdumpstringlinecountf,             GETDUMPSTRINGLINECOUNTF)
+#define GetDumpStringOnF                    FC_FUNC (getdumpstringonf,                    GETDUMPSTRINGONF)
+#define GetErrorFileNameF                   FC_FUNC (geterrorfilenamef,                   GETERRORFILENAMEF)
+#define GetErrorFileOnF                     FC_FUNC (geterrorfileonf,                     GETERRORFILEONF)
+#define GetErrorOnF                         FC_FUNC (geterroronf,                         GETERRORONF)
+#define GetErrorStringLineF                 FC_FUNC (geterrorstringlinef,                 GETERRORSTRINGLINEF)
+#define GetErrorStringLineCountF            FC_FUNC (geterrorstringlinecountf,            GETERRORSTRINGLINECOUNTF)
+#define GetErrorStringOnF                   FC_FUNC (geterrorstringonf,                   GETERRORSTRINGONF)
+#define GetLogFileNameF                     FC_FUNC (getlogfilenamef,                     GETLOGFILENAMEF)
+#define GetLogFileOnF                       FC_FUNC (getlogfileonf,                       GETLOGFILEONF)
+#define GetLogStringLineF                   FC_FUNC (getlogstringlinef,                   GETLOGSTRINGLINEF)
+#define GetLogStringLineCountF              FC_FUNC (getlogstringlinecountf,              GETLOGSTRINGLINECOUNTF)
+#define GetLogStringOnF                     FC_FUNC (getlogstringonf,                     GETLOGSTRINGONF)
+#define GetNthSelectedOutputUserNumberF     FC_FUNC (getnthselectedoutputusernumberf,     GETNTHSELECTEDOUTPUTUSERNUMBERF)
+#define GetOutputFileNameF                  FC_FUNC (getoutputfilenamef,                  GETOUTPUTFILENAMEF)
+#define GetOutputFileOnF                    FC_FUNC (getoutputfileonf,                    GETOUTPUTFILEONF)
+#define GetOutputStringLineF                FC_FUNC (getoutputstringlinef,                GETOUTPUTSTRINGLINEF)
+#define GetOutputStringLineCountF           FC_FUNC (getoutputstringlinecountf,           GETOUTPUTSTRINGLINECOUNTF)
+#define GetOutputStringOnF                  FC_FUNC (getoutputstringonf,                  GETOUTPUTSTRINGONF)
+#define GetSelectedOutputColumnCountF       FC_FUNC (getselectedoutputcolumncountf,       GETSELECTEDOUTPUTCOLUMNCOUNTF)
+#define GetSelectedOutputCountF             FC_FUNC (getselectedoutputcountf,             GETSELECTEDOUTPUTCOUNTF)
+#define GetSelectedOutputFileNameF          FC_FUNC (getselectedoutputfilenamef,          GETSELECTEDOUTPUTFILENAMEF)
+#define GetSelectedOutputFileOnF            FC_FUNC (getselectedoutputfileonf,            GETSELECTEDOUTPUTFILEONF)
+#define GetSelectedOutputRowCountF          FC_FUNC (getselectedoutputrowcountf,          GETSELECTEDOUTPUTROWCOUNTF)
+#define GetSelectedOutputStringLineF        FC_FUNC (getselectedoutputstringlinef,        GETSELECTEDOUTPUTSTRINGLINEF)
+#define GetSelectedOutputStringLineCountF   FC_FUNC (getselectedoutputstringlinecountf,   GETSELECTEDOUTPUTSTRINGLINECOUNTF)
+#define GetSelectedOutputStringOnF          FC_FUNC (getselectedoutputstringonf,          GETSELECTEDOUTPUTSTRINGONF)
+#define GetSelectedOutputValueF             FC_FUNC (getselectedoutputvaluef,             GETSELECTEDOUTPUTVALUEF)
+#define GetVersionStringF                   FC_FUNC (getversionstringf,                   GETVERSIONSTRINGF)
+#define GetWarningStringLineF               FC_FUNC (getwarningstringlinef,               GETWARNINGSTRINGLINEF)
+#define GetWarningStringLineCountF          FC_FUNC (getwarningstringlinecountf,          GETWARNINGSTRINGLINECOUNTF)
+#define LoadDatabaseF                       FC_FUNC (loaddatabasef,                       LOADDATABASEF)
+#define LoadDatabaseStringF                 FC_FUNC (loaddatabasestringf,                 LOADDATABASESTRINGF)
+#define OutputAccumulatedLinesF             FC_FUNC (outputaccumulatedlinesf,             OUTPUTACCUMULATEDLINESF)
+#define OutputErrorStringF                  FC_FUNC (outputerrorstringf,                  OUTPUTERRORSTRINGF)
+#define OutputWarningStringF                FC_FUNC (outputwarningstringf,                OUTPUTWARNINGSTRINGF)
+#define RunAccumulatedF                     FC_FUNC (runaccumulatedf,                     RUNACCUMULATEDF)
+#define RunFileF                            FC_FUNC (runfilef,                            RUNFILEF)
+#define RunStringF                          FC_FUNC (runstringf,                          RUNSTRINGF)
+#define SetBasicFortranCallbackF            FC_FUNC (setbasicfortrancallbackf,            SETFOTRANBASICCALLBACKF)
+#define SetCurrentSelectedOutputUserNumberF FC_FUNC (setcurrentselectedoutputusernumberf, SETCURRENTSELECTEDOUTPUTUSERNUMBERF)
+#define SetDumpFileNameF                    FC_FUNC (setdumpfilenamef,                    SETDUMPFILENAMEF)
+#define SetDumpFileOnF                      FC_FUNC (setdumpfileonf,                      SETDUMPFILEONF)
+#define SetDumpStringOnF                    FC_FUNC (setdumpstringonf,                    SETDUMPSTRINGONF)
+#define SetErrorFileNameF                   FC_FUNC (seterrorfilenamef,                   SETERRORFILENAMEF)
+#define SetErrorFileOnF                     FC_FUNC (seterrorfileonf,                     SETERRORFILEONF)
+#define SetErrorOnF                         FC_FUNC (seterroronf,                         SETERRORONF)
+#define SetErrorStringOnF                   FC_FUNC (seterrorstringonf,                   SETERRORSTRINGONF)
+#define SetLogFileNameF                     FC_FUNC (setlogfilenamef,                     SETLOGFILENAMEF)
+#define SetLogFileOnF                       FC_FUNC (setlogfileonf,                       SETLOGFILEONF)
+#define SetLogStringOnF                     FC_FUNC (setlogstringonf,                     SETLOGSTRINGONF)
+#define SetOutputFileNameF                  FC_FUNC (setoutputfilenamef,                  SETOUTPUTFILENAMEF)
+#define SetOutputFileOnF                    FC_FUNC (setoutputfileonf,                    SETOUTPUTFILEONF)
+#define SetOutputStringOnF                  FC_FUNC (setoutputstringonf,                  SETOUTPUTSTRINGONF)
+#define SetSelectedOutputFileNameF          FC_FUNC (setselectedoutputfilenamef,          SETSELECTEDOUTPUTFILENAMEF)
+#define SetSelectedOutputFileOnF            FC_FUNC (setselectedoutputfileonf,            SETSELECTEDOUTPUTFILEONF)
+#define SetSelectedOutputStringOnF          FC_FUNC (setselectedoutputstringonf,          SETSELECTEDOUTPUTSTRINGONF)
+#endif /* FC_FUNC */
+#endif
+
+#if defined(__cplusplus)
+extern "C" {
+#endif
+
+  IPQ_DLL_EXPORT IPQ_RESULT AccumulateLineF(int *id, char *line);
+  IPQ_DLL_EXPORT int        AddErrorF(int *id, char *error_msg);
+  IPQ_DLL_EXPORT int        AddWarningF(int *id, char *warn_msg);
+  IPQ_DLL_EXPORT IPQ_RESULT ClearAccumulatedLinesF(int *id);
+  IPQ_DLL_EXPORT int        CreateIPhreeqcF(void);
+  IPQ_DLL_EXPORT int        DestroyIPhreeqcF(int *id);
+  IPQ_DLL_EXPORT void       GetComponentF(int *id, int* n, char* line, int* line_length);
+  IPQ_DLL_EXPORT int        GetComponentCountF(int *id);
+  IPQ_DLL_EXPORT int        GetCurrentSelectedOutputUserNumberF(int *id);
+  IPQ_DLL_EXPORT void       GetDumpFileNameF(int *id, char* filename, int* filename_length);
+  IPQ_DLL_EXPORT int        GetDumpFileOnF(int *id);
+  IPQ_DLL_EXPORT void       GetDumpStringLineF(int *id, int* n, char* line, int* line_length);
+  IPQ_DLL_EXPORT int        GetDumpStringLineCountF(int *id);
+  IPQ_DLL_EXPORT int        GetDumpStringOnF(int *id);
+  IPQ_DLL_EXPORT void       GetErrorFileNameF(int *id, char* filename, int* filename_length);
+  IPQ_DLL_EXPORT int        GetErrorFileOnF(int *id);
+  IPQ_DLL_EXPORT int        GetErrorOnF(int *id);
+  IPQ_DLL_EXPORT void       GetErrorStringLineF(int *id, int* n, char* line, int* line_length);
+  IPQ_DLL_EXPORT int        GetErrorStringLineCountF(int *id);
+  IPQ_DLL_EXPORT int        GetErrorStringOnF(int *id);
+  IPQ_DLL_EXPORT void       GetLogFileNameF(int *id, char* filename, int* filename_length);
+  IPQ_DLL_EXPORT int        GetLogFileOnF(int *id);
+  IPQ_DLL_EXPORT void       GetLogStringLineF(int *id, int* n, char* line, int* line_length);
+  IPQ_DLL_EXPORT int        GetLogStringLineCountF(int *id);
+  IPQ_DLL_EXPORT int        GetLogStringOnF(int *id);
+  IPQ_DLL_EXPORT int        GetNthSelectedOutputUserNumberF(int *id, int* n);
+  IPQ_DLL_EXPORT void       GetOutputFileNameF(int *id, char* filename, int* filename_length);
+  IPQ_DLL_EXPORT int        GetOutputFileOnF(int *id);
+  IPQ_DLL_EXPORT void       GetOutputStringLineF(int *id, int* n, char* line, int* line_length);
+  IPQ_DLL_EXPORT int        GetOutputStringLineCountF(int *id);
+  IPQ_DLL_EXPORT int        GetOutputStringOnF(int *id);
+  IPQ_DLL_EXPORT int        GetSelectedOutputColumnCountF(int *id);
+  IPQ_DLL_EXPORT int        GetSelectedOutputCountF(int *id);
+  IPQ_DLL_EXPORT void       GetSelectedOutputFileNameF(int *id, char* filename, int* filename_length);
+  IPQ_DLL_EXPORT int        GetSelectedOutputFileOnF(int *id);
+  IPQ_DLL_EXPORT int        GetSelectedOutputRowCountF(int *id);
+  IPQ_DLL_EXPORT void       GetSelectedOutputStringLineF(int *id, int* n, char* line, int* line_length);
+  IPQ_DLL_EXPORT int        GetSelectedOutputStringLineCountF(int *id);
+  IPQ_DLL_EXPORT int        GetSelectedOutputStringOnF(int *id);
+  IPQ_DLL_EXPORT IPQ_RESULT GetSelectedOutputValueF(int *id, int *row, int *col, int *vtype, double* dvalue, char* svalue, int* svalue_length);
+  IPQ_DLL_EXPORT void       GetVersionStringF(char* version, int* version_length);
+  IPQ_DLL_EXPORT void       GetWarningStringLineF(int *id, int* n, char* line, int* line_length);
+  IPQ_DLL_EXPORT int        GetWarningStringLineCountF(int *id);
+  IPQ_DLL_EXPORT int        LoadDatabaseF(int *id, char* filename);
+  IPQ_DLL_EXPORT int        LoadDatabaseStringF(int *id, char* input);
+  IPQ_DLL_EXPORT void       OutputAccumulatedLinesF(int *id);
+  IPQ_DLL_EXPORT void       OutputErrorStringF(int *id);
+  IPQ_DLL_EXPORT void       OutputWarningStringF(int *id);
+  IPQ_DLL_EXPORT int        RunAccumulatedF(int *id);
+  IPQ_DLL_EXPORT int        RunFileF(int *id, char* filename);
+  IPQ_DLL_EXPORT int        RunStringF(int *id, char* input);
+#ifdef IPHREEQC_NO_FORTRAN_MODULE
+  IPQ_DLL_EXPORT IPQ_RESULT SetBasicFortranCallbackF(int *id, double (*fcn)(double *x1, double *x2, const char *str, size_t l));
+#else
+  IPQ_DLL_EXPORT IPQ_RESULT SetBasicFortranCallbackF(int *id, double (*fcn)(double *x1, double *x2, const char *str, int l));
+#endif
+  IPQ_DLL_EXPORT IPQ_RESULT SetCurrentSelectedOutputUserNumberF(int *id, int *n);
+  IPQ_DLL_EXPORT IPQ_RESULT SetDumpFileNameF(int *id, char* fname);
+  IPQ_DLL_EXPORT IPQ_RESULT SetDumpFileOnF(int *id, int* dump_on);
+  IPQ_DLL_EXPORT IPQ_RESULT SetDumpStringOnF(int *id, int* dump_string_on);
+  IPQ_DLL_EXPORT IPQ_RESULT SetErrorFileNameF(int *id, char* fname);
+  IPQ_DLL_EXPORT IPQ_RESULT SetErrorFileOnF(int *id, int* error_file_on);
+  IPQ_DLL_EXPORT IPQ_RESULT SetErrorOnF(int *id, int* error_on);
+  IPQ_DLL_EXPORT IPQ_RESULT SetErrorStringOnF(int *id, int* error_string_on);
+  IPQ_DLL_EXPORT IPQ_RESULT SetLogFileNameF(int *id, char* fname);
+  IPQ_DLL_EXPORT IPQ_RESULT SetLogFileOnF(int *id, int* log_file_on);
+  IPQ_DLL_EXPORT IPQ_RESULT SetLogStringOnF(int *id, int* log_string_on);
+  IPQ_DLL_EXPORT IPQ_RESULT SetOutputFileNameF(int *id, char* fname);
+  IPQ_DLL_EXPORT IPQ_RESULT SetOutputFileOnF(int *id, int* output_on);
+  IPQ_DLL_EXPORT IPQ_RESULT SetOutputStringOnF(int *id, int* output_string_on);
+  IPQ_DLL_EXPORT IPQ_RESULT SetSelectedOutputFileNameF(int *id, char* fname);
+  IPQ_DLL_EXPORT IPQ_RESULT SetSelectedOutputFileOnF(int *id, int* selected_output_file_on);
+  IPQ_DLL_EXPORT IPQ_RESULT SetSelectedOutputStringOnF(int *id, int* selected_output_string_on);
+
+#if defined(__cplusplus)
+}
+#endif
+void padfstring(char *dest, const char *src, unsigned int len);
+#endif  /* __IPHREEQC_INTERFACE__H */