max/iphreeqc
1
0
Fork 0
mirror of https://git.gfz-potsdam.de/naaice/iphreeqc.git synced 2025-12-15 16:18:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

Added GETCOMPONENTCOUNT and GETCOMPONENT fortran routines

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/branches/class@4174 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2010-03-19 00:57:37 +00:00
parent 714570975e
commit 507f5dc891
4 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
fwrap.c
View File

@ -167,6 +167,18 @@ GetErrorLineF(int* n, char* line, unsigned int line_length)
padfstring(line, ::GetErrorLine((*n) - 1), line_length);
}
int
GetComponentCountF(void)
{
return ::GetComponentCount();
}
void
GetComponentF(int *n, char* line, unsigned int line_length)
{
padfstring(line, ::GetComponent((*n) - 1), line_length);
}
int
RunF(void)
{
@ -353,6 +365,14 @@ void __stdcall GETERRORLINE(int *n, char* line, unsigned int line_length)
{
GetErrorLineF(n, line, line_length);
}
int __stdcall GETCOMPONENTCOUNT(void)
{
return GetComponentCountF();
}
void __stdcall GETCOMPONENT(int *n, char* line, unsigned int line_length)
{
GetComponentF(n, line, line_length);
}
int __stdcall RUN(void)
{
return RunF();

4
fwrap.h
View File

@ -43,6 +43,10 @@ extern "C" {
void GetErrorLineF(int* n, char* line, unsigned int line_length);
int GetComponentCountF(void);
void GetComponentF(int* n, char* line, unsigned int line_length);
void OutputLastErrorF(void);
void OutputLinesF(void);

8
fwrap2.c
View File

@ -62,6 +62,14 @@ void GETERRORLINE(int *n, char* line, unsigned int line_length)
{
GetErrorLineF(n, line, line_length);
}
int GETCOMPONENTCOUNT(void)
{
return GetComponentCountF();
}
void GETCOMPONENT(int *n, char* line, unsigned int line_length)
{
GetComponentF(n, line, line_length);
}
int RUN(void)
{
return RunF();

8
fwrap3.c
View File

@ -62,6 +62,14 @@ void geterrorline_(int *n, char* line, unsigned int line_length)
{
GetErrorLineF(n, line, line_length);
}
int getcomponentcount_(void)
{
return GetComponentCountF();
}
void getcomponent_(int *n, char* line, unsigned int line_length)
{
GetComponentF(n, line, line_length);
}
int run_(void)
{
return RunF();