a
    ç´«j$&  ã                   @   sz   d 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T i Zdd„ Zde ¡ j ZdZdZdd„ ZdS )a2  
Build F90 module support for f2py2e.

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.
z$Revision: 1.27 $é
   éÿÿÿÿzSee `f2py -v`é    Né   )Ú	capi_maps)Ú	func2subr)Úundo_rmbadnameÚundo_rmbadname1)Ú*c                 C   sP   t | ƒr| gS t| ƒsg S g }| d D ]$}t |ƒr>| |¡ q&|t|ƒ }q&|S )NÚbody)ÚismoduleÚhasbodyÚappendÚfindf90modules)ÚmÚretÚb© r   úV/var/www/html/laksyashrimp/venv/lib/python3.9/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} g g g ddgdddœdgg dœ}d	g}|fd
d„}d	g}|fdd„}t| ƒ}t| ƒD �]0}tdd„ |d D ƒƒ}	g g g g |d gg f\}
}}}}}g }g }g }t|ƒrÎ|d D ]}| |d ¡ qº|d  ¡ D ]:}|d | }||vrÚtt	t
ƒ|ƒsÚ| |¡ | |¡ qÚtd|d  ƒ |d |v �rP|	�sPtd|d › d�ƒ q`|�rhtdd |¡ ƒ d	g}|fdd„}d	g}|fdd„}t |¡}|d|d  ƒ |d|d  ƒ t|ƒ�ræ|d }t|tƒ�rÞd |¡}||ƒ |�rô|dƒ |D �]þ}|d | }| |¡ t |¡}tj| }t ||¡}|d   d!d"¡ ¡ }| d#d"¡ ¡ }|�sbd"}t} |d$t|ƒ|d% ||t |¡f ƒ |d&t ||¡ ƒ t|ƒ�rÒ|d }t|tƒ�rÆd |¡}|d'| ƒ t|ƒ�rÀ| d(|d |f ¡ | |d) ¡ |
 d*| ¡ | d+¡ |d,|d |f ƒ |d-|d)  ƒ |d.|d t|ƒf ƒ |d/ƒ |d0 t |d0< tdt|d% ƒd ƒ}|d1d2 d3d4„ |D ƒ¡ ƒ |d0 |  |d0< |d5|d)  ƒ n6| |¡ |
 d6| ¡ | d7¡ |d8|d |f ƒ �qø|�r|d9ƒ t|ƒ�r²|d D �]”}t|ƒ�sLtd:|d; › d|d › d�ƒ �q| d<|d  ¡ |d |d=< |  |¡\}!}"t!|ƒ�rÂ|d0 |" |d0< | d>|d |d f ¡ | t"j#|dd?�¡ nb|"�r|d0 |" |d0< | d>|d |d f ¡ | t"j$|dd?�¡ n| |d ¡ | |d) ¡ g |!d@< t%|!|ƒ}#g |#dA< g |#dB< t&||#ƒ}|dC|d |d |d |d |d f ƒ |
 d6|d  ¡ | dD¡ |d8|d |d f ƒ �q|dEƒ |dFƒ dG|d d2 |
¡|d0 f |d0< dH|d v �rödI}$nd}$|dJ|$|d |d  '¡ d2 |¡f ƒ |dK|d  ƒ |dL|$|d |d  '¡ |d f ƒ |dMƒ |dN | | |dN< dO|d |d |d f g|dP  |dP< |d	ƒ |dQ|d  ƒ |�rÚt(|ƒD ]}%|dR|d |%f ƒ �q¾|�rü|d dSg| ¡ƒ |dTƒ |dUƒ |�r&t(|ƒD ]}%|dV|% ƒ �q|dWd2 t(|ƒ¡ ƒ |dX|d  ƒ |d |dY ¡ dZd[¡ƒ g |dY< |dA  d\|d d2 t(|ƒ¡f ¡ q`d	|d]< g |d^< g |dB< |d0 |dY< t)|dA ƒdk�rÒd	|dA< ||d0 fS )_Nr   )ÚrulesÚF_FUNCzarrayobject.hÚ
)Z	includes0Zincludesz"Fortran 90/95 modules:\n")Úf90modhooksÚinitf90modhooksr
   ZneedZseparatorsforÚdocsÚlatexdocÚ c                 S   s   d|d | f |d< d S )Nz%s
      %sr   r   ©ÚlineÚsr   r   r   Úfadd[   s    zbuildhooks.<locals>.faddc                 S   s   d|d | f |d< d S ©Nz%s
%sr   r   r   r   r   r   Údadd_   s    zbuildhooks.<locals>.daddc                 s   s   | ]}|d  dv r|V  qdS )Úblock)ÚfunctionZ
subroutineNr   )Ú.0Úitemr   r   r   Ú	<genexpr>d   s   zbuildhooks.<locals>.<genexpr>r
   ÚnameÚvarsz.		Constructing F90 module support for "%s"...
z			Skipping z since it is in 'use'...
z		  Variables: %s
ú c                 S   s   d|d | f |d< d S r    r   r   r   r   r   Úcadd}   s    zbuildhooks.<locals>.caddc                 S   s   d|d | f |d< d S r    r   r   r   r   r   Úiadd�   s    zbuildhooks.<locals>.iaddz'static FortranDataDef f2py_%s_def[] = {z.\subsection{Fortran 90/95 module \texttt{%s}}
Únotez\begin{description}Údimsr	   z-1ú:z	{"%s",%s,{{%s}},%s, %s},Zrankz\item[]{{}\verb@%s@{}}z--- %szf2py_%s_getdims_%sr   z8void (*%s)(int*,npy_intp*,void(*)(char*,npy_intp*),int*)z6void (*)(int*,npy_intp*,void(*)(char*,npy_intp*),int*)z!	f2py_%s_def[i_f2py++].func = %s;z#subroutine %s(r,s,f2pysetdata,flag)zuse %s, only: d => %s
zinteger flag
r   z allocate(d(%s))
ú,c                 S   s   g | ]}d | ‘qS )zs(%s)r   )r$   Úir   r   r   Ú
<listcomp>±   ó    zbuildhooks.<locals>.<listcomp>zend subroutine %szchar *%szchar*z!	f2py_%s_def[i_f2py++].data = %s;z\end{description}z"f90mod_rules.buildhooks: skipping r"   z%s()Ú
modulenamezf2pywrap_%s_%s)Ú	signatureZexternroutinesr   Zdocshortza	{"%s",-1,{{-1}},0,0,NULL,(void *)f2py_rout_#modulename#_%s_%s,doc_f2py_rout_#modulename#_%s_%s},zchar *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}
r   zN	PyDict_SetItemString(d, "%s", PyFortranObject_New(f2py_%s_def,f2py_init_%s));r   z$subroutine f2pyinit%s(f2pysetupfunc)zuse %s, only : %sZ	interfacezend interfacezexternal f2pysetupfunczexternal %szcall f2pysetupfunc(%s)zend subroutine f2pyinit%s
r   z\subsection{z\subsubsection{z"	%s --- %s"Zroutine_defsÚdoc)*r   r   Zgetuseblocksr   Úanyr   r   ÚkeysZl_orZisintent_hideZ	isprivateZoutmessÚjoinr   Zmodsign2mapZhasnoteÚ
isinstanceÚlistZgetctypeZ
c2capi_mapZ
getarrdimsÚreplaceÚstripÚ	fgetdims2r   Z
get_elsizeZgetarrdocsignZisallocatableÚ	fgetdims1ÚrangeÚintÚ	isroutineZbuildapiÚ
isfunctionr   ZcreatefuncwrapperZcreatesubrwrapperZ
applyrulesZ
dictappendÚupperr   Úlen)&Zpymodr   r   Zfhooksr   r7   r!   Zusenamesr   Z!contains_functions_or_subroutinesZsargsZfargsZefargsZmodobjsZnotvarsZonlyvarsZsargspZifargsZmfargsr   ÚnÚvarZchooksr*   Zihooksr+   Zvrdr,   ÚctÚatÚdmZdmsZuse_fgetdims2ÚapiÚwrapÚarr   Úar   r   r   Ú
buildhooksR   s~   üÿÿÿ
ÿ






ÿÿ
ÿ


ÿ
ÿÿ



ÿÿ

ÿ

 ý
ÿ
ÿ
ÿÿÿÿÿÿ
rP   )Ú__doc__Ú__version__Zf2py_versionÚnumpyÚnpr   r   r   Zcrackfortranr   r   ZauxfuncsÚoptionsr   ZintpÚitemsizer@   r?   Zfgetdims2_sarP   r   r   r   r   Ú<module>   s   
ð
