ϬB0 d Z ddd ZdZddlZddlmZ dd lmZ dd
lm Z m
Z
dd l T i Z d Z
d
ej j z ZdZdZd ZdS )aJ
Build F90 module support for f2py2e.
Copyright 2000 Pearu Peterson all rights reserved,
Pearu Peterson
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
z$Revision: 1.27 $
z
See `f2py -v` N ) capi_maps) func2subr)undo_rmbadnameundo_rmbadname1)*c t | r| gS t | sg S g }| d D ]9}t | r| | '|t | z }:|S )Nbody)ismodulehasbodyappendfindf90modules)mretbs k/builddir/build/BUILD/cloudlinux-venv-1.0.10/venv/lib64/python3.11/site-packages/numpy/f2py/f90mod_rules.pyr r " sz {{ s
1::
C
vY * * A;; * JJqMMMMq)))CC J 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 ddl m} g g g ddgddddgg d}d g}|fd
}d g}|fd }t | D ]}g g g g |d gg f\ }} }
} } }
g }g }g }t | r&|d
D ] }| |d |d D ]a}|d | }|| vrM t
t t | s*|
| | | bt d|d z |
r%t dd
|
z d g}|fd}d g}|fd}t j | } |d|d z |d|d z t | r=|d }t |t rd
| } || |
r |d |
D ])}|d | }| | t j | }t j | }t j || } | d dd } | dd } | sd} t* } |d t- | d | d d | d |d!t j | d" |d#t j || z t | r@|d }t |t rd
| } |d$|z t3 | rM| d%|d d&| |
| d' | d(|z | d) |d*|d d+|d, |d-| d' z |d.|d d/t- | d |d0 |d1 t4 z |d1< t7 dt9 | d dz } |d2d3
d4 | D z |d1 | z |d1< |d5| d' z | | | d6|z | d7 |d*|d d8|d, +|
r |d9 t | r>|d
D ]4}t; | s#t d:|d; d|d d 5| d<|d z |d |d=< | | \ } } t? | r_|d1 | z |d1< | d>|d d?|d | tA j! |d@ n| r_|d1 | z |d1< | d>|d d?|d | tA j" |d@ n6| |d | | d' g | dA< tG | | }!g |!dB< g |!dC< tI ||! } |d |d dD|d d?|d dE|d d?|d d" | d6|d z | dF |d*|d d8|d d, 6 |dG |dH dI|d dJd3
| dK|d1 |d1< d?|d v rdL}"nd}" |dM|"dN|d dO|d % dPd3
| dQ |dR|d z |dS|"dN|d dO|d % dT|d dU |dV |dW |z |z |dW< dX|d dY|d dZ|d dQg|d[ z |d[< |d |d\|d z |r)tM | D ]}# |d.|d d]|# |r- |d
d^g|z |d_ |d` |
r tM |
D ]}# |da|#z |dbd3
tM | z |dc|d z |d
|dd dedf g |dd< |dB dg|d dhd3
tM | di d |dj< g |dk< g |dC< |d1 |dd< tO |dB dk rd |dB< ||d1 fS )lNr )rulesF_FUNCz
arrayobject.h
) includes0includesz"Fortran 90/95 modules:\n") f90modhooksinitf90modhooksr need
separatorsfordocslatexdoc c & |d d| |d< d S )Nr z
liness r faddzbuildhooks..fadd` s !"1tt,!r c & |d d| |d< d S Nr r r$ r% s r daddzbuildhooks..daddd s Q444&!r namer varsz. Constructing F90 module support for "%s"...
z Variables: %s
c & |d d| |d< d S r* r$ r% s r caddzbuildhooks..caddz tttTT*AaDDDr c & |d d| |d< d S r* r$ r% s r iaddzbuildhooks..iadd~ r1 r z'static FortranDataDef f2py_%s_def[] = {z.\subsection{Fortran 90/95 module \texttt{%s}}
notez\begin{description}dimsr
z-1:z {"z",rankz,{{z}},z, z},z\item[]{{}\verb@%s@{}}z--- %sf2py_ _getdims_r z.void (*%s)(int*,int*,void(*)(char*,int*),int*)z,void (*)(int*,int*,void(*)(char*,int*),int*)z f2py_z_def[i_f2py++].func = ;z#subroutine %s(r,s,f2pysetdata,flag)zuse z
, only: d => z
integer flag
r z allocate(d(%s))
,c g | ]}d |z S )zs(%s)r$ ).0is r
z buildhooks.. s 9 9 9! 9 9 9r zend subroutine %szchar *%szchar*z_def[i_f2py++].data = z\end{description}z"f90mod_rules.buildhooks: skipping blockz%s()
modulename f2pywrap__) signatureexternroutinesr docshortz4",-1,{{-1}},0,0,NULL,(void *)f2py_rout_#modulename#_z ,doc_f2py_rout_#modulename#_zchar *z {NULL}
};
}zstatic void f2py_setup_(z) {
int i_f2py=0; F_FUNC_USz extern void z (f2pyinitz ,F2PYINITz )(void (*)(z));z static void f2py_init_%s(void) { z
)(f2py_setup_z);z}
r z PyDict_SetItemString(d, "z ", PyFortranObject_New(f2py_z_def,f2py_init_r z$subroutine f2pyinit%s(f2pysetupfunc)z , only : interfacez
end interfacezexternal f2pysetupfuncz external %szcall f2pysetupfunc(%s)zend subroutine f2pyinit%s
r! z \subsection{z\subsubsection{z" z --- " routine_defsdoc)(r" r r r r keysl_or
isintent_hide isprivateoutmessjoinr modsign2maphasnote
isinstancelistgetctype
c2capi_map
getarrdimsreplacestrip fgetdims2r
get_elsize
getarrdocsign
isallocatable fgetdims1rangeint isroutinebuildapi
isfunctionr createfuncwrappercreatesubrwrapper
applyrules
dictappendupperr len)$pymodr r fhooksr( rN r+ r sargsfargsefargsmodobjsnotvarsonlyvarssargspifargsmfargsr nvarchooksr0 ihooksr3 vrdr4 ctatdmdms
use_fgetdims2apiwraparr as$ r
buildhooksr W s R o.*.D A A12 C
TF - - - -
$C ' ' ' '
E
"
" ZR ZR;=r2r
fIL<8ufgw 1:: *vY
*
*qy))))6 !! ! !AF)A,C +I4
y+I+I#+N+N """
a C6 D +sxx/A/AB C C C + + + + + + + + #A&&
6!F)
DEEE
@AfI
NOOO 1:: V9D$%%
'yy DJJJ ) D' ( ( ( * L * LAF)A,C NN1 #C((B%b)B%a--BV*$$S$//5577C++c4((..00C
%M DD!!$$$$bjjj###rrr&s++++-
.
.
.
D+)!S113
4
4
4s||
(6{ dD)) + 99T??DX&''' S!!
L QvYYY BCCC
eBi((( DJL L L
LMMMQvYYYJKKK:eBiHIIIiii !3!3!3!35 6 6 6%&&& "1I 1q As2f: 233)hh 9 9S 9 9 9::< = = = "1I
5q (E"I67777 Q Z1 -...
g&&&QvYYYJKKKK ' D% & & & 1:: " -vY !
- !
- || D)*7 D D67i D D D E E E v6 3444"#F), !NN1 - - T a== 1 &q D 0F1ILLLQvYYY& !JKKKMM)"=a1"M"M"MNNNN 1$*1I$4q 6AfII%NOOO
% 7Q G G GI I I I QvY///
eBi000(*$% S)) 6
!#: b)) & 1V999aiii6AfIIIO P P P Z1V9 5666
h'''iii6, - - - -
S
fIIIsxxq 3q !F) FF F & 1V9??#4#4#4#4chhv6F6F6F6FH I I I
/1V9
=>>> & 1V9??#4#4#4#4aiiiA B B B U /& 86 AM
fIIIqyyy!F)))#- ".034E0F"G R
3qy
ABBB ;#F++
;
;AfIIIqq9:::: " D;-&011 2 2 2 D ! ! !
%&&& *#F++
*
*]a())))
%.2G2G)H)H
IJJJ
*ai
8999 TYYs:
'
'
/
/ /1 1 2 2 2 J F aiii.1hh~g7N7N.O.O.O.O Q R R R R CCJC
O!fC
O
3v;1 F q >r )__doc__ __version__ f2py_versionnumpynpr" r r crackfortranr r auxfuncsoptionsr intpitemsizerb r^ fgetdims2_sar r$ r r r s
""R%( 9 9 9 9 9 9 9 9
7 :A9K!
L $
* * q q q q qr