/* File: _interfacemodule.c * This file is auto-generated with f2py (version:1.26.2). * f2py is a Fortran to Python Interface Generator (FPIG), Second Edition, * written by Pearu Peterson . * Generation date: Sun Nov 26 01:09:41 2023 * Do not edit this file directly unless you know what you are doing!!! */ #ifdef __cplusplus extern "C" { #endif #ifndef PY_SSIZE_T_CLEAN #define PY_SSIZE_T_CLEAN #endif /* PY_SSIZE_T_CLEAN */ /* Unconditionally included */ #include #include /*********************** See f2py2e/cfuncs.py: includes ***********************/ #include "fortranobject.h" #include /**************** See f2py2e/rules.py: mod_rules['modulebody'] ****************/ static PyObject *_interface_error; static PyObject *_interface_module; /*********************** See f2py2e/cfuncs.py: typedefs ***********************/ /*need_typedefs*/ #ifndef _LONG_DOUBLE typedef long double long_double; #endif typedef signed char signed_char; #if defined(NPY_OS_WIN32) typedef __int64 long_long; #else typedef long long long_long; typedef unsigned long long unsigned_long_long; #endif typedef struct {long double r,i;} complex_long_double; /****************** See f2py2e/cfuncs.py: typedefs_generated ******************/ /*need_typedefs_generated*/ /********************** See f2py2e/cfuncs.py: cppmacros **********************/ #if defined(PREPEND_FORTRAN) #if defined(NO_APPEND_FORTRAN) #if defined(UPPERCASE_FORTRAN) #define F_FUNC(f,F) _##F #else #define F_FUNC(f,F) _##f #endif #else #if defined(UPPERCASE_FORTRAN) #define F_FUNC(f,F) _##F##_ #else #define F_FUNC(f,F) _##f##_ #endif #endif #else #if defined(NO_APPEND_FORTRAN) #if defined(UPPERCASE_FORTRAN) #define F_FUNC(f,F) F #else #define F_FUNC(f,F) f #endif #else #if defined(UPPERCASE_FORTRAN) #define F_FUNC(f,F) F##_ #else #define F_FUNC(f,F) f##_ #endif #endif #endif #if defined(UNDERSCORE_G77) #define F_FUNC_US(f,F) F_FUNC(f##_,F##_) #else #define F_FUNC_US(f,F) F_FUNC(f,F) #endif #ifdef DEBUGCFUNCS #define CFUNCSMESS(mess) fprintf(stderr,"debug-capi:"mess); #define CFUNCSMESSPY(mess,obj) CFUNCSMESS(mess) \ PyObject_Print((PyObject *)obj,stderr,Py_PRINT_RAW);\ fprintf(stderr,"\n"); #else #define CFUNCSMESS(mess) #define CFUNCSMESSPY(mess,obj) #endif #ifndef max #define max(a,b) ((a > b) ? (a) : (b)) #endif #ifndef min #define min(a,b) ((a < b) ? (a) : (b)) #endif #ifndef MAX #define MAX(a,b) ((a > b) ? (a) : (b)) #endif #ifndef MIN #define MIN(a,b) ((a < b) ? (a) : (b)) #endif /* See fortranobject.h for definitions. The macros here are provided for BC. */ #define rank f2py_rank #define shape f2py_shape #define fshape f2py_shape #define len f2py_len #define flen f2py_flen #define slen f2py_slen #define size f2py_size #if defined(PREPEND_FORTRAN) #if defined(NO_APPEND_FORTRAN) #if defined(UPPERCASE_FORTRAN) #define F_WRAPPEDFUNC(f,F) _F2PYWRAP##F #else #define F_WRAPPEDFUNC(f,F) _f2pywrap##f #endif #else #if defined(UPPERCASE_FORTRAN) #define F_WRAPPEDFUNC(f,F) _F2PYWRAP##F##_ #else #define F_WRAPPEDFUNC(f,F) _f2pywrap##f##_ #endif #endif #else #if defined(NO_APPEND_FORTRAN) #if defined(UPPERCASE_FORTRAN) #define F_WRAPPEDFUNC(f,F) F2PYWRAP##F #else #define F_WRAPPEDFUNC(f,F) f2pywrap##f #endif #else #if defined(UPPERCASE_FORTRAN) #define F_WRAPPEDFUNC(f,F) F2PYWRAP##F##_ #else #define F_WRAPPEDFUNC(f,F) f2pywrap##f##_ #endif #endif #endif #if defined(UNDERSCORE_G77) #define F_WRAPPEDFUNC_US(f,F) F_WRAPPEDFUNC(f##_,F##_) #else #define F_WRAPPEDFUNC_US(f,F) F_WRAPPEDFUNC(f,F) #endif /************************ See f2py2e/cfuncs.py: cfuncs ************************/ static int long_from_pyobj(long* v, PyObject *obj, const char *errmess) { PyObject* tmp = NULL; if (PyLong_Check(obj)) { *v = PyLong_AsLong(obj); return !(*v == -1 && PyErr_Occurred()); } tmp = PyNumber_Long(obj); if (tmp) { *v = PyLong_AsLong(tmp); Py_DECREF(tmp); return !(*v == -1 && PyErr_Occurred()); } if (PyComplex_Check(obj)) { PyErr_Clear(); tmp = PyObject_GetAttrString(obj,"real"); } else if (PyBytes_Check(obj) || PyUnicode_Check(obj)) { /*pass*/; } else if (PySequence_Check(obj)) { PyErr_Clear(); tmp = PySequence_GetItem(obj, 0); } if (tmp) { if (long_from_pyobj(v, tmp, errmess)) { Py_DECREF(tmp); return 1; } Py_DECREF(tmp); } { PyObject* err = PyErr_Occurred(); if (err == NULL) { err = _interface_error; } PyErr_SetString(err, errmess); } return 0; } static int double_from_pyobj(double* v, PyObject *obj, const char *errmess) { PyObject* tmp = NULL; if (PyFloat_Check(obj)) { *v = PyFloat_AsDouble(obj); return !(*v == -1.0 && PyErr_Occurred()); } tmp = PyNumber_Float(obj); if (tmp) { *v = PyFloat_AsDouble(tmp); Py_DECREF(tmp); return !(*v == -1.0 && PyErr_Occurred()); } if (PyComplex_Check(obj)) { PyErr_Clear(); tmp = PyObject_GetAttrString(obj,"real"); } else if (PyBytes_Check(obj) || PyUnicode_Check(obj)) { /*pass*/; } else if (PySequence_Check(obj)) { PyErr_Clear(); tmp = PySequence_GetItem(obj, 0); } if (tmp) { if (double_from_pyobj(v,tmp,errmess)) {Py_DECREF(tmp); return 1;} Py_DECREF(tmp); } { PyObject* err = PyErr_Occurred(); if (err==NULL) err = _interface_error; PyErr_SetString(err,errmess); } return 0; } static int int_from_pyobj(int* v, PyObject *obj, const char *errmess) { PyObject* tmp = NULL; if (PyLong_Check(obj)) { *v = Npy__PyLong_AsInt(obj); return !(*v == -1 && PyErr_Occurred()); } tmp = PyNumber_Long(obj); if (tmp) { *v = Npy__PyLong_AsInt(tmp); Py_DECREF(tmp); return !(*v == -1 && PyErr_Occurred()); } if (PyComplex_Check(obj)) { PyErr_Clear(); tmp = PyObject_GetAttrString(obj,"real"); } else if (PyBytes_Check(obj) || PyUnicode_Check(obj)) { /*pass*/; } else if (PySequence_Check(obj)) { PyErr_Clear(); tmp = PySequence_GetItem(obj, 0); } if (tmp) { if (int_from_pyobj(v, tmp, errmess)) { Py_DECREF(tmp); return 1; } Py_DECREF(tmp); } { PyObject* err = PyErr_Occurred(); if (err == NULL) { err = _interface_error; } PyErr_SetString(err, errmess); } return 0; } /********************* See f2py2e/cfuncs.py: userincludes *********************/ /*need_userincludes*/ /********************* See f2py2e/capi_rules.py: usercode *********************/ /* See f2py2e/rules.py */ extern void F_FUNC_US(set_verbose_,SET_VERBOSE_)(long*); extern void F_FUNC_US(get_verbose_,GET_VERBOSE_)(long*); extern void F_FUNC_US(get_status_,GET_STATUS_)(long*,long*); extern void F_FUNC_US(reset_status_,RESET_STATUS_)(void); extern void F_WRAPPEDFUNC_US(set_interact_,SET_INTERACT_)(double*,int*,int*); extern void F_FUNC_US(get_interact_size_,GET_INTERACT_SIZE_)(long*); extern void F_FUNC_US(get_interact_,GET_INTERACT_)(double*,long*); extern void F_FUNC_US(reset_interact_,RESET_INTERACT_)(void); extern void F_WRAPPEDFUNC_US(set_cutoff_,SET_CUTOFF_)(double*,int*); extern void F_FUNC_US(get_cutoff_size_,GET_CUTOFF_SIZE_)(long*); extern void F_FUNC_US(get_cutoff_,GET_CUTOFF_)(double*,long*); extern void F_FUNC_US(reset_cutoff_,RESET_CUTOFF_)(void); extern void F_FUNC_US(set_epslim_,SET_EPSLIM_)(double*); extern void F_FUNC_US(get_epslim_,GET_EPSLIM_)(double*); extern void F_FUNC_US(reset_epslim_,RESET_EPSLIM_)(void); extern void F_FUNC_US(set_omegalim_,SET_OMEGALIM_)(double*); extern void F_FUNC_US(get_omegalim_,GET_OMEGALIM_)(double*); extern void F_FUNC_US(reset_omegalim_,RESET_OMEGALIM_)(void); extern void F_FUNC_US(set_toffset_,SET_TOFFSET_)(double*); extern void F_WRAPPEDFUNC_US(add_stardata_,ADD_STARDATA_)(double*,double*,long*,int*,int*); extern void F_FUNC_US(get_stardata_id_,GET_STARDATA_ID_)(long*); extern void F_FUNC_US(set_stardata_id_,SET_STARDATA_ID_)(long*); extern void F_FUNC_US(clear_stardata_,CLEAR_STARDATA_)(void); extern void F_FUNC_US(n_stardata_,N_STARDATA_)(int*); extern void F_FUNC_US(direct_,DIRECT_)(double*,double*,double*,int*); extern void F_FUNC_US(secular_,SECULAR_)(double*,double*,double*,int*); extern void F_FUNC_US(direct3h_,DIRECT3H_)(double*,double*,double*,int*); extern void F_FUNC_US(direct3f_,DIRECT3F_)(double*,double*,double*,int*); extern void F_FUNC_US(direct4p_,DIRECT4P_)(double*,double*,double*,int*); extern void F_FUNC_US(direct4h_,DIRECT4H_)(double*,double*,double*,int*); extern void F_FUNC_US(direct4f_,DIRECT4F_)(double*,double*,double*,int*); extern void F_FUNC_US(huntpol_,HUNTPOL_)(double*,double*,int*,double*,int*,double*); extern void F_FUNC_US(star_huntpol_,STAR_HUNTPOL_)(double*,int*,int*,double*); extern void F_FUNC_US(step_driver_,STEP_DRIVER_)(double*,double*,double*,long*,long*,double*,double*,double*,double*,double*,long*,double*,double*,long*,double*,long*,long*,long*,long*,long*); extern void F_FUNC_US(dynamic_driver_,DYNAMIC_DRIVER_)(double*,double*,double*,long*,long*,double*,double*,double*,double*,double*,double*,long*,long*,double*,long*,long*,long*,long*,long*,long*); extern void F_FUNC_US(dynamic_get_size_,DYNAMIC_GET_SIZE_)(long*,long*,long*); extern void F_FUNC_US(dynamic_get_data_,DYNAMIC_GET_DATA_)(double*,double*,long*,long*); extern void F_FUNC_US(get_star_data_,GET_STAR_DATA_)(double*,double*,int*,int*,int*); extern void F_FUNC_US(get_deriv_data_,GET_DERIV_DATA_)(double*,double*,double*,int*,int*,int*,int*); extern void F_FUNC_US(set_deriv_flags_,SET_DERIV_FLAGS_)(long*,long*); extern void F_FUNC_US(get_deriv_flags_,GET_DERIV_FLAGS_)(long*); /*eof externroutines*/ /******************** See f2py2e/capi_rules.py: usercode1 ********************/ /******************* See f2py2e/cb_rules.py: buildcallback *******************/ /*need_callbacks*/ /*********************** See f2py2e/rules.py: buildapi ***********************/ /******************************** set_verbose_ ********************************/ static char doc_f2py_rout__interface_set_verbose_[] = "\ set_verbose_(verbose)\n\nWrapper for ``set_verbose_``.\ \n\nParameters\n----------\n" "verbose : input int"; /* extern void F_FUNC_US(set_verbose_,SET_VERBOSE_)(long*); */ static PyObject *f2py_rout__interface_set_verbose_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(long*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ long verbose = 0; PyObject *verbose_capi = Py_None; static char *capi_kwlist[] = {"verbose",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "O|:_interface.set_verbose_",\ capi_kwlist,&verbose_capi)) return NULL; /*frompyobj*/ /* Processing variable verbose */ f2py_success = long_from_pyobj(&verbose,verbose_capi,"_interface.set_verbose_() 1st argument (verbose) can't be converted to long"); if (f2py_success) { /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&verbose); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue(""); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ } /*if (f2py_success) of verbose*/ /* End of cleaning variable verbose */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /**************************** end of set_verbose_ ****************************/ /******************************** get_verbose_ ********************************/ static char doc_f2py_rout__interface_get_verbose_[] = "\ verbose = get_verbose_()\n\nWrapper for ``get_verbose_``.\ \n\nReturns\n-------\n" "verbose : int"; /* extern void F_FUNC_US(get_verbose_,GET_VERBOSE_)(long*); */ static PyObject *f2py_rout__interface_get_verbose_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(long*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ long verbose = 0; static char *capi_kwlist[] = {NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "|:_interface.get_verbose_",\ capi_kwlist)) return NULL; /*frompyobj*/ /* Processing variable verbose */ /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&verbose); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("l",verbose); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ /* End of cleaning variable verbose */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /**************************** end of get_verbose_ ****************************/ /******************************** get_status_ ********************************/ static char doc_f2py_rout__interface_get_status_[] = "\ status,status_stars = get_status_()\n\nWrapper for ``get_status_``.\ \n\nReturns\n-------\n" "status : int\n" "status_stars : rank-1 array('l') with bounds (2)"; /* extern void F_FUNC_US(get_status_,GET_STATUS_)(long*,long*); */ static PyObject *f2py_rout__interface_get_status_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(long*,long*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ long status = 0; long *status_stars = NULL; npy_intp status_stars_Dims[1] = {-1}; const int status_stars_Rank = 1; PyArrayObject *capi_status_stars_as_array = NULL; int capi_status_stars_intent = 0; static char *capi_kwlist[] = {NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "|:_interface.get_status_",\ capi_kwlist)) return NULL; /*frompyobj*/ /* Processing variable status */ /* Processing variable status_stars */ status_stars_Dims[0]=2; capi_status_stars_intent |= F2PY_INTENT_OUT|F2PY_INTENT_HIDE; const char * capi_errmess = "_interface._interface.get_status_: failed to create array from the hidden `status_stars`"; capi_status_stars_as_array = ndarray_from_pyobj( NPY_LONG,1,status_stars_Dims,status_stars_Rank, capi_status_stars_intent,Py_None,capi_errmess); if (capi_status_stars_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { status_stars = (long *)(PyArray_DATA(capi_status_stars_as_array)); /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&status,status_stars); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("lN",status,capi_status_stars_as_array); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ } /* if (capi_status_stars_as_array == NULL) ... else of status_stars */ /* End of cleaning variable status_stars */ /* End of cleaning variable status */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /***************************** end of get_status_ *****************************/ /******************************* reset_status_ *******************************/ static char doc_f2py_rout__interface_reset_status_[] = "\ reset_status_()\n\nWrapper for ``reset_status_``.\ \n"; /* extern void F_FUNC_US(reset_status_,RESET_STATUS_)(void); */ static PyObject *f2py_rout__interface_reset_status_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(void)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ static char *capi_kwlist[] = {NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "|:_interface.reset_status_",\ capi_kwlist)) return NULL; /*frompyobj*/ /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue(""); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /**************************** end of reset_status_ ****************************/ /******************************* set_interact_ *******************************/ static char doc_f2py_rout__interface_set_interact_[] = "\ set_interact_(interact)\n\nWrapper for ``set_interact_``.\ \n\nParameters\n----------\n" "interact : input rank-2 array('d') with bounds (f2py_interact_d0,f2py_interact_d1)"; /* extern void F_WRAPPEDFUNC_US(set_interact_,SET_INTERACT_)(double*,int*,int*); */ static PyObject *f2py_rout__interface_set_interact_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*,int*,int*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double *interact = NULL; npy_intp interact_Dims[2] = {-1, -1}; const int interact_Rank = 2; PyArrayObject *capi_interact_as_array = NULL; int capi_interact_intent = 0; PyObject *interact_capi = Py_None; int f2py_interact_d0 = 0; int f2py_interact_d1 = 0; static char *capi_kwlist[] = {"interact",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "O|:_interface.set_interact_",\ capi_kwlist,&interact_capi)) return NULL; /*frompyobj*/ /* Processing variable interact */ ; capi_interact_intent |= F2PY_INTENT_IN; const char * capi_errmess = "_interface._interface.set_interact_: failed to create array from the 1st argument `interact`"; capi_interact_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,interact_Dims,interact_Rank, capi_interact_intent,interact_capi,capi_errmess); if (capi_interact_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { interact = (double *)(PyArray_DATA(capi_interact_as_array)); /* Processing variable f2py_interact_d0 */ f2py_interact_d0 = shape(interact, 0); /* Processing variable f2py_interact_d1 */ f2py_interact_d1 = shape(interact, 1); /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(interact,&f2py_interact_d0,&f2py_interact_d1); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue(""); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ /* End of cleaning variable f2py_interact_d1 */ /* End of cleaning variable f2py_interact_d0 */ if((PyObject *)capi_interact_as_array!=interact_capi) { Py_XDECREF(capi_interact_as_array); } } /* if (capi_interact_as_array == NULL) ... else of interact */ /* End of cleaning variable interact */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /**************************** end of set_interact_ ****************************/ /***************************** get_interact_size_ *****************************/ static char doc_f2py_rout__interface_get_interact_size_[] = "\ n = get_interact_size_()\n\nWrapper for ``get_interact_size_``.\ \n\nReturns\n-------\n" "n : int"; /* extern void F_FUNC_US(get_interact_size_,GET_INTERACT_SIZE_)(long*); */ static PyObject *f2py_rout__interface_get_interact_size_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(long*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ long n = 0; static char *capi_kwlist[] = {NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "|:_interface.get_interact_size_",\ capi_kwlist)) return NULL; /*frompyobj*/ /* Processing variable n */ /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&n); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("l",n); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ /* End of cleaning variable n */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /************************* end of get_interact_size_ *************************/ /******************************* get_interact_ *******************************/ static char doc_f2py_rout__interface_get_interact_[] = "\ interact = get_interact_(n)\n\nWrapper for ``get_interact_``.\ \n\nParameters\n----------\n" "n : input int\n" "\nReturns\n-------\n" "interact : rank-2 array('d') with bounds (n,n)"; /* extern void F_FUNC_US(get_interact_,GET_INTERACT_)(double*,long*); */ static PyObject *f2py_rout__interface_get_interact_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*,long*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double *interact = NULL; npy_intp interact_Dims[2] = {-1, -1}; const int interact_Rank = 2; PyArrayObject *capi_interact_as_array = NULL; int capi_interact_intent = 0; long n = 0; PyObject *n_capi = Py_None; static char *capi_kwlist[] = {"n",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "O|:_interface.get_interact_",\ capi_kwlist,&n_capi)) return NULL; /*frompyobj*/ /* Processing variable n */ f2py_success = long_from_pyobj(&n,n_capi,"_interface.get_interact_() 1st argument (n) can't be converted to long"); if (f2py_success) { /* Processing variable interact */ interact_Dims[0]=n,interact_Dims[1]=n; capi_interact_intent |= F2PY_INTENT_OUT|F2PY_INTENT_HIDE; const char * capi_errmess = "_interface._interface.get_interact_: failed to create array from the hidden `interact`"; capi_interact_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,interact_Dims,interact_Rank, capi_interact_intent,Py_None,capi_errmess); if (capi_interact_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { interact = (double *)(PyArray_DATA(capi_interact_as_array)); /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(interact,&n); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("N",capi_interact_as_array); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ } /* if (capi_interact_as_array == NULL) ... else of interact */ /* End of cleaning variable interact */ } /*if (f2py_success) of n*/ /* End of cleaning variable n */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /**************************** end of get_interact_ ****************************/ /****************************** reset_interact_ ******************************/ static char doc_f2py_rout__interface_reset_interact_[] = "\ reset_interact_()\n\nWrapper for ``reset_interact_``.\ \n"; /* extern void F_FUNC_US(reset_interact_,RESET_INTERACT_)(void); */ static PyObject *f2py_rout__interface_reset_interact_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(void)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ static char *capi_kwlist[] = {NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "|:_interface.reset_interact_",\ capi_kwlist)) return NULL; /*frompyobj*/ /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue(""); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /*************************** end of reset_interact_ ***************************/ /******************************** set_cutoff_ ********************************/ static char doc_f2py_rout__interface_set_cutoff_[] = "\ set_cutoff_(cutoff)\n\nWrapper for ``set_cutoff_``.\ \n\nParameters\n----------\n" "cutoff : input rank-1 array('d') with bounds (f2py_cutoff_d0)"; /* extern void F_WRAPPEDFUNC_US(set_cutoff_,SET_CUTOFF_)(double*,int*); */ static PyObject *f2py_rout__interface_set_cutoff_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*,int*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double *cutoff = NULL; npy_intp cutoff_Dims[1] = {-1}; const int cutoff_Rank = 1; PyArrayObject *capi_cutoff_as_array = NULL; int capi_cutoff_intent = 0; PyObject *cutoff_capi = Py_None; int f2py_cutoff_d0 = 0; static char *capi_kwlist[] = {"cutoff",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "O|:_interface.set_cutoff_",\ capi_kwlist,&cutoff_capi)) return NULL; /*frompyobj*/ /* Processing variable cutoff */ ; capi_cutoff_intent |= F2PY_INTENT_IN; const char * capi_errmess = "_interface._interface.set_cutoff_: failed to create array from the 1st argument `cutoff`"; capi_cutoff_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,cutoff_Dims,cutoff_Rank, capi_cutoff_intent,cutoff_capi,capi_errmess); if (capi_cutoff_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { cutoff = (double *)(PyArray_DATA(capi_cutoff_as_array)); /* Processing variable f2py_cutoff_d0 */ f2py_cutoff_d0 = shape(cutoff, 0); /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(cutoff,&f2py_cutoff_d0); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue(""); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ /* End of cleaning variable f2py_cutoff_d0 */ if((PyObject *)capi_cutoff_as_array!=cutoff_capi) { Py_XDECREF(capi_cutoff_as_array); } } /* if (capi_cutoff_as_array == NULL) ... else of cutoff */ /* End of cleaning variable cutoff */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /***************************** end of set_cutoff_ *****************************/ /****************************** get_cutoff_size_ ******************************/ static char doc_f2py_rout__interface_get_cutoff_size_[] = "\ n = get_cutoff_size_()\n\nWrapper for ``get_cutoff_size_``.\ \n\nReturns\n-------\n" "n : int"; /* extern void F_FUNC_US(get_cutoff_size_,GET_CUTOFF_SIZE_)(long*); */ static PyObject *f2py_rout__interface_get_cutoff_size_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(long*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ long n = 0; static char *capi_kwlist[] = {NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "|:_interface.get_cutoff_size_",\ capi_kwlist)) return NULL; /*frompyobj*/ /* Processing variable n */ /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&n); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("l",n); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ /* End of cleaning variable n */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /************************** end of get_cutoff_size_ **************************/ /******************************** get_cutoff_ ********************************/ static char doc_f2py_rout__interface_get_cutoff_[] = "\ cutoff = get_cutoff_(n)\n\nWrapper for ``get_cutoff_``.\ \n\nParameters\n----------\n" "n : input int\n" "\nReturns\n-------\n" "cutoff : rank-1 array('d') with bounds (n)"; /* extern void F_FUNC_US(get_cutoff_,GET_CUTOFF_)(double*,long*); */ static PyObject *f2py_rout__interface_get_cutoff_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*,long*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double *cutoff = NULL; npy_intp cutoff_Dims[1] = {-1}; const int cutoff_Rank = 1; PyArrayObject *capi_cutoff_as_array = NULL; int capi_cutoff_intent = 0; long n = 0; PyObject *n_capi = Py_None; static char *capi_kwlist[] = {"n",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "O|:_interface.get_cutoff_",\ capi_kwlist,&n_capi)) return NULL; /*frompyobj*/ /* Processing variable n */ f2py_success = long_from_pyobj(&n,n_capi,"_interface.get_cutoff_() 1st argument (n) can't be converted to long"); if (f2py_success) { /* Processing variable cutoff */ cutoff_Dims[0]=n; capi_cutoff_intent |= F2PY_INTENT_OUT|F2PY_INTENT_HIDE; const char * capi_errmess = "_interface._interface.get_cutoff_: failed to create array from the hidden `cutoff`"; capi_cutoff_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,cutoff_Dims,cutoff_Rank, capi_cutoff_intent,Py_None,capi_errmess); if (capi_cutoff_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { cutoff = (double *)(PyArray_DATA(capi_cutoff_as_array)); /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(cutoff,&n); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("N",capi_cutoff_as_array); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ } /* if (capi_cutoff_as_array == NULL) ... else of cutoff */ /* End of cleaning variable cutoff */ } /*if (f2py_success) of n*/ /* End of cleaning variable n */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /***************************** end of get_cutoff_ *****************************/ /******************************* reset_cutoff_ *******************************/ static char doc_f2py_rout__interface_reset_cutoff_[] = "\ reset_cutoff_()\n\nWrapper for ``reset_cutoff_``.\ \n"; /* extern void F_FUNC_US(reset_cutoff_,RESET_CUTOFF_)(void); */ static PyObject *f2py_rout__interface_reset_cutoff_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(void)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ static char *capi_kwlist[] = {NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "|:_interface.reset_cutoff_",\ capi_kwlist)) return NULL; /*frompyobj*/ /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue(""); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /**************************** end of reset_cutoff_ ****************************/ /******************************** set_epslim_ ********************************/ static char doc_f2py_rout__interface_set_epslim_[] = "\ set_epslim_(val)\n\nWrapper for ``set_epslim_``.\ \n\nParameters\n----------\n" "val : input float"; /* extern void F_FUNC_US(set_epslim_,SET_EPSLIM_)(double*); */ static PyObject *f2py_rout__interface_set_epslim_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double val = 0; PyObject *val_capi = Py_None; static char *capi_kwlist[] = {"val",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "O|:_interface.set_epslim_",\ capi_kwlist,&val_capi)) return NULL; /*frompyobj*/ /* Processing variable val */ f2py_success = double_from_pyobj(&val,val_capi,"_interface.set_epslim_() 1st argument (val) can't be converted to double"); if (f2py_success) { /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&val); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue(""); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ } /*if (f2py_success) of val*/ /* End of cleaning variable val */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /***************************** end of set_epslim_ *****************************/ /******************************** get_epslim_ ********************************/ static char doc_f2py_rout__interface_get_epslim_[] = "\ val = get_epslim_()\n\nWrapper for ``get_epslim_``.\ \n\nReturns\n-------\n" "val : float"; /* extern void F_FUNC_US(get_epslim_,GET_EPSLIM_)(double*); */ static PyObject *f2py_rout__interface_get_epslim_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double val = 0; static char *capi_kwlist[] = {NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "|:_interface.get_epslim_",\ capi_kwlist)) return NULL; /*frompyobj*/ /* Processing variable val */ /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&val); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("d",val); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ /* End of cleaning variable val */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /***************************** end of get_epslim_ *****************************/ /******************************* reset_epslim_ *******************************/ static char doc_f2py_rout__interface_reset_epslim_[] = "\ reset_epslim_()\n\nWrapper for ``reset_epslim_``.\ \n"; /* extern void F_FUNC_US(reset_epslim_,RESET_EPSLIM_)(void); */ static PyObject *f2py_rout__interface_reset_epslim_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(void)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ static char *capi_kwlist[] = {NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "|:_interface.reset_epslim_",\ capi_kwlist)) return NULL; /*frompyobj*/ /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue(""); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /**************************** end of reset_epslim_ ****************************/ /******************************* set_omegalim_ *******************************/ static char doc_f2py_rout__interface_set_omegalim_[] = "\ set_omegalim_(val)\n\nWrapper for ``set_omegalim_``.\ \n\nParameters\n----------\n" "val : input float"; /* extern void F_FUNC_US(set_omegalim_,SET_OMEGALIM_)(double*); */ static PyObject *f2py_rout__interface_set_omegalim_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double val = 0; PyObject *val_capi = Py_None; static char *capi_kwlist[] = {"val",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "O|:_interface.set_omegalim_",\ capi_kwlist,&val_capi)) return NULL; /*frompyobj*/ /* Processing variable val */ f2py_success = double_from_pyobj(&val,val_capi,"_interface.set_omegalim_() 1st argument (val) can't be converted to double"); if (f2py_success) { /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&val); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue(""); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ } /*if (f2py_success) of val*/ /* End of cleaning variable val */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /**************************** end of set_omegalim_ ****************************/ /******************************* get_omegalim_ *******************************/ static char doc_f2py_rout__interface_get_omegalim_[] = "\ val = get_omegalim_()\n\nWrapper for ``get_omegalim_``.\ \n\nReturns\n-------\n" "val : float"; /* extern void F_FUNC_US(get_omegalim_,GET_OMEGALIM_)(double*); */ static PyObject *f2py_rout__interface_get_omegalim_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double val = 0; static char *capi_kwlist[] = {NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "|:_interface.get_omegalim_",\ capi_kwlist)) return NULL; /*frompyobj*/ /* Processing variable val */ /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&val); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("d",val); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ /* End of cleaning variable val */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /**************************** end of get_omegalim_ ****************************/ /****************************** reset_omegalim_ ******************************/ static char doc_f2py_rout__interface_reset_omegalim_[] = "\ reset_omegalim_()\n\nWrapper for ``reset_omegalim_``.\ \n"; /* extern void F_FUNC_US(reset_omegalim_,RESET_OMEGALIM_)(void); */ static PyObject *f2py_rout__interface_reset_omegalim_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(void)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ static char *capi_kwlist[] = {NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "|:_interface.reset_omegalim_",\ capi_kwlist)) return NULL; /*frompyobj*/ /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue(""); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /*************************** end of reset_omegalim_ ***************************/ /******************************** set_toffset_ ********************************/ static char doc_f2py_rout__interface_set_toffset_[] = "\ set_toffset_(toffset)\n\nWrapper for ``set_toffset_``.\ \n\nParameters\n----------\n" "toffset : input float"; /* extern void F_FUNC_US(set_toffset_,SET_TOFFSET_)(double*); */ static PyObject *f2py_rout__interface_set_toffset_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double toffset = 0; PyObject *toffset_capi = Py_None; static char *capi_kwlist[] = {"toffset",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "O|:_interface.set_toffset_",\ capi_kwlist,&toffset_capi)) return NULL; /*frompyobj*/ /* Processing variable toffset */ f2py_success = double_from_pyobj(&toffset,toffset_capi,"_interface.set_toffset_() 1st argument (toffset) can't be converted to double"); if (f2py_success) { /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&toffset); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue(""); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ } /*if (f2py_success) of toffset*/ /* End of cleaning variable toffset */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /**************************** end of set_toffset_ ****************************/ /******************************* add_stardata_ *******************************/ static char doc_f2py_rout__interface_add_stardata_[] = "\ id = add_stardata_(data,t0)\n\nWrapper for ``add_stardata_``.\ \n\nParameters\n----------\n" "data : input rank-2 array('d') with bounds (f2py_data_d0,f2py_data_d1)\n" "t0 : input float\n" "\nReturns\n-------\n" "id : int"; /* extern void F_WRAPPEDFUNC_US(add_stardata_,ADD_STARDATA_)(double*,double*,long*,int*,int*); */ static PyObject *f2py_rout__interface_add_stardata_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*,double*,long*,int*,int*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double *data = NULL; npy_intp data_Dims[2] = {-1, -1}; const int data_Rank = 2; PyArrayObject *capi_data_as_array = NULL; int capi_data_intent = 0; PyObject *data_capi = Py_None; double t0 = 0; PyObject *t0_capi = Py_None; long id = 0; int f2py_data_d0 = 0; int f2py_data_d1 = 0; static char *capi_kwlist[] = {"data","t0",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "OO|:_interface.add_stardata_",\ capi_kwlist,&data_capi,&t0_capi)) return NULL; /*frompyobj*/ /* Processing variable data */ ; capi_data_intent |= F2PY_INTENT_IN; const char * capi_errmess = "_interface._interface.add_stardata_: failed to create array from the 1st argument `data`"; capi_data_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,data_Dims,data_Rank, capi_data_intent,data_capi,capi_errmess); if (capi_data_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { data = (double *)(PyArray_DATA(capi_data_as_array)); /* Processing variable t0 */ f2py_success = double_from_pyobj(&t0,t0_capi,"_interface.add_stardata_() 2nd argument (t0) can't be converted to double"); if (f2py_success) { /* Processing variable id */ /* Processing variable f2py_data_d0 */ f2py_data_d0 = shape(data, 0); /* Processing variable f2py_data_d1 */ f2py_data_d1 = shape(data, 1); /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(data,&t0,&id,&f2py_data_d0,&f2py_data_d1); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("l",id); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ /* End of cleaning variable f2py_data_d1 */ /* End of cleaning variable f2py_data_d0 */ /* End of cleaning variable id */ } /*if (f2py_success) of t0*/ /* End of cleaning variable t0 */ if((PyObject *)capi_data_as_array!=data_capi) { Py_XDECREF(capi_data_as_array); } } /* if (capi_data_as_array == NULL) ... else of data */ /* End of cleaning variable data */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /**************************** end of add_stardata_ ****************************/ /****************************** get_stardata_id_ ******************************/ static char doc_f2py_rout__interface_get_stardata_id_[] = "\ id = get_stardata_id_()\n\nWrapper for ``get_stardata_id_``.\ \n\nReturns\n-------\n" "id : int"; /* extern void F_FUNC_US(get_stardata_id_,GET_STARDATA_ID_)(long*); */ static PyObject *f2py_rout__interface_get_stardata_id_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(long*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ long id = 0; static char *capi_kwlist[] = {NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "|:_interface.get_stardata_id_",\ capi_kwlist)) return NULL; /*frompyobj*/ /* Processing variable id */ /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&id); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("l",id); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ /* End of cleaning variable id */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /************************** end of get_stardata_id_ **************************/ /****************************** set_stardata_id_ ******************************/ static char doc_f2py_rout__interface_set_stardata_id_[] = "\ set_stardata_id_(id)\n\nWrapper for ``set_stardata_id_``.\ \n\nParameters\n----------\n" "id : input int"; /* extern void F_FUNC_US(set_stardata_id_,SET_STARDATA_ID_)(long*); */ static PyObject *f2py_rout__interface_set_stardata_id_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(long*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ long id = 0; PyObject *id_capi = Py_None; static char *capi_kwlist[] = {"id",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "O|:_interface.set_stardata_id_",\ capi_kwlist,&id_capi)) return NULL; /*frompyobj*/ /* Processing variable id */ f2py_success = long_from_pyobj(&id,id_capi,"_interface.set_stardata_id_() 1st argument (id) can't be converted to long"); if (f2py_success) { /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&id); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue(""); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ } /*if (f2py_success) of id*/ /* End of cleaning variable id */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /************************** end of set_stardata_id_ **************************/ /****************************** clear_stardata_ ******************************/ static char doc_f2py_rout__interface_clear_stardata_[] = "\ clear_stardata_()\n\nWrapper for ``clear_stardata_``.\ \n"; /* extern void F_FUNC_US(clear_stardata_,CLEAR_STARDATA_)(void); */ static PyObject *f2py_rout__interface_clear_stardata_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(void)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ static char *capi_kwlist[] = {NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "|:_interface.clear_stardata_",\ capi_kwlist)) return NULL; /*frompyobj*/ /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue(""); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /*************************** end of clear_stardata_ ***************************/ /******************************** n_stardata_ ********************************/ static char doc_f2py_rout__interface_n_stardata_[] = "\ count = n_stardata_()\n\nWrapper for ``n_stardata_``.\ \n\nReturns\n-------\n" "count : int"; /* extern void F_FUNC_US(n_stardata_,N_STARDATA_)(int*); */ static PyObject *f2py_rout__interface_n_stardata_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(int*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ int count = 0; static char *capi_kwlist[] = {NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "|:_interface.n_stardata_",\ capi_kwlist)) return NULL; /*frompyobj*/ /* Processing variable count */ /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&count); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("i",count); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ /* End of cleaning variable count */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /***************************** end of n_stardata_ *****************************/ /********************************** direct_ **********************************/ static char doc_f2py_rout__interface_direct_[] = "\ yp = direct_(t_,y)\n\nWrapper for ``direct_``.\ \n\nParameters\n----------\n" "t_ : input float\n" "y : input rank-1 array('d') with bounds (ny_)\n" "\nReturns\n-------\n" "yp : rank-1 array('d') with bounds (ny_)"; /* extern void F_FUNC_US(direct_,DIRECT_)(double*,double*,double*,int*); */ static PyObject *f2py_rout__interface_direct_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*,double*,double*,int*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double t_ = 0; PyObject *t__capi = Py_None; double *y = NULL; npy_intp y_Dims[1] = {-1}; const int y_Rank = 1; PyArrayObject *capi_y_as_array = NULL; int capi_y_intent = 0; PyObject *y_capi = Py_None; double *yp = NULL; npy_intp yp_Dims[1] = {-1}; const int yp_Rank = 1; PyArrayObject *capi_yp_as_array = NULL; int capi_yp_intent = 0; int ny_ = 0; static char *capi_kwlist[] = {"t_","y",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "OO|:_interface.direct_",\ capi_kwlist,&t__capi,&y_capi)) return NULL; /*frompyobj*/ /* Processing variable t_ */ f2py_success = double_from_pyobj(&t_,t__capi,"_interface.direct_() 1st argument (t_) can't be converted to double"); if (f2py_success) { /* Processing variable y */ ; capi_y_intent |= F2PY_INTENT_IN; const char * capi_errmess = "_interface._interface.direct_: failed to create array from the 2nd argument `y`"; capi_y_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,y_Dims,y_Rank, capi_y_intent,y_capi,capi_errmess); if (capi_y_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { y = (double *)(PyArray_DATA(capi_y_as_array)); /* Processing variable ny_ */ ny_ = shape(y, 0); /* Processing variable yp */ yp_Dims[0]=ny_; capi_yp_intent |= F2PY_INTENT_OUT|F2PY_INTENT_HIDE; const char * capi_errmess = "_interface._interface.direct_: failed to create array from the hidden `yp`"; capi_yp_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,yp_Dims,yp_Rank, capi_yp_intent,Py_None,capi_errmess); if (capi_yp_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { yp = (double *)(PyArray_DATA(capi_yp_as_array)); /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&t_,y,yp,&ny_); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("N",capi_yp_as_array); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ } /* if (capi_yp_as_array == NULL) ... else of yp */ /* End of cleaning variable yp */ /* End of cleaning variable ny_ */ if((PyObject *)capi_y_as_array!=y_capi) { Py_XDECREF(capi_y_as_array); } } /* if (capi_y_as_array == NULL) ... else of y */ /* End of cleaning variable y */ } /*if (f2py_success) of t_*/ /* End of cleaning variable t_ */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /******************************* end of direct_ *******************************/ /********************************** secular_ **********************************/ static char doc_f2py_rout__interface_secular_[] = "\ yp = secular_(trel,y)\n\nWrapper for ``secular_``.\ \n\nParameters\n----------\n" "trel : input float\n" "y : input rank-1 array('d') with bounds (ny_)\n" "\nReturns\n-------\n" "yp : rank-1 array('d') with bounds (ny_)"; /* extern void F_FUNC_US(secular_,SECULAR_)(double*,double*,double*,int*); */ static PyObject *f2py_rout__interface_secular_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*,double*,double*,int*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double trel = 0; PyObject *trel_capi = Py_None; double *y = NULL; npy_intp y_Dims[1] = {-1}; const int y_Rank = 1; PyArrayObject *capi_y_as_array = NULL; int capi_y_intent = 0; PyObject *y_capi = Py_None; double *yp = NULL; npy_intp yp_Dims[1] = {-1}; const int yp_Rank = 1; PyArrayObject *capi_yp_as_array = NULL; int capi_yp_intent = 0; int ny_ = 0; static char *capi_kwlist[] = {"trel","y",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "OO|:_interface.secular_",\ capi_kwlist,&trel_capi,&y_capi)) return NULL; /*frompyobj*/ /* Processing variable trel */ f2py_success = double_from_pyobj(&trel,trel_capi,"_interface.secular_() 1st argument (trel) can't be converted to double"); if (f2py_success) { /* Processing variable y */ ; capi_y_intent |= F2PY_INTENT_IN; const char * capi_errmess = "_interface._interface.secular_: failed to create array from the 2nd argument `y`"; capi_y_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,y_Dims,y_Rank, capi_y_intent,y_capi,capi_errmess); if (capi_y_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { y = (double *)(PyArray_DATA(capi_y_as_array)); /* Processing variable ny_ */ ny_ = shape(y, 0); /* Processing variable yp */ yp_Dims[0]=ny_; capi_yp_intent |= F2PY_INTENT_OUT|F2PY_INTENT_HIDE; const char * capi_errmess = "_interface._interface.secular_: failed to create array from the hidden `yp`"; capi_yp_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,yp_Dims,yp_Rank, capi_yp_intent,Py_None,capi_errmess); if (capi_yp_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { yp = (double *)(PyArray_DATA(capi_yp_as_array)); /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&trel,y,yp,&ny_); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("N",capi_yp_as_array); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ } /* if (capi_yp_as_array == NULL) ... else of yp */ /* End of cleaning variable yp */ /* End of cleaning variable ny_ */ if((PyObject *)capi_y_as_array!=y_capi) { Py_XDECREF(capi_y_as_array); } } /* if (capi_y_as_array == NULL) ... else of y */ /* End of cleaning variable y */ } /*if (f2py_success) of trel*/ /* End of cleaning variable trel */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /****************************** end of secular_ ******************************/ /********************************* direct3h_ *********************************/ static char doc_f2py_rout__interface_direct3h_[] = "\ yp = direct3h_(t_,y)\n\nWrapper for ``direct3h_``.\ \n\nParameters\n----------\n" "t_ : input float\n" "y : input rank-1 array('d') with bounds (ny_)\n" "\nReturns\n-------\n" "yp : rank-1 array('d') with bounds (ny_)"; /* extern void F_FUNC_US(direct3h_,DIRECT3H_)(double*,double*,double*,int*); */ static PyObject *f2py_rout__interface_direct3h_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*,double*,double*,int*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double t_ = 0; PyObject *t__capi = Py_None; double *y = NULL; npy_intp y_Dims[1] = {-1}; const int y_Rank = 1; PyArrayObject *capi_y_as_array = NULL; int capi_y_intent = 0; PyObject *y_capi = Py_None; double *yp = NULL; npy_intp yp_Dims[1] = {-1}; const int yp_Rank = 1; PyArrayObject *capi_yp_as_array = NULL; int capi_yp_intent = 0; int ny_ = 0; static char *capi_kwlist[] = {"t_","y",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "OO|:_interface.direct3h_",\ capi_kwlist,&t__capi,&y_capi)) return NULL; /*frompyobj*/ /* Processing variable t_ */ f2py_success = double_from_pyobj(&t_,t__capi,"_interface.direct3h_() 1st argument (t_) can't be converted to double"); if (f2py_success) { /* Processing variable y */ ; capi_y_intent |= F2PY_INTENT_IN; const char * capi_errmess = "_interface._interface.direct3h_: failed to create array from the 2nd argument `y`"; capi_y_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,y_Dims,y_Rank, capi_y_intent,y_capi,capi_errmess); if (capi_y_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { y = (double *)(PyArray_DATA(capi_y_as_array)); /* Processing variable ny_ */ ny_ = shape(y, 0); /* Processing variable yp */ yp_Dims[0]=ny_; capi_yp_intent |= F2PY_INTENT_OUT|F2PY_INTENT_HIDE; const char * capi_errmess = "_interface._interface.direct3h_: failed to create array from the hidden `yp`"; capi_yp_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,yp_Dims,yp_Rank, capi_yp_intent,Py_None,capi_errmess); if (capi_yp_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { yp = (double *)(PyArray_DATA(capi_yp_as_array)); /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&t_,y,yp,&ny_); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("N",capi_yp_as_array); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ } /* if (capi_yp_as_array == NULL) ... else of yp */ /* End of cleaning variable yp */ /* End of cleaning variable ny_ */ if((PyObject *)capi_y_as_array!=y_capi) { Py_XDECREF(capi_y_as_array); } } /* if (capi_y_as_array == NULL) ... else of y */ /* End of cleaning variable y */ } /*if (f2py_success) of t_*/ /* End of cleaning variable t_ */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /****************************** end of direct3h_ ******************************/ /********************************* direct3f_ *********************************/ static char doc_f2py_rout__interface_direct3f_[] = "\ yp = direct3f_(t_,y)\n\nWrapper for ``direct3f_``.\ \n\nParameters\n----------\n" "t_ : input float\n" "y : input rank-1 array('d') with bounds (ny_)\n" "\nReturns\n-------\n" "yp : rank-1 array('d') with bounds (ny_)"; /* extern void F_FUNC_US(direct3f_,DIRECT3F_)(double*,double*,double*,int*); */ static PyObject *f2py_rout__interface_direct3f_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*,double*,double*,int*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double t_ = 0; PyObject *t__capi = Py_None; double *y = NULL; npy_intp y_Dims[1] = {-1}; const int y_Rank = 1; PyArrayObject *capi_y_as_array = NULL; int capi_y_intent = 0; PyObject *y_capi = Py_None; double *yp = NULL; npy_intp yp_Dims[1] = {-1}; const int yp_Rank = 1; PyArrayObject *capi_yp_as_array = NULL; int capi_yp_intent = 0; int ny_ = 0; static char *capi_kwlist[] = {"t_","y",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "OO|:_interface.direct3f_",\ capi_kwlist,&t__capi,&y_capi)) return NULL; /*frompyobj*/ /* Processing variable t_ */ f2py_success = double_from_pyobj(&t_,t__capi,"_interface.direct3f_() 1st argument (t_) can't be converted to double"); if (f2py_success) { /* Processing variable y */ ; capi_y_intent |= F2PY_INTENT_IN; const char * capi_errmess = "_interface._interface.direct3f_: failed to create array from the 2nd argument `y`"; capi_y_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,y_Dims,y_Rank, capi_y_intent,y_capi,capi_errmess); if (capi_y_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { y = (double *)(PyArray_DATA(capi_y_as_array)); /* Processing variable ny_ */ ny_ = shape(y, 0); /* Processing variable yp */ yp_Dims[0]=ny_; capi_yp_intent |= F2PY_INTENT_OUT|F2PY_INTENT_HIDE; const char * capi_errmess = "_interface._interface.direct3f_: failed to create array from the hidden `yp`"; capi_yp_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,yp_Dims,yp_Rank, capi_yp_intent,Py_None,capi_errmess); if (capi_yp_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { yp = (double *)(PyArray_DATA(capi_yp_as_array)); /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&t_,y,yp,&ny_); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("N",capi_yp_as_array); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ } /* if (capi_yp_as_array == NULL) ... else of yp */ /* End of cleaning variable yp */ /* End of cleaning variable ny_ */ if((PyObject *)capi_y_as_array!=y_capi) { Py_XDECREF(capi_y_as_array); } } /* if (capi_y_as_array == NULL) ... else of y */ /* End of cleaning variable y */ } /*if (f2py_success) of t_*/ /* End of cleaning variable t_ */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /****************************** end of direct3f_ ******************************/ /********************************* direct4p_ *********************************/ static char doc_f2py_rout__interface_direct4p_[] = "\ yp = direct4p_(t_,y)\n\nWrapper for ``direct4p_``.\ \n\nParameters\n----------\n" "t_ : input float\n" "y : input rank-1 array('d') with bounds (ny_)\n" "\nReturns\n-------\n" "yp : rank-1 array('d') with bounds (ny_)"; /* extern void F_FUNC_US(direct4p_,DIRECT4P_)(double*,double*,double*,int*); */ static PyObject *f2py_rout__interface_direct4p_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*,double*,double*,int*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double t_ = 0; PyObject *t__capi = Py_None; double *y = NULL; npy_intp y_Dims[1] = {-1}; const int y_Rank = 1; PyArrayObject *capi_y_as_array = NULL; int capi_y_intent = 0; PyObject *y_capi = Py_None; double *yp = NULL; npy_intp yp_Dims[1] = {-1}; const int yp_Rank = 1; PyArrayObject *capi_yp_as_array = NULL; int capi_yp_intent = 0; int ny_ = 0; static char *capi_kwlist[] = {"t_","y",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "OO|:_interface.direct4p_",\ capi_kwlist,&t__capi,&y_capi)) return NULL; /*frompyobj*/ /* Processing variable t_ */ f2py_success = double_from_pyobj(&t_,t__capi,"_interface.direct4p_() 1st argument (t_) can't be converted to double"); if (f2py_success) { /* Processing variable y */ ; capi_y_intent |= F2PY_INTENT_IN; const char * capi_errmess = "_interface._interface.direct4p_: failed to create array from the 2nd argument `y`"; capi_y_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,y_Dims,y_Rank, capi_y_intent,y_capi,capi_errmess); if (capi_y_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { y = (double *)(PyArray_DATA(capi_y_as_array)); /* Processing variable ny_ */ ny_ = shape(y, 0); /* Processing variable yp */ yp_Dims[0]=ny_; capi_yp_intent |= F2PY_INTENT_OUT|F2PY_INTENT_HIDE; const char * capi_errmess = "_interface._interface.direct4p_: failed to create array from the hidden `yp`"; capi_yp_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,yp_Dims,yp_Rank, capi_yp_intent,Py_None,capi_errmess); if (capi_yp_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { yp = (double *)(PyArray_DATA(capi_yp_as_array)); /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&t_,y,yp,&ny_); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("N",capi_yp_as_array); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ } /* if (capi_yp_as_array == NULL) ... else of yp */ /* End of cleaning variable yp */ /* End of cleaning variable ny_ */ if((PyObject *)capi_y_as_array!=y_capi) { Py_XDECREF(capi_y_as_array); } } /* if (capi_y_as_array == NULL) ... else of y */ /* End of cleaning variable y */ } /*if (f2py_success) of t_*/ /* End of cleaning variable t_ */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /****************************** end of direct4p_ ******************************/ /********************************* direct4h_ *********************************/ static char doc_f2py_rout__interface_direct4h_[] = "\ yp = direct4h_(t_,y)\n\nWrapper for ``direct4h_``.\ \n\nParameters\n----------\n" "t_ : input float\n" "y : input rank-1 array('d') with bounds (ny_)\n" "\nReturns\n-------\n" "yp : rank-1 array('d') with bounds (ny_)"; /* extern void F_FUNC_US(direct4h_,DIRECT4H_)(double*,double*,double*,int*); */ static PyObject *f2py_rout__interface_direct4h_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*,double*,double*,int*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double t_ = 0; PyObject *t__capi = Py_None; double *y = NULL; npy_intp y_Dims[1] = {-1}; const int y_Rank = 1; PyArrayObject *capi_y_as_array = NULL; int capi_y_intent = 0; PyObject *y_capi = Py_None; double *yp = NULL; npy_intp yp_Dims[1] = {-1}; const int yp_Rank = 1; PyArrayObject *capi_yp_as_array = NULL; int capi_yp_intent = 0; int ny_ = 0; static char *capi_kwlist[] = {"t_","y",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "OO|:_interface.direct4h_",\ capi_kwlist,&t__capi,&y_capi)) return NULL; /*frompyobj*/ /* Processing variable t_ */ f2py_success = double_from_pyobj(&t_,t__capi,"_interface.direct4h_() 1st argument (t_) can't be converted to double"); if (f2py_success) { /* Processing variable y */ ; capi_y_intent |= F2PY_INTENT_IN; const char * capi_errmess = "_interface._interface.direct4h_: failed to create array from the 2nd argument `y`"; capi_y_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,y_Dims,y_Rank, capi_y_intent,y_capi,capi_errmess); if (capi_y_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { y = (double *)(PyArray_DATA(capi_y_as_array)); /* Processing variable ny_ */ ny_ = shape(y, 0); /* Processing variable yp */ yp_Dims[0]=ny_; capi_yp_intent |= F2PY_INTENT_OUT|F2PY_INTENT_HIDE; const char * capi_errmess = "_interface._interface.direct4h_: failed to create array from the hidden `yp`"; capi_yp_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,yp_Dims,yp_Rank, capi_yp_intent,Py_None,capi_errmess); if (capi_yp_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { yp = (double *)(PyArray_DATA(capi_yp_as_array)); /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&t_,y,yp,&ny_); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("N",capi_yp_as_array); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ } /* if (capi_yp_as_array == NULL) ... else of yp */ /* End of cleaning variable yp */ /* End of cleaning variable ny_ */ if((PyObject *)capi_y_as_array!=y_capi) { Py_XDECREF(capi_y_as_array); } } /* if (capi_y_as_array == NULL) ... else of y */ /* End of cleaning variable y */ } /*if (f2py_success) of t_*/ /* End of cleaning variable t_ */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /****************************** end of direct4h_ ******************************/ /********************************* direct4f_ *********************************/ static char doc_f2py_rout__interface_direct4f_[] = "\ yp = direct4f_(t_,y)\n\nWrapper for ``direct4f_``.\ \n\nParameters\n----------\n" "t_ : input float\n" "y : input rank-1 array('d') with bounds (ny_)\n" "\nReturns\n-------\n" "yp : rank-1 array('d') with bounds (ny_)"; /* extern void F_FUNC_US(direct4f_,DIRECT4F_)(double*,double*,double*,int*); */ static PyObject *f2py_rout__interface_direct4f_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*,double*,double*,int*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double t_ = 0; PyObject *t__capi = Py_None; double *y = NULL; npy_intp y_Dims[1] = {-1}; const int y_Rank = 1; PyArrayObject *capi_y_as_array = NULL; int capi_y_intent = 0; PyObject *y_capi = Py_None; double *yp = NULL; npy_intp yp_Dims[1] = {-1}; const int yp_Rank = 1; PyArrayObject *capi_yp_as_array = NULL; int capi_yp_intent = 0; int ny_ = 0; static char *capi_kwlist[] = {"t_","y",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "OO|:_interface.direct4f_",\ capi_kwlist,&t__capi,&y_capi)) return NULL; /*frompyobj*/ /* Processing variable t_ */ f2py_success = double_from_pyobj(&t_,t__capi,"_interface.direct4f_() 1st argument (t_) can't be converted to double"); if (f2py_success) { /* Processing variable y */ ; capi_y_intent |= F2PY_INTENT_IN; const char * capi_errmess = "_interface._interface.direct4f_: failed to create array from the 2nd argument `y`"; capi_y_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,y_Dims,y_Rank, capi_y_intent,y_capi,capi_errmess); if (capi_y_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { y = (double *)(PyArray_DATA(capi_y_as_array)); /* Processing variable ny_ */ ny_ = shape(y, 0); /* Processing variable yp */ yp_Dims[0]=ny_; capi_yp_intent |= F2PY_INTENT_OUT|F2PY_INTENT_HIDE; const char * capi_errmess = "_interface._interface.direct4f_: failed to create array from the hidden `yp`"; capi_yp_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,yp_Dims,yp_Rank, capi_yp_intent,Py_None,capi_errmess); if (capi_yp_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { yp = (double *)(PyArray_DATA(capi_yp_as_array)); /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&t_,y,yp,&ny_); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("N",capi_yp_as_array); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ } /* if (capi_yp_as_array == NULL) ... else of yp */ /* End of cleaning variable yp */ /* End of cleaning variable ny_ */ if((PyObject *)capi_y_as_array!=y_capi) { Py_XDECREF(capi_y_as_array); } } /* if (capi_y_as_array == NULL) ... else of y */ /* End of cleaning variable y */ } /*if (f2py_success) of t_*/ /* End of cleaning variable t_ */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /****************************** end of direct4f_ ******************************/ /********************************** huntpol_ **********************************/ static char doc_f2py_rout__interface_huntpol_[] = "\ val = huntpol_(t,tt,data)\n\nWrapper for ``huntpol_``.\ \n\nParameters\n----------\n" "t : input float\n" "tt : input rank-1 array('d') with bounds (nt)\n" "data : input rank-2 array('d') with bounds (nt,nv)\n" "\nReturns\n-------\n" "val : rank-1 array('d') with bounds (nv)"; /* extern void F_FUNC_US(huntpol_,HUNTPOL_)(double*,double*,int*,double*,int*,double*); */ static PyObject *f2py_rout__interface_huntpol_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*,double*,int*,double*,int*,double*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double t = 0; PyObject *t_capi = Py_None; double *tt = NULL; npy_intp tt_Dims[1] = {-1}; const int tt_Rank = 1; PyArrayObject *capi_tt_as_array = NULL; int capi_tt_intent = 0; PyObject *tt_capi = Py_None; int nt = 0; double *data = NULL; npy_intp data_Dims[2] = {-1, -1}; const int data_Rank = 2; PyArrayObject *capi_data_as_array = NULL; int capi_data_intent = 0; PyObject *data_capi = Py_None; int nv = 0; double *val = NULL; npy_intp val_Dims[1] = {-1}; const int val_Rank = 1; PyArrayObject *capi_val_as_array = NULL; int capi_val_intent = 0; static char *capi_kwlist[] = {"t","tt","data",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "OOO|:_interface.huntpol_",\ capi_kwlist,&t_capi,&tt_capi,&data_capi)) return NULL; /*frompyobj*/ /* Processing variable t */ f2py_success = double_from_pyobj(&t,t_capi,"_interface.huntpol_() 1st argument (t) can't be converted to double"); if (f2py_success) { /* Processing variable data */ ; capi_data_intent |= F2PY_INTENT_IN; const char * capi_errmess = "_interface._interface.huntpol_: failed to create array from the 3rd argument `data`"; capi_data_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,data_Dims,data_Rank, capi_data_intent,data_capi,capi_errmess); if (capi_data_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { data = (double *)(PyArray_DATA(capi_data_as_array)); /* Processing variable nt */ nt = shape(data, 0); /* Processing variable nv */ nv = shape(data, 1); /* Processing variable val */ val_Dims[0]=nv; capi_val_intent |= F2PY_INTENT_OUT|F2PY_INTENT_HIDE; const char * capi_errmess = "_interface._interface.huntpol_: failed to create array from the hidden `val`"; capi_val_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,val_Dims,val_Rank, capi_val_intent,Py_None,capi_errmess); if (capi_val_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { val = (double *)(PyArray_DATA(capi_val_as_array)); /* Processing variable tt */ tt_Dims[0]=nt; capi_tt_intent |= F2PY_INTENT_IN; const char * capi_errmess = "_interface._interface.huntpol_: failed to create array from the 2nd argument `tt`"; capi_tt_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,tt_Dims,tt_Rank, capi_tt_intent,tt_capi,capi_errmess); if (capi_tt_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { tt = (double *)(PyArray_DATA(capi_tt_as_array)); /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&t,tt,&nt,data,&nv,val); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("N",capi_val_as_array); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ if((PyObject *)capi_tt_as_array!=tt_capi) { Py_XDECREF(capi_tt_as_array); } } /* if (capi_tt_as_array == NULL) ... else of tt */ /* End of cleaning variable tt */ } /* if (capi_val_as_array == NULL) ... else of val */ /* End of cleaning variable val */ /* End of cleaning variable nv */ /* End of cleaning variable nt */ if((PyObject *)capi_data_as_array!=data_capi) { Py_XDECREF(capi_data_as_array); } } /* if (capi_data_as_array == NULL) ... else of data */ /* End of cleaning variable data */ } /*if (f2py_success) of t*/ /* End of cleaning variable t */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /****************************** end of huntpol_ ******************************/ /******************************* star_huntpol_ *******************************/ static char doc_f2py_rout__interface_star_huntpol_[] = "\ val = star_huntpol_(t,j,nv)\n\nWrapper for ``star_huntpol_``.\ \n\nParameters\n----------\n" "t : input float\n" "j : input int\n" "nv : input int\n" "\nReturns\n-------\n" "val : rank-1 array('d') with bounds (nv)"; /* extern void F_FUNC_US(star_huntpol_,STAR_HUNTPOL_)(double*,int*,int*,double*); */ static PyObject *f2py_rout__interface_star_huntpol_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*,int*,int*,double*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double t = 0; PyObject *t_capi = Py_None; int j = 0; PyObject *j_capi = Py_None; int nv = 0; PyObject *nv_capi = Py_None; double *val = NULL; npy_intp val_Dims[1] = {-1}; const int val_Rank = 1; PyArrayObject *capi_val_as_array = NULL; int capi_val_intent = 0; static char *capi_kwlist[] = {"t","j","nv",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "OOO|:_interface.star_huntpol_",\ capi_kwlist,&t_capi,&j_capi,&nv_capi)) return NULL; /*frompyobj*/ /* Processing variable t */ f2py_success = double_from_pyobj(&t,t_capi,"_interface.star_huntpol_() 1st argument (t) can't be converted to double"); if (f2py_success) { /* Processing variable j */ f2py_success = int_from_pyobj(&j,j_capi,"_interface.star_huntpol_() 2nd argument (j) can't be converted to int"); if (f2py_success) { /* Processing variable nv */ f2py_success = int_from_pyobj(&nv,nv_capi,"_interface.star_huntpol_() 3rd argument (nv) can't be converted to int"); if (f2py_success) { /* Processing variable val */ val_Dims[0]=nv; capi_val_intent |= F2PY_INTENT_OUT|F2PY_INTENT_HIDE; const char * capi_errmess = "_interface._interface.star_huntpol_: failed to create array from the hidden `val`"; capi_val_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,val_Dims,val_Rank, capi_val_intent,Py_None,capi_errmess); if (capi_val_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { val = (double *)(PyArray_DATA(capi_val_as_array)); /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&t,&j,&nv,val); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("N",capi_val_as_array); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ } /* if (capi_val_as_array == NULL) ... else of val */ /* End of cleaning variable val */ } /*if (f2py_success) of nv*/ /* End of cleaning variable nv */ } /*if (f2py_success) of j*/ /* End of cleaning variable j */ } /*if (f2py_success) of t*/ /* End of cleaning variable t */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /**************************** end of star_huntpol_ ****************************/ /******************************** step_driver_ ********************************/ static char doc_f2py_rout__interface_step_driver_[] = "\ tt,yy,hnew,neval,nloop,mstep,ierr = step_driver_(t0,y0,dt,nstep,nsave,dt0,dtmin,dtmax,yscale,eps,tmax,[mode])\n\nWrapper for ``step_driver_``.\ \n\nParameters\n----------\n" "t0 : input float\n" "y0 : input rank-1 array('d') with bounds (n_)\n" "dt : input float\n" "nstep : input int\n" "nsave : input int\n" "dt0 : input float\n" "dtmin : input float\n" "dtmax : input float\n" "yscale : input rank-1 array('d') with bounds (n_)\n" "eps : input float\n" "tmax : input int\n" "\nOther Parameters\n----------------\n" "mode : input int, optional\n Default: 1\n" "\nReturns\n-------\n" "tt : rank-1 array('d') with bounds (nsave)\n" "yy : rank-2 array('d') with bounds (n_,nsave)\n" "hnew : float\n" "neval : int\n" "nloop : int\n" "mstep : int\n" "ierr : int"; /* extern void F_FUNC_US(step_driver_,STEP_DRIVER_)(double*,double*,double*,long*,long*,double*,double*,double*,double*,double*,long*,double*,double*,long*,double*,long*,long*,long*,long*,long*); */ static PyObject *f2py_rout__interface_step_driver_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*,double*,double*,long*,long*,double*,double*,double*,double*,double*,long*,double*,double*,long*,double*,long*,long*,long*,long*,long*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double t0 = 0; PyObject *t0_capi = Py_None; double *y0 = NULL; npy_intp y0_Dims[1] = {-1}; const int y0_Rank = 1; PyArrayObject *capi_y0_as_array = NULL; int capi_y0_intent = 0; PyObject *y0_capi = Py_None; double dt = 0; PyObject *dt_capi = Py_None; long nstep = 0; PyObject *nstep_capi = Py_None; long nsave = 0; PyObject *nsave_capi = Py_None; double dt0 = 0; PyObject *dt0_capi = Py_None; double dtmin = 0; PyObject *dtmin_capi = Py_None; double dtmax = 0; PyObject *dtmax_capi = Py_None; double *yscale = NULL; npy_intp yscale_Dims[1] = {-1}; const int yscale_Rank = 1; PyArrayObject *capi_yscale_as_array = NULL; int capi_yscale_intent = 0; PyObject *yscale_capi = Py_None; double eps = 0; PyObject *eps_capi = Py_None; long tmax = 0; PyObject *tmax_capi = Py_None; double *tt = NULL; npy_intp tt_Dims[1] = {-1}; const int tt_Rank = 1; PyArrayObject *capi_tt_as_array = NULL; int capi_tt_intent = 0; double *yy = NULL; npy_intp yy_Dims[2] = {-1, -1}; const int yy_Rank = 2; PyArrayObject *capi_yy_as_array = NULL; int capi_yy_intent = 0; long n_ = 0; double hnew = 0; long neval = 0; long nloop = 0; long mstep = 0; long ierr = 0; long mode = 0; PyObject *mode_capi = Py_None; static char *capi_kwlist[] = {"t0","y0","dt","nstep","nsave","dt0","dtmin","dtmax","yscale","eps","tmax","mode",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "OOOOOOOOOOO|O:_interface.step_driver_",\ capi_kwlist,&t0_capi,&y0_capi,&dt_capi,&nstep_capi,&nsave_capi,&dt0_capi,&dtmin_capi,&dtmax_capi,&yscale_capi,&eps_capi,&tmax_capi,&mode_capi)) return NULL; /*frompyobj*/ /* Processing variable mode */ if (mode_capi == Py_None) mode = 1; else f2py_success = long_from_pyobj(&mode,mode_capi,"_interface.step_driver_() 1st keyword (mode) can't be converted to long"); if (f2py_success) { /* Processing variable t0 */ f2py_success = double_from_pyobj(&t0,t0_capi,"_interface.step_driver_() 1st argument (t0) can't be converted to double"); if (f2py_success) { /* Processing variable dt */ f2py_success = double_from_pyobj(&dt,dt_capi,"_interface.step_driver_() 3rd argument (dt) can't be converted to double"); if (f2py_success) { /* Processing variable dt0 */ f2py_success = double_from_pyobj(&dt0,dt0_capi,"_interface.step_driver_() 6th argument (dt0) can't be converted to double"); if (f2py_success) { /* Processing variable eps */ f2py_success = double_from_pyobj(&eps,eps_capi,"_interface.step_driver_() 10th argument (eps) can't be converted to double"); if (f2py_success) { /* Processing variable dtmin */ f2py_success = double_from_pyobj(&dtmin,dtmin_capi,"_interface.step_driver_() 7th argument (dtmin) can't be converted to double"); if (f2py_success) { /* Processing variable dtmax */ f2py_success = double_from_pyobj(&dtmax,dtmax_capi,"_interface.step_driver_() 8th argument (dtmax) can't be converted to double"); if (f2py_success) { /* Processing variable y0 */ ; capi_y0_intent |= F2PY_INTENT_IN; const char * capi_errmess = "_interface._interface.step_driver_: failed to create array from the 2nd argument `y0`"; capi_y0_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,y0_Dims,y0_Rank, capi_y0_intent,y0_capi,capi_errmess); if (capi_y0_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { y0 = (double *)(PyArray_DATA(capi_y0_as_array)); /* Processing variable nstep */ f2py_success = long_from_pyobj(&nstep,nstep_capi,"_interface.step_driver_() 4th argument (nstep) can't be converted to long"); if (f2py_success) { /* Processing variable nsave */ f2py_success = long_from_pyobj(&nsave,nsave_capi,"_interface.step_driver_() 5th argument (nsave) can't be converted to long"); if (f2py_success) { /* Processing variable tmax */ f2py_success = long_from_pyobj(&tmax,tmax_capi,"_interface.step_driver_() 11st argument (tmax) can't be converted to long"); if (f2py_success) { /* Processing variable ierr */ /* Processing variable neval */ /* Processing variable nloop */ /* Processing variable mstep */ /* Processing variable hnew */ /* Processing variable n_ */ n_ = shape(y0, 0); /* Processing variable yscale */ yscale_Dims[0]=n_; capi_yscale_intent |= F2PY_INTENT_IN; const char * capi_errmess = "_interface._interface.step_driver_: failed to create array from the 9th argument `yscale`"; capi_yscale_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,yscale_Dims,yscale_Rank, capi_yscale_intent,yscale_capi,capi_errmess); if (capi_yscale_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { yscale = (double *)(PyArray_DATA(capi_yscale_as_array)); /* Processing variable tt */ tt_Dims[0]=nsave; capi_tt_intent |= F2PY_INTENT_OUT|F2PY_INTENT_HIDE; const char * capi_errmess = "_interface._interface.step_driver_: failed to create array from the hidden `tt`"; capi_tt_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,tt_Dims,tt_Rank, capi_tt_intent,Py_None,capi_errmess); if (capi_tt_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { tt = (double *)(PyArray_DATA(capi_tt_as_array)); /* Processing variable yy */ yy_Dims[0]=n_,yy_Dims[1]=nsave; capi_yy_intent |= F2PY_INTENT_OUT|F2PY_INTENT_HIDE; const char * capi_errmess = "_interface._interface.step_driver_: failed to create array from the hidden `yy`"; capi_yy_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,yy_Dims,yy_Rank, capi_yy_intent,Py_None,capi_errmess); if (capi_yy_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { yy = (double *)(PyArray_DATA(capi_yy_as_array)); /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&t0,y0,&dt,&nstep,&nsave,&dt0,&dtmin,&dtmax,yscale,&eps,&tmax,tt,yy,&n_,&hnew,&neval,&nloop,&mstep,&ierr,&mode); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("NNdllll",capi_tt_as_array,capi_yy_as_array,hnew,neval,nloop,mstep,ierr); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ } /* if (capi_yy_as_array == NULL) ... else of yy */ /* End of cleaning variable yy */ } /* if (capi_tt_as_array == NULL) ... else of tt */ /* End of cleaning variable tt */ if((PyObject *)capi_yscale_as_array!=yscale_capi) { Py_XDECREF(capi_yscale_as_array); } } /* if (capi_yscale_as_array == NULL) ... else of yscale */ /* End of cleaning variable yscale */ /* End of cleaning variable n_ */ /* End of cleaning variable hnew */ /* End of cleaning variable mstep */ /* End of cleaning variable nloop */ /* End of cleaning variable neval */ /* End of cleaning variable ierr */ } /*if (f2py_success) of tmax*/ /* End of cleaning variable tmax */ } /*if (f2py_success) of nsave*/ /* End of cleaning variable nsave */ } /*if (f2py_success) of nstep*/ /* End of cleaning variable nstep */ if((PyObject *)capi_y0_as_array!=y0_capi) { Py_XDECREF(capi_y0_as_array); } } /* if (capi_y0_as_array == NULL) ... else of y0 */ /* End of cleaning variable y0 */ } /*if (f2py_success) of dtmax*/ /* End of cleaning variable dtmax */ } /*if (f2py_success) of dtmin*/ /* End of cleaning variable dtmin */ } /*if (f2py_success) of eps*/ /* End of cleaning variable eps */ } /*if (f2py_success) of dt0*/ /* End of cleaning variable dt0 */ } /*if (f2py_success) of dt*/ /* End of cleaning variable dt */ } /*if (f2py_success) of t0*/ /* End of cleaning variable t0 */ } /*if (f2py_success) of mode*/ /* End of cleaning variable mode */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /**************************** end of step_driver_ ****************************/ /****************************** dynamic_driver_ ******************************/ static char doc_f2py_rout__interface_dynamic_driver_[] = "\ hnew,neval,nloop,ierr = dynamic_driver_(t0,y0,dt,nstep,nsave,dt0,dtmin,dtmax,dtd,yscale,eps,tmax,[mode,iext,iflags])\n\nWrapper for ``dynamic_driver_``.\ \n\nParameters\n----------\n" "t0 : input float\n" "y0 : input rank-1 array('d') with bounds (n_)\n" "dt : input float\n" "nstep : input int\n" "nsave : input int\n" "dt0 : input float\n" "dtmin : input float\n" "dtmax : input float\n" "dtd : input float\n" "yscale : input rank-1 array('d') with bounds (n_)\n" "eps : input float\n" "tmax : input int\n" "\nOther Parameters\n----------------\n" "mode : input int, optional\n Default: 1\n" "iext : input int, optional\n Default: 0\n" "iflags : input int, optional\n Default: 0\n" "\nReturns\n-------\n" "hnew : float\n" "neval : int\n" "nloop : int\n" "ierr : int"; /* extern void F_FUNC_US(dynamic_driver_,DYNAMIC_DRIVER_)(double*,double*,double*,long*,long*,double*,double*,double*,double*,double*,double*,long*,long*,double*,long*,long*,long*,long*,long*,long*); */ static PyObject *f2py_rout__interface_dynamic_driver_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*,double*,double*,long*,long*,double*,double*,double*,double*,double*,double*,long*,long*,double*,long*,long*,long*,long*,long*,long*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double t0 = 0; PyObject *t0_capi = Py_None; double *y0 = NULL; npy_intp y0_Dims[1] = {-1}; const int y0_Rank = 1; PyArrayObject *capi_y0_as_array = NULL; int capi_y0_intent = 0; PyObject *y0_capi = Py_None; double dt = 0; PyObject *dt_capi = Py_None; long nstep = 0; PyObject *nstep_capi = Py_None; long nsave = 0; PyObject *nsave_capi = Py_None; double dt0 = 0; PyObject *dt0_capi = Py_None; double dtmin = 0; PyObject *dtmin_capi = Py_None; double dtmax = 0; PyObject *dtmax_capi = Py_None; double dtd = 0; PyObject *dtd_capi = Py_None; double *yscale = NULL; npy_intp yscale_Dims[1] = {-1}; const int yscale_Rank = 1; PyArrayObject *capi_yscale_as_array = NULL; int capi_yscale_intent = 0; PyObject *yscale_capi = Py_None; double eps = 0; PyObject *eps_capi = Py_None; long tmax = 0; PyObject *tmax_capi = Py_None; long n_ = 0; double hnew = 0; long neval = 0; long nloop = 0; long ierr = 0; long mode = 0; PyObject *mode_capi = Py_None; long iext = 0; PyObject *iext_capi = Py_None; long iflags = 0; PyObject *iflags_capi = Py_None; static char *capi_kwlist[] = {"t0","y0","dt","nstep","nsave","dt0","dtmin","dtmax","dtd","yscale","eps","tmax","mode","iext","iflags",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "OOOOOOOOOOOO|OOO:_interface.dynamic_driver_",\ capi_kwlist,&t0_capi,&y0_capi,&dt_capi,&nstep_capi,&nsave_capi,&dt0_capi,&dtmin_capi,&dtmax_capi,&dtd_capi,&yscale_capi,&eps_capi,&tmax_capi,&mode_capi,&iext_capi,&iflags_capi)) return NULL; /*frompyobj*/ /* Processing variable mode */ if (mode_capi == Py_None) mode = 1; else f2py_success = long_from_pyobj(&mode,mode_capi,"_interface.dynamic_driver_() 1st keyword (mode) can't be converted to long"); if (f2py_success) { /* Processing variable iext */ if (iext_capi == Py_None) iext = 0; else f2py_success = long_from_pyobj(&iext,iext_capi,"_interface.dynamic_driver_() 2nd keyword (iext) can't be converted to long"); if (f2py_success) { /* Processing variable iflags */ if (iflags_capi == Py_None) iflags = 0; else f2py_success = long_from_pyobj(&iflags,iflags_capi,"_interface.dynamic_driver_() 3rd keyword (iflags) can't be converted to long"); if (f2py_success) { /* Processing variable t0 */ f2py_success = double_from_pyobj(&t0,t0_capi,"_interface.dynamic_driver_() 1st argument (t0) can't be converted to double"); if (f2py_success) { /* Processing variable dt */ f2py_success = double_from_pyobj(&dt,dt_capi,"_interface.dynamic_driver_() 3rd argument (dt) can't be converted to double"); if (f2py_success) { /* Processing variable dt0 */ f2py_success = double_from_pyobj(&dt0,dt0_capi,"_interface.dynamic_driver_() 6th argument (dt0) can't be converted to double"); if (f2py_success) { /* Processing variable dtd */ f2py_success = double_from_pyobj(&dtd,dtd_capi,"_interface.dynamic_driver_() 9th argument (dtd) can't be converted to double"); if (f2py_success) { /* Processing variable eps */ f2py_success = double_from_pyobj(&eps,eps_capi,"_interface.dynamic_driver_() 11st argument (eps) can't be converted to double"); if (f2py_success) { /* Processing variable dtmin */ f2py_success = double_from_pyobj(&dtmin,dtmin_capi,"_interface.dynamic_driver_() 7th argument (dtmin) can't be converted to double"); if (f2py_success) { /* Processing variable dtmax */ f2py_success = double_from_pyobj(&dtmax,dtmax_capi,"_interface.dynamic_driver_() 8th argument (dtmax) can't be converted to double"); if (f2py_success) { /* Processing variable y0 */ ; capi_y0_intent |= F2PY_INTENT_IN; const char * capi_errmess = "_interface._interface.dynamic_driver_: failed to create array from the 2nd argument `y0`"; capi_y0_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,y0_Dims,y0_Rank, capi_y0_intent,y0_capi,capi_errmess); if (capi_y0_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { y0 = (double *)(PyArray_DATA(capi_y0_as_array)); /* Processing variable nstep */ f2py_success = long_from_pyobj(&nstep,nstep_capi,"_interface.dynamic_driver_() 4th argument (nstep) can't be converted to long"); if (f2py_success) { /* Processing variable nsave */ f2py_success = long_from_pyobj(&nsave,nsave_capi,"_interface.dynamic_driver_() 5th argument (nsave) can't be converted to long"); if (f2py_success) { /* Processing variable tmax */ f2py_success = long_from_pyobj(&tmax,tmax_capi,"_interface.dynamic_driver_() 12nd argument (tmax) can't be converted to long"); if (f2py_success) { /* Processing variable ierr */ /* Processing variable neval */ /* Processing variable nloop */ /* Processing variable hnew */ /* Processing variable n_ */ n_ = shape(y0, 0); /* Processing variable yscale */ yscale_Dims[0]=n_; capi_yscale_intent |= F2PY_INTENT_IN; const char * capi_errmess = "_interface._interface.dynamic_driver_: failed to create array from the 10th argument `yscale`"; capi_yscale_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,yscale_Dims,yscale_Rank, capi_yscale_intent,yscale_capi,capi_errmess); if (capi_yscale_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { yscale = (double *)(PyArray_DATA(capi_yscale_as_array)); /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&t0,y0,&dt,&nstep,&nsave,&dt0,&dtmin,&dtmax,&dtd,yscale,&eps,&tmax,&n_,&hnew,&neval,&nloop,&ierr,&mode,&iext,&iflags); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("dlll",hnew,neval,nloop,ierr); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ if((PyObject *)capi_yscale_as_array!=yscale_capi) { Py_XDECREF(capi_yscale_as_array); } } /* if (capi_yscale_as_array == NULL) ... else of yscale */ /* End of cleaning variable yscale */ /* End of cleaning variable n_ */ /* End of cleaning variable hnew */ /* End of cleaning variable nloop */ /* End of cleaning variable neval */ /* End of cleaning variable ierr */ } /*if (f2py_success) of tmax*/ /* End of cleaning variable tmax */ } /*if (f2py_success) of nsave*/ /* End of cleaning variable nsave */ } /*if (f2py_success) of nstep*/ /* End of cleaning variable nstep */ if((PyObject *)capi_y0_as_array!=y0_capi) { Py_XDECREF(capi_y0_as_array); } } /* if (capi_y0_as_array == NULL) ... else of y0 */ /* End of cleaning variable y0 */ } /*if (f2py_success) of dtmax*/ /* End of cleaning variable dtmax */ } /*if (f2py_success) of dtmin*/ /* End of cleaning variable dtmin */ } /*if (f2py_success) of eps*/ /* End of cleaning variable eps */ } /*if (f2py_success) of dtd*/ /* End of cleaning variable dtd */ } /*if (f2py_success) of dt0*/ /* End of cleaning variable dt0 */ } /*if (f2py_success) of dt*/ /* End of cleaning variable dt */ } /*if (f2py_success) of t0*/ /* End of cleaning variable t0 */ } /*if (f2py_success) of iflags*/ /* End of cleaning variable iflags */ } /*if (f2py_success) of iext*/ /* End of cleaning variable iext */ } /*if (f2py_success) of mode*/ /* End of cleaning variable mode */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /*************************** end of dynamic_driver_ ***************************/ /***************************** dynamic_get_size_ *****************************/ static char doc_f2py_rout__interface_dynamic_get_size_[] = "\ ndata,ndim,mstep = dynamic_get_size_()\n\nWrapper for ``dynamic_get_size_``.\ \n\nReturns\n-------\n" "ndata : int\n" "ndim : int\n" "mstep : int"; /* extern void F_FUNC_US(dynamic_get_size_,DYNAMIC_GET_SIZE_)(long*,long*,long*); */ static PyObject *f2py_rout__interface_dynamic_get_size_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(long*,long*,long*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ long ndata = 0; long ndim = 0; long mstep = 0; static char *capi_kwlist[] = {NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "|:_interface.dynamic_get_size_",\ capi_kwlist)) return NULL; /*frompyobj*/ /* Processing variable ndata */ /* Processing variable ndim */ /* Processing variable mstep */ /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&ndata,&ndim,&mstep); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("lll",ndata,ndim,mstep); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ /* End of cleaning variable mstep */ /* End of cleaning variable ndim */ /* End of cleaning variable ndata */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /************************** end of dynamic_get_size_ **************************/ /***************************** dynamic_get_data_ *****************************/ static char doc_f2py_rout__interface_dynamic_get_data_[] = "\ coord,data = dynamic_get_data_(ndata,ndim)\n\nWrapper for ``dynamic_get_data_``.\ \n\nParameters\n----------\n" "ndata : input int\n" "ndim : input int\n" "\nReturns\n-------\n" "coord : rank-1 array('d') with bounds (ndata)\n" "data : rank-2 array('d') with bounds (ndim,ndata)"; /* extern void F_FUNC_US(dynamic_get_data_,DYNAMIC_GET_DATA_)(double*,double*,long*,long*); */ static PyObject *f2py_rout__interface_dynamic_get_data_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*,double*,long*,long*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double *coord = NULL; npy_intp coord_Dims[1] = {-1}; const int coord_Rank = 1; PyArrayObject *capi_coord_as_array = NULL; int capi_coord_intent = 0; double *data = NULL; npy_intp data_Dims[2] = {-1, -1}; const int data_Rank = 2; PyArrayObject *capi_data_as_array = NULL; int capi_data_intent = 0; long ndata = 0; PyObject *ndata_capi = Py_None; long ndim = 0; PyObject *ndim_capi = Py_None; static char *capi_kwlist[] = {"ndata","ndim",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "OO|:_interface.dynamic_get_data_",\ capi_kwlist,&ndata_capi,&ndim_capi)) return NULL; /*frompyobj*/ /* Processing variable ndata */ f2py_success = long_from_pyobj(&ndata,ndata_capi,"_interface.dynamic_get_data_() 1st argument (ndata) can't be converted to long"); if (f2py_success) { /* Processing variable ndim */ f2py_success = long_from_pyobj(&ndim,ndim_capi,"_interface.dynamic_get_data_() 2nd argument (ndim) can't be converted to long"); if (f2py_success) { /* Processing variable coord */ coord_Dims[0]=ndata; capi_coord_intent |= F2PY_INTENT_OUT|F2PY_INTENT_HIDE; const char * capi_errmess = "_interface._interface.dynamic_get_data_: failed to create array from the hidden `coord`"; capi_coord_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,coord_Dims,coord_Rank, capi_coord_intent,Py_None,capi_errmess); if (capi_coord_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { coord = (double *)(PyArray_DATA(capi_coord_as_array)); /* Processing variable data */ data_Dims[0]=ndim,data_Dims[1]=ndata; capi_data_intent |= F2PY_INTENT_OUT|F2PY_INTENT_HIDE; const char * capi_errmess = "_interface._interface.dynamic_get_data_: failed to create array from the hidden `data`"; capi_data_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,data_Dims,data_Rank, capi_data_intent,Py_None,capi_errmess); if (capi_data_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { data = (double *)(PyArray_DATA(capi_data_as_array)); /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(coord,data,&ndata,&ndim); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("NN",capi_coord_as_array,capi_data_as_array); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ } /* if (capi_data_as_array == NULL) ... else of data */ /* End of cleaning variable data */ } /* if (capi_coord_as_array == NULL) ... else of coord */ /* End of cleaning variable coord */ } /*if (f2py_success) of ndim*/ /* End of cleaning variable ndim */ } /*if (f2py_success) of ndata*/ /* End of cleaning variable ndata */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /************************** end of dynamic_get_data_ **************************/ /******************************* get_star_data_ *******************************/ static char doc_f2py_rout__interface_get_star_data_[] = "\ dd = get_star_data_(tt,[nstar,nd])\n\nWrapper for ``get_star_data_``.\ \n\nParameters\n----------\n" "tt : input rank-1 array('d') with bounds (ndata_)\n" "\nOther Parameters\n----------------\n" "nstar : input int, optional\n Default: 2\n" "nd : input int, optional\n Default: 8\n" "\nReturns\n-------\n" "dd : rank-3 array('d') with bounds (nd,ndata_,nstar)"; /* extern void F_FUNC_US(get_star_data_,GET_STAR_DATA_)(double*,double*,int*,int*,int*); */ static PyObject *f2py_rout__interface_get_star_data_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*,double*,int*,int*,int*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double *tt = NULL; npy_intp tt_Dims[1] = {-1}; const int tt_Rank = 1; PyArrayObject *capi_tt_as_array = NULL; int capi_tt_intent = 0; PyObject *tt_capi = Py_None; double *dd = NULL; npy_intp dd_Dims[3] = {-1, -1, -1}; const int dd_Rank = 3; PyArrayObject *capi_dd_as_array = NULL; int capi_dd_intent = 0; int ndata_ = 0; int nstar = 0; PyObject *nstar_capi = Py_None; int nd = 0; PyObject *nd_capi = Py_None; static char *capi_kwlist[] = {"tt","nstar","nd",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "O|OO:_interface.get_star_data_",\ capi_kwlist,&tt_capi,&nstar_capi,&nd_capi)) return NULL; /*frompyobj*/ /* Processing variable nstar */ if (nstar_capi == Py_None) nstar = 2; else f2py_success = int_from_pyobj(&nstar,nstar_capi,"_interface.get_star_data_() 1st keyword (nstar) can't be converted to int"); if (f2py_success) { /* Processing variable nd */ if (nd_capi == Py_None) nd = 8; else f2py_success = int_from_pyobj(&nd,nd_capi,"_interface.get_star_data_() 2nd keyword (nd) can't be converted to int"); if (f2py_success) { /* Processing variable tt */ ; capi_tt_intent |= F2PY_INTENT_IN; const char * capi_errmess = "_interface._interface.get_star_data_: failed to create array from the 1st argument `tt`"; capi_tt_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,tt_Dims,tt_Rank, capi_tt_intent,tt_capi,capi_errmess); if (capi_tt_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { tt = (double *)(PyArray_DATA(capi_tt_as_array)); /* Processing variable ndata_ */ ndata_ = shape(tt, 0); /* Processing variable dd */ dd_Dims[0]=nd,dd_Dims[1]=ndata_,dd_Dims[2]=nstar; capi_dd_intent |= F2PY_INTENT_OUT|F2PY_INTENT_HIDE; const char * capi_errmess = "_interface._interface.get_star_data_: failed to create array from the hidden `dd`"; capi_dd_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,dd_Dims,dd_Rank, capi_dd_intent,Py_None,capi_errmess); if (capi_dd_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { dd = (double *)(PyArray_DATA(capi_dd_as_array)); /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(tt,dd,&ndata_,&nstar,&nd); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("N",capi_dd_as_array); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ } /* if (capi_dd_as_array == NULL) ... else of dd */ /* End of cleaning variable dd */ /* End of cleaning variable ndata_ */ if((PyObject *)capi_tt_as_array!=tt_capi) { Py_XDECREF(capi_tt_as_array); } } /* if (capi_tt_as_array == NULL) ... else of tt */ /* End of cleaning variable tt */ } /*if (f2py_success) of nd*/ /* End of cleaning variable nd */ } /*if (f2py_success) of nstar*/ /* End of cleaning variable nstar */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /*************************** end of get_star_data_ ***************************/ /****************************** get_deriv_data_ ******************************/ static char doc_f2py_rout__interface_get_deriv_data_[] = "\ dd = get_deriv_data_(tt,yy,nv,mode)\n\nWrapper for ``get_deriv_data_``.\ \n\nParameters\n----------\n" "tt : input rank-1 array('d') with bounds (ndata_)\n" "yy : input rank-2 array('d') with bounds (nd_,ndata_)\n" "nv : input int\n" "mode : input int\n" "\nReturns\n-------\n" "dd : rank-2 array('d') with bounds (nv,ndata_)"; /* extern void F_FUNC_US(get_deriv_data_,GET_DERIV_DATA_)(double*,double*,double*,int*,int*,int*,int*); */ static PyObject *f2py_rout__interface_get_deriv_data_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(double*,double*,double*,int*,int*,int*,int*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ double *tt = NULL; npy_intp tt_Dims[1] = {-1}; const int tt_Rank = 1; PyArrayObject *capi_tt_as_array = NULL; int capi_tt_intent = 0; PyObject *tt_capi = Py_None; double *yy = NULL; npy_intp yy_Dims[2] = {-1, -1}; const int yy_Rank = 2; PyArrayObject *capi_yy_as_array = NULL; int capi_yy_intent = 0; PyObject *yy_capi = Py_None; double *dd = NULL; npy_intp dd_Dims[2] = {-1, -1}; const int dd_Rank = 2; PyArrayObject *capi_dd_as_array = NULL; int capi_dd_intent = 0; int ndata_ = 0; int nd_ = 0; int nv = 0; PyObject *nv_capi = Py_None; int mode = 0; PyObject *mode_capi = Py_None; static char *capi_kwlist[] = {"tt","yy","nv","mode",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "OOOO|:_interface.get_deriv_data_",\ capi_kwlist,&tt_capi,&yy_capi,&nv_capi,&mode_capi)) return NULL; /*frompyobj*/ /* Processing variable nv */ f2py_success = int_from_pyobj(&nv,nv_capi,"_interface.get_deriv_data_() 3rd argument (nv) can't be converted to int"); if (f2py_success) { /* Processing variable mode */ f2py_success = int_from_pyobj(&mode,mode_capi,"_interface.get_deriv_data_() 4th argument (mode) can't be converted to int"); if (f2py_success) { /* Processing variable yy */ ; capi_yy_intent |= F2PY_INTENT_IN; const char * capi_errmess = "_interface._interface.get_deriv_data_: failed to create array from the 2nd argument `yy`"; capi_yy_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,yy_Dims,yy_Rank, capi_yy_intent,yy_capi,capi_errmess); if (capi_yy_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { yy = (double *)(PyArray_DATA(capi_yy_as_array)); /* Processing variable ndata_ */ ndata_ = shape(yy, 1); /* Processing variable nd_ */ nd_ = shape(yy, 0); /* Processing variable tt */ tt_Dims[0]=ndata_; capi_tt_intent |= F2PY_INTENT_IN; const char * capi_errmess = "_interface._interface.get_deriv_data_: failed to create array from the 1st argument `tt`"; capi_tt_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,tt_Dims,tt_Rank, capi_tt_intent,tt_capi,capi_errmess); if (capi_tt_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { tt = (double *)(PyArray_DATA(capi_tt_as_array)); /* Processing variable dd */ dd_Dims[0]=nv,dd_Dims[1]=ndata_; capi_dd_intent |= F2PY_INTENT_OUT|F2PY_INTENT_HIDE; const char * capi_errmess = "_interface._interface.get_deriv_data_: failed to create array from the hidden `dd`"; capi_dd_as_array = ndarray_from_pyobj( NPY_DOUBLE,1,dd_Dims,dd_Rank, capi_dd_intent,Py_None,capi_errmess); if (capi_dd_as_array == NULL) { PyObject* capi_err = PyErr_Occurred(); if (capi_err == NULL) { capi_err = _interface_error; PyErr_SetString(capi_err, capi_errmess); } } else { dd = (double *)(PyArray_DATA(capi_dd_as_array)); /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(tt,yy,dd,&ndata_,&nd_,&nv,&mode); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("N",capi_dd_as_array); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ } /* if (capi_dd_as_array == NULL) ... else of dd */ /* End of cleaning variable dd */ if((PyObject *)capi_tt_as_array!=tt_capi) { Py_XDECREF(capi_tt_as_array); } } /* if (capi_tt_as_array == NULL) ... else of tt */ /* End of cleaning variable tt */ /* End of cleaning variable nd_ */ /* End of cleaning variable ndata_ */ if((PyObject *)capi_yy_as_array!=yy_capi) { Py_XDECREF(capi_yy_as_array); } } /* if (capi_yy_as_array == NULL) ... else of yy */ /* End of cleaning variable yy */ } /*if (f2py_success) of mode*/ /* End of cleaning variable mode */ } /*if (f2py_success) of nv*/ /* End of cleaning variable nv */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /*************************** end of get_deriv_data_ ***************************/ /****************************** set_deriv_flags_ ******************************/ static char doc_f2py_rout__interface_set_deriv_flags_[] = "\ old_flags = set_deriv_flags_(flags)\n\nWrapper for ``set_deriv_flags_``.\ \n\nParameters\n----------\n" "flags : input int\n" "\nReturns\n-------\n" "old_flags : int"; /* extern void F_FUNC_US(set_deriv_flags_,SET_DERIV_FLAGS_)(long*,long*); */ static PyObject *f2py_rout__interface_set_deriv_flags_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(long*,long*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ long flags = 0; PyObject *flags_capi = Py_None; long old_flags = 0; static char *capi_kwlist[] = {"flags",NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "O|:_interface.set_deriv_flags_",\ capi_kwlist,&flags_capi)) return NULL; /*frompyobj*/ /* Processing variable flags */ f2py_success = long_from_pyobj(&flags,flags_capi,"_interface.set_deriv_flags_() 1st argument (flags) can't be converted to long"); if (f2py_success) { /* Processing variable old_flags */ /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&flags,&old_flags); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("l",old_flags); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ /* End of cleaning variable old_flags */ } /*if (f2py_success) of flags*/ /* End of cleaning variable flags */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /************************** end of set_deriv_flags_ **************************/ /****************************** get_deriv_flags_ ******************************/ static char doc_f2py_rout__interface_get_deriv_flags_[] = "\ flags = get_deriv_flags_()\n\nWrapper for ``get_deriv_flags_``.\ \n\nReturns\n-------\n" "flags : int"; /* extern void F_FUNC_US(get_deriv_flags_,GET_DERIV_FLAGS_)(long*); */ static PyObject *f2py_rout__interface_get_deriv_flags_(const PyObject *capi_self, PyObject *capi_args, PyObject *capi_keywds, void (*f2py_func)(long*)) { PyObject * volatile capi_buildvalue = NULL; volatile int f2py_success = 1; /*decl*/ long flags = 0; static char *capi_kwlist[] = {NULL}; /*routdebugenter*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_clock(); #endif if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\ "|:_interface.get_deriv_flags_",\ capi_kwlist)) return NULL; /*frompyobj*/ /* Processing variable flags */ /*end of frompyobj*/ #ifdef F2PY_REPORT_ATEXIT f2py_start_call_clock(); #endif /*callfortranroutine*/ (*f2py_func)(&flags); if (PyErr_Occurred()) f2py_success = 0; #ifdef F2PY_REPORT_ATEXIT f2py_stop_call_clock(); #endif /*end of callfortranroutine*/ if (f2py_success) { /*pyobjfrom*/ /*end of pyobjfrom*/ CFUNCSMESS("Building return value.\n"); capi_buildvalue = Py_BuildValue("l",flags); /*closepyobjfrom*/ /*end of closepyobjfrom*/ } /*if (f2py_success) after callfortranroutine*/ /*cleanupfrompyobj*/ /* End of cleaning variable flags */ /*end of cleanupfrompyobj*/ if (capi_buildvalue == NULL) { /*routdebugfailure*/ } else { /*routdebugleave*/ } CFUNCSMESS("Freeing memory.\n"); /*freemem*/ #ifdef F2PY_REPORT_ATEXIT f2py_stop_clock(); #endif return capi_buildvalue; } /************************** end of get_deriv_flags_ **************************/ /*eof body*/ /******************* See f2py2e/f90mod_rules.py: buildhooks *******************/ /*need_f90modhooks*/ /************** See f2py2e/rules.py: module_rules['modulebody'] **************/ /******************* See f2py2e/common_rules.py: buildhooks *******************/ /*need_commonhooks*/ /**************************** See f2py2e/rules.py ****************************/ static FortranDataDef f2py_routine_defs[] = { {"set_verbose_",-1,{{-1}},0,0,(char *) F_FUNC_US(set_verbose_,SET_VERBOSE_), (f2py_init_func)f2py_rout__interface_set_verbose_,doc_f2py_rout__interface_set_verbose_}, {"get_verbose_",-1,{{-1}},0,0,(char *) F_FUNC_US(get_verbose_,GET_VERBOSE_), (f2py_init_func)f2py_rout__interface_get_verbose_,doc_f2py_rout__interface_get_verbose_}, {"get_status_",-1,{{-1}},0,0,(char *) F_FUNC_US(get_status_,GET_STATUS_), (f2py_init_func)f2py_rout__interface_get_status_,doc_f2py_rout__interface_get_status_}, {"reset_status_",-1,{{-1}},0,0,(char *) F_FUNC_US(reset_status_,RESET_STATUS_), (f2py_init_func)f2py_rout__interface_reset_status_,doc_f2py_rout__interface_reset_status_}, {"set_interact_",-1,{{-1}},0,0,(char *) F_WRAPPEDFUNC_US(set_interact_,SET_INTERACT_), (f2py_init_func)f2py_rout__interface_set_interact_,doc_f2py_rout__interface_set_interact_}, {"get_interact_size_",-1,{{-1}},0,0,(char *) F_FUNC_US(get_interact_size_,GET_INTERACT_SIZE_), (f2py_init_func)f2py_rout__interface_get_interact_size_,doc_f2py_rout__interface_get_interact_size_}, {"get_interact_",-1,{{-1}},0,0,(char *) F_FUNC_US(get_interact_,GET_INTERACT_), (f2py_init_func)f2py_rout__interface_get_interact_,doc_f2py_rout__interface_get_interact_}, {"reset_interact_",-1,{{-1}},0,0,(char *) F_FUNC_US(reset_interact_,RESET_INTERACT_), (f2py_init_func)f2py_rout__interface_reset_interact_,doc_f2py_rout__interface_reset_interact_}, {"set_cutoff_",-1,{{-1}},0,0,(char *) F_WRAPPEDFUNC_US(set_cutoff_,SET_CUTOFF_), (f2py_init_func)f2py_rout__interface_set_cutoff_,doc_f2py_rout__interface_set_cutoff_}, {"get_cutoff_size_",-1,{{-1}},0,0,(char *) F_FUNC_US(get_cutoff_size_,GET_CUTOFF_SIZE_), (f2py_init_func)f2py_rout__interface_get_cutoff_size_,doc_f2py_rout__interface_get_cutoff_size_}, {"get_cutoff_",-1,{{-1}},0,0,(char *) F_FUNC_US(get_cutoff_,GET_CUTOFF_), (f2py_init_func)f2py_rout__interface_get_cutoff_,doc_f2py_rout__interface_get_cutoff_}, {"reset_cutoff_",-1,{{-1}},0,0,(char *) F_FUNC_US(reset_cutoff_,RESET_CUTOFF_), (f2py_init_func)f2py_rout__interface_reset_cutoff_,doc_f2py_rout__interface_reset_cutoff_}, {"set_epslim_",-1,{{-1}},0,0,(char *) F_FUNC_US(set_epslim_,SET_EPSLIM_), (f2py_init_func)f2py_rout__interface_set_epslim_,doc_f2py_rout__interface_set_epslim_}, {"get_epslim_",-1,{{-1}},0,0,(char *) F_FUNC_US(get_epslim_,GET_EPSLIM_), (f2py_init_func)f2py_rout__interface_get_epslim_,doc_f2py_rout__interface_get_epslim_}, {"reset_epslim_",-1,{{-1}},0,0,(char *) F_FUNC_US(reset_epslim_,RESET_EPSLIM_), (f2py_init_func)f2py_rout__interface_reset_epslim_,doc_f2py_rout__interface_reset_epslim_}, {"set_omegalim_",-1,{{-1}},0,0,(char *) F_FUNC_US(set_omegalim_,SET_OMEGALIM_), (f2py_init_func)f2py_rout__interface_set_omegalim_,doc_f2py_rout__interface_set_omegalim_}, {"get_omegalim_",-1,{{-1}},0,0,(char *) F_FUNC_US(get_omegalim_,GET_OMEGALIM_), (f2py_init_func)f2py_rout__interface_get_omegalim_,doc_f2py_rout__interface_get_omegalim_}, {"reset_omegalim_",-1,{{-1}},0,0,(char *) F_FUNC_US(reset_omegalim_,RESET_OMEGALIM_), (f2py_init_func)f2py_rout__interface_reset_omegalim_,doc_f2py_rout__interface_reset_omegalim_}, {"set_toffset_",-1,{{-1}},0,0,(char *) F_FUNC_US(set_toffset_,SET_TOFFSET_), (f2py_init_func)f2py_rout__interface_set_toffset_,doc_f2py_rout__interface_set_toffset_}, {"add_stardata_",-1,{{-1}},0,0,(char *) F_WRAPPEDFUNC_US(add_stardata_,ADD_STARDATA_), (f2py_init_func)f2py_rout__interface_add_stardata_,doc_f2py_rout__interface_add_stardata_}, {"get_stardata_id_",-1,{{-1}},0,0,(char *) F_FUNC_US(get_stardata_id_,GET_STARDATA_ID_), (f2py_init_func)f2py_rout__interface_get_stardata_id_,doc_f2py_rout__interface_get_stardata_id_}, {"set_stardata_id_",-1,{{-1}},0,0,(char *) F_FUNC_US(set_stardata_id_,SET_STARDATA_ID_), (f2py_init_func)f2py_rout__interface_set_stardata_id_,doc_f2py_rout__interface_set_stardata_id_}, {"clear_stardata_",-1,{{-1}},0,0,(char *) F_FUNC_US(clear_stardata_,CLEAR_STARDATA_), (f2py_init_func)f2py_rout__interface_clear_stardata_,doc_f2py_rout__interface_clear_stardata_}, {"n_stardata_",-1,{{-1}},0,0,(char *) F_FUNC_US(n_stardata_,N_STARDATA_), (f2py_init_func)f2py_rout__interface_n_stardata_,doc_f2py_rout__interface_n_stardata_}, {"direct_",-1,{{-1}},0,0,(char *) F_FUNC_US(direct_,DIRECT_), (f2py_init_func)f2py_rout__interface_direct_,doc_f2py_rout__interface_direct_}, {"secular_",-1,{{-1}},0,0,(char *) F_FUNC_US(secular_,SECULAR_), (f2py_init_func)f2py_rout__interface_secular_,doc_f2py_rout__interface_secular_}, {"direct3h_",-1,{{-1}},0,0,(char *) F_FUNC_US(direct3h_,DIRECT3H_), (f2py_init_func)f2py_rout__interface_direct3h_,doc_f2py_rout__interface_direct3h_}, {"direct3f_",-1,{{-1}},0,0,(char *) F_FUNC_US(direct3f_,DIRECT3F_), (f2py_init_func)f2py_rout__interface_direct3f_,doc_f2py_rout__interface_direct3f_}, {"direct4p_",-1,{{-1}},0,0,(char *) F_FUNC_US(direct4p_,DIRECT4P_), (f2py_init_func)f2py_rout__interface_direct4p_,doc_f2py_rout__interface_direct4p_}, {"direct4h_",-1,{{-1}},0,0,(char *) F_FUNC_US(direct4h_,DIRECT4H_), (f2py_init_func)f2py_rout__interface_direct4h_,doc_f2py_rout__interface_direct4h_}, {"direct4f_",-1,{{-1}},0,0,(char *) F_FUNC_US(direct4f_,DIRECT4F_), (f2py_init_func)f2py_rout__interface_direct4f_,doc_f2py_rout__interface_direct4f_}, {"huntpol_",-1,{{-1}},0,0,(char *) F_FUNC_US(huntpol_,HUNTPOL_), (f2py_init_func)f2py_rout__interface_huntpol_,doc_f2py_rout__interface_huntpol_}, {"star_huntpol_",-1,{{-1}},0,0,(char *) F_FUNC_US(star_huntpol_,STAR_HUNTPOL_), (f2py_init_func)f2py_rout__interface_star_huntpol_,doc_f2py_rout__interface_star_huntpol_}, {"step_driver_",-1,{{-1}},0,0,(char *) F_FUNC_US(step_driver_,STEP_DRIVER_), (f2py_init_func)f2py_rout__interface_step_driver_,doc_f2py_rout__interface_step_driver_}, {"dynamic_driver_",-1,{{-1}},0,0,(char *) F_FUNC_US(dynamic_driver_,DYNAMIC_DRIVER_), (f2py_init_func)f2py_rout__interface_dynamic_driver_,doc_f2py_rout__interface_dynamic_driver_}, {"dynamic_get_size_",-1,{{-1}},0,0,(char *) F_FUNC_US(dynamic_get_size_,DYNAMIC_GET_SIZE_), (f2py_init_func)f2py_rout__interface_dynamic_get_size_,doc_f2py_rout__interface_dynamic_get_size_}, {"dynamic_get_data_",-1,{{-1}},0,0,(char *) F_FUNC_US(dynamic_get_data_,DYNAMIC_GET_DATA_), (f2py_init_func)f2py_rout__interface_dynamic_get_data_,doc_f2py_rout__interface_dynamic_get_data_}, {"get_star_data_",-1,{{-1}},0,0,(char *) F_FUNC_US(get_star_data_,GET_STAR_DATA_), (f2py_init_func)f2py_rout__interface_get_star_data_,doc_f2py_rout__interface_get_star_data_}, {"get_deriv_data_",-1,{{-1}},0,0,(char *) F_FUNC_US(get_deriv_data_,GET_DERIV_DATA_), (f2py_init_func)f2py_rout__interface_get_deriv_data_,doc_f2py_rout__interface_get_deriv_data_}, {"set_deriv_flags_",-1,{{-1}},0,0,(char *) F_FUNC_US(set_deriv_flags_,SET_DERIV_FLAGS_), (f2py_init_func)f2py_rout__interface_set_deriv_flags_,doc_f2py_rout__interface_set_deriv_flags_}, {"get_deriv_flags_",-1,{{-1}},0,0,(char *) F_FUNC_US(get_deriv_flags_,GET_DERIV_FLAGS_), (f2py_init_func)f2py_rout__interface_get_deriv_flags_,doc_f2py_rout__interface_get_deriv_flags_}, /*eof routine_defs*/ {NULL} }; static PyMethodDef f2py_module_methods[] = { {NULL,NULL} }; static struct PyModuleDef moduledef = { PyModuleDef_HEAD_INIT, "_interface", NULL, -1, f2py_module_methods, NULL, NULL, NULL, NULL }; PyMODINIT_FUNC PyInit__interface(void) { int i; PyObject *m,*d, *s, *tmp; m = _interface_module = PyModule_Create(&moduledef); Py_SET_TYPE(&PyFortran_Type, &PyType_Type); import_array(); if (PyErr_Occurred()) {PyErr_SetString(PyExc_ImportError, "can't initialize module _interface (failed to import numpy)"); return m;} d = PyModule_GetDict(m); s = PyUnicode_FromString("1.26.2"); PyDict_SetItemString(d, "__version__", s); Py_DECREF(s); s = PyUnicode_FromString( "This module '_interface' is auto-generated with f2py (version:1.26.2).\nFunctions:\n" " set_verbose_(verbose)\n" " verbose = get_verbose_()\n" " status,status_stars = get_status_()\n" " reset_status_()\n" " set_interact_(interact)\n" " n = get_interact_size_()\n" " interact = get_interact_(n)\n" " reset_interact_()\n" " set_cutoff_(cutoff)\n" " n = get_cutoff_size_()\n" " cutoff = get_cutoff_(n)\n" " reset_cutoff_()\n" " set_epslim_(val)\n" " val = get_epslim_()\n" " reset_epslim_()\n" " set_omegalim_(val)\n" " val = get_omegalim_()\n" " reset_omegalim_()\n" " set_toffset_(toffset)\n" " id = add_stardata_(data,t0)\n" " id = get_stardata_id_()\n" " set_stardata_id_(id)\n" " clear_stardata_()\n" " count = n_stardata_()\n" " yp = direct_(t_,y)\n" " yp = secular_(trel,y)\n" " yp = direct3h_(t_,y)\n" " yp = direct3f_(t_,y)\n" " yp = direct4p_(t_,y)\n" " yp = direct4h_(t_,y)\n" " yp = direct4f_(t_,y)\n" " val = huntpol_(t,tt,data)\n" " val = star_huntpol_(t,j,nv)\n" " tt,yy,hnew,neval,nloop,mstep,ierr = step_driver_(t0,y0,dt,nstep,nsave,dt0,dtmin,dtmax,yscale,eps,tmax,mode=1)\n" " hnew,neval,nloop,ierr = dynamic_driver_(t0,y0,dt,nstep,nsave,dt0,dtmin,dtmax,dtd,yscale,eps,tmax,mode=1,iext=0,iflags=0)\n" " ndata,ndim,mstep = dynamic_get_size_()\n" " coord,data = dynamic_get_data_(ndata,ndim)\n" " dd = get_star_data_(tt,nstar=2,nd=8)\n" " dd = get_deriv_data_(tt,yy,nv,mode)\n" " old_flags = set_deriv_flags_(flags)\n" " flags = get_deriv_flags_()\n" "."); PyDict_SetItemString(d, "__doc__", s); Py_DECREF(s); s = PyUnicode_FromString("1.26.2"); PyDict_SetItemString(d, "__f2py_numpy_version__", s); Py_DECREF(s); _interface_error = PyErr_NewException ("_interface.error", NULL, NULL); /* * Store the error object inside the dict, so that it could get deallocated. * (in practice, this is a module, so it likely will not and cannot.) */ PyDict_SetItemString(d, "__interface_error", _interface_error); Py_DECREF(_interface_error); for(i=0;f2py_routine_defs[i].name!=NULL;i++) { tmp = PyFortranObject_NewAsAttr(&f2py_routine_defs[i]); PyDict_SetItemString(d, f2py_routine_defs[i].name, tmp); Py_DECREF(tmp); } { extern void F_FUNC_US(set_interact_,SET_INTERACT_)(void); PyObject* o = PyDict_GetItemString(d,"set_interact_"); tmp = F2PyCapsule_FromVoidPtr((void*)F_FUNC_US(set_interact_,SET_INTERACT_),NULL); PyObject_SetAttrString(o,"_cpointer", tmp); Py_DECREF(tmp); s = PyUnicode_FromString("set_interact_"); PyObject_SetAttrString(o,"__name__", s); Py_DECREF(s); } { extern void F_FUNC_US(set_cutoff_,SET_CUTOFF_)(void); PyObject* o = PyDict_GetItemString(d,"set_cutoff_"); tmp = F2PyCapsule_FromVoidPtr((void*)F_FUNC_US(set_cutoff_,SET_CUTOFF_),NULL); PyObject_SetAttrString(o,"_cpointer", tmp); Py_DECREF(tmp); s = PyUnicode_FromString("set_cutoff_"); PyObject_SetAttrString(o,"__name__", s); Py_DECREF(s); } { extern void F_FUNC_US(add_stardata_,ADD_STARDATA_)(void); PyObject* o = PyDict_GetItemString(d,"add_stardata_"); tmp = F2PyCapsule_FromVoidPtr((void*)F_FUNC_US(add_stardata_,ADD_STARDATA_),NULL); PyObject_SetAttrString(o,"_cpointer", tmp); Py_DECREF(tmp); s = PyUnicode_FromString("add_stardata_"); PyObject_SetAttrString(o,"__name__", s); Py_DECREF(s); } /*eof initf2pywraphooks*/ /*eof initf90modhooks*/ /*eof initcommonhooks*/ #ifdef F2PY_REPORT_ATEXIT if (! PyErr_Occurred()) on_exit(f2py_report_on_exit,(void*)"_interface"); #endif return m; } #ifdef __cplusplus } #endif