Your IP : 216.73.216.213

Current Path : /opt/alt/python37/lib64/python3.7/site-packages/numpy/f2py/__pycache__/
Upload File :
Current File : //opt/alt/python37/lib64/python3.7/site-packages/numpy/f2py/__pycache__/capi_maps.cpython-37.pyc

B

��Fd	{�@s`dZddlmZmZmZddd�ZddlmZejZddl	Z	ddl
Z
ddlZddlZdd	l
mZdd
lmZddlTdd
ddddddddddgZdZgaiaiZddddddddddddddddd�Zdd dd!d"d#d$d%d&d'd(d(d)d*d*d!d+�Ze�rdd d,d#d"d#d$d%d&d'd(d-d.d/d)d*d*d!d0�Zd1d2d1d3d3d4d5d6d7d8d9d:d;d<d<d=d>�Ze�rtd1d2d?d4d@d4dAdBd7dCd9d:dDdEd;d<dFdGd0�Zd1d2d4d4dAd7d9d:dHdHdHdIdJ�ZejddKk�r�dLed<e�r�dddMdNdNdO�ddPdQddRdSdTdUdVdW�	dXdXdYdZdZd[�dXdXdYdZdZdO�dd\dQddRd]�d^dYid^dMid^d\id^did_�	Zej�d`��rАyreda�ed`db�Z e!e �"�ii�Z#e �$�xRe%e#�&��D]B\Z'Z(x&e%e(�)��D]Z*e(e*e(e*�+�<�q|We#e'e#e'�+�<�qfWx�e%e#�)��D]�Z'e'ek�r�iee'<x�e%e#e'�)��D]�Z*e#e'e*ek�rZe*ee'k�r*edce'e*ee'e*e#e'e*f�e#e'e*ee'e*<edde'e*e#e'e*f�n.e,dee'e*e#e'e*e#e'e*e%e�)��f��q�W�q�Wedf�Wn0e-k
�r�Z.ze,dge.�WddZ.[.XYnXdhdhdidjdjdkdldmdjdndodpdodqdqdrdsdt�Z/dud�Z0dvd
�Z1d�dwd�Z2dxd�Z3dyd�Z4dzd�Z5d{d�Z6d|d�Z7d}d�Z8d�d~d�Z9dd�Z:d�d�Z;dS)�a)

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/05/06 10:57:33 $
Pearu Peterson

�)�division�absolute_import�print_functionz$Revision: 1.60 $�
����)�__version__N)�markoutercomma)�cb_rules)�*�getctype�getstrlength�
getarrdims�getpydocsign�
getarrdocsign�getinit�sign2map�routsign2map�modsign2map�cb_sign2map�cb_routsign2map�common_sign2mapT�float�int�long�complex�string)�doubler�long_double�char�signed_char�
unsigned_char�short�unsigned_shortrr�	long_long�unsigned�
complex_float�complex_double�complex_long_doublerZ
NPY_DOUBLEZ	NPY_FLOATZ
NPY_STRINGZ	NPY_UBYTEZNPY_BYTEZ	NPY_SHORTZ
NPY_USHORTZNPY_INTZNPY_UINTZNPY_LONGZ
NPY_CFLOATZNPY_CDOUBLE)rrrrr!r r"r#rr%rr$r&r'r(rZNPY_LONGDOUBLEZ	NPY_ULONGZNPY_LONGLONGZ
NPY_ULONGLONG)rrrrr!r r"r#rr%r�
unsigned_longr$�unsigned_long_longr&r'r(r�d�f�1�b�s�w�i�u�l�L�F�D�c)rrrrr r!r"r#rr%rr$r&r'r(r�g�B�h�H�I�q�Q�G�S�N�z)rrrr r"rrr$r&r'r(r��yrr)��4�8Z12�16r r"r$r!r#r%r*)	rEr-�2rFrGz-1z-2z-4z-8r&r'r()rErGrHZ24�32r)rEr-rIrFrGrE)	�real�integerrZcomplexkindZlogicalzdouble complexzdouble precision�byte�	characterz.f2py_f2cmapzReading .f2py_f2cmap ...
�rz3	Warning: redefinition of {'%s':{'%s':'%s'->'%s'}}
z	Mapping "%s(kind=%s)" to "%s"
z5	Ignoring map {'%s':{'%s':'%s'}}: '%s' must be in %s
z<Successfully applied user defined changes from .f2py_f2cmap
zFFailed to apply user defined changes from .f2py_f2cmap: %s. Skipping.
z%gz%Lgz%dz%hhuz%hdz%huz%uz%ldz%luz(%g,%g)z	(%Lg,%Lg)z%s)rrrrr r!r"r#rr%rr)r$r&r'r(rcCs�d}t|�rRd|kr|d}n|d}||dkrBt|d|�Std|��n~t|�r^|Sd|k�r�|d��tk�r�|d��}t|}|d}d|k�r�d	|dkr�y||dd	}Wn2tk
r�td
|dd	|dd	f�YnXn�d|dk�r�|dtk�rt|d}y||dd}Wn�tk
�r�|tk�rVt|}y|t|dd�}WnBtk
�r�td||dd|||ddt�	�f�YnXYnXnt
|��s�td
|�|S)z
    Determines C type
    �void�result�name�varsz,getctype: function %s has no return value?!
�typespecrEZkindselectorrz$getctype: "%s %s %s" not supported.
�kindz}getctype: "%s(kind=%s)" is mapped to C "%s" (to override define dict(%s = dict(%s="<C typespec>")) in %s/.f2py_f2cmap file).
z2getctype: No C-type found in "%s", assuming void.
)�
isfunctionr�errmessZissubroutine�lower�
f2cmap_all�KeyError�str�os�getcwd�
isexternal)�var�ctype�arTZf2cmap�rb�G/opt/alt/python37/lib64/python3.7/site-packages/numpy/f2py/capi_maps.pyr�sN

"
(

cCs�t|�rJd|kr|d}n|d}||dkr>t|d|�Std|�t|�sbtdt|��d}d|kr�|d}d|kr�|d}nd	|kr�|d	}t�d
|�s�t�d|�r�t|�r�tdt|��d
}|S)NrQrRrSz0getstrlength: function %s has no return value?!
z;getstrlength: expected a signature of a string but got: %s
r-Zcharselectorr�lenz\(\s*([*]|[:])\s*\)z	([*]|[:])zMgetstrlength:intent(hide): expected a string with defined length but got: %s
z-1)�isstringfunctionr
rW�isstring�repr�re�match�
isintent_hide)r_rardrbrbrcr
s.

c	Cs�i}t|�r8t|�s8t|�|d<|d|d<d|d<�nVt|�r\d|d<d|d<d|d<�n2t|��r�t�|d�}d�|�|d<ytt|d��|d<WnYnXd	�|�|d<tt|��|d<tt|�d
g�dd
�|d<x�t	t|��D]�}g}||t
k�r||g}n0x.t
D]&}t�d
|||��r|�
|��qWx.|D]&}t
�|�t
�|�k�rJd||<P�qJWq�Wd\|d<}x6|D].}|d}|dk�r�d|d||f|d<�q�W|d�r�|ddd
�|d<d\|d<}x�|dD]|}|d}|dk�rd|d||f|d<nLt|��rLtd|�d|d|df|d<n|�r�tdt|�t|�f��q�W|d�r�|ddd
�|d<|S)NZdims�sizer-�rank�0rE�	dimensionr�,rrz	rank*[-1]z.*?\b%s\b.*)rErZsetdims)r�:z(*)z(:)z%s#varname#_Dims[%d]=%s,Z	cbsetdimsz?getarrdims:warning: assumed shape array, using 0 instead of %r
rz]getarrdims: If in call-back function: array argument %s must have bounded dimensions: got %s
)rf�isarrayr
�isscalar�copy�joinrg�evalrd�range�depargsrhri�append�index�isintent_in�outmessrW)	rar_�verbose�ret�dimr1�v�var+rbrbrcr:sn








cCs�t|�rPd|kr|d}n|d}||dkr@t||d|�Std|�dS||}}d}t|�rld}nt|�rxd}|}t|�r�x.|d	D]"}|dd
�dkr�|d
d�}Pq�Wd}t|�}	t|�r�t||�\}}
d|
}t	|��r6t|��rd
||t
|	t|	|f}nd||t
|	|f}d|t
|	f}�nNt|��r�t|��r`d||t
|�|f}nd||t
|�|f}d|t
|�f}n�t|��r|d}tt|��}d|||t|	d�|�|f}||k�r�d||t|	d�|�f}nd||t|	d�|�|f}n~t|��rxd}
|tk�rft|tk�rfdtt|k�rftt|d}
|
|k�sbd|
}
nd}
d||
f}|}ntd|�||fS)NrQrRrSz,getctype: function %s has no return value?!
)rErErE�inputz	in/output�intent�zout=z, optional\n    Default: %sz%s : %s rank-0 array(%s,'%s')%sz%s : %s %s%sz%s : %sz*%s : %s rank-0 array(string(len=%s),'c')%sz%s : %s string(len=%s)%sz%s : string(len=%s)rnz.%s : %s rank-%s array('%s') with bounds (%s)%sroz)%s : rank-%s array('%s') with bounds (%s)z8%s : rank-%s array('%s') with bounds (%s) and %s storage�argnamez => %sz%s : call-back function%sz8getpydocsign: Could not resolve docsignature for "%s".\n)rVrrWrz�isintent_inout�isintent_outr�hasinitvaluerrr�c2py_map�c2pycode_maprfr
rqrgrdrtr^�lcb_map�lcb2_map)rar_�af�sigZsigout�opt�out_a�k�initr`�showinitr~rlZuarbrbrcrxs|








*


cCs�t|�}t|�r*t|�s*d|t|�f}nVt|�rJd|t|t|f}n6t|�r�|d}tt|��}d||t|d�	|�f}|S)Nz%%s : rank-0 array(string(len=%s),'c')z%s : rank-0 array(%s,'%s')rnz)%s : rank-%s array('%s') with bounds (%s)ro)
rrfrqr
rrr�r�rgrdrt)rar_r`r�r~rlrbrbrcr�s
cCsDt|�rd\}}nd\}}t|��r<|d}|}t|�s@t|�r�i}yb|d}d|krzt|dd���d�\|d<|d	<n*t|ii�}t|j�t|j	�|d<|d	<Wnt
d
||f��YnXt|�r�d|d|d	f}nZt|��r<|s�d\}}|dd
k�rd|dd��dd�}|ddk�r<d|dd�}||fS)N)z""z'')rErE�=rorrz@,@zinit.rzinit.izMgetinit: expected complex number `(r,i)' but got `%s' as initial value of %r.z (capi_c.r=%s,capi_c.i=%s,capi_c)r�'z"%s"�"z\"z'%s')
rfr��	iscomplex�iscomplexarrayr	�splitrur[rK�imag�
ValueErrorrq�replace)rar_r�r�r}rrbrbrcr�s:

""
c
"CsF|}t|�r<x.|dD]"}|dd�dkr|dd�}PqW||t|�d�}g}x*t��D]\}}||�rZ|�d|�qZW|r�d�|�|d<nd|d<t|�r�d	|d
<n&|dtkr�t|d|d
<nd|d
<t||�\|d
<|d<t	|��r*t
|��r*t|��s*t|d
dd���d�\|d<|d<t
|��r�||d<|tk�r�t||d<tt|d|d<tt|d|d<tt|d|d<tt|d|d<n ||d<td|tt���f�t|��r�t|�|d<t|��rt|t||��}t�|d�}|dtk�r t|d|d<t|��r�td td!td"td#td$td%t
d&tt t!t
��d'td(td)t"d*t#d+t$d,tt%t!t$��d-t
d.t&d.t'd/g"}	g}
x:t(d0t)|	�d1�D]&}|	||��r�|
�|	|d��q�Wt|��r�|
�d2||df�t|��rd3�t*d4d5�|d|��}|
�d6|�t
|��r@d7||dd3�|
�f|d8<n"d9|d||dd3�|
�f|d8<t |��r�|dt+k�r�d:|t+|df|d;<t|��r�d<||f|d;<t
|��r�d=||d;<|dt+k�r�d>|t+|df|d?<d@t+|d|dA<t|��rdB||f|d?<t,||�\|dC<|dD<t-|��rB|dE|dE<|S)Fz�
    varname,ctype,atype
    init,init.r,init.i,pytype
    vardebuginfo,vardebugshowvalue,varshowvalue
    varrfromat
    intent
    r�Nr�zout=)�varnameZ
outvarnamer`zF2PY_%s�|ZF2PY_INTENT_INrAZ
varrformatr`�Or�r�rrz@,@zinit.rzinit.iZ	cbnamekeyZcbname�
maxnofargs�
nofoptargsZdocstrZcbdocstrZlatexdocstrZ
cblatexdocstrz5sign2map: Confused: external %s is not in lcb_map%s.
�lengthrn�atyper��outputZinoutput�required�optionalZhiddenzcomplex scalarZscalarr�arrayz
complex arrayzstring arrayzcomplex function�function�callbackZ	auxiliaryr�zslen(%s)=%srocSsd||fS)Nz%s|%srb)�xrDrbrbrc�<lambda>D�zsign2map.<locals>.<lambda>zdims(%s)zdebug-capi:%s=>%s:%sZvardebuginfozdebug-capi:%s %s=%s:%szdebug-capi:%s=%sZvardebugshowvaluez"debug-capi:slen(%s)=%%d %s=\"%%s\"zdebug-capi:%s=%%pz#name#:%s=%sZvarshowvaluez%s�showvalueformatz#name#:slen(%s)=%%d %s=\"%%s\"�	pydocsign�pydocsignout�note).r�rZ
isintent_dict�itemsrxrtrq�c2buildvalue_maprr�r�r	r�r^r�r�rW�list�keysrfr
�
dictappendrrs�
c2capi_map�	debugcapirzr�Z
isrequired�
isoptionalrjZl_andrrZl_notr��
isstringarray�iscomplexfunctionrV�isintent_callbackZisintent_auxrvrd�map�cformat_mapr�hasnote)
rar_r�r�r}Zintent_flagsr,r/r~Zil�rlr1Zddimrbrbrcr�s�	
$







 




c	Cs|d}t|�}||�dd�|��|��t|�td|�||��t|�pJdt|�pTdt|�p^dd�}d|krvd|d<nd|d<d|kr�d	|d
<nd
|d
<iad|k�rFx�|d�	�D]�}|t
jkr�x|t
j|D]n}|d}d
|d|k�r0xB|d|d
�	�D]*}|d|d
||dk�r|}P�qW|dt|<q�Wq�Wn0d|k�rv|d�rvtd|dt
|d�f�t|t��p�d|d<t|��r�d|k�r�|d}n|d}||d<t||�\|d<|d<t|d|�|d<t|��r|d|d|d<dg|d|d<|dtk�r2t|d|d<nd|d<tdt
|d��t|��r�|dtk�r~d|t|df|d<t|��r�d ||f|d<t|��r�t|d|�|d!<|d!d"k�r�td#t
|d��d$|d!<t|��r|d|d<dg|d<|S)%zV
    name,NAME,begintitle,endtitle
    rname,ctype,rformat
    routdebugshowvalue
    rR�_z\_z	end of %srE)rRZtexnameZ
name_lower�NAME�
begintitle�endtitleZfortrannameZFORTRANNAMEZ
callstatement�usercode�	usercode1�	F_FUNC_US�F_FUNCZF_WRAPPEDFUNC_USZ
F_WRAPPEDFUNCZuserr�rZ	externalszMroutsign2map: Confused: function %s has externals %s but no "use" statement.
ZcallprotoargumentrQ�rnamer�r�rSr`r�Z
resultnotezSee elsewhere.Zrformatr�z.routsign2map: no c2buildvalue key for type %s
zdebug-capi:%s=%sZroutdebugshowvaluez"debug-capi:slen(%s)=%%d %s=\"%%s\"Zrlengthz-1zzroutsign2map: expected explicit specification of the length of the string returned by the fortran function %s; taking 10.
�10)Zgetfortrannamer�rX�upper�gentitleZgetcallstatement�getusercode�getusercode1r�r�r
Zcb_maprWrgZgetcallprotoargumentrVrrZ
hasresultnoter�r�r�rer
r�)	�routrR�fnamer}r2Zun�lnr�rarbrbrcr`s�
















cCs�t|�r.|d|d��|d�dd�d�}n$|d|d��|d�dd�d�}t|�p\g|d<t|�rv|d|d<t|�p�d|d	<t|�p�d|d
<|dr�t|dd�p�d|d
<nd|d
<t|�p�d|d<d|kr�|d|d<d|kr�|d|d<|S)z
    modulename
    rRr�z\_)Z
f90modulenameZ
F90MODULENAMEZtexf90modulename)�
modulenameZ
MODULENAMEZ
texmodulenameZrestdocr�rEr�r��bodyrZinterface_usercodeZpymethoddefZcoutputZf2py_wrapper_output)�ismoduler�r�Z
getrestdocr�r�r�Zgetpymethoddef)�mr}rbrbrcr�s*

cCs�d|i}|dks|d|d<n|ddt|�|d<t|�|d<|dtkr^t|d|d<|dtkr~dt|d|d<t|�r�t|t||��}t||�\|d	<|d
<t|�r�|d|d<dg|d<|S)
Nr�rZ	varname_ir�r`r�z%sr�r�r�r�zSee elsewhere.)	r[rr�r�rqr�rrr�)rar_ryr}rbrbrcr�s 
cCs�d|d|fdd�}t|�r`d|dkr0d}nd}d||d��|d��f|d	<d
|d<n|d|d	<d|d<|d|d<t|d�|d
<td|d�|d<t|�|d<d|d<|ddkr�d|d<n|d|d<|ddk�rt|�r�d|d<nd|d<|dtk�r$dt|d|d<t|��r:t|�|d<t	|��r�d|k�rX|d}n|d}t
|d|��r�|d|d|d<dg|d|d<||d<t||�\|d<|d <t|��r�d!|d<n t
|��r�|d|d<dg|d<d"}d"}d#|k�rPd|k�rPxH|d#D]<}|d|}tt
t�|��r|d$}t|��r|d$}�qWt|�|d%<t|�|d&<t
|��r�t	|��r�d|k�r�|d|d'<dg|d<|S)(z\
    name,begintitle,endtitle,argname
    ctype,rctype,maxnofargs,nofoptargs,returncptr
    zcb_%s_in_%srRrE)rR�
returncptrr�r�r�z	%s(%s,%s)Zcallbackname�extern�staticr�r�z	end of %sr�r`rP�rctyperz3
#ifdef F2PY_CB_RETURNCOMPLEX
return_value=
#endif
r�z
return_value=z%sr�Z	strlengthrQrSr�zSee elsewhere.r�r�r�z8
#ifdef F2PY_CB_RETURNCOMPLEX
#ctype#
#else
void
#endif
r�argsrr�r�Zroutnote)r�rXr�r�rr�r�rer
rVr�rZl_orrzr�r�rg)r�Zumr}r�raZnofargsr�r_rbrbrcr�st













cCs�|t|�d�}t|�rd|d<|dtkr:t|d|d<|dtkrZdt|d|d<t|�rtt|t||��}nt|�r�t|�|d<d|d	<t	||�\|d
<|d<t
|�r�|d|d<d
g|d<t||�|d<|S)N)r�r`rr`r�z%sr�rkr-rlr�r�r�zSee elsewhere.Z	arrdocstr)rr�r�r�rqr�rrfr
rr�r)rar_r}rbrbrcr4s$
)r)N)<�__doc__�
__future__rrrrrE�versionZf2py_versionrsrhr\�sysZcrackfortranr	r
Zauxfuncs�__all__Z
using_newcorerwr�r�r�r�r�r��version_inforY�path�isfiler{�openr,ru�readr+�closer�r�r��d1r�Zk1rXrW�	Exception�msgr�rr
rrrrrrrrrrrbrbrbrc�<module>s�



"61
>J#iQ
R