y
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.12/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