OwlCyberSecurity - MANAGER
Edit File: f90mod_rules.cpython-38.pyc
U �i]z& � @ s� d Z ddlmZmZmZ ddd� ZdZddlZdd l m Z dd l m Z dd l m Z mZ dd lT i Zd d� Zde�� j adadZdd� ZdS )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 sP t | �r| gS t| �sg S g }| d D ]$}t |�r>|�|� q&|t|� }q&|S )N�body)Zismodule�hasbody�append�findf90modules)�m�ret�b� r �9/usr/lib/python3/dist-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� ddl m} g g g ddgddd�dgg d�}d g}|fd d �}d g}|fd d �}t| �D �]D}g g g g |d gg f\}} } } } } g }g }g }t|�r�|d D ]}| �|d � q�|d �� D ]:}|d | }|| kr�ttt�|�s�| �|� |�|� q�t d|d � | �r t dd� | � � d g}|fdd�}d g}|fdd�}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 ��� } | �sd } t} t|��r�d |k�rld!|d k�rl|d"t|�| d# | |d d! |f � t} n |d$t|�| d# | |f � n |d$t|�| d# | |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.� |d/ t |d/< t d0| d# �} |d1d2� d3d4� | D �� � |d/ | |d/< |d5| d( � n6| �|� |�d6| � |�d7� |d8|d |f � �q�| �r |d9� t|��r�|d D �]�}t |��sXt d:|d; |d � �q0| �d<|d � |d |d=< |� |�\} } t |��r�|d/ | |d/< | �d>|d |d f � |�t!j"|dd?�� nb| �r|d/ | |d/< | �d>|d |d f � |�t!j#|dd?�� 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 � �q0|dE� |dF� dG|d d2� |�|d/ f |d/< dH|d k�rdI}"nd}"|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� | �r2t'| �D ]}#|dV|# � �q |dWd2� t'| �� � |dX|d � |d� |dY ��dZd[�� g |dY< |dA �d\|d d2� t'| ��f � qXd |d]< g |d^< g |dB< |d/ |dY< t(|dA �dk�r�d |dA< ||d/ fS )_Nr )�rules�F_FUNCz arrayobject.h� )Z includes0Zincludesz"Fortran 90/95 modules:\n")� f90modhooks�initf90modhooksr ZneedZ separatorsfor�docs�latexdoc� c S s d|d | f |d< d S )Nz %s %sr r ��line�sr r r �faddc s zbuildhooks.<locals>.faddc S s d|d | f |d< d S �Nz%s %sr r r r r r �daddg s zbuildhooks.<locals>.dadd�namer �varsz. Constructing F90 module support for "%s"... z Variables: %s � c S s d|d | f |d< d S r" r r r r r �cadd} s zbuildhooks.<locals>.caddc S s d|d | f |d< d S 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_%sr z.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 | �qS )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()Z modulenamezf2pywrap_%s_%s)Z signatureZexternroutinesr Zdocshortz_ {"%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} r zN PyDict_SetItemString(d, "%s", PyFortranObject_New(f2py_%s_def,f2py_init_%s));r z$subroutine f2pyinit%s(f2pysetupfunc)zuse %s, only : %sZ interfacez end interfacezexternal f2pysetupfuncz external %szcall f2pysetupfunc(%s)zend subroutine f2pyinit%s r z \subsection{z\subsubsection{z " %s --- %s"Z routine_defs�doc))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�evalZ isroutine�printZbuildapiZ isfunctionr ZcreatefuncwrapperZcreatesubrwrapperZ applyrulesZ dictappend�upperr r+ )$Zpymodr r Zfhooksr! r3 r# r ZsargsZfargsZefargsZmodobjsZnotvarsZonlyvarsZsargspZifargsZmfargsr �n�varZchooksr' Zihooksr( Zvrdr) ZctZatZdmZdmsZ use_fgetdims2ZapiZwrapZarr �ar r r � buildhooksY s� � �� � ��� � � �� � � � � �� �� � � rC )�__doc__Z __future__r r r � __version__Z f2py_versionZnumpyZnpr r r Z crackfortranr r ZauxfuncsZoptionsr Zintp�itemsizer< r: r; rC r r r r �<module> s �