U
    ;vf#                  2   @   s8  d Z ddlZddlZddlZddlZddlmZ ddlmZ ddl	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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 ddlmMZM ddlmNZN dd	lmOZO dd
lmPZP ddlmQZQ ddlmRZR ejSZTejSZUi ZVi ZWdD ]ZXdeWeX< qeYejZ[de Z\de]e^e\ d ed d ed d ed d ed d ed d ed d ed d ed  d! ed" d# ed$ d% ed& d' ed( d) ed* d+ ed, d- ed. d/ eU d0 d+d+d1d2d3d4gd5d6gd7Z_d8d9d:d;d<d=d>d?d?ed@eGed?idA
gZ`eWdBdCdDdEdFdGdHdIdJdKgedLidMdNgdOgdPZaddddddQdddddRddddddSd?d?d?d?d?d?dTdUd?d?d?d?dVdWdXdYdZd[d\d]d?d?d?d^d_gd`dagdbdcdddedfd?d?d?d?d?d?d?d?d?d?d?d?d?edgeGed?idh/didjd?eGe3dkdldmd?e3dkdneFeGeHe3e%eGedoeFeGe3e%eGedpe3d?ed?ieGeHe3e%edqeFeGe3e%eGedreFeGe3edsieFeGeHe3e%eGedtiedugiedvie>dwiedxieGeHeedyie>dzied{igeFe;eGe=d|dneGeHe3ed}ed?ieGeHe3ed~edsieGeHe3edieGeHe3eddtgiedgiedie>dieGeHeediedie>diedige!ddneGeHe3ed}ed?ieGeHe3ed~edsieGeHe3edieGeHe3eddtgiedgiedie>dieGeHeediedie>diedige=ddeGe(diddedigeFee:dieFeeGe:digeFe eGe!deFeGeHe3e%eGedeFeGe3e%eGeded?ieFeGeHe3e%eGedqeFeGe3e%eGedrediedeGediedigedie>diedieGeHeedie>diedieFeedieFeeGedigedieGedtiedie2die0digeGe(diedeGeHee(dieFe eGe:eGe!d	doeGeHe3e%deFeGe3e%diddgdddddddddedvie>dide>died{iedidgddddtddgeFe:eGe!d
dddedg
Zbe1de/de.de@deDde?deBdeAdeEdeCde7de"dediZcdeWidedigdecdǜdediedieFe6eGed˜ddddeFe6eGee+dϜdediedҜddgdge8d֜dddgdediedJiged֜deFeeGeideFeeGee*ide#d?dܜdeHeAe@d?dܜdeEd?dܜdeCd?dܜded?dܜedide9dߜgZddeWidedigdd?ecdeFe4e*dieFe5e*die+dieFe4e*dedgigieFe5e*dedgigie+deFee(dgeFee*digid?dddeFe*eGe4ddddeFe*e4ddde+de*die*die*didde*didddeGe&dige*die5die4die*die5die4diddeGe&diddgedeGe&d ie&didedeGe&digidgdddged?d	ded
ieHe%e<deGeHe%e<die+dieFe6eGededieFe6eGedde5die4die5die4die)die)die)dieFe6eGeeGe8e*d	eddd?ieFe4eGeddd?ieGe-die-digdeGe-dieFe6eGee*d?d	edieceFe6eGee(d?ded
ieFe6eGed?dde%deGe%diedie+diedde5die4die5die4die)die)d ie)d!ieFee*d"	ed#ieFe4eGedidgd$dgeFee*d?d	e+dieFee(d%edieFee(d?de+d&idged'edied?dddԐdgdd(ed)ieFe+eGe%d*ige+dideFe+eGe%d+ige8d,d-eGe%d.igd/dddeGe%d+ige8d?d	e5die4die5die4dieFe)eGe%d*ie)d0ige)die)deFe)eGe%d+ieFe8e*d1deFe8e(ied)ie8d?ddddِd2d3e9d4igde9d(ie+d5ided6d7d8d9d:d;d<d=eFee,d>d?eFee,d?dd@d8d9d:dAd<dBeFee'd>d?eFee'd?dediedJiged?dܜde5die4die5die4dieFee*dCdDdEdFe(dGie*dHidIe9dJiee*dKie(dLiedMidNgigdOeGeHe+e(dPieFe(eGe+dQiedRiged?dSdeFeeGeideFeeGee*ide#d?dܜdeAd?dܜdeEd?dܜdeCd?dܜded?dܜdeddededide9dߜg,ZeedTidՐdUdVdWdXeFe6eGed?dYdZd[d\e8d?dYd]d^d_ed?d`dadbdcddgZfdedf Zgdgdhdidjdjdjdjdjdjdjdk
Zhdldm ZidS (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#

zSee 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^   Zmodnotea=  
#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
CFUNCSMESSZMINMAXz#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docshortZdocs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returnformatZrformatkwlistxakeys_xaxaformat	docsignxadocsignxashortinitf2pywraphookZroutnotezf2py_rout_#modulename#_#name#z#modulename#.#name#)ZapinameZpynamerN   _checkz-f2py_rout_#modulename#_#f90modulename#_#name#z##modulename#.#f90modulename#.#name#voidzGextern 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#},ZF_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);zpyobj_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   Zcomplex_long_doubleZunsigned_charZunsigned_shortZunsignedZunsigned_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;zmath.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#);zlen..)rN   ro   r   z    #ctype# *#varname# = NULL;z4    npy_intp #varname#_Dims[#rank#] = {#rank*[-1]#};z&    const int #varname#_Rank = #rank#;Zforcombr   )ro   r   _dependzflen(#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}   Zdependz"#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",OzO!z,&#varname#_cb.capiz!,&PyTuple_Type,&#varname#_xa_capiz(setjmp(#varname#_cb.jmpbuf))z#varname#_cptr,z#cbname#zsetjmp.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);
    }ZSWAPZcreate_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*/ztry_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   zslen(#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#zoverwrite_#varname#=1,zoverwrite_#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;zoverwrite_#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 }tdd }t| }tdti|}g }g }| d D ]}d}	| d D ]<}
|
d dkrttd	 qZ|
d D ]}|d |kr||}	 qZq|qZ|	std
| tj	d qH|	g}d|	kr|	d 
 D ]2\}}t|	}|d= ||d< ||d< || q|D ]}	t|	}td rtd }|d }t d t| d|d    |rt d| d t| d| d  t d| d t| d| d  n(t d| d t| d| d  t|	\}}|r|r|| n
|| t||}t||}qqHt| \}}|r2|| t||}t||}t| \}}|rd|| t||}t||}|D ](}t|| d |d  }t||}q|t }|d  dd tjD 7  < i }| D ]6}g ||< || D ]}d}|tjkrtj| }n|tjkr&tj| }n|tjkr>tj| }n|tj krVtj | }n|tj!krntj!| }n|tj"krtj"| }nt|tjkrtj| }n\|tj#krtj#| }nD|tj$krtj$| }n,|tj%krtj%| }ntdt&|  q|| | qq|| |D ]>}d|kr:|d | sDd|krt||| }t||}qtt'|}t(j)*td |d }||d < t+|d!}|,|d" -d#d$ W 5 Q R X t d%| d |f  td& r6t(j)*td |d d' }t+|d!$}|,d( |,d)*|d*  W 5 Q R X t d+td |d f  td, rt(j)*td |d d- }||d.< t+|d!P}|,d/t  d0tkr|,d1 |,d)*|d2  d0tkr|,d3 W 5 Q R X t d4td |d f  |rt(j)*td |d5 }||d6< t+|d!}|,d7 |,d8t  |,d9 g } d:*|d) .d)D ]}!d;|!/d<  krfd=k rzn n| |!d)  nf|!r|!d; d>krt0|!d=kr| |!dd= d?  |!d=d }!q| |!d)  n| |!d)  qDd*| -d@d)} |,|  W 5 Q R X t dA|  |rt(j)*td dB|d  }||d6< t+|d!&}|,dC |,dDt  |,dE g } d:*|d) .d)D ]}!d;|!/d<  krdFk rn n| |!d)  nt0|!dFkr>|!d; d>kr>| |!ddF dG  |!dFd }!t0|!d=kr.| |!dd= 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	interfacezabstract interfacez1buildmodule: Expected interface block. Skipping.
zKbuildmodule: Could not find the body of interfaced routine "%s". Skipping.
)fileentryargsZemptygenZ	buildpath
modulenamez(    Generating possibly empty wrappers"
/Zcoutputz    Maybe empty "z-f2pywrappers2.f90"
z-f2pywrappers2.f90z-f2pywrappers.f"
z-f2pywrappers.fZuserY   c                 S   s   g | ]}|t  kr|qS  )typedef_need_dictvalues).0Zcvarr   r   4/tmp/pip-unpacked-wheel-sdaoq5e2/numpy/f2py/rules.py
<listcomp>/  s    zbuildmodule.<locals>.<listcomp>rk   zbuildmodule: unknown need %s.
r   Zcsrc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.texZltxz6%% 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"
Zf2py_wrapper_outputfsrczC     -*- 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)"mZumretZ	mod_rulesvrdrdZfuncwrappersZfuncwrappers2nnbZbibZnb_listkaZnb1Zisf90Zb_pathZm_nameapiwraparZcrmruZneedscodecrfnfZwnlineslr   r   r   buildmodule  s~   
 











"
 
 


 



" 

"r   stZndr   th)
r                        	   r   c                 C   s  t | \} }t| \}}|t_| d }t| rJtd| d | d f  ntd| d   t| }ti |}t	D ]6}d|kr|d | sd|krrt
||| }t||}qrd\}	}
i }|D ]
}t||| }t|| rt}ntt}t|| sNt|| s(|	d }	t|	t|	d	   d
 |d< n$|
d }
t|
t|
d	   d |d< nd|d< |||< |D ]b}d|krtqbd|kr|d || sd|krbt
|||| }t||}d|krb qqbq|D ]}t|| rt}nt}|| }|D ]d}d|krqd|kr"|d || s,d|krt
|||| }t||}d|kr qZqd|| kr|| d D ](}||d< t
t||| }t||}qtqt|d tr|d   t|d tr|d   ttd|d |d |d d|d< ttd|d |d d}|dkrBttdd|d i|d< ntd |d |d!|d< |d d"d#|d$< |d$ d%d&|d$< ttd'|d( |d) d*}t|d) dkrttd+|d( |d) d*|d,< n||d,< ||d(< t|d- trttd.d-|d- id/ |d-< g |d0< g |d1< d2D ]}||krVt|| trV|d0 ||  |d0< d3| }||kr$t|| tr$|d1 || d4d  d5g || dd   d6g |d1< q$t
t|}t| rtd7|d8   ntd9|d8   ||fS ):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#Zdocsignatureshortz#docsign#[#docsignopt#])r   r   _z\_Zlatexdocsignatureshort,z, z #callfortran##callfortranappend#r   r   )r   r   z##callfortran# 0,#callfortranappend#Zcallcompaqfortranr   z#docreturn#z = ry   rz   )ru   rv   rw   rx   Zlatexr   z\begin{description}z\end{description}z              %s
rn   z          %s
)rM   Zassubrr
   rH   depargsr.   rD   Zroutsign2mapr   
rout_rulesr   Zsign2mapr   	aux_rules	arg_rulesr#   r/   r   stndcheck_rules
isinstancelistreverserF   rE   r   routine_rules)Zroutr   r   r   varr   r   r   r   r   ZnthkZsavevrdr   Z_rulesr   ZoptargsZcfsr   r   r   r   r     s    



&



&





  
 

r   )j__doc__r   r   timer   pathlibr   rk   r   Zauxfuncsr   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   Zsepdictr   intenvirongetZgenerationtime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kk 
  8R      	                   (   % 	- 	-
   

 1,    '             		
  X 	


 
-
9  "  

	
1
@        R" N    