
    thhu                        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 ddl	m
Z
mZmZ ddlT ddlmZ g d	Zg Zi ai Zi 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ddZi 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-dd-d.d.d/Zi d
d0dd1dd2dd3dd4dd3dd5dd6dd7dd8dd9d'd:dd;d*d<dd=dd>dd?d@dAd/Zd0d1d3d3d5d7d9d:dBdBdBdCdAdDZddd
dddEddddddddd*dF	ddddddGddddddEddddddHdIdidId
idIdidJae                    e           e                    e
            et0          ee          \  aZ ej        t0                    Zg adK Zi d
dLddLddMddNddNddOddPddQddNddRddSd'dTddSddUddUddVddWddXiZ dY Z!dZ Z"d[ Z#dgd\Z$d] Z%d^ Z&d_ Z'd` Z(da Z)db Z*dc Z+dhddZ,de Z-df Z.dS )ia  
Copyright 1999 -- 2011 Pearu Peterson all rights reserved.
Copyright 2011 -- present NumPy Developers.
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.
   )__version__    N)cb_rules)iso_c2py_mapiso_c_binding_mapisoc_c2pycode_map)*)markoutercomma)getctypegetstrlength
getarrdimsgetpydocsigngetarrdocsigngetinitsign2maproutsign2mapmodsign2mapcb_sign2mapcb_routsign2mapcommon_sign2mapprocess_f2cmap_dictdoublefloatlong_doublecharintsigned_charunsigned_charshortunsigned_shortlong	long_longunsignedcomplex_floatcomplexcomplex_doublecomplex_long_doublestring	characterbytes
NPY_DOUBLE	NPY_FLOATNPY_LONGDOUBLENPY_BYTE	NPY_UBYTE	NPY_SHORT
NPY_USHORTNPY_INTNPY_UINTNPY_LONGunsigned_long	NPY_ULONGNPY_LONGLONGunsigned_long_longNPY_ULONGLONG
NPY_CFLOATNPY_CDOUBLE
NPY_STRING)r(   r)   dfgbBhHiIlLqQFDGScNy)r   r   r   r   r   r   r!   r"   r$   r&   r'   r(   r)   ) 481216)	rQ   12rR   rS   -1z-2z-4z-8)rQ   rS   rU   2432)rQ   rV   rW   rR   rS   rQ   )realintegerr%   complexkindlogicalzdouble complexzdouble precisionbytec                    t          j        t                    a| #d} t          j                            |           sd S 	 t          d| d           t          |           5 }t          |
                                                                i i           }d d d            n# 1 swxY w Y   t          t          |t          d          \  aat          d           d S # t          $ r}t!          d| d           Y d }~d S d }~ww xY w)Nz.f2py_f2cmapzReading f2cmap from z ...
Tz1Successfully applied user defined f2cmap changes
z-Failed to apply user defined f2cmap changes: z. Skipping.
)copydeepcopyf2cmap_default
f2cmap_allospathisfileoutmessopenevalreadlowerr   c2py_mapf2cmap_mapped	Exceptionerrmess)f2cmap_filer>   r=   msgs       K/var/www/histauto/venv/lib/python3.11/site-packages/numpy/f2py/capi_maps.pyload_f2cmap_filert      sY    ~..J$w~~k** 	FT<{<<<===+ 	/!QVVXX^^%%r2..A	/ 	/ 	/ 	/ 	/ 	/ 	/ 	/ 	/ 	/ 	/ 	/ 	/ 	/ 	/$7
AxQU$V$V!
MDEEEEE T T TRRRRSSSSSSSSSTs<    "C "6B$C $B((C +B(,1C 
D)DDz%gz%Lgz%dz%hhuz%hdz%huz%uz%ldz%luz(%g,%g)z	(%Lg,%Lg)z\"%s\"z'%c'c                    d}t          |           rOd| v r	| d         }n| d         }|| d         v rt          | d         |                   S t          d| d           nt          |           r|S t	          |           rdS t          |           rdS d	| v r| d	                                         t          v rr| d	                                         }t          |         }|d
         }d| v r=d| d         v rS	 || d         d                  }n?# t          $ r/ t          d| d	         ddd| d         d         d           Y nw xY wd| d         v r|dz   t          v rt          |dz            }	 || d         d                  }n# t          $ r |t          v rt          |         }	 |t          | d         d                            }n[# t          $ rN t          d|d| d         d         d|d|d| d         d         dt          j                    d           Y nw xY wY n'w xY wn"t          |           st          d|  d           |S )z
    Determines C type
    voidresultnamevarsgetctype: function  has no return value?!
r)   r(   typespecrQ   kindselectorr	   zgetctype: " z" not supported.
kindz(kind=z)" is mapped to C "z" (to override define dict(z = dict(z="<C typespec>")) in z/.f2py_f2cmap file).
zgetctype: No C-type found in "z", assuming void.
)
isfunctionr   rp   issubroutineischaracter_or_characterarrayisstring_or_stringarrayrl   rd   KeyErrorstrre   getcwd
isexternal)varctypear|   f2cmaps        rs   r   r      s    E# )Ks??HAAFAFCKN+++E!EEEFFFF	c		  K	&s	+	+ K{	 	%	% Kx	s		s:4466*DDz?((**H%r
S  c.)))N"3~#6s#;<EE N N NG ___ccc3~3Fs3K3K3KM N N N N NN 3~...f$
22'6(9:F
X"3~#6v#>?EE X X X:--!+H!5X &s3~+>v+F'G'G H# X X X#+88S-@-H-H-H%%%#+88S-@-H-H-H")++++!W X X X X XXX __ KIIIIJJJLsI   :D 5E	E	3F  H))!G
H)AH# H)"H##H)(H)c                 2    t          j        dd|           } | S )a^  Rewrite Fortran expression as f2py supported C expression.

    Due to the lack of a proper expression parser in f2py, this
    function uses a heuristic approach that assumes that Fortran
    arithmetic expressions are valid C arithmetic expressions when
    mapping Fortran function calls to the corresponding C function/CPP
    macros calls.

    z\blen\b	f2py_slen)resub)exprs    rs   f2cexprr      s     6*k400DK    c                 8   t          |           rMd| v r	| d         }n| d         }|| d         v rt          | d         |                   S t          d| d           t          |           s t          dt	          |            d           d}d	| v r.| d	         }d
|v r	|d
         }nd|v rt          |d                   }t          j        d|          st          j        d|          r0t          |           rt          dt	          |           z             d}|S )Nrw   rx   ry   zgetstrlength: function r{   z8getstrlength: expected a signature of a string but got: 
rV   charselectorr	   lenz\(\s*(\*|:)\s*\)z(\*|:)zMgetstrlength:intent(hide): expected a string with defined length but got: %s
rX   )	isstringfunctionr   rp   isstringreprr   r   matchisintent_hide)r   r   r   s      rs   r   r      sT    Ks??HAAFAFFA///IaIIIJJJC== VTtCyyTTT	V 	V 	V
C!88C&CCaZZ!E(##C	x#S)) RXi-E-E  	dS		   Jr   c           	         i }t          |          r-t          |          st          |          |d<   d|d<   d|d<   nt          |          rd|d<   d|d<   d|d<   nt          |          rtt	          j        |d                   }d                    |          |d<   	 t          t          |d                             |d<   n# t          $ r Y nw xY wd	                    |          |d<   t          t          |                    |d<   t          t          |          d
gz            dd
         |d<   t          t          |                    D ]}g }||         t          v r
||         g}n=t          D ]5}t          j        d|z  ||                   r|                    |           6|D ]?}t                              |          t                              |           k    rd||<    n@d\  |d<   }|D ]}|dz   }|dvrd|d         ||fz  |d<   |d         r|d         d d
         |d<   d\  |d<   }|d         D ]}|dz   }|dvrd|d         ||fz  |d<   t!          |          r$t#          d|z             d|d         |dfz  |d<   P|r0t%          dt          |            dt          |           d           |d         r|d         d d
         |d<   |S )Nsize0rankrQ   dimsrV   	dimensionr	   ,r   z	rank*[-1]z.*?\b%s\b.*)rQ   r   setdims)r	   :z(*)z(:)z%s#varname#_Dims[%d]=%s,	cbsetdimsz?getarrdims:warning: assumed shape array, using 0 instead of %r
r   z5getarrdims: If in call-back function: array argument z# must have bounded dimensions: got r   )r   isarrayr   isscalarra   joinr   rj   ro   r   rangedepargsr   r   appendindexisintent_inrh   rp   )	r   r   verboseretdimrD   vvar=   s	            rs   r   r     s   
C}} 55WS\\ 55"3''FFF	# 15FFF	 -5iK())hhsmmF	tCK0011CKK 	 	 	D	hhsmmF3s88nnFCB40026Ks3xx 	 	AA1v  VH! % %Bx 3SV<< %  ==$$w}}Q'7'777 CFE 8 #I 	* 	*AAA000!;	NAq?* "*Iy> 	1 ^CRC0C	N$K![! 	E 	EAAA000#=$aA, $,K  S!! EZ   #=$aA, $,K   E DDQRGG  D  Dx|}~xx  D  D  DE E E{ 	5";/4C Js   "%C 
CCc                 Z   t          |          rPd|v r	|d         }n|d         }||d         v rt          ||d         |                   S t          d| d           dS | | }}d}t          |          rd}nt	          |          rd	}| }t          |          r%|d
         D ]}|d d         dk    r|dd          } nd}t          |          }	t          |          rt          | |          \  }}
d|
 }t          |          rat	          |          r'| d|dt          |	         dt          |	         d|	}n|  d| dt          |	          | }| dt          |	          }nt          |          r[t	          |          r| d|dt          |          d|}n|  d| dt          |           d| }| dt          |           d}nXt          |          r|d         }t          t!          |                    }| d|d|dt          |	         dd                    |          d|}| |k    r-| d|dt          |	         dd                    |          d}n|d|dt          |	         dd                    |          d| d
}nt%          |          rod}| t&          v rZt&          |          t(          v rFd t(          t&          |                   v r,t(          t&          |                   d          }|| k    sd!| }nd}|  d"| }|}nt          d#|  d$           ||fS )%Nrw   rx   ry   rz   r{   rQ   rQ   rQ   inputz	in/outputintent   out=z, optional\n    Default: z : z rank-0 array(,'')r~   z rank-0 array(string(len=),'c')z string(len=)z : string(len=r   z rank- array('') with bounds (r    : rank-z) and z storageargnamez => z : call-back functionz2getpydocsign: Could not resolve docsignature for "z".
)r   r   rp   r   isintent_inoutisintent_outr   hasinitvaluer   r   rm   c2pycode_mapr   r   r   r   r   r   r   lcb_maplcb2_map)r   r   afsigsigoutoptout_akinitr   showinitr   r   uas                 rs   r   r   W  s   # 	s??XBBVBVCKO444F"FFFGGGvQC
C3 			 EC X 	 	A!u!""  DSMMEC 7 Ch6H66}} 'J# 	99:CCC%9Ee9L9L9LddTCC 88388%8$88C//huo//	#  J# 	G333S))))441CC FF3FFL,=,=FFFFC==c):):===	 J+CHH~~DEAAsssDDDDPHMEO EO EODGHHSMMMMSWSWY ::11dddL///#@FF 55$$$U 3 3 3SXXc]]]]AAAGFF	C J<<GAJ(22yHWUVZDX7X7X'!*%i0B77 B[[----HHHH	J 	J 	J;r   c           	         t          |          }t          |          r%t          |          s|  dt          |           d}nt	          |          r"|  dt
          |          dt          |          d}n_t          |          rP|d         }t          t          |                    }| d|dt          |         d	d
	                    |          d}|S )Nz : rank-0 array(string(len=r   z : rank-0 array(r   r   r   r   r   r   r   r   )
r   r   r   r   r   rm   r   r   r   r   )r   r   r   r   r   r   s         rs   r   r     s    SMME}} 
Ngcll 
NJJ|C/@/@JJJ	# NPPHUOPPU8KPPP	 N+CHH~~?@qq$$$?KCH@J @J @J?Bxx}}}}N Jr   c                    t          |          rd\  }}nd\  }}t          |          rR|d         }|}t          |          st          |          ri }	 |d         }d|v r4t	          |dd                                       d          \  |d<   |d	<   n@t          |i i           }t          |j                  t          |j	                  c|d<   |d	<   n$# t          $ r t          d
| d| d          w xY wt          |          rd|d          d|d	          d}n]t          |          rN|sd\  }}|d         dk    r!d|dd                             dd          z  }|d         dk    rd|dd          d}||fS )N)z""z''r   =r   r   r   @,@init.rinit.iz2getinit: expected complex number `(r,i)' but got `z' as initial value of .z
(capi_c.r=z
,capi_c.i=z,capi_c)r   'z"%s""z\")r   r   	iscomplexiscomplexarrayr
   splitrj   r   r[   imagro   
ValueErrorr   replace)r   r   r   r   r   r   s         rs   r   r     s   }}  #hhhC -3xS>> 	-^C00 	-C
oH!883A!B$4! 4!!&u 1CM3x== QBA36qv;;AF0CM3x= o o o m$mmghmmmo o oo s|| UTCMTTS]TTTc]] 	- ,!+hAw#~~ad!3!3C!?!?@Aw#~~,tAbDz,,,>s   B C !C8c                     t          |           st          |           r-t          |           }| d                             d|          }|S t	          |           st          |           rdS dS )Nr   f2py_lenrV   )r   isstringarrayr   getischaracterischaracterarray)r   elsizes     rs   
get_elsizer     sw    }} c** c""^$((V<<3 +C00 s 3r   c           
      F   | }t          |          r%|d         D ]}|dd         dk    r|dd         } n| |t          |          d}g }t                                          D ](\  }} ||          r|                    d|            )|rd                    |          |d<   nd|d<   t          |          rd	|d
<   n+|d         t          v rt          |d                  |d
<   nd|d
<   t          | |          \  |d<   |d<   t          |          rWt          |          rHt          |          s9t          |d         dd                                       d          \  |d<   |d<   t          |          r| |d<   | t          v rt          |          |d<   t          t          |                   d         |d<   t          t          |                   d         |d<   t          t          |                   d         |d<   t          t          |                   d         |d<   n?| |d<   t!          d| dt#          t                                                    d           t'          |          rt)          |          |d<   t          |          r8t+          |t-          | |                    }t/          j        |d                    }|d         t0          v r(t0          |d                  |d!<   t3          |          |d"<   t5          |          rg t6          d#t           d$t8          d%t:          d&t<          d't>          d(t          d)tA          tB          tE          t                              d*t&          d+t          d,tF          d-tH          d.tJ          d/tA          tL          tE          tJ                              d0t          d1tN          d1tP          d2}	g }
tS          d3tU          |	          d4          D ]1} |	|         |          r|
                    |	|dz                       2t'          |          r!|
                    d5|  d6|d                     t          |          rDd7                    tW          d8 |d          |                    }|
                    d9| d:           t          |          r(d;|  d<|d          d=d7                    |
           |d><   n0d;|d         d?| d@|d         d=d7                    |
          |d><   tC          |          r+|d         tX          v rd;|  d@tX          |d                   |dA<   t'          |          rdB| dC| dD|dA<   t          |          r	d;|  dE|dA<   |d         tX          v r3dF|  d@tX          |d                   |dG<   tX          |d                   |dH<   t'          |          rdI| dC| dD|dG<   t[          | |          \  |dJ<   |dK<   t]          |          r|dL         |dL<   |S )Mz
    varname,ctype,atype
    init,init.r,init.i,pytype
    vardebuginfo,vardebugshowvalue,varshowvalue
    varrformat

    intent
    r   Nr   r   )varname
outvarnamer   F2PY_|F2PY_INTENT_INrO   
varrformatr   Or   r   r   r   r   r   r   	cbnamekeycbname
maxnofargs
nofoptargsdocstrcbdocstrlatexdocstrcblatexdocstrzsign2map: Confused: external z is not in lcb_mapz.
lengthr   atyper   r   outputinoutputrequiredoptionalhiddenzcomplex scalarscalarr(   arrayzcomplex arrayzstring arrayzcomplex functionfunctioncallback	auxiliaryr      zslen(z)=r   c                     |  d| S )Nr    )xrP   s     rs   <lambda>zsign2map.<locals>.<lambda>.  s    A r   zdims(r   debug-capi:z=>r   vardebuginfor~   r   vardebugshowvaluedebug-capi:slen()=%d =\"%s\"z=%pz#name#:varshowvalueshowvalueformatz#name#:slen(	pydocsignpydocsignoutnote)/r   r   isintent_dictitemsr   r   r   c2buildvalue_mapr   r   r   r
   r   r   r   r   rp   listkeysr   r   
dictappendr   ra   
c2capi_mapr   	debugcapir   r   
isrequired
isoptionalr   l_andr   l_notr   r   iscomplexfunctionr   isintent_callbackisintent_auxr   r   mapcformat_mapr   hasnote)r   r   r   r   r   intent_flagsr>   sr   ilrlrD   ddims                rs   r   r     s     EC X 	 	A!u!""  ux}}
E
ECL##%% - -11S66 	-,,, )..H(Hs||  L	W)	)	),S\:LL#*1c?? CKZC ,Ys^^ ,GCLL ,'5K"( ($uU|| 	%Hs8}# *K<<#AJCM ( 4\ BC ( 4\ BC&wqz28<C
O#+GAJ#7#FC  CMG4'''') * * *}} *$S))Hs|| *jC0011iK())
7|z!!!#g,/G"3H~~ $<k 7 L ( (*46@$&35=  * HeI..//	 2:	
 
 !
 #*
 ,3  . 0= ?M   "4 J&7 8 899 <F  %   ",  ( q#b''1%% 	% 	%Ar!uSzz %		"QU)$$$C== 	4II2a223x=223333<< 	'88++S-=sCCE EDIIodooo&&&c?? 	@"S"S"SS]"S"SSXXb\\"S"SC	@ GaaaZ#((2,,,#@CC== 	Y7|{**+X+X+X[W=V+X+X'(C== 	 	111(C#$c?? 	<';Q';';';C#$
7|{""GGGKG,EGGN$/G$=!?}} J JDEAAqqqIN,8C,@,@)Cc.)s|| "&kFJr   c                 r   | d         }t          |           }||                    dd          |                                |                                t	          |          t	          d|           ||                                t          |           pdt          |           pdt          |           pdd}d|v rd|d<   nd|d<   d|v rd	|d
<   nd
|d
<   i ad| v r| d         	                                D ]}|t          j        v rt          j        |         D ]{}|d         }d| d         |         v rQ| d         |         d         	                                D ]*}| d         |         d         |         |d         k    r|} n+|d         t          |<   |nD|                     d          r/t          d|d         dt          | d                   d           t          | t                    pd|d<   t!          |           rd| v r	| d         }n| d         }||d<   t#          ||           \  |d<   |d<   t%          | d         |                   |d<   t'          |           r)| d         |         d         |d<   dg| d         |         d<   |d         t(          v rt(          |d                  |d<   n*d|d<   t          dt          |d                   z             t+          |           rF|d         t,          v rd |d!t,          |d                  |d"<   t/          |           rd#|d$|d%|d"<   t/          |           rTt1          | d         |                   |d&<   |d&         d'k    r*t          d(t          | d                   z             d)|d&<   t3          |           r| d         |d<   dg| d<   |S )*zV
    name,NAME,begintitle,endtitle
    rname,ctype,rformat
    routdebugshowvalue
    rx   _\_end of rQ   )rx   texname
name_lowerNAME
begintitleendtitlefortrannameFORTRANNAMEcallstatementusercode	usercode1	F_FUNC_USF_FUNCF_WRAPPEDFUNC_USF_WRAPPEDFUNCuser   r#  r   	externalsz!routsign2map: Confused: function z has externals z but no "use" statement.
callprotoargumentrw   rnamer  r  ry   r   r  
resultnoteSee elsewhere.rformatr   z.routsign2map: no c2buildvalue key for type %s
r	  r   routdebugshowvaluer  r  r  rlengthrX   zzroutsign2map: expected explicit specification of the length of the string returned by the fortran function %s; taking 10.
10)getfortrannamer   rl   uppergentitlegetcallstatementgetusercodegetusercode1r   r  r   cb_mapr   rp   r   getcallprotoargumentr   r   r   hasresultnoter  r  r$  r   r   r%  )	routrx   fnamer   uunlnr   r   s	            rs   r   r   H  s:    <D4  Ell3..::<<!$ 0$ 0 011++--,T228b"4((.B$T**0b C e||#H H
d{{1O.OG}}e!!## 		( 		(AHO##"/!, ( (BABUA..!%eQ!6!;!;!=!= & &A#E{1~e4Q72a5@@%& %  A #%Q%GBKK		( 
+		 3KKKd;/00002 	3 	3 	33D'BBHbC$ &tXAAVAG0<Q0E0E-K#n-VQ00G 	9 $VQ 7C'7&8DLOF#w<+++-c'l;C	NN C	NE#g,'') * * *T?? 	7|{***AA{3w<00-2()%%  AAqqq-()D!! 	&)$v,q/::C	N9~%%  Vf&&( ) ) )!%It}} *6lF()VJr   c                    t          |           r?| d         | d                                         | d                             dd          d}n>| d         | d                                         | d                             dd          d}t          |           pg |d<   t	          |           r| d         |d<   t          |           pd|d	<   t          |           pd|d
<   | d         r!t          | d         d                   pd|d<   nd|d<   t          |           pd|d<   d| v r| d         |d<   d| v r| d         |d<   d| v r| d         |d<   |S )z
    modulename
    rx   r,  r-  )f90modulenameF90MODULENAMEtexf90modulename)
modulename
MODULENAMEtexmodulenamerestdocr  rQ   r7  r8  bodyr   interface_usercodepymethoddefgil_usedcoutputf2py_wrapper_output)ismodulerH  r   
getrestdocr%  rK  rL  getpymethoddef)mr   s     rs   r   r     s    {{ ? !&	 !&	 1 1#$V9#4#4S%#@#@B B vYvY__.. !&	 1 1#u = =? ?  ]](bC	Nqzz  iF!!nn*C
O#A,"Cy '$/&	!$=$=$C !!$& !'**0bCQJ-JA~~9I!!%&'<%=!"Jr   c                    d| i}|d         |d<   t          |          |d<   |d         t          v r(t          |d                  |d<   t          |          |d<   |d         t          v rt          |d                   |d<   t	          |          rt          |t          | |                    }t          | |          \  |d<   |d<   t          |          r|d	         |d	<   d
g|d	<   |S )Nr   	varname_ir   r   r   r  r  r  r  rB  )	r   r  r   r$  r   r  r   r   r%  )r   r   r   r   s       rs   r   r     s    a.C9~CC==CL
7|z!!!#g,/G"3H
7|{""$/G$=!?s|| 2jC0011,8C,@,@)Cc.)s|| )&kF'(FJr   c                    d| d          d| dd}t          |           rSd| d         v rd}nd}| d	| d                                          d
| d                                          d|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    rt          |           rd|d<   nd|d<   |d         t          v rt          |d                   |d<   t          |           rt          |           |d<   t          |           rd| v r	| d         }n| d         }t          | d         |                   r)| d         |         d         |d<   dg| d         |         d<   ||d <   t          ||           \  |d!<   |d"<   t          |           rd#|d<   n t          |           r| d         |d<   dg| d<   d$}d$}d%| v rYd| v rU| d%         D ]L}| d         |         } t          t          t                    |          r|d&z   }t          |          r|d&z   }Mt!          |          |d'<   t!          |          |d(<   t          |           r$t          |           rd| v r| d         |d)<   dg| d<   |S )*z\
    name,begintitle,endtitle,argname
    ctype,rctype,maxnofargs,nofoptargs,returncptr
    cb_rx   _in_rQ   )rx   
returncptrr,  r9  r:  (r   r   callbacknameexternstaticr   r2  r.  r3  r   rv   rctyper(   z3
#ifdef F2PY_CB_RETURNCOMPLEX
return_value=
#endif
rl  zreturn_value=r  	strlengthrw   ry   r  rB  r@  r  r  z8
#ifdef F2PY_CB_RETURNCOMPLEX
#ctype#
#else
void
#endif
r   argsr   r   r   routnote)r!  rl   rH  rI  r   r   r$  r   r   r   r%  r   l_orr   r   r  r   )rP  umr   r:  r   nofargsr   r   s           rs   r   r     sy   
 0f//2// C 	!$v, FFF!'XX$v,*<*<*>*>XXfASASAUAUXXXN H!&kN H&\C	N V--C6V6677C
OD>>CLCM
7|xHGH
8}T"" 	0!C !0C
7|{""$/G$=!? .'--K$ *tXAAVA4<?## 	9v,q/&1CK'7&8DLOF#G0<Q0E0E-K#n-T"" 	CM 
 *6lF()VGJ~~&D..f 	0 	0Av,q/C0tK0055 0!A+c?? 0!+aJWCZ((Ct}} *D)) *h$.>.>v,J()VJr   c                 L   | t          |          d}t          |          rd|d<   |d         t          v r(t          |d                  |d<   t          |          |d<   |d         t          v r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 )N)r   r   r   r   r   r   r  r   rV   r   r  r  r  rB  	arrdocstr)r   r   r  r   r$  r   r  r   r   r   r   r%  r   )r   r   r   s      rs   r   r     s3   (3--
0
0CS G
7|z!!!#g,/G"3H
7|{""$/G$=!?s|| jC0011	# "3''FF,8C,@,@)Cc.)s|| )&kF'(F$Q,,CJr   )r   )N)/__doc__rQ   r   versionf2py_versionra   re   r   r   	_isocbindr   r   r   auxfuncscrackfortranr
   __all__r   r   r   rm   r  r   r  rd   updater   r,  rb   rc   rn   rt   r$  r   r   r   r   r   r   r   r   r   r   r   r   r   r   r  r   rs   <module>r     sn         "  				 				       I I I I I I I I I I
     ( ( ( ( ( (   
Hg W7 E 5	
 U U e 5 E   Y i "9 h  !&+h ++/+ 
+  	+
 z+ + !,+ y+ J+ 
+  + ^+ %o+  + !-+  &}!+" ')%+ + +
("# ""s" "  	"
 s" " !#" s" C" "  " S" %c"  " !#"  &s!""  %" " "* " #& !$%(&)+.!!$& &  #x*-A A#-g$; /7G *2FH H .O 08M 57 7 #2#3;P$9; ; $&wU*, ,!#%5 6#%x.6l! 
(   % & & &    ##J0A8LL
Az**T T T4x e t d	
     d 4 u  E 	   %k  !" F# ./ / /d    8: : : :zF F FR     D  e e ePN N Nb  >   $J J JZ    r   