mirror of
https://git.gfz-potsdam.de/naaice/iphreeqc.git
synced 2025-12-15 16:18:22 +01:00
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/branches/ErrorHandling@5955 1feff8c3-07ed-0310-ac33-dd36852eb9cd
51 lines
990 B
C
51 lines
990 B
C
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <IPhreeqc.h>
|
|
|
|
#define TRUE 1
|
|
|
|
const char input[] =
|
|
"SOLUTION 1 Pure water \n"
|
|
"EQUILIBRIUM_PHASES 1 \n"
|
|
" Calcite 0 10 \n"
|
|
"SAVE solution 1 \n"
|
|
"SAVE equilibrium_phases 1 \n"
|
|
"DUMP \n"
|
|
" -solution 1 \n"
|
|
" -equilibrium_phases 1\n";
|
|
|
|
int main(void)
|
|
{
|
|
int id;
|
|
|
|
id = CreateIPhreeqc();
|
|
if (id < 0) {
|
|
return EXIT_FAILURE;
|
|
}
|
|
|
|
if (LoadDatabase(id, "phreeqc.dat") != 0) {
|
|
OutputErrorString(id);
|
|
return EXIT_FAILURE;
|
|
}
|
|
|
|
if (SetOutputStringOn(id, TRUE) != IPQ_OK) {
|
|
OutputErrorString(id);
|
|
return EXIT_FAILURE;
|
|
}
|
|
|
|
if (RunString(id, input) != 0) {
|
|
OutputErrorString(id);
|
|
return EXIT_FAILURE;
|
|
}
|
|
|
|
printf("Output:\n");
|
|
printf("%s\n", GetOutputString(id));
|
|
|
|
if (DestroyIPhreeqc(id) != IPQ_OK) {
|
|
OutputErrorString(id);
|
|
return EXIT_FAILURE;
|
|
}
|
|
|
|
return EXIT_SUCCESS;
|
|
}
|