3
h              2   @   s  d Z ddd~ ZddlmZ ejZddlZddlZddl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.m/Z/m0Z0m1Z1m2Z2m3Z3m4Z4m5Z5m6Z6m7Z7m8Z8m9Z9m:Z:m;Z;m<Z<m=Z=m>Z>m?Z?m@Z@mAZAmBZBmCZCmDZDmEZE ddlmFZF dd	lmGZG dd
lmHZH ddlmIZI ddlmJZJ ddlmKZK i ZLi ZMxdD ]ZNd'eMeN< qW eOejPjQd(ej ZRd)ejSejTeR 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 dDdDdJdKdLdMgdNdOdP  dQgdRZUdSdTdUdVdWdXdYdZdZed[eAedZid\
gZVeMd]d^d_d`dadbdcdddedfge
dgidhdigdjdkdP  gdlZWd'd'd'd'd'dmd'd'd'd'dnd'd'd'd'd'dodZdZdZdZdZdZdpdqdZdZdZdZdrdsdtdudvdwdxdydZdZdZdzd{gd|d}gd~dddddZdZdZdZdZdZdZdZdZdZdZdZdZedeAedZid/dddZeAe.ddddZe.dde@eAeBe.e eAede@eAe.e eAede.dZedZieAeBe.e ede@eAe.e eAede@eAe.edie@eAeBe.e eAedie
dgiedie8diedieAeBeedie8diedige@e6eAe7ddeAeBe.ededZieAeBe.ededieAeBe.edieAeBe.eddgie
dgiedie8dieAeBeediedie8diedigeddeAeBe.ededZieAeBe.ededieAeBe.edieAeBe.eddgie
dgiedie8dieAeBeediedie8diedige7ddeAe#diddedige@e
e5die@e
eAe5dige@eeAede@eAeBe.e eAede@eAe.e eAededZie@eAeBe.e eAede@eAe.e eAedediedeAediedigedie8diedieAeBeedie8diedie@e
edie@e
eAedigedieAediedie-die+digeAe#diedeAeBee#die@eeAe5eAed	deAeBe.e de@eAe.e diddgdddddddddedie8dide8diedie
didgddddddge@e5eAedМ
ddde
dԜg
ZXe,de*de)de:de>de9de<de;de?de=de2diZYdeMide
digdeYdޜdediedie@e1eAeddddde@e1eAee&ddediedddgdge3ddddgdediedeigedde@eeAeide@eeAee%idedZdde;dZdde?dZdde=dZddedZdedide4dgZZdeMide
digddZeYde@e/e%die@e0e%die&die@e/e%dedigie@e0e%dedigie&de@ee#de@ee%digidZddde@e%eAe/ddd de@e%e/ddde&de%die%die%didde%did	d
ddeAe!dige%die0die/die%die0die/diddeAe!diddgedeAe!die!dide
deAe!digidgddd gedZd!de
d"ie deAe d#ie&die@e1eAed$edie@e1eAed%d	e0die/die0die/die$d&ie$d'ie$d(ie@e1eAee%d)	ed*d+dZie@e/eAed,d+dZieAe(d-ie(d.igd/eAe(d0ie@e1eAee%dZd!edieYe@e1eAee#dZd1e
d"ie@e1eAedZd2de deAe d#ie
d3ie&d4ied5d	e0die/die0die/die$d(ie$d6ie$d7ie@ee%d8	ed9ie@e/eAed,id-gd:d0ge@ee%dZd!e&d	ie@ee#d;edie@ee#dZd2e&d<idged=e
d3iedZd2ddd	gdd>e
d?ie&didge3d@dAdBd0ddge3dZd!e0die/die0die/die$dCie$d'ie$d(ie@e3e%dDde@e3e#ie
d?ie3dZd2ddddEdFgde&dGidedHdIdJdKdLdMdNdOe@ee'dPdQe@ee'dZd2dRdJdKdLdSdNdTe@ee"dPdQe@ee"dZd2ediedeigedZdd	e0die/die0die/die@ee%dUdVdWe#dXie%dYidZee%d[ie#d\ied]id^gigd_eAeBe&e#d`ie@e#eAe&daiedbigedZdcde@eeAeide@eeAee%idedZdde;dZdde?dZdde=dZddedZdedide4dg*Z[e
ddiddedfdgdhe@e1eAedZdidjdkdle3dZdidmdndoedZdpdqdrdsdtgZ\dudv Z]dwdxdydzdzdzdzdzdzdzd{
Z^d|d} Z_dS (  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

z$Revision: 1.129 $
      )__version__    N)=
applyrules	debugcapi
dictappenderrmessgentitlegetargs2hascallstatementhasexternalshasinitvaluehasnotehasresultnoteisarrayisarrayofstrings	iscomplexiscomplexarrayiscomplexfunctioniscomplexfunction_warnisdummyroutine
isexternal
isfunctionisfunction_wrap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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)	capi_maps)cfuncs)common_rules)	use_rules)f90mod_rules)	func2subrdecl	frompyobjcleanupfrompyobjtopyarrmethod	pyobjfromclosepyobjfromfreememuserincludes	includes0includestypedefstypedefs_generated	cppmacrosrC   	callbackslatexdocrestdocroutine_defsexternroutinesinitf2pywraphookscommonhooksinitcommonhooksf90modhooksinitf90modhooks
Z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: 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#

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 = 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#zModule #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   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#
zWrapped function ``#name#``
-)rd   rf   rY   r[   rZ   docdocshortZdocsneedrU   rW   rX   z || z\n"
")callfortranroutineroutdebugenterrH   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#)/rd   kwlist	kwlistoptcallfortrancallfortranappenddocsign
docsignoptrH   rO   Zdocsignshortdocsignoptshortrt   ru   rp   rq   rr   rs   rv   rw   rx   ry   	args_capi	keys_capifunctyperI   rJ   rM   rN   rK   rm   rl   rn   rk   	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pynamerH   _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#},ZF_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);zpyobj_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   Zcomplex_long_doubleZunsigned_charZunsigned_shortZunsignedZunsigned_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;zmath.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#);zlen..)rH   rj   r   z	#ctype# *#varname# = NULL;z1	npy_intp #varname#_Dims[#rank#] = {#rank*[-1]#};z#	const int #varname#_Rank = #rank#;Zforcombr   )rj   r   _dependzflen(#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   Zdependz"#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",OzO!z,&#varname#_capiz!,&PyTuple_Type,&#varname#_xa_capiz(setjmp(#cbname#_jmpbuf))z#varname#_cptr,z#cbname#zsetjmp.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));
	}ZSWAPZcreate_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*/ztry_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   zslen(#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#zoverwrite_#varname#=1,zoverwrite_#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;zoverwrite_#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 }tdd }tj| }tdti|}g }g }x| d D ]}d}	xJ| d D ]>}
|
d dksztd	 q`x"|
d D ]}|d |kr|}	P qW q`W |	std
|  qL|	g}d|	krxB|	d j D ]2\}}tj	|	}|d= ||d< ||d< |j
| qW xT|D ]L}	t|	\}}|rDt|	r:|j
| n
|j
| t||}t||}qW qLW tj| \}}|r|j
| t||}t||}tj| \}}|r|j
| t||}t||}x0|D ](}tj|| d |d  }t||}qW tj }i }xJ|j D ]<}g ||< x*|| D ]}d}|tjkrLtj| }n|tjkrdtj| }n|tjkr|tj| }n|tjkrtj| }n|tjkrtj| }n|tjkrtj| }nt|tjkrtj| }n\|tjkrtj| }nD|tjkrtj| }n,|tjkr$tj| }ntdt|  q*|| j
| q*W qW |j
| xF|D ]>}d|kr~|d | sd|krbt||| }t||}qbW tt |}t!j"j#t$d |d }||d< t%|d}|j&|d j'dd< W dQ 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 dQ R X t d t$d |d f  t$d! r t!j"j#t$d |d d" }||d#< t%|dP}|j&d$t  d%t$kr|j&d& |j&dj#|d'  d%t$kr|j&d( W dQ 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 dkrx6t)|d1kr|j
|dd1 d2  |d1d }qW |j
|d  n|j
|d  qW dj#|j'd3d}|j&| W dQ 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)|d9kr,|d0 dkr,|j
|dd9 d:  |d9d }x6t)|d1kr|j
|dd1 d:  |d1d }qW |j
|d  n|j
|d  qW dj#|j'd3d}|j&| W dQ 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.
entryargsZusere   zbuildmodule: unknown need %s.
r   Z	buildpathZcoutputZcsrcwrc   	    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.texZltxz6%% 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"
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.
z

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"
z  )*r?   defmod_rulesrB   Zmodsign2mapr   r   r   itemscopydeepcopyappendbuildapir*   r   rD   Z
buildhooksrF   rE   ZbuildusevarsrC   Z	get_needskeysrQ   rR   rP   rS   rT   rU   rV   r^   r\   reprmodule_rulesospathjoinoptionsopenwriter@   splitlen)mZumretZ	mod_rulesvrdrdZfuncwrappersZfuncwrappers2nnbZbibZnb_listkaZnb1apiwraparcrmruZneedscodecrfnfZwnlinesl r   1/tmp/pip-build-fibhr3ey/numpy/numpy/f2py/rules.pybuildmodule  s:   

















"
 









r   stZndr   th)
r   r                     	   r   c             C   s
  t j| \} }t| \}}|t_| d }t| rJtd| d | d f  ntd| d   tj| }ti |}x>t	D ]6}d|kr|d | sd|krtt
||| }t||}qtW d<\}	}
i }x|D ]}tj||| }t|| rt}ntt}t|| sVt|| s0|	d }	t|	t|	d	   d
 |d< n$|
d }
t|
t|
d	   d |d< nd|d< |||< xh|D ]`}d|kr~qld|kr|d || sd|krlt
|||| }t||}d|krlP qlW qW x|D ]}t|| rt}nt}|| }xh|D ]`}d|krqd|kr2|d || s<d|krt
|||| }t||}d|krP qW d|| krx8|| d D ](}||d< t
t||| }t||}qW qW t|d tr|d j  t|d tr|d j  ttd|d |d |d d|d< ttd|d |d d}|dkrVttdd|d i|d< ntd |d |d!|d< |d jd"d#|d$< |d$ j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< xd=D ]}||krlt|| trl|d0 ||  |d0< d6| }||kr:t|| tr:|d1 || dd  d7g || dd   d8g |d1< q:W t
t|}t| rtd9|d:   ntd;|d:   ||fS )>Nvarsz,			Constructing wrapper function "%s.%s"...
r   r   z(		Constructing wrapper function "%s"...
r   r   r   r   z	 argumentnthz keywordhiddenr   r   checkrJ   rN   z #docsign##docsignopt##docsignxa#r~   r   r   )r~   r   r   Zdocsignaturez#docsignopt##docsignxa#r   r   )r   r   re   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 = rt   ru   rp   rq   rr   rs   Zlatexz\begin{description}z\end{description}z			  %s
ri   z		  %s
)r   r   )rp   rq   rr   rs   )rG   Zassubrr
   rB   depargsr*   r?   Zroutsign2mapr   
rout_rulesr   Zsign2mapr   	aux_rules	arg_rulesr   r+   r   stndcheck_rules
isinstancelistreverserA   r@   r   routine_rules)Zroutr   r   r   varr   r   r   r   r   ZnthkZsavevrdr   Z_rulesr   ZoptargsZcfsr   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   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   r   Zsepdictr   intenvirongetZgenerationtimeasctimegmtimer   r   r   r   Ztypedef_need_dictr   r   r   r   r   r   r   r   r   r   <module>4   sj               
^!

8	
















	


	 2