Your IP : 216.73.216.213
(��^d& � @ s� d Z d d l m Z m Z m Z d d d � Z d Z d d l Z d d l m
Z
d d l m Z d d
l m
Z
m Z d d l Ti Z d d
� Z d e j � j a d a d Z d d � Z d S)aJ
Build F90 module support for f2py2e.
Copyright 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/02/03 19:30:23 $
Pearu Peterson
� )�division�absolute_import�print_functionz$Revision: 1.27 $�
� z
See `f2py -v`N)� capi_maps)� func2subr)�undo_rmbadname�undo_rmbadname1)�*c C sn t | � r | g St | � s# g Sg } x> | d D]2 } t | � rV | j | � q4 | t | � } q4 W| S)N�body)�ismodule�hasbody�append�findf90modules)�m�ret�b� r �J/opt/alt/python35/lib64/python3.5/site-packages/numpy/f2py/f90mod_rules.pyr # s r a� external f2pysetdata
logical ns
integer r,i
integer(%d) s(*)
ns = .FALSE.
if (allocated(d)) then
do i=1,r
if ((size(d,i).ne.s(i)).and.(s(i).ge.0)) then
ns = .TRUE.
end if
end do
if (ns) then
deallocate(d)
end if
end if
if ((.not.allocated(d)).and.(s(1).ge.1)) thenz� end if
if (allocated(d)) then
do i=1,r
s(i) = size(d,i)
end do
end if
flag = 1
call f2pysetdata(d,allocated(d))z� end if
if (allocated(d)) then
do i=1,r
s(i) = size(d,i)
end do
!s(r) must be equal to len(d(1))
end if
flag = 2
call f2pysetdata(d,allocated(d))c $ C s
d d l m } d g d g d g d d d g d d
d d d i d
d g d g i } d g } | d d � } d g } | d d � } x2 t | � D]$ } g g g g | d g g f \ } } }
} } }
g } g } g } t | � r
x# | d D] } | j | d � q� Wxb | d j � D]P } | d | } | | k r t t t � | � r |
j | � | j | � q Wt d | d � |
r�t d d j
|
� � d g } | d d � } d g } | d d � } t j | � } | d | d � | d | d � t
| � rB| d } t | t � r8d j
| � } | | � |
rR| d! � x |
D]�} | d | } | j | � t j | � } t j | } t j | | � } | d" j d# d$ � j � } | j d% d$ � j � } | s�d$ } t } t | � rud& | k rNd' | d& k rN| d( t | � | d) | | d& d' | f � t } q�| d* t | � | d) | | f � n$ | d* t | � | d) | | f � | d+ t j | | � � t
| � r�| d } t | t � r�d j
| � } | d, | � t | � r| j d- | d | f � |
j | d` � | j d. | � | j d/ � | d0 | d | f � | d1 | da � | d2 | d t | � f � | d3 � | d4 t | d4 <t d5 | d) � } | d6 d7 j
d8 d9 � | D� � � | d4 | | d4 <| d: | db � qY| j | � | j d; | � | j d< � | d= | d | f � qYW|
re| d> � t | � rdx�| d D]�} t | � s�t d? | d@ | d � q|| j dA | d � | d | dB <| j | � \ } } t | � r=| d4 | | d4 <| j dC | d | d f � | j t! j" | dD d �� nx | r�| d4 | | d4 <| j dC | d | d f � | j t! j# | dD d �� n" | j | d � | j | dc � g | dE <t$ | | � }! g |! d
<g |! dF <t% | |! � } | dG | d | d | d | d | d f � | j d; | d � | j dH � | d= | d | d f � q|W| dI � | dJ � dK | d d7 j
| � | d4 f | d4 <dL | d k r�dM }" n d }" | dN |" | d | d j& � d7 j
| � f � | dO | d � | dP |" | d | d j& � | d f � | dQ � | d | | | d <dR | d | d | d f g | d | d <| d � | dS | d � | r�x, t' | � D] }# | dT | d |# f � q�W| r�| d j
dU g | � � | dV � | dW � |
r, x" t' |
� D] }# | dX |# � q W| dY d7 j
t' | � � � | dZ | d � | d j
| d � j d[ d\ � � g | d <| d
j d] | d d7 j
t' | � � f � q� Wd | d^ <g | d_ <g | dF <| d4 | d <t( | d
� d k r
d | d
<| | d4 f S)dNr )�rulesZ f90modhooksZinitf90modhooksr Zneed�F_FUNCz
arrayobject.hZ
separatorsforZ includes0�
�includesZdocsz"Fortran 90/95 modules:\n"Zlatexdoc� c S s d | d | f | d <d S)Nz %s
%sr r )�line�sr r r �faddb s zbuildhooks.<locals>.faddc S s d | d | f | d <d S)Nz%s
%sr r )r r r r r �daddf s zbuildhooks.<locals>.dadd�name�varsz. Constructing F90 module support for "%s"...
z Variables: %s
� c S s d | d | f | d <d S)Nz%s
%sr r )r r r r r �cadd| s zbuildhooks.<locals>.caddc S s d | d | f | d <d S)Nz%s
%sr r )r r r r r �iadd� s zbuildhooks.<locals>.iaddz'static FortranDataDef f2py_%s_def[] = {z.\subsection{Fortran 90/95 module \texttt{%s}}
�notez\begin{description}Zdimsr z-1�:Z charselector�lenz {"%s",%s,{{%s,%s}},%s},Zrankz {"%s",%s,{{%s}},%s},z\item[]{{}\verb@%s@{}}z--- %szf2py_%s_getdims_%sz.void (*%s)(int*,int*,void(*)(char*,int*),int*)z,void (*)(int*,int*,void(*)(char*,int*),int*)z! f2py_%s_def[i_f2py++].func = %s;z#subroutine %s(r,s,f2pysetdata,flag)zuse %s, only: d => %s
z
integer flag
r z
range(1,%s+1)z allocate(d(%s))
�,c S s g | ] } d | � q S)zs(%s)r )�.0�ir r r �
<listcomp>� s z buildhooks.<locals>.<listcomp>zend subroutine %szchar *%szchar*z! f2py_%s_def[i_f2py++].data = %s;z\end{description}ZSkipping�blockz%s()�
modulenamezf2pywrap_%s_%s� signatureZexternroutinesZdocshortz_ {"%s",-1,{{-1}},0,NULL,(void *)f2py_rout_#modulename#_%s_%s,doc_f2py_rout_#modulename#_%s_%s},zchar *z {NULL}
};
�}z0static void f2py_setup_%s(%s) {
int i_f2py=0;%s�_Z F_FUNC_USz4extern void %s(f2pyinit%s,F2PYINIT%s)(void (*)(%s));z static void f2py_init_%s(void) {z* %s(f2pyinit%s,F2PYINIT%s)(f2py_setup_%s);z}
zN PyDict_SetItemString(d, "%s", PyFortranObject_New(f2py_%s_def,f2py_init_%s));z$subroutine f2pyinit%s(f2pysetupfunc)zuse %s, only : %sZ interfacez
end interfacezexternal f2pysetupfuncz external %szcall f2pysetupfunc(%s)zend subroutine f2pyinit%s
z \subsection{z\subsubsection{z " %s --- %s"Z routine_defs�doc���r1 r1 r1 ))r r r r r �keysZl_orZ
isintent_hideZ isprivateZoutmess�joinr Z modsign2mapZhasnote�
isinstance�listZgetctypeZ
c2capi_mapZ
getarrdims�replace�strip� fgetdims2Z
isstringarrayr
� fgetdims2_saZ
getarrdocsignZ
isallocatable� fgetdims1�eval� isroutine�printZbuildapi�
isfunctionr ZcreatefuncwrapperZcreatesubrwrapperZ
applyrulesZ
dictappend�upperr r& )$Zpymodr r Zfhooksr r0 r r Zsargs�fargsZefargsZmodobjsZnotvarsZonlyvarsZsargspZifargsZmfargsr �n�varZchooksr" Zihooksr# Zvrdr$ �ctZat�dmZdmsZ
use_fgetdims2Zapi�wrap�arr �ar r r �
buildhooksX sH % "
) !
+
% +&
+
rH r1 )�__doc__�
__future__r r r � __version__Z f2py_version�numpy�npr r r Z crackfortranr r
Zauxfuncs�optionsr Zintp�itemsizer: r8 r9 rH r r r r �<module> s