Your IP : 216.73.216.213
(��^ { � 0 @ s� d Z d d l m Z m Z m 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 Z d d l
m Z d d l m Z d d
l Td d d
d d d d d d d d d g Z d Z g a i a i Z d d d d d d d d d d d d d d d d d d d! d d" d! d# d d$ d% d& d% d' d% d( d( i Z d d) d d* d d) d d+ d d, d d- d d. d d/ d d0 d# d1 d! d2 d" d2 d$ d3 d& d4 d' d4 d( d+ i Z e r+d d) d d* d d5 d d- d d, d d- d d. d d/ d d0 d# d1 d! d2 d6 d7 d" d8 d9 d: d$ d3 d& d4 d' d4 d( d+ i Z d d; d d< d d; d d= d d= d d> d d? d d@ d dA d# dB d! dC d" dD d$ dE d& dF d' dF d( dG i Z e r d d; d d< d dH d d> d dI d d> d dJ d dK d dA d# dL d! dC d6 dD d" dM d9 dN d$ dE d& dF d' dO d( dP i Z d d; d d< d d> d d> d dJ d dA d! dC d" dD d$ dQ d& dQ d' dQ d( dR i Z e j d dS k rtdT e d( <e rzdU dV d dW d dX d dY d dZ d i d[ dV d d= d d\ d dW d dX d" d] d d^ d d_ d# d` d9 i d% dV d$ dX d$ dZ d& da d' db d' i dc dV d$ dW d$ dX d& dY d' dZ d' i dd dV d d= d d\ d dW d dX d" i de dV d& i df dV d i dg dV d i dh dV d( i i Z e j j di � r�y�e dj � e di dk � Z e! e j" � i i � Z# e j$ � xe e% e# j& � � D]Q \ Z' Z( x. e% e( j) � � D] Z* e( e* e( e* j+ � <q�We# e' e# e' j+ � <q�Wxe% e# j) � � D]� Z' e' e k rci e e' <x� e% e# e' j) � � D]� Z* e# e' e* e k re* e e' k r�e dl e' e* e e' e* e# e' e* f � e# e' e* e e' e* <e dm e' e* e# e' e* f � qze, dn e' e* e# e' e* e# e' e* e% e j) � � f � qzWqGWe do � Wn3 e- k
r�Z. z e, dp e. � WYd d Z. [. Xn Xd dq d dq d dr d ds d ds d dt d du d dv d ds d# dw d! dx d6 dy d" dx d$ dz d& dz d' d{ d( d| i Z/ d} d � Z0 d~ d � Z1 d d d
� Z2 d� d � Z3 d� d � Z4 d� d � Z5 d� d � Z6 d� d � Z7 d� d � Z8 d d� d � Z9 d� d � Z: d� d � Z; d S)�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�double�floatZ long_double�char�intZ signed_charZ
unsigned_char�shortZunsigned_short�longZ long_longZunsignedZ
complex_float�complexZcomplex_doubleZcomplex_long_double�stringZ
NPY_DOUBLEZ NPY_FLOATZ
NPY_STRINGZ NPY_UBYTEZNPY_BYTEZ NPY_SHORTZ
NPY_USHORTZNPY_INTZNPY_UINTZNPY_LONGZ
NPY_CFLOATZ NPY_CDOUBLEZNPY_LONGDOUBLEZ
unsigned_longZ NPY_ULONGZ NPY_LONGLONGZunsigned_long_longZ
NPY_ULONGLONG�d�f�1�b�s�w�i�u�l�L�F�D�c�g�B�h�H�I�q�Q�G�S�N�z� �y�real� �4�8Z12Z16�integer�2z-1z-2z-4z-8Z24�32Z complexkindZlogicalzdouble 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%sc C s" d } t | � rh d | k r+ | d } n
| d } | | d k rW t | d | � St d | � n�t | � rx | Sd | k r| d j � t k r| d j � } t | } | d } d | k r d | d k r+y | | d d } Wqt k
r't d
| d d | d d f � YqXq d | d k r | d t k rYt | d } y | | d d } Wq t k
r | t k r�t | } y | t | d d � } WnH t k
r�t d | | d d | | | d d t j � f � Yn XYq Xn t
| � s t d
| � | S)z
Determines C type
�void�result�name�varsz,getctype: function %s has no return value?!
�typespecr: Z kindselectorr
z$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�arG Zf2cmap� rU �G/opt/alt/python35/lib64/python3.5/site-packages/numpy/f2py/capi_maps.pyr � sN
"
%
, c C s t | � r_ d | k r% | d } n
| d } | | d k rQ t | d | � St d | � t | � s t d t | � � d } d | k r� | d } d | k r� | d } n d | k r� | d } t j d
| � s� t j d | � rt | � rt d t | � � d
} | S)NrD rE rF z0getstrlength: 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 rJ �isstring�repr�re�match�
isintent_hide)rR rT rW rU rU rV r s.
$ c C s( i } t | � rJ t | � rJ t | � | d <| d | d <d | d <n�t | � rw d | d <d | d <d | d <n�t | � r$t j | d � } d j | � | d <y t t | d � � | d <Wn Yn Xd j | � | d <t t | � � | d <t t | � d g � d
d � | d <x� t t | � � D]� } g } | | t
k ra| | g } n8 x5 t
D]- } t j d | | | � rh| j
| � qhWx7 | D]/ } t
j | � t
j | � k r�d | | <Pq�Wq5Wd \ | d
<} x? | D]7 } | d
} | d k r�d | d
| | f | d
<q�W| d
rK| d
d d � | d
<d \ | d <} x� | d D]� } | d
} | d k r�d | d | | f | d <qft | � r�t d | � d | d | d f | d <qf| rft d t | � t | � f � qfW| d r$| d d d � | d <| S) NZdims�sizer! �rank�0r: � dimensionr
�,r z rank*[-1]z .*?\b%s\b.*Zsetdims�:�(*)�(:)z%s#varname#_Dims[%d]=%s,Z cbsetdimsz?getarrdims:warning: assumed shape array, using 0 instead of %r
r z]getarrdims: If in call-back function: array argument %s must have bounded dimensions: got %s
���rf rf )r: rf )r
rc rd re rf rf )r: rf )r
rc rd re rf )rY �isarrayr �isscalar�copy�joinrZ �evalrW �range�depargsr[ r\ �append�index� isintent_in�outmessrJ ) rT rR �verbose�ret�dimr% �v�var rU rU rV r
: sn
'
!
c C sT t | � rf d | k r% | d } n
| d } | | d k rT t | | d | � St d | � d S| | } } d } t | � r� d } n t | � r� d } | } t | � r� x9 | d D]- } | d d � d
k r� | d d � } Pq� Wd } t | � } t | � r+t | | � \ } }
d |
} t | � r�t | � rgd | | t
| t | | f } n d
| | t
| | f } d | t
| f } n�t | � rt | � r�d | | t
| � | f } n d | | t
| � | f } d | t
| � f } nFt | � r�| d } t t | � � } d | | | t | d j | � | f } | | k r�d | | t | d j | � f } qJd | | t | d j | � | f } n� t | � r<d }
| t k r#t | t k r#d t t | k r#t t | d }
|
| k s d |
}
n d }
d | |
f } | } n t d | � | | f S) NrD rE rF z,getctype: function %s has no return value?!
r: �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)ra z.%s : %s rank-%s array('%s') with bounds (%s)%srb z)%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)r: r: )rI r rJ rp �isintent_inout� isintent_outr � hasinitvaluer rh �c2py_map� c2pycode_maprY r rg rZ rW rj rQ �lcb_map�lcb2_map)rT rR �af�sigZsigout�opt�out_a�k�initrS �showinitrt r_ ZuarU rU rV r x s|
#& 0
c C s� t | � } t | � r> t | � r> d | t | � f } nu t | � rh d | t | t | f } nK t | � r� | d } t t | � � } d | | t | d j | � f } | S)Nz%%s : rank-0 array(string(len=%s),'c')z%s : rank-0 array(%s,'%s')ra z)%s : rank-%s array('%s') with bounds (%s)rb )
r rY rg r rh r~ r rZ rW rj )rT rR rS r� rt r_ rU rU rV r � s
c
C s� t | � r d \ } } n d \ } } t | � r�| d } | } t | � s[ t | � r,i } y� | d } d | k r� t | d d � � j d � \ | d <| d <n9 t | i i � } t | j � t | j � | d <| d <Wn t
d
| | f � � Yn Xt | � r�d | d | d f } nr t | � r�| sJd \ } } | d d
k rzd | d d � j d d � } | d d k r�d | d d � } | | f S)N�""�''r: �=rb r z@,@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')r� r� )r: r: rf )r� r� rf rf )
rY r} � iscomplex�iscomplexarrayr �splitrk rN r9 �imag�
ValueErrorrg �replace)rT rR r� r� rs ru rU rU rV r � s:
-+ c
" C sq | } t | � rN x9 | d D]- } | d d � d k r | d d � } Pq Wd | d | d t | � i } g } x7 t j � D]) \ } } | | � r | j d | � q W| r� d j | � | d <n
d
| d <t | � r� d | d <n/ | d t k rt | d | d <n
d
| d <t | | � \ | d <| d <t | � r�t
| � r�t | � r�t | d d dF � � j d � \ | d <| d <t
| � rB| | d <| t k rt | | d <t t | d | d <t t | d | d <t t | d | d <t t | d | d <n* | | d <t d | t t j � � f � t | � r^t | � | d <t | � r�t | t | | � � } t j | d � } | d t k r�t | d | d <t | � r�t d t d! t d" t d# t d$ t d% t
d& t t t! t
� � d' t d( t d) t" d* t# d+ t$ d, t t% t! t$ � � d- t
d. t& d. t' d/ g" } g }
xE t( d0 t) | � d1 � D]+ } | | | � rl|
j | | d � qlWt | � r�|
j d2 | | d f � t | � rd3 j t* d4 d5 � | d | � � } |
j d6 | � t
| � r7d7 | | d d3 j |
� f | d8 <n+ d9 | d | | d d3 j |
� f | d8 <t | � r�| d t+ k r�d: | t+ | d f | d; <t | � r�d< | | f | d; <t
| � r�d= | | d; <| d t+ k rd> | t+ | d f | d? <d@ t+ | d | dA <t | � r6dB | | f | d? <t, | | � \ | dC <| dD <t- | � rm| dE | dE <| S)Gz�
varname,ctype,atype
init,init.r,init.i,pytype
vardebuginfo,vardebugshowvalue,varshowvalue
varrfromat
intent
rx Nry zout=�varnameZ
outvarnamerS zF2PY_%s�|ZF2PY_INTENT_INr5 Z
varrformat�Or� r� r z@,@zinit.rzinit.iZ cbnamekeyZcbname�
maxnofargs�
nofoptargsZdocstrZcbdocstrZ latexdocstrZ
cblatexdocstrz5sign2map: Confused: external %s is not in lcb_map%s.
�lengthra �atyperw �outputZinoutput�required�optionalZhiddenzcomplex scalarZscalarr �arrayz
complex arrayz string arrayzcomplex function�function�callbackZ auxiliaryr � z slen(%s)=%srb c S s d | | f S)Nz%s|%srU )�xr8 rU rU rV �<lambda>D s 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�noterf ).r| r Z
isintent_dict�itemsrn rj rg �c2buildvalue_mapr r} r� r r� rQ r� r� rJ �list�keysrY r �
dictappendr
ri �
c2capi_map� debugcapirp r{ Z
isrequired�
isoptionalr] Zl_andrh Zl_notr� �
isstringarray�iscomplexfunctionrI �isintent_callbackZ isintent_auxrl rW �map� cformat_mapr �hasnote)
rT rR r� r� rs Z intent_flagsr r# rt Zil�rlr% ZddimrU rU rV r � s�
%.
$( c C s� | d } t | � } d | d | j d d � d | j � d | j � d t | � d t d | � d
| d | j � d t | � p� d
d t | � p� d
d t | � p� d
i } d | k r� d | d <n
d | d <d | k r� d | d <n
d | d <i a d | k r�x� | d j � D]� } | t
j k rx� t
j | D]| } | d } d | d | k r�xG | d | d j � D]- } | d | d | | d k ry| } PqyW| d t | <q<WqWn8 d | k r�| d r�t d | d t
| d � f � t | t � p
d
| d <t | � r�d | k r9| d } n
| d } | | d <t | | � \ | d <| d <t | d | � | d <t | � r�| d | d! | d" <d# g | d | d! <| d t k r�t | d | d$ <n" d% | d$ <t d& t
| d � � t | � rX| d t k r8d' | t | d f | d( <t | � rXd) | | f | d( <t | � r�t | d | � | d* <| d* d+ k r�t d, t
| d � � d- | d* <t | � r�| d! | d! <d# g | d! <| S).zV
name,NAME,begintitle,endtitle
rname,ctype,rformat
routdebugshowvalue
rE Ztexname�_z\_Z
name_lower�NAME�
begintitle�endtitlez end of %sZ fortrannameZ FORTRANNAMEZ
callstatementr: �usercode� usercode1� F_FUNC_US�F_FUNCZF_WRAPPEDFUNC_USZ
F_WRAPPEDFUNCZuser r� r Z externalszMroutsign2map: Confused: function %s has externals %s but no "use" statement.
ZcallprotoargumentrD �rnamer� r� rF rS 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� rK �upper�gentitleZgetcallstatement� getusercode� getusercode1r� r� r Zcb_maprJ rZ ZgetcallprotoargumentrI r r Z
hasresultnoter� r� r� rX r r� ) �routrE �fnamers r& Zun�lnr� rT rU rU rV r ` s�
c C sZ t | � rE d | d d | d j � d | d j d d � i } n6 d | d d | d j � d | d j d d � i } t | � p� g | d
<t | � r� | d | d <t | � p� d | d
<t | � p� d | d <| d rt | d d � p� d | d <n
d | d <t | � pd | d <d | k r<| d | d <d | k rV| d | d <| S)z
modulename
Z
f90modulenamerE Z
F90MODULENAMEZtexf90modulenamer� z\_�
modulenameZ
MODULENAMEZ
texmodulenameZrestdocr� r: r� r� �bodyr Zinterface_usercodeZ pymethoddefZcoutputZf2py_wrapper_output)�ismoduler� r� Z
getrestdocr� r� r� Zgetpymethoddef)�mrs rU rU rV r � s*
!
c C s d | i } | d k s d r/ | d | d <n | d d t | � | d <t | � | d <| d t k r} t | d | d <| d t k r� d t | d | d <t | � r� t | t | | � � } t | | � \ | d <| d
<t | � r | d | d <d g | d <| S)
Nr� r Z varname_ir� rS r� z%sr� r� r� r� zSee elsewhere.) rN r r� r� rg r� r
r r� )rT rR ro rs rU rU rV r � s
c C sC d d | d | f d d i } t | � r� d | d k rE d } n d } d | | d j � | d j � f | d <d
| d <n | d | d <d | d <| d | d <t | d � | d
<t d | d � | d <t | � | d <d | d <| d d k r d | d <n | d | d <| d d k rMt | � rCd | d <n
d | d <| d t k rsd t | d | d <t | � r�t | � | d <t | � r=d | k r�| d } n
| d } t
| d | � r�| d | d | d <d g | d | d <| | d <t | | � \ | d <| d <t | � rdd | d <n' t
| � rd| d | d <d g | d <d! } d! } d" | k r�d | k r�xU | d" D]I } | d | } t t
t � | � r�| d# } t | � r�| d# } q�Wt | � | d$ <t | � | d% <t
| � r?t | � r?d | k r?| d | d& <d g | d <| S)'z\
name,begintitle,endtitle,argname
ctype,rctype,maxnofargs,nofoptargs,returncptr
rE z cb_%s_in_%sZ
returncptrr: r� r� r� z %s(%s,%s)Z callbackname�extern�staticrz r� z end of %sr� rS rC �rctyper z3
#ifdef F2PY_CB_RETURNCOMPLEX
return_value=
#endif
z
return_value=z%sr� Z strlengthrD rF r� zSee elsewhere.r� r� r� z8
#ifdef F2PY_CB_RETURNCOMPLEX
#ctype#
#else
void
#endif
r �argsr r� r� Zroutnote)r� rK r� r� r r� r� rX r rI r� r Zl_orrp r{ r� rZ )r� Zumrs r� rT Znofargsr� rR rU rU rV r � st
$
c C s d | d t | � i } t | � r. d | d <| d t k rP t | d | d <| d t k rv d t | d | d <t | � r� t | t | | � � } n& t | � r� t | � | d <d | d <t | | � \ | d
<| d <t
| � r| d | d <d
g | d <t | | � | d <| S)Nr� rS r r� z%sr� r^ r! r_ r� r� r� zSee elsewhere.Z arrdocstr) r r� r� r� rg r� r
rY r r r� r )rT rR rs rU rU rV r 4 s$
rf )<�__doc__�
__future__r r r r r: �versionZ f2py_versionri r[ rO �sysZ crackfortranr r Zauxfuncs�__all__Z
using_newcorerm r� r� r~ r� r r� � version_inforL �path�isfilerq �openr rk �readr �closer� r� r� �d1r� �k1rK rJ � Exception�msgr� r r r
r r r r r r r r r rU rU rU rV �<module> s�
' ; 1 > J # i Q R