U
|
P ±dFû ã 2 @ s8 d Z ddlZddlZddlZddlZddlmZ ddlmZ ddl 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>m?Z?m@Z@mAZAmBZBmCZCmDZDmEZEmFZFmGZGmHZHmIZImJZJmKZKmLZL ddlmMZM ddlmNZN dd lmOZO dd
|
lmPZP dd lmQZQ dd lmRZR ejSZTejSZUi ZVi ZWd D ]ZXdeWeX< q°eYejZ [de ¡ ¡Z\de ]e ^e\¡¡ d ed d ed d ed d ed d ed d ed d ed d ed d! ed" d# ed$ d% ed& d' ed( d) ed* d+ ed, d- ed. d/ eU d0 d+d+d1d2d3d4gd5d6gd7Z_d8d9d:d;d<d=d>d?d?ed@eGed?idA
|
gZ`eWdBdCdDdEdFdGdHdIdJdKge dLidMdNgdOgdP ZaddddddQdddddRddddddSd?d?d?d?d?d?dTdUd?d?d?d?dVdWdXdYdZd[d\d]d?d?d?d^d_gd`dagdbdcdddedfd?d?d?d?d?d?d?d?d?d?d?d?d?edgeGed?idh/didjd?eGe3dkdldmd?e3dkdneFeGeHe3e%eGe doeFeGe3e%eGe dpe3d?e d?ieGeHe3e%e dqeFeGe3e%eGe dreFeGe3e dsieFeGeHe3e%eGe dtie dugiedvie>dwiedxieGeHee dyie>dzied{igeFe;eGe=d|dneGeHe3e d}e d?ieGeHe3e d~e dsieGeHe3e dieGeHe3e ddtgie dgiedie>dieGeHee died
ie>diedige!ddneGeHe3e d}e d?ieGeHe3e d~e dsieGeHe3e dieGeHe3e ddtgie dgiedie>dieGeHee died
ie>diedige=ddeGe(diddedigeFe e:dieFe eGe:digeFe eGe!deFeGeHe3e%eGe deFeGe3e%eGe de d?ieFeGeHe3e%eGe dqeFeGe3e%eGe dre die deGe die digedie>diedieGeHee die>diedieFe e dieFe eGe dige dieGe dtie die2die0digeGe(d ie d¡eGeHe e(d¢ieFe eGe:eGe!d£ doeGeHe3e%d¤eFeGe3e%d¥id¦d§gd¨d©dªd«d¬dd®dd¯edvie>d°id±e>d²ied{ie d³id´gd d¢dµdtdd¶geFe:eGe!d·
|
d¸d¹dºe d»g
|
Zbe1de/de.d¼e@d½eDd¾e?d¿eBdÀeAd½eEd¾eCdÀe7de"dÁedÂi ZcdÃeWidÄe dÅigdÆecdÇdÈedÉiedÊieFe6eGedËdÌddÍdÎeFe6eGee+dÏdÐedÑiedÒdÓdÔgdÕge8dÖd×dØdÙgdÕedÚiedJigedÖdÛeFeeGeidÛeFeeGee*ide#d?dÜdeHeAe@d?dÜdeEd?dÜdeCd?dÜded?dÜedÝidÞe9dßgZddÃeWidàe dÅigdÆd?ecdáeFe4e*dâieFe5e*dâie+dieFe4e*dãedgigieFe5e*dãedgigie+deFee(dgeFee*däigid?dådædçeFe*eGe4dèdædédçeFe*e4dêdÍdÎe+dëe*dìie*díie*dîidïdðe*dñidòdódôeGe&dõige*döie5d÷ie4d÷ie*døie5dùie4dùidúdûeGe&düidýdþge dÿeGe&d ie&dide deGe&digidgdddge d?d dÈe d
|
ieHe%e<dçeGeHe%e<d ie+dÌieFe6eGed edÉieFe6eGed de5d÷ie4d÷ie5die4die)die)die)dieFe6eGeeGe8e*d eddd?ieFe4eGeddd?ieGe-die-digdeGe-dieFe6eGee*d?d edÊieceFe6eGee(d?de d
|
ieFe6eGed?d dÐe%dçeGe%d ie d ie+d ied de5d÷ie4d÷ie5die4die)die)d ie)d!ieFee*d" ed#ieFe4eGedidgd$dgeFee*d?d e+dieFee(d%edÑieFee(d?d e+d&idged'e d ied?d dÓdÔdgdçd(e d)ieFe+eGe%d*ige+dÌidÕeFe+eGe%d+ige8d,d-eGe%d.igd/ddÕd¶eGe%d+ige8d?d e5d÷ie4d÷ie5die4dieFe)eGe%d*ie)d0ige)die)deFe)eGe%d+ieFe8e*d1dÛeFe8e(ie d)ie8d?d d×dØdÙd2d3e9d4igdçe9d(ie+d5idÕed6d7d8d9d:d;d<d=eFee,d>d?eFee,d?d d@d8d9d:dAd<dBeFee'd>d?eFee'd?d edÚiedJiged?dÜde5d÷ie4d÷ie5die4dieFee*dCdDdEdFe(dGie*dHidIe9dJiee*dKie(dLiedMidNgigdOeGeHe+e(dPieFe(eGe+dQiedRiged?dSdÛeFeeGeidÛeFeeGee*ide#d?dÜdeAd?dÜdeEd?dÜdeCd?dÜded?dÜdÞed dÞed edÝidÞe9dßg,Zee dTidÕdUdVdWdXeFe6eGed?dYdZd[d\e8d?dYd]d^d_ed?d`dadbdcddgZfdedf Zgdgdhdidjdjdjdjdjdjdjdk
|
Zhdldm ZidS (n 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 <pearu@ioc.ee>
|
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
|
|
é N)ÚPathé )Ú __version__)CÚ
|
applyrulesÚ debugcapiÚ
|
dictappendÚerrmessÚgentitleÚgetargs2ÚhascallstatementÚ hasexternalsÚ hasinitvalueÚhasnoteÚ hasresultnoteÚisarrayÚisarrayofstringsÚ ischaracterÚischaracterarrayÚ ischaracter_or_characterarrayÚ iscomplexÚiscomplexarrayÚiscomplexfunctionÚiscomplexfunction_warnÚisdummyroutineÚ
|
isexternalÚ
|
isfunctionÚisfunction_wrapÚisint1Ú isint1arrayÚ isintent_auxÚ
|
isintent_cÚisintent_callbackÚ isintent_copyÚ isintent_hideÚisintent_inoutÚisintent_nothideÚ isintent_outÚisintent_overwriteÚ islogicalÚislong_complexÚ islong_doubleÚislong_doublefunctionÚ islong_longÚislong_longfunctionÚismoduleroutineÚ
|
isoptionalÚ
|
isrequiredÚisscalarÚissigned_long_longarrayÚisstringÚ isstringarrayÚisstringfunctionÚ issubroutineÚ isattr_valueÚissubroutine_wrapÚ isthreadsafeÚ
|
isunsignedÚisunsigned_charÚisunsigned_chararrayÚisunsigned_long_longÚisunsigned_long_longarrayÚisunsigned_shortÚisunsigned_shortarrayÚl_andÚl_notÚl_orÚoutmessÚreplaceÚ
|
stripcommaÚrequiresf90wrapper)Ú capi_maps)Úcfuncs)Ú common_rules)Ú use_rules)Ú f90mod_rules)Ú func2subr)ÚdeclÚ frompyobjÚcleanupfrompyobjÚtopyarrÚmethodÚ pyobjfromÚclosepyobjfromÚfreememÚ userincludesÚ includes0ÚincludesÚtypedefsÚtypedefs_generatedÚ cppmacrosrI Ú callbacksÚlatexdocÚrestdocÚ routine_defsÚexternroutinesÚinitf2pywraphooksÚ commonhooksÚinitcommonhooksÚ f90modhooksÚinitf90modhooksÚ
|
ÚSOURCE_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 <pearu@cens.ioc.ee>.
|
* Generation date: a
|
* 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 <Python.h>
|
#include <numpy/npy_os.h>
|
|
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&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 = PyUnicode_FromString("#f2py_version#");
|
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);
|
s = PyUnicode_FromString("az ");
|
PyDict_SetItemString(d, "__f2py_numpy_version__", 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
|
)r] r^ z*\section{Module \texttt{#texmodulename#}}
|
z
|
#modnote#
|
z
|
#latexdoc#zdModule #modulename#
|
================================================================================z
|
|
#restdoc#)Ú
|
modulebodyÚ separatorsforr] r^ z /*eof body*/z/*eof method*/z/*eof externroutines*/z/*eof routine_defs*/z/*eof initf90modhooks*/z/*eof initf2pywraphooks*/z/*eof initcommonhooks*/Ú z#note#)
|
ÚbodyrR r` r_ re ra rc r] r^ 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#
|
zlWrapped function ``#name#``
|
--------------------------------------------------------------------------------) rj rl r_ ra r` ÚdocÚdocshortZdocsÚneedr[ r] r^ z || z\n"
|
")ÚcallfortranroutineÚroutdebugenterrN ÚroutdebugleaveÚroutdebugfailureÚ setjmpbufÚ docstrreqÚ docstroptÚ docstroutÚ docstrcbsÚ docstrsignsÚlatexdocstrsignsÚlatexdocstrreqÚlatexdocstroptÚlatexdocstroutÚlatexdocstrcbsz/*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#)/rj ÚkwlistÚ kwlistoptÚ callfortranÚcallfortranappendÚdocsignÚ
|
docsignoptrN rU Z docsignshortÚdocsignoptshortry rz ru rv rw rx r{ r| r} r~ Ú args_capiÚ keys_capiÚfunctyperO rP rS rT rQ rr rq rs rp Ú argformatÚ keyformatZ need_cfuncsÚ docreturnÚreturnÚ returnformatZrformatÚkwlistxaÚkeys_xaÚxaformatÚ docsignxaÚdocsignxashortÚinitf2pywraphookZroutnotez f2py_rout_#modulename#_#name#z#modulename#.#name#)ZapinameZpynamerN Ú_checkz-f2py_rout_#modulename#_#f90modulename#_#name#z##modulename#.#f90modulename#.#name#ZvoidzGextern void #F_FUNC#(#fortranname#,#FORTRANNAME#)(#callprotoargument#);z/extern void #fortranname#(#callprotoargument#);zw {"#name#",-1,{{-1}},0,0,(char *) #F_FUNC#(#fortranname#,#FORTRANNAME#), (f2py_init_func)#apiname#,doc_#apiname#},z] {"#name#",-1,{{-1}},0,0,(char *)#fortranname#, (f2py_init_func)#apiname#,doc_#apiname#},zL {"#name#",-1,{{-1}},0,0,NULL, (f2py_init_func)#apiname#,doc_#apiname#},ZF_FUNCzU fprintf(stderr,"debug-capi:Fortran subroutine `#fortranname#(#callfortran#)'\n");zI if (#setjmpbuf#) {
|
f2py_success = 0;
|
} else {z" Py_BEGIN_ALLOW_THREADSzQ #callstatement#;
|
/*(*f2py_func)(#callfortran#);*/z, (*f2py_func)(#callfortran#);z Py_END_ALLOW_THREADSz })r ÚdeclfortranroutineÚ routine_defro rp r zFextern void #F_WRAPPEDFUNC#(#name_lower#,#NAME#)(#callprotoargument#);zv {"#name#",-1,{{-1}},0,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_WRAPPEDFUNCz\ fprintf(stderr,"debug-capi:Fortran subroutine `f2pywrap#name_lower#(#callfortran#)'\n");z= if (#setjmpbuf#) {
|
f2py_success = 0;
|
} else {z Py_BEGIN_ALLOW_THREADSz (*f2py_func)(#callfortran#);z9 #callstatement#;
|
/*(*f2py_func)(#callfortran#);*/z Py_END_ALLOW_THREADSz })r r r r ro rp 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
|
zZ fprintf(stderr,"debug-capi:Fortran function #ctype# #fortranname#(#callfortran#)\n");
|
)r r rw r} rp r zJextern #ctype# #F_FUNC#(#fortranname#,#FORTRANNAME#)(#callprotoargument#);z2extern #ctype# #fortranname#(#callprotoargument#);zJ {"#name#",-1,{{-1}},0,0,NULL,(f2py_init_func)#apiname#,doc_#apiname#},z& #ctype# #name#_return_value={0,0};z" #ctype# #name#_return_value=0;z1 PyObject *#name#_return_value_capi = Py_None;zP #callstatement#;
|
/* #name#_return_value = (*f2py_func)(#callfortran#);*/
|
z6 #name#_return_value = (*f2py_func)(#callfortran#);zY fprintf(stderr,"#routdebugshowvalue#\n",#name#_return_value.r,#name#_return_value.i);zA fprintf(stderr,"#routdebugshowvalue#\n",#name#_return_value);zH #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 rN rp rS ro r r r zs {"#name#",-1,{{-1}},0,0,(char *)#F_FUNC#(#fortranname#,#FORTRANNAME#),(f2py_init_func)#apiname#,doc_#apiname#},z[ {"#name#",-1,{{-1}},0,0,(char *)#fortranname#,(f2py_init_func)#apiname#,doc_#apiname#},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#;zS if ((#name#_return_value = (string)malloc(#name#_return_value_len+1) == NULL) {z< PyErr_SetString(PyExc_MemoryError, "out of memory");z f2py_success = 0;z } else {z> (#name#_return_value)[#name#_return_value_len] = '\0';z if (f2py_success) {z Py_BEGIN_ALLOW_THREADSzv#ifdef USESCOMPAQFORTRAN
|
(*f2py_func)(#callcompaqfortran#);
|
#else
|
(*f2py_func)(#callfortran#);
|
#endif
|
z Py_END_ALLOW_THREADSz] fprintf(stderr,"#routdebugshowvalue#\n",#name#_return_value_len,#name#_return_value);z2 } /* if (f2py_success) after (string)malloc */z$ STRINGFREE(#name#_return_value);Z
|
STRINGFREE)
|
r r rN r rp r r rU ro r z] fprintf(stderr,"debug-capi:Python C/API function #modulename#.#name#(#docsignature#)\n");zZ fprintf(stderr,"debug-capi:Python C/API function #modulename#.#name#: successful.\n");zW fprintf(stderr,"debug-capi:Python C/API function #modulename#.#name#: failure.\n");)rq rr rs r Zcomplex_long_doubleZ unsigned_charZunsigned_shortZunsignedZunsigned_long_longZ signed_charÚ characterrj z1 /* Processing auxiliary variable #varname# */z' fprintf(stderr,"#vardebuginfo#\n");z, /* End of cleaning variable #varname# */)rO rP ro z #ctype# #varname# = 0;zmath.hz #varname# = #init#;)rN ro rO r z
|
,#varname#z #outvarname#,z #varrformat#)r rw r r r z #ctype# #varname#;z3 #varname#.r = #init.r#, #varname#.i = #init.i#;)rN rO r z #ctype# #varname# = NULL;z int slen(#varname#);zlen..)rN ro r z #ctype# *#varname# = NULL;z4 npy_intp #varname#_Dims[#rank#] = {#rank*[-1]#};z& const int #varname#_Rank = #rank#;Zforcombr )ro r Ú_dependzflen(#varname#),Ústring)r ro r z' /* Processing variable #varname# */)rO rP r ro z #pydocsign#z \item[]{{}\verb@#pydocsign#@{}}z--- See above.)rv ru rw r| r{ r} Zdependz "#varname#",z
|
#varname#,)r 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#@{}}.z3 #cbname#_t #varname#_cb = { Py_None, NULL, 0 };z1 #cbname#_t *#varname#_cb_ptr = &#varname#_cb;z, PyTupleObject *#varname#_xa_capi = NULL;z$ #cbname#_typedef #varname#_cptr;z"#varname#_extra_args",ÚOzO!z,&#varname#_cb.capiz!,&PyTuple_Type,&#varname#_xa_capiz (setjmp(#varname#_cb.jmpbuf))z#varname#_cptr,z#cbname#zsetjmp.h)r r rv rx r~ r| rN r r r r r r r rt r ro r zif(F2PyCapsule_Check(#varname#_cb.capi)) {
|
#varname#_cptr = F2PyCapsule_AsVoidPtr(#varname#_cb.capi);
|
} else {
|
#varname#_cptr = #cbname#;
|
}
|
aË if (#varname#_cb.capi==Py_None) {
|
#varname#_cb.capi = PyObject_GetAttrString(#modulename#_module,"#varname#");
|
if (#varname#_cb.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#_cb.capi==NULL) {
|
PyErr_SetString(#modulename#_error,"Callback #varname# not defined (as an argument or module #modulename# attribute).\n");
|
return NULL;
|
}
|
}
|
zÈ if (create_cb_arglist(#varname#_cb.capi,#varname#_xa_capi,#maxnofargs#,#nofoptargs#,&#varname#_cb.nofargs,&#varname#_cb.args_capi,"failed in processing argument list for call-back #varname#.")) {
|
z¾ fprintf(stderr,"debug-capi:Assuming %d arguments; at most #maxnofargs#(-#nofoptargs#) is expected.\n",#varname#_cb.nofargs);
|
CFUNCSMESSPY("for #varname#=",#varname#_cb.capi);zK fprintf(stderr,"#vardebugshowvalue# (call-back in C).\n",#cbname#);z CFUNCSMESS("Saving callback variables for `#varname#`.\n");
|
#varname#_cb_ptr = swap_active_#cbname#(#varname#_cb_ptr);zº CFUNCSMESS("Restoring callback variables for `#varname#`.\n");
|
#varname#_cb_ptr = swap_active_#cbname#(#varname#_cb_ptr);
|
Py_DECREF(#varname#_cb.args_capi);
|
}ZSWAPZcreate_cb_arglist)rO rP ro r r z6 fprintf(stderr,"#vardebugshowvalue#\n",#varname#);z &#varname#,)rN rS r r r )ro r z' PyObject *#varname#_capi = Py_None;z,&#varname#_capiz] f2py_success = try_pyarr_from_#ctype#(#varname#_capi,&#varname#);
|
if (f2py_success) {z2 } /*if (f2py_success) of #varname# pyobjfrom*/ztry_pyarr_from_#ctype#) rN r r r r rS rT ro r z; 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) {zo #varname# = (#ctype#)PyObject_IsTrue(#varname#_capi);
|
f2py_success = 1;
|
if (f2py_success) {z( } /*if (f2py_success) of #varname#*/z#ctype#_from_pyobj)rO ro r r )rO r r zD fprintf(stderr,"#vardebugshowvalue#\n",#varname#.r,#varname#.i);z,#varname#_capi)rN r rS r r ze f2py_success = try_pyarr_from_#ctype#(#varname#_capi,&#varname#);
|
if (f2py_success) {z6 } /*if (f2py_success) of #varname# pyobjfrom*/) rN r r r r ro rS rT r zW if (#varname#_capi==Py_None) {#varname#.r = #init.r#, #varname#.i = #init.i#;} elsez3 } /*if (f2py_success) of #varname# frompyobj*/)rN r z4 #varname#_capi = pyobj_from_#ctype#1(#varname#);)rS ro r zslen(#varname#),zF fprintf(stderr,"#vardebugshowvalue#\n",slen(#varname#),#varname#);z: STRINGPADN(#varname#, slen(#varname#), ' ', '\0');Z
|
STRINGPADN)rN r r rS r ro r zå slen(#varname#) = #elsize#;
|
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: STRINGPADN(#varname#, slen(#varname#), '\0', ' ');zH STRINGFREE(#varname#);
|
} /*if (f2py_success) of #varname#*/z f2py_success = try_pyarr_from_#ctype#(#varname#_capi, #varname#,
|
slen(#varname#));
|
if (f2py_success) {)r r r r rS rT ro r z2 PyArrayObject *capi_#varname#_as_array = NULL;z" int capi_#varname#_intent = 0;z int slen(#varname#) = 0;z,capi_#varname#_as_array)rN r r r ro 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)rN r r r r r rv r zK 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)rN r r r r r z #setdims#;z& capi_#varname#_intent |= #intent#;zk const char * capi_errmess = "#modulename#.#pyname#: failed to create array from the #nth# `#varname#`";z capi_#varname#_as_array = ndarray_from_pyobj( #atype#,#elsize#,#varname#_Dims,#varname#_Rank, capi_#varname#_intent,Py_None,capi_errmess);z capi_#varname#_as_array = ndarray_from_pyobj( #atype#,#elsize#,#varname#_Dims,#varname#_Rank, capi_#varname#_intent,#varname#_capi,capi_errmess);a9 if (capi_#varname#_as_array == NULL) {
|
PyObject* capi_err = PyErr_Occurred();
|
if (capi_err == NULL) {
|
capi_err = #modulename#_error;
|
PyErr_SetString(capi_err, capi_errmess);
|
}
|
} else {
|
#varname# = (#ctype# *)(PyArray_DATA(capi_#varname#_as_array));
|
z/ slen(#varname#) = f2py_itemsize(#varname#);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#_as_array),
|
PyArray_NDIM(capi_#varname#_as_array),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) {zG } /* if (capi_#varname#_as_array == NULL) ... else of #varname# */zl if((PyObject *)capi_#varname#_as_array!=#varname#_capi) {
|
Py_XDECREF(capi_#varname#_as_array); }z, Py_XDECREF(capi_#varname#_as_array);z. } /*if (f2py_success) of #varname# init*/)rO rP r r z6 fprintf(stderr,"debug-capi:Checking `#check#'\n");)rO ro zQ CHECKSCALAR(#check#,"#check#","#nth# #varname#","#varshowvalue#",#varname#) {z } /*CHECKSCALAR(#check#)*/Z CHECKSCALAR)rO rP ro r Ú_breakzQ CHECKSTRING(#check#,"#check#","#nth# #varname#","#varshowvalue#",#varname#) {z } /*CHECKSTRING(#check#)*/Z CHECKSTRINGZ
|
CHECKARRAYz5 CHECKARRAY(#check#,"#check#","#nth# #varname#") {z } /*CHECKARRAY(#check#)*/)ro rO rP r r Z CHECKGENERICz7 CHECKGENERIC(#check#,"#check#","#nth# #varname#") {z } /*CHECKGENERIC(#check#)*/)ro rO rP c " C s t d| d i }tdd
}t | ¡}tdti|}g }g }| d D ]È}d} | d D ]<}
|
|
|
d dkrttd qZ|
|
d D ]} | d |kr|| } qZq|qZ| s°td
|
| tj d qH| g} d | krþ| d
|
¡ D ]2\} }t | ¡}|d = | |d< ||d < | |¡ qÊ| D ] } t| }td rÌtd }|d }t d t| d|d ¡ |r¤t d| d t| d| d ¡ t d| d t| d| d ¡ n(t d| d t| d| d ¡ t| \}}|rú|rð| |¡ n
|
| |¡ t||}t||}qqHt | ¡\}}|r2| |¡ t||}t||}t | ¡\}}|rd| |¡ t||}t||}|D ](}t || d |d ¡}t||}q|t ¡ }|d dd tjD 7 < i }| ¡ D ]6}g ||< || D ] } d }| tj krtj | }nì| tj kr&tj | }nÔ| tj kr>tj | }n¼| tj krVtj | }n¤| tj!krntj!| }n| tj"krtj"| }nt| tjkrtj| }n\| tj#kr¶tj#| }nD| tj$krÎtj$| }n,| tj%krætj%| }ntd t&| qì|| |¡ qìqÖ| |¡ |D ]>} d | kr:| d | sDd | kr t| || }t||}q tt'|}t(j) *td |d ¡} | |d < t+| d! } | ,|d" -d#d$¡¡ W 5 Q R X t d%| d | f td& r6t(j) *td |d d' ¡} t+| d!$} | ,d(¡ | ,d) *|d* ¡¡ W 5 Q R X t d+td |d f td, rÚt(j) *td |d d- ¡} | |d.< t+| d!P} | ,d/t ¡ d0tkr¤| ,d1¡ | ,d) *|d2 ¡¡ d0tkr¸| ,d3¡ W 5 Q R X t d4td |d f |rt(j) *td |d5 ¡} | |d6< t+| d!ü} | ,d7¡ | ,d8t ¡ | ,d9¡ g } d: *|¡d) .d)¡D ]}!d;|! /d<¡ krfd=k rzn n| |!d) ¡ nf|!rÒ|!d; d>krÒt0|!d=krÂ| |!dd=
d? ¡ |!d=d
}!q| |!d) ¡ n| |!d) ¡ qDd *| ¡ -d@d)¡} | ,| ¡ W 5 Q R X t dA| |rt(j) *td dB|d ¡} | |d6< t+| d!&} | ,dC¡ | ,dDt ¡ | ,dE¡ g } d: *|¡d) .d)¡D ]È}!d;|! /d<¡ kr¨dFk r¼n n| |!d) ¡ nt0|!dFkr>|!d; d>kr>| |!ddF
dG ¡ |!dFd
}!t0|!d=kr.| |!dd=
dG ¡ |!d=d
}!qú| |!d) ¡ n| |!d) ¡ qd *| ¡ -d@d)¡} | ,| ¡ W 5 Q R X t dH| |S )Iz
|
Return
|
z Building module "%s"...
|
ÚnameNÚ f2py_versionZ
|
interfacedrl Úblock)Z interfacezabstract interfacez1buildmodule: Expected interface block. Skipping.
|
zKbuildmodule: Could not find the body of interfaced routine "%s". Skipping.
|
)ÚfileÚentryÚargsZemptygenZ buildpathÚ
|
modulenamez( Generating possibly empty wrappers"
|
ú/Zcoutputz Maybe empty "z-f2pywrappers2.f90"
|
z-f2pywrappers2.f90z-f2pywrappers.f"
|
z-f2pywrappers.fZuserY c S s g | ]}|t ¡ kr|qS © )Útypedef_need_dictÚvalues)Ú.0Zcvarr¥ r¥ úGd:\z\workplace\vscode\pyvenv\venv\Lib\site-packages\numpy/f2py/rules.pyÚ
|
<listcomp>/ s ÿz buildmodule.<locals>.<listcomp>rk z buildmodule: unknown need %s.
|
r ZcsrcÚwri ú z z) Wrote C/API module "%s" to file "%s"
|
Z dorestdocz module.restz.. -*- rest -*-
|
rf r^ z; 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
|
|
r] z\end{document}z5 Documentation is saved to file "%s/%smodule.tex"
|
Zf2py_wrapper_outputÚfsrczC -*- fortran -*-
|
z8C This file is autogenerated with f2py (version:%s)
|
z<C It contains Fortran 77 wrappers to fortran functions.
|
rh r ú!éB ú z
|
&z
|
&
|
z* Fortran 77 wrappers are saved to "%s"
|
z%s-f2pywrappers2.f90z! -*- f90 -*-
|
z8! This file is autogenerated with f2py (version:%s)
|
z<! It contains Fortran 90 wrappers to fortran functions.
|
éH z&
|
&z* Fortran 90 wrappers are saved to "%s"
|
)1rD Ú defmod_rulesrH Z modsign2mapr r r ÚprintÚsysÚstderrÚitemsÚcopyÚdeepcopyÚappendrG Úoptionsr ÚtouchÚbuildapir rJ Z
|
buildhooksrL rK Z buildusevarsrI Z get_needsZ f2cmap_mappedÚkeysrW rX rV rY rZ r[ r\ rd rb ÚreprÚ module_rulesÚosÚpathÚjoinÚopenÚwriterE ÚsplitÚfindÚlen)"ÚmZumÚretZ mod_rulesÚvrdÚrdZ funcwrappersZ funcwrappers2ÚnÚnbZbiÚbZnb_listÚkÚaZnb1Zisf90Zb_pathZm_nameÚapiÚwrapÚarZcrÚmrÚuZneedsÚcodeÚcÚrÚfnÚfZwnÚlinesÚlr¥ r¥ r© Ú buildmoduleÜ s~
|
ÿ
|
|
|
|
|
|
|
|
|
|
|
|
"
|
|
|
ÿ
|
ÿ
|
|
ÿ ÿ
|
ÿ
|
ÿ
|
ÿÿ"
|
ÿ
|
ÿÿ" rÝ ÚstZndrË Úth)
|
r é é é é é é é é r c C sò t | ¡\} }t| \}}|t_| d }t| rJtd| d | d f ntd| d t | ¡}ti |}t D ]6}d|kr|d | sd|krrt
|
||| }t||}qrd\} }
|
i } |D ]
|
} t | || ¡}t || rât } ntt} t|| sNt|| s(| d } t| t| d d
|
|d < n$|
|
d }
|
t|
|
t|
|
d d |d < nd |d < || | < | D ]b}d|krtqbd|kr|d || sd|krbt
|
|||| }t||}d|krb qºqbqº|D ]Ô} t || rät } nt} | | }| D ]d}d|krqôd|kr"|d || s,d|krôt
|
|||| }t||}d|krô qZqôd|| krÌ|| d D ](}||d< t
|
t||| }t||}qtqÌt|d tr¾|d ¡ t|d trÚ|d ¡ ttd|d |d |d d|d< ttd|d |d d }|d krBttd d|d i|d < ntd |d |d!|d < |d d"d#¡|d$< |d$ d%d&¡|d$< ttd'|d( |d) d*}t|d) dkrÒttd+|d( |d) d*|d,< n||d,< ||d(< t|d- trttd.d-|d- id/ |d-< g |d0< g |d1< d2D ]}||krVt|| trV|d0 || |d0< d3| }||kr$t|| tr$|d1 || d4d
d5g || dd
d6g |d1< q$t
|
t|}t| rÚtd7|d8 ntd9|d8 ||fS ):NÚvarsz5 Constructing wrapper function "%s.%s"...
|
r£ r z. Constructing wrapper function "%s"...
|
r )r r r é
|
z argumentÚnthz keywordÚhiddenr r ÚcheckrP rT z #docsign##docsignopt##docsignxa#r r r )r r r Z docsignaturez#docsignopt##docsignxa#r r
)r r rk 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 = ry rz )ru rv rw rx Zlatexr z\begin{description}z\end{description}z %s
|
rn z %s
|
)rM Zassubrr
|
rH Údepargsr. rD Z routsign2mapr Ú
|
rout_rulesr Zsign2mapr Ú aux_rulesÚ arg_rulesr# r/ r¾ ÚstndÚ check_rulesÚ
|
isinstanceÚlistÚreverserF rE rÇ Ú routine_rules)ZroutrÒ r¢ rï ÚvarrÊ rË rØ rÓ rê ZnthkZsavevrdrÐ Z_rulesr× ZoptargsZcfsrÏ r¥ r¥ r© r¼ sö ÿ
|
|
|
|
&
|
|
|
|
&
|
|
|
þÿ
|
ÿÿ
|
ÿ
|
ÿÿÿ ÿ ÿ
|
ÿÿÿÿÿþ
|
|
r¼ )jÚ__doc__rÀ r´ Útimer· Úpathlibr rk r 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 rH rI rJ rK rL rM Úversionr Z numpy_versionrº ZsepdictrÏ ÚintÚenvironÚgetZgenerationtimeÚasctimeÚgmtimer¿ r² rø rð r¦ rñ rò rô rÝ ró r¼ r¥ r¥ r¥ r© Ú<module> sÈ 3 ÿ ûûëëçç ã ã à à#Ý#Ý&Ú&Ú)×)×,Ô,Ô2Î2Î5Ë5Ë8È8È;Å;Å>Â>Â@À@ÀC½C½kk
|
ÿþÿ ñ ÷ÿ8ÿ·R ù Ú(üü ý ÷ ÿ ÿó Ý% ÿ ú ÿ ÿÿóÕ- ÿ ú ÿ ÿÿóÕ-
|
ÿ ù ï þÿö ÿÿþ ÿÿñ
|
ý
|
ÿÑ1 ýÿÿç ×,ü å ' ô ÿÿü üû ýÿû þú
|
ÿ ÿþþþþþý±X ÿÿû
|
ÿ
|
ÿ
|
ÿÿõ ýüýÿý
|
é ýØ-
|
Ë9 û þÿõ ÿ ÿ é à"ü ýûõ ÿý÷ þýýýþÿ ÿûÿïÿø ÿî ÿý ÿñ ÿýûôø
|
ýø
|
ýýú ÿÿ
|
ÿÿûç1 ÿø
|
Ä@ ÿ ÿþþþþþþþý ¼ Rþ ûûûýê" N ÿ
|
