/usr/local/lib64/python3.6/site-packages/numpy/f2py/__pycache__
Edit: /usr/local/lib64/python3.6/site-packages/numpy/f2py/__pycache__/rules.cpython-36.pyc (34052B)
3
Eg 2 @ s d Z ddd~ ZddlmZ ejZddlZddlZddlZddlm Z m
Z
m Z m Z m
Z
mZmZmZmZmZmZmZmZmZmZmZmZmZmZm Z m Z m Z m Z m Z m!Z!m"Z"m#Z#m$Z$m%Z%m&Z&m'Z'm(Z(m)Z)m*Z*m+Z+m,Z,m-Z-m.Z.m/Z/m0Z0m1Z1m2Z2m3Z3m4Z4m5Z5m6Z6m7Z7m8Z8m9Z9m:Z:m;Z;m
Z>m?Z?m@Z@mAZAmBZBmCZCmDZDmEZE ddlmFZF dd lmGZG dd
lmHZH dd lmIZI dd lmJZJ dd
lmKZK i ZLi ZMxdD ]ZNd'eMeN< qW eOejPjQd(ej ZRd)ejSejTeR d* e
d+ d, e
d- d. e
d/ d0 e
d1 d2 e
d3 d4 e
d5 d6 e
d7 d8 e
d9 d: e
d; d< e
d= d> e
d? d@ e
dA dB e
dC dD e
dE dF e
dG dH dI dDdDdJdKdLdMgdNdOdP dQgdRZUdSdTdUdVdWdXdYdZdZed[eAedZid\
gZVeMd]d^d_d`dadbdcdddedfge
dgidhdigdjdkdP gdl ZWd'd'd'd'd'dmd'd'd'd'dnd'd'd'd'd'dodZdZdZdZdZdZdpdqdZdZdZdZdrdsdtdudvdwdxdydZdZdZdzd{gd|d}gd~dddddZdZdZdZdZdZdZdZdZdZdZdZdZedeAedZid/dddZeAe.ddddZe.dde@eAeBe.e eAede@eAe.e eAede.dZedZieAeBe.e ede@eAe.e eAede@eAe.edie@eAeBe.e eAedie
dgiedie8diedieAeBeedie8diedige@e6eAe7ddeAeBe.ededZieAeBe.ededieAeBe.edieAeBe.eddgie
dgiedie8dieAeBeediedie8diedige ddeAeBe.ededZieAeBe.ededieAeBe.edieAeBe.eddgie
dgiedie8dieAeBeediedie8diedige7ddeAe#diddedige@e
e5die@e
eAe5dige@e eAe de@eAeBe.e eAede@eAe.e eAededZie@eAeBe.e eAede@eAe.e eAedediedeAediedigedie8diedieAeBeedie8diedie@e
edie@e
eAedigedieAediedie-die+digeAe#diedeAeBee#die@e eAe5eAe d deAeBe.e de@eAe.e diddgdddddddddedie8dide8diedie
didgddddddge@e5eAe dМ
ddde
dԜg
ZXe,de*de)de:de>de9dee
d?ie&didge3d@dAdBd0ddge3dZd!e0die/die0die/die$dCie$d'ie$d(ie@e3e%dDde@e3e#ie
d?ie3dZd2ddddEdFgde&dGidedHdIdJdKdLdMdNdOe@ee'dPdQe@ee'dZd2dRdJdKdLdSdNdTe@ee"dPdQe@ee"dZd2ediedeigedZdd e0die/die0die/die@ee%dUdVdWe#dXie%dYidZee%d[ie#d\ied]id^gigd_eAeBe&e#d`ie@e#eAe&daiedbigedZdcde@eeAeide@eeAee%ide dZdde;dZdde?dZdde=dZddedZdedide4dg*Z[e
ddiddedfdgdhe@e1eAedZdidjdkdle3dZdidmdndoedZdpdqdrdsdtgZ\dudv Z]dwdxdydzdzdzdzdzdzdzd{
Z^d|d} Z_dS ( aG
Rules for building C/API module with f2py2e.
Here is a skeleton of a new wrapper function (13Dec2001):
wrapper_function(args)
declarations
get_python_arguments, say, `a' and `b'
get_a_from_python
if (successful) {
get_b_from_python
if (successful) {
callfortran
if (successful) {
put_a_to_python
if (successful) {
put_b_to_python
if (successful) {
buildvalue = ...
}
}
}
}
cleanup_b
}
cleanup_a
return buildvalue
Copyright 1999,2000 Pearu Peterson all rights reserved,
Pearu Peterson
Permission to use, modify, and distribute this software is given under the
terms of the NumPy License.
NO WARRANTY IS EXPRESSED OR IMPLIED. USE AT YOUR OWN RISK.
$Date: 2005/08/30 08:58:42 $
Pearu Peterson
z$Revision: 1.129 $
) __version__ N)=
applyrules debugcapi
dictappenderrmessgentitlegetargs2hascallstatement hasexternals hasinitvaluehasnote
hasresultnoteisarrayisarrayofstrings iscomplexiscomplexarrayiscomplexfunctioniscomplexfunction_warnisdummyroutine
isexternal
isfunctionisfunction_wrap isint1array isintent_aux
isintent_cisintent_callback
isintent_copy
isintent_hideisintent_inoutisintent_nothide isintent_outisintent_overwrite islogicalislong_complex
islong_doubleislong_doublefunction islong_longislong_longfunctionismoduleroutine
isoptional
isrequiredisscalarissigned_long_longarrayisstring
isstringarrayisstringfunction issubroutineissubroutine_wrap isthreadsafe
isunsignedisunsigned_charisunsigned_chararrayisunsigned_long_longisunsigned_long_longarrayisunsigned_shortisunsigned_shortarrayl_andl_notl_oroutmessreplace
stripcomma) capi_maps)cfuncs) common_rules) use_rules) f90mod_rules) func2subrdecl frompyobjcleanupfrompyobjtopyarrmethod pyobjfromclosepyobjfromfreemem userincludes includes0includestypedefstypedefs_generated cppmacrosrC callbackslatexdocrestdoc routine_defsexternroutinesinitf2pywraphooks commonhooksinitcommonhooks f90modhooksinitf90modhooks
ZSOURCE_DATE_EPOCHz/* File: #modulename#module.c
* This file is auto-generated with f2py (version:#f2py_version#).
* f2py is a Fortran to Python Interface Generator (FPIG), Second Edition,
* written by Pearu Peterson .
* Generation date: zv
* Do not edit this file directly unless you know what you are doing!!!
*/
#ifdef __cplusplus
extern "C" {
#endif
z See f2py2e/cfuncs.py: includesz
#includes#
#includes0#
z,See f2py2e/rules.py: mod_rules['modulebody']zM
static PyObject *#modulename#_error;
static PyObject *#modulename#_module;
z See f2py2e/cfuncs.py: typedefsz
#typedefs#
z(See f2py2e/cfuncs.py: typedefs_generatedz
#typedefs_generated#
z See f2py2e/cfuncs.py: cppmacrosz
#cppmacros#
z See f2py2e/cfuncs.py: cfuncsz
#cfuncs#
z"See f2py2e/cfuncs.py: userincludesz
#userincludes#
z"See f2py2e/capi_rules.py: usercodez9
#usercode#
/* See f2py2e/rules.py */
#externroutines#
z#See f2py2e/capi_rules.py: usercode1z
#usercode1#
z%See f2py2e/cb_rules.py: buildcallbackz
#callbacks#
z See f2py2e/rules.py: buildapiz
#body#
z&See f2py2e/f90mod_rules.py: buildhooksz
#f90modhooks#
z/See f2py2e/rules.py: module_rules['modulebody']z
z&See f2py2e/common_rules.py: buildhooksz
#commonhooks#
zSee f2py2e/rules.pya
static FortranDataDef f2py_routine_defs[] = {
#routine_defs#
{NULL}
};
static PyMethodDef f2py_module_methods[] = {
#pymethoddef#
{NULL,NULL}
};
static struct PyModuleDef moduledef = {
PyModuleDef_HEAD_INIT,
"#modulename#",
NULL,
-1,
f2py_module_methods,
NULL,
NULL,
NULL,
NULL
};
PyMODINIT_FUNC PyInit_#modulename#(void) {
int i;
PyObject *m,*d, *s, *tmp;
m = #modulename#_module = PyModule_Create(&moduledef);
Py_SET_TYPE(&PyFortran_Type, &PyType_Type);
import_array();
if (PyErr_Occurred())
{PyErr_SetString(PyExc_ImportError, "can't initialize module #modulename# (failed to import numpy)"); return m;}
d = PyModule_GetDict(m);
s = PyString_FromString("$Ra evision: $");
PyDict_SetItemString(d, "__version__", s);
Py_DECREF(s);
s = PyUnicode_FromString(
"This module '#modulename#' is auto-generated with f2py (version:#f2py_version#).\nFunctions:\n"
#docs#".");
PyDict_SetItemString(d, "__doc__", s);
Py_DECREF(s);
#modulename#_error = PyErr_NewException ("#modulename#.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, "_#modulename#_error", #modulename#_error);
Py_DECREF(#modulename#_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);
}
#initf2pywraphooks#
#initf90modhooks#
#initcommonhooks#
#interface_usercode#
#ifdef F2PY_REPORT_ATEXIT
if (! PyErr_Occurred())
on_exit(f2py_report_on_exit,(void*)"#modulename#");
#endif
return m;
}
#ifdef __cplusplus
}
#endif
)rW rX z*\section{Module \texttt{#texmodulename#}}
z
#modnote#
z
#latexdoc#zModule #modulename#
=P z
#restdoc#)
modulebody
separatorsforrW rX z /*eof body*/z/*eof method*/z/*eof externroutines*/z/*eof routine_defs*/z/*eof initf90modhooks*/z/*eof initf2pywraphooks*/z/*eof initcommonhooks*/ z#note#)
bodyrL rZ rY r_ r[ r] rW rX Zmodnotea
#begintitle#
static char doc_#apiname#[] = "\
#docreturn##name#(#docsignatureshort#)\n\nWrapper for ``#name#``.\
\n#docstrsigns#";
/* #declfortranroutine# */
static PyObject *#apiname#(const PyObject *capi_self,
PyObject *capi_args,
PyObject *capi_keywds,
#functype# (*f2py_func)(#callprotoargument#)) {
PyObject * volatile capi_buildvalue = NULL;
volatile int f2py_success = 1;
#decl#
static char *capi_kwlist[] = {#kwlist##kwlistopt##kwlistxa#NULL};
#usercode#
#routdebugenter#
#ifdef F2PY_REPORT_ATEXIT
f2py_start_clock();
#endif
if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
"#argformat#|#keyformat##xaformat#:#pyname#",\
capi_kwlist#args_capi##keys_capi##keys_xa#))
return NULL;
#frompyobj#
/*end of frompyobj*/
#ifdef F2PY_REPORT_ATEXIT
f2py_start_call_clock();
#endif
#callfortranroutine#
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("#returnformat#"#return#);
/*closepyobjfrom*/
#closepyobjfrom#
} /*if (f2py_success) after callfortranroutine*/
/*cleanupfrompyobj*/
#cleanupfrompyobj#
if (capi_buildvalue == NULL) {
#routdebugfailure#
} else {
#routdebugleave#
}
CFUNCSMESS("Freeing memory.\n");
#freemem#
#ifdef F2PY_REPORT_ATEXIT
f2py_stop_clock();
#endif
return capi_buildvalue;
}
#endtitle#
z
#routine_def#z#initf2pywraphook#z#declfortranroutine#z!#docreturn##name#(#docsignature#)z&#docreturn##name#(#docsignatureshort#)z'" #docreturn##name#(#docsignature#)\n"
z
arrayobject.hZ
CFUNCSMESSZMINMAXz#define DEBUGCFUNCSz1\subsection{Wrapper function \texttt{#texname#}}
zk
\noindent{{}\verb@#docreturn##name#@{}}\texttt{(#latexdocsignatureshort#)}
#routnote#
#latexdocstrsigns#
z Wrapped function ``#name#``
-) rd rf rY r[ rZ docdocshortZdocsneedrU rW rX z || z\n"
")callfortranroutineroutdebugenterrH routdebugleaveroutdebugfailure setjmpbuf docstrreq docstropt docstrout docstrcbs docstrsignslatexdocstrsignslatexdocstrreqlatexdocstroptlatexdocstroutlatexdocstrcbsz/*decl*/z /*freemem*/z\nParameters\n----------z$\nOther Parameters\n----------------z\nReturns\n-------z'\nNotes\n-----\nCall-back functions::\nz \noindent Required arguments:z \noindent Optional arguments:z\noindent Return objects:z \noindent Call-back functions:z
/*frompyobj*/z/*end of cleanupfrompyobj*/z
/*pyobjfrom*/z/*end of closepyobjfrom*/z /*topyarr*/z/*routdebugleave*/z/*routdebugenter*/z/*routdebugfailure*/z/*callfortranroutine*/z
--- #note#)/rd kwlist kwlistopt callfortrancallfortranappenddocsign
docsignoptrH rO Z docsignshortdocsignoptshortrt ru rp rq rr rs rv rw rx ry args_capi keys_capifunctyperI rJ rM rN rK rm rl rn rk argformat keyformatZ need_cfuncs docreturnreturn returnformatZrformatkwlistxakeys_xaxaformat docsignxadocsignxashortinitf2pywraphookZroutnotez f2py_rout_#modulename#_#name#z#modulename#.#name#)ZapinameZpynamerH _checkz-f2py_rout_#modulename#_#f90modulename#_#name#z##modulename#.#f90modulename#.#name#voidzGextern void #F_FUNC#(#fortranname#,#FORTRANNAME#)(#callprotoargument#);z/extern void #fortranname#(#callprotoargument#);zn {"#name#",-1,{{-1}},0,(char *)#F_FUNC#(#fortranname#,#FORTRANNAME#),(f2py_init_func)#apiname#,doc_#apiname#},zV {"#name#",-1,{{-1}},0,(char *)#fortranname#,(f2py_init_func)#apiname#,doc_#apiname#},zE {"#name#",-1,{{-1}},0,NULL,(f2py_init_func)#apiname#,doc_#apiname#},ZF_FUNCzR fprintf(stderr,"debug-capi:Fortran subroutine `#fortranname#(#callfortran#)'\n");z4 if (#setjmpbuf#) {
f2py_success = 0;
} else {z Py_BEGIN_ALLOW_THREADSz9 #callstatement#;
/*(*f2py_func)(#callfortran#);*/z (*f2py_func)(#callfortran#);z Py_END_ALLOW_THREADSz })r declfortranroutine routine_defrj rk r zFextern void #F_WRAPPEDFUNC#(#name_lower#,#NAME#)(#callprotoargument#);zm {"#name#",-1,{{-1}},0,(char *)#F_WRAPPEDFUNC#(#name_lower#,#NAME#),(f2py_init_func)#apiname#,doc_#apiname#},a
{
extern #ctype# #F_FUNC#(#name_lower#,#NAME#)(void);
PyObject* o = PyDict_GetItemString(d,"#name#");
tmp = F2PyCapsule_FromVoidPtr((void*)#F_FUNC#(#name_lower#,#NAME#),NULL);
PyObject_SetAttrString(o,"_cpointer", tmp);
Py_DECREF(tmp);
s = PyUnicode_FromString("#name#");
PyObject_SetAttrString(o,"__name__", s);
Py_DECREF(s);
}
Z
F_WRAPPEDFUNCzY fprintf(stderr,"debug-capi:Fortran subroutine `f2pywrap#name_lower#(#callfortran#)'\n");z1 if (#setjmpbuf#) {
f2py_success = 0;
} else {z Py_BEGIN_ALLOW_THREADSz (*f2py_func)(#callfortran#);z3 #callstatement#;
/*(*f2py_func)(#callfortran#);*/z Py_END_ALLOW_THREADSz })r r r r rj rk r a
{
extern void #F_FUNC#(#name_lower#,#NAME#)(void);
PyObject* o = PyDict_GetItemString(d,"#name#");
tmp = F2PyCapsule_FromVoidPtr((void*)#F_FUNC#(#name_lower#,#NAME#),NULL);
PyObject_SetAttrString(o,"_cpointer", tmp);
Py_DECREF(tmp);
s = PyUnicode_FromString("#name#");
PyObject_SetAttrString(o,"__name__", s);
Py_DECREF(s);
}
z#ctype#z#rname#,z#pydocsignout#z"\item[]{{}\verb@#pydocsignout#@{}}z--- #resultnote#z#ifdef USESCOMPAQFORTRAN
fprintf(stderr,"debug-capi:Fortran function #ctype# #fortranname#(#callcompaqfortran#)\n");
#else
fprintf(stderr,"debug-capi:Fortran function #ctype# #fortranname#(#callfortran#)\n");
#endif
zW fprintf(stderr,"debug-capi:Fortran function #ctype# #fortranname#(#callfortran#)\n");
)r r rr rx rk r zJextern #ctype# #F_FUNC#(#fortranname#,#FORTRANNAME#)(#callprotoargument#);z2extern #ctype# #fortranname#(#callprotoargument#);z# #ctype# #name#_return_value={0,0};z #ctype# #name#_return_value=0;z. PyObject *#name#_return_value_capi = Py_None;zJ #callstatement#;
/* #name#_return_value = (*f2py_func)(#callfortran#);*/
z3 #name#_return_value = (*f2py_func)(#callfortran#);zV fprintf(stderr,"#routdebugshowvalue#\n",#name#_return_value.r,#name#_return_value.i);z> fprintf(stderr,"#routdebugshowvalue#\n",#name#_return_value);zE #name#_return_value_capi = pyobj_from_#ctype#1(#name#_return_value);zpyobj_from_#ctype#1Z long_longZ long_doublez #rformat#z,#name#_return_value_capiz,#name#_return_value) r r rH rk rM rj r r r z$ #ctype# #name#_return_value = NULL;z! int #name#_return_value_len = 0;z,#name#_return_value,#name#_return_value_len,z% #name#_return_value_len = #rlength#;z` if ((#name#_return_value = (string)malloc(sizeof(char)*(#name#_return_value_len+1))) == NULL) {z6 PyErr_SetString(PyExc_MemoryError, "out of memory");z f2py_success = 0;z } else {z8 (#name#_return_value)[#name#_return_value_len] = '\0';z if (f2py_success) {z Py_BEGIN_ALLOW_THREADSzj#ifdef USESCOMPAQFORTRAN
(*f2py_func)(#callcompaqfortran#);
#else
(*f2py_func)(#callfortran#);
#endif
z Py_END_ALLOW_THREADSzW fprintf(stderr,"#routdebugshowvalue#\n",#name#_return_value_len,#name#_return_value);z/ } /* if (f2py_success) after (string)malloc */z! STRINGFREE(#name#_return_value);Z
STRINGFREE)
r r rH r| rk r r rO rj r zZ fprintf(stderr,"debug-capi:Python C/API function #modulename#.#name#(#docsignature#)\n");zW fprintf(stderr,"debug-capi:Python C/API function #modulename#.#name#: successful.\n");zT fprintf(stderr,"debug-capi:Python C/API function #modulename#.#name#: failure.\n");)rl rm rn r Zcomplex_long_doubleZ
unsigned_charZunsigned_shortZunsignedZunsigned_long_longrd z. /* Processing auxiliary variable #varname# */z$ fprintf(stderr,"#vardebuginfo#\n");z) /* End of cleaning variable #varname# */)rI rJ rj z #ctype# #varname# = 0;zmath.hz #varname# = #init#;)rH rj rI r z
,#varname#z
#outvarname#,z #varrformat#)r rr r r r z #ctype# #varname#;z0 #varname#.r = #init.r#, #varname#.i = #init.i#;)rH rI r z #ctype# #varname# = NULL;z int slen(#varname#);zlen..)rH rj r z #ctype# *#varname# = NULL;z1 npy_intp #varname#_Dims[#rank#] = {#rank*[-1]#};z# const int #varname#_Rank = #rank#;Zforcombr )rj r _dependzflen(#varname#),string)r} rj r z$ /* Processing variable #varname# */)rI rJ r rj z #pydocsign#z \item[]{{}\verb@#pydocsign#@{}}z--- See above.)rq rp rr rw rv rx Zdependz "#varname#",z
#varname#,)rz r~ r z#varname#=#showinit#,)r{ r r r )r r r z#varname#_extra_args=(),z#varname#_extra_args,z=#varname#_extra_args : input tuple, optional\n Default: ()z
#cbdocstr#z\item[] #cblatexdocstr#z}\item[]{{}\verb@#varname#_extra_args := () input tuple@{}} --- Extra arguments for call-back function {{}\verb@#varname#@{}}.z$ PyObject *#varname#_capi = Py_None;z) PyTupleObject *#varname#_xa_capi = NULL;z+ PyTupleObject *#varname#_args_capi = NULL;z int #varname#_nofargs_capi = 0;z! #cbname#_typedef #varname#_cptr;z"#varname#_extra_args",OzO!z,&#varname#_capiz!,&PyTuple_Type,&#varname#_xa_capiz(setjmp(#cbname#_jmpbuf))z#varname#_cptr,z#cbname#zsetjmp.h)r r rq rs ry rw rH r r r r r r r ro r| rj r zif(F2PyCapsule_Check(#varname#_capi)) {
#varname#_cptr = F2PyCapsule_AsVoidPtr(#varname#_capi);
} else {
#varname#_cptr = #cbname#;
}
a if (#varname#_capi==Py_None) {
#varname#_capi = PyObject_GetAttrString(#modulename#_module,"#varname#");
if (#varname#_capi) {
if (#varname#_xa_capi==NULL) {
if (PyObject_HasAttrString(#modulename#_module,"#varname#_extra_args")) {
PyObject* capi_tmp = PyObject_GetAttrString(#modulename#_module,"#varname#_extra_args");
if (capi_tmp) {
#varname#_xa_capi = (PyTupleObject *)PySequence_Tuple(capi_tmp);
Py_DECREF(capi_tmp);
}
else {
#varname#_xa_capi = (PyTupleObject *)Py_BuildValue("()");
}
if (#varname#_xa_capi==NULL) {
PyErr_SetString(#modulename#_error,"Failed to convert #modulename#.#varname#_extra_args to tuple.\n");
return NULL;
}
}
}
}
if (#varname#_capi==NULL) {
PyErr_SetString(#modulename#_error,"Callback #varname# not defined (as an argument or module #modulename# attribute).\n");
return NULL;
}
}
a #varname#_nofargs_capi = #cbname#_nofargs;
if (create_cb_arglist(#varname#_capi,#varname#_xa_capi,#maxnofargs#,#nofoptargs#,&#cbname#_nofargs,&#varname#_args_capi,"failed in processing argument list for call-back #varname#.")) {
jmp_buf #varname#_jmpbuf;z fprintf(stderr,"debug-capi:Assuming %d arguments; at most #maxnofargs#(-#nofoptargs#) is expected.\n",#cbname#_nofargs);
CFUNCSMESSPY("for #varname#=",#cbname#_capi);zE fprintf(stderr,"#vardebugshowvalue# (call-back in C).\n",#cbname#);z CFUNCSMESS("Saving jmpbuf for `#varname#`.\n");
SWAP(#varname#_capi,#cbname#_capi,PyObject);
SWAP(#varname#_args_capi,#cbname#_args_capi,PyTupleObject);
memcpy(&#varname#_jmpbuf,&#cbname#_jmpbuf,sizeof(jmp_buf));a CFUNCSMESS("Restoring jmpbuf for `#varname#`.\n");
#cbname#_capi = #varname#_capi;
Py_DECREF(#cbname#_args_capi);
#cbname#_args_capi = #varname#_args_capi;
#cbname#_nofargs = #varname#_nofargs_capi;
memcpy(&#cbname#_jmpbuf,&#varname#_jmpbuf,sizeof(jmp_buf));
}ZSWAPZcreate_cb_arglist)rI rJ rj r r z3 fprintf(stderr,"#vardebugshowvalue#\n",#varname#);z &#varname#,)rH rM r| r r )rj r zW f2py_success = try_pyarr_from_#ctype#(#varname#_capi,&#varname#);
if (f2py_success) {z/ } /*if (f2py_success) of #varname# pyobjfrom*/ztry_pyarr_from_#ctype#) rH r r r r rM rN rj r z8 if (#varname#_capi == Py_None) #varname# = #init#; elser z if (#varname#_capi != Py_None)z f2py_success = #ctype#_from_pyobj(&#varname#,#varname#_capi,"#pyname#() #nth# (#varname#) can't be converted to #ctype#");
if (f2py_success) {z` #varname# = (#ctype#)PyObject_IsTrue(#varname#_capi);
f2py_success = 1;
if (f2py_success) {z% } /*if (f2py_success) of #varname#*/z#ctype#_from_pyobj)rI rj r r )rI r r zA fprintf(stderr,"#vardebugshowvalue#\n",#varname#.r,#varname#.i);z,#varname#_capi)rH r| rM r r zY f2py_success = try_pyarr_from_#ctype#(#varname#_capi,&#varname#);
if (f2py_success) {z0 } /*if (f2py_success) of #varname# pyobjfrom*/) rH r r r r rj rM rN r zT if (#varname#_capi==Py_None) {#varname#.r = #init.r#, #varname#.i = #init.i#;} elsez0 } /*if (f2py_success) of #varname# frompyobj*/)rH r z1 #varname#_capi = pyobj_from_#ctype#1(#varname#);)rM rj r zslen(#varname#),zC fprintf(stderr,"#vardebugshowvalue#\n",slen(#varname#),#varname#);)rH r| r} rM r rj r z slen(#varname#) = #length#;
f2py_success = #ctype#_from_pyobj(&#varname#,&slen(#varname#),#init#,#varname#_capi,"#ctype#_from_pyobj failed in converting #nth# `#varname#' of #pyname# to C #ctype#");
if (f2py_success) {z? STRINGFREE(#varname#);
} /*if (f2py_success) of #varname#*/zV f2py_success = try_pyarr_from_#ctype#(#varname#_capi,#varname#);
if (f2py_success) {)r r r r rM rN rj r z* PyArrayObject *capi_#varname#_tmp = NULL;z int capi_#varname#_intent = 0;z,capi_#varname#_tmp)rH r| r rj r z" int capi_overwrite_#varname# = 1;z"overwrite_#varname#",iz,&capi_overwrite_#varname#zoverwrite_#varname#=1,zoverwrite_#varname#,z9overwrite_#varname# : input int, optional\n Default: 1)rH r r r r r rq r zH capi_#varname#_intent |= (capi_overwrite_#varname#?0:F2PY_INTENT_COPY);z" int capi_overwrite_#varname# = 0;zoverwrite_#varname#=0,z9overwrite_#varname# : input int, optional\n Default: 0)rH r r r r r z #setdims#;z# capi_#varname#_intent |= #intent#;zl capi_#varname#_tmp = array_from_pyobj(#atype#,#varname#_Dims,#varname#_Rank,capi_#varname#_intent,Py_None);zs capi_#varname#_tmp = array_from_pyobj(#atype#,#varname#_Dims,#varname#_Rank,capi_#varname#_intent,#varname#_capi);aR if (capi_#varname#_tmp == NULL) {
PyObject *exc, *val, *tb;
PyErr_Fetch(&exc, &val, &tb);
PyErr_SetString(exc ? exc : #modulename#_error,"failed in converting #nth# `#varname#' of #pyname# to C/Fortran array" );
npy_PyErr_ChainExceptionsCause(exc, val, tb);
} else {
#varname# = (#ctype# *)(PyArray_DATA(capi_#varname#_tmp));
z! if (#varname#_capi == Py_None) {z {z #ctype# capi_c;a int *_i,capi_i=0;
CFUNCSMESS("#name#: Initializing #varname#=#init#\n");
if (initforcomb(PyArray_DIMS(capi_#varname#_tmp),PyArray_NDIM(capi_#varname#_tmp),1)) {
while ((_i = nextforcomb()))
#varname#[capi_i++] = #init#; /* fortran way */
} else {
PyObject *exc, *val, *tb;
PyErr_Fetch(&exc, &val, &tb);
PyErr_SetString(exc ? exc : #modulename#_error,"Initialization of #nth# #varname# failed (initforcomb).");
npy_PyErr_ChainExceptionsCause(exc, val, tb);
f2py_success = 0;
}
}
if (f2py_success) {z= } /*if (capi_#varname#_tmp == NULL) ... else of #varname#*/zY if((PyObject *)capi_#varname#_tmp!=#varname#_capi) {
Py_XDECREF(capi_#varname#_tmp); }z! Py_XDECREF(capi_#varname#_tmp);z+ } /*if (f2py_success) of #varname# init*/)rI rJ r r z3 fprintf(stderr,"debug-capi:Checking `#check#'\n");)rI rj zN CHECKSCALAR(#check#,"#check#","#nth# #varname#","#varshowvalue#",#varname#) {z } /*CHECKSCALAR(#check#)*/Z CHECKSCALAR)rI rJ rj r _breakzN CHECKSTRING(#check#,"#check#","#nth# #varname#","#varshowvalue#",#varname#) {z } /*CHECKSTRING(#check#)*/Z CHECKSTRINGZ
CHECKARRAYz2 CHECKARRAY(#check#,"#check#","#nth# #varname#") {z } /*CHECKARRAY(#check#)*/)rj rI rJ r r Z CHECKGENERICz4 CHECKGENERIC(#check#,"#check#","#nth# #varname#") {z } /*CHECKGENERIC(#check#)*/)rj rI rJ c ( C sv t d| d i }tdd }tj| }tdti|}g }g }x | d D ]}d} xJ| d D ]>}
|
d dksztd q`x"|
d D ]} | d |kr| } P qW q`W | std
| qL| g} d | krxB| d j D ]2\}
}tj | }|d = |
|d< ||d < | j
| qW xT| D ]L} t | \}}|rDt | r:|j
| n
|j
| t
||}t||}qW qLW tj| \}}|r|j
| t
||}t||}tj| \}}|r|j
| t
||}t||}x0|D ](}tj|| d
|d }t||}qW tj }i }xJ|j D ]<}g ||< x*|| D ] }
d}|
tjkrLtj|
}n|
tjkrdtj|
}n|
tjkr|tj|
}n|
tjkrtj|
}n|
tjkrtj|
}n|
tjkrtj|
}nt|
tjkrtj|
}n\|
tj krtj |
}nD|
tj kr tj |
}n,|
tj kr$tj |
}ntdt |
q*|| j
| q*W qW |j
| xF|D ]>}d|kr~|d | sd|krbt
||| }t||}qbW t
t |}t!j"j#t$d |d }||d< t%|d }|j&|d j'dd< W dQ R X t d| d |f t$d r|t!j"j#t$d |d d }t%|d$}|j&d |j&d j#|d W dQ R X t d t$d |d f t$d! r t!j"j#t$d |d d" }||d#< t%|dP}|j&d$t d%t$kr|j&d& |j&d j#|d' d%t$kr|j&d( W dQ R X t d)t$d |d f |r2t!j"j#t$d |d* } | |d+< t%| d}|j&d, |j&d-t |j&d. g } xd/j#|d j(d D ]p} | r| d0 dkrx6t)| d1kr| j
| dd1 d2 | d1d } qW | j
| d n| j
| d qW dj#| j'd3d } |j&| W dQ R X t d4| |rrt!j"j#t$d d5|d } | |d+< t%| d}|j&d6 |j&d7t |j&d8 g } xd/j#|d j(d D ]} t)| d9kr,| d0 dkr,| j
| dd9 d: | d9d } x6t)| d1kr| j
| dd1 d: | d1d } qW | j
| d n| j
| d qW dj#| j'd3d } |j&| W dQ R X t d;| |S )=z
Return
z Building module "%s"...
nameN f2py_versionZ
interfacedrf blockZ interfacez1buildmodule: Expected interface block. Skipping.
zLbuildmodule: Could not found the body of interfaced routine "%s". Skipping.
entryargsZusere z buildmodule: unknown need %s.
r Z buildpathZcoutputZcsrcwrc z& Wrote C/API module "%s" to file "%s"
Z dorestdoc
modulenamez module.restz.. -*- rest -*-
r` rX z8 ReST Documentation is saved to file "%s/%smodule.rest"
Z
dolatexdocz
module.texZltxz6%% This file is auto-generated with f2py (version:%s)
Z
shortlatexzO\documentclass{article}
\usepackage{a4wide}
\begin{document}
\tableofcontents
rW z\end{document}z2 Documentation is saved to file "%s/%smodule.tex"
Zf2py_wrapper_outputfsrczC -*- fortran -*-
z8C This file is autogenerated with f2py (version:%s)
zt D ]6}d|kr|d | sd|krtt
||| }t||}qtW d<\} }
i } x|D ] } tj | || }t || rt
}
ntt}
t|| sVt|| s0| d } t| t| d d
|d < n$|
d }
t|
t|
d d |d < nd
|d < || | < xh|
D ]`}d|kr~qld|kr|d || sd|krlt
|||| }t||}d|krlP qlW qW x|D ]} t || rt
}
nt}
| | }xh|
D ]`}d|krqd|kr2|d || sNvarsz, Constructing wrapper function "%s.%s"...
r r z( Constructing wrapper function "%s"...
r r r r z argumentnthz keywordhiddenr r checkrJ rN z #docsign##docsignopt##docsignxa#r~ r r )r~ r r Z docsignaturez#docsignopt##docsignxa#r r )r r re z #docsign#Zdocsignatureshortz#docsign#[#docsignopt#])r~ r _z\_Zlatexdocsignatureshort,z, z #callfortran##callfortranappend#r| r} )r| r} z##callfortran# 0,#callfortranappend#Zcallcompaqfortranr z #docreturn#z = rt ru rp rq rr rs Zlatexz\begin{description}z\end{description}z %s
ri z %s
)r r )rp rq rr rs )rG Zassubrr
rB depargsr* r? Z routsign2mapr
rout_rulesr Zsign2mapr aux_rules arg_rulesr r+ r stnd check_rules
isinstancelistreverserA r@ r
routine_rules)Zroutr r r varr r r r r ZnthkZsavevrdr Z_rulesr ZoptargsZcfsr r r r r 9 s
&
&
,
r )rH rI rJ rK rL rM rN rO rP rQ rR rS rT rU rC rV rW rX rY rZ r[ r\ r] r^ r_ )`__doc__r re versionr r timer Zauxfuncsr r r r r r
r r r
r r r r r r r r r r r r r r r r r r r r! r" r# r$ r% r& r' r( r) r* r+ r, r- r. r/ r0 r1 r2 r3 r4 r5 r6 r7 r8 r9 r: r; r< r= r> r? r@ rA rB rC rD rE rF rG r Zsepdictr intenvirongetZgenerationtimeasctimegmtimer r r r Ztypedef_need_dictr r r r r r r r r r 4 sj
^!
8
2