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

working on swig callback

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/phreeqc3/trunk@10293 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2015-09-23 04:24:40 +00:00
parent 8f1eb25c3a
commit fbaeb7dcbd
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basicsubs.cpp
View File

@ -4033,6 +4033,7 @@ basic_free(void)
delete this->basic_interpreter;
}
#ifndef SWIG_DIRECTOR
#ifdef IPHREEQC_NO_FORTRAN_MODULE
double Phreeqc::
basic_callback(double x1, double x2, char * str)
@ -4079,3 +4080,14 @@ Phreeqc::register_fortran_basic_callback(double ( *fcn)(double *x1, double *x2,
this->basic_fortran_callback_ptr = fcn;
}
#endif
#else /* SWIG_DIRECTOR */
double Phreeqc::
basic_callback(double x1, double x2, const char * str)
{
return 2014.;
}
#endif /* SWIG_DIRECTOR */