Файловый менеджер - Редактировать - /home/digitalm/venv/lib/python3.7/site-packages/numpy/f2py/__pycache__/f90mod_rules.cpython-37.pyc
Назад
B �5�gS& � @ sz d Z ddd� ZdZddlZddlmZ dd lmZ dd lm Z m Z dd l T i Z d d � Z de�� j ZdZdZdd� 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 z$Revision: 1.27 $� ���z See `f2py -v`� N� )� capi_maps)� func2subr)�undo_rmbadname�undo_rmbadname1)�*c C sT t | �r| gS t| �sg S g }x0| d D ]$}t |�r@|�|� q(|t|� }q(W |S )N�body)�ismodule�hasbody�append�findf90modules)�m�ret�b� r �M/home/digitalm-up/venv/lib/python3.7/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 ddl m} g g g ddgddd�dgg d�}d g}|fd d �}d g}|fd d �}�x~t| �D �]p}g g g g |d gg f\}} } } } } g }g }g }t|�r�x |d D ]}| �|d � q�W xJ|d �� D ]:}|d | }|| kr�ttt�|�s�| �|� |�|� q�W 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� �xl| D �]b}|d | }| �|� t �|�}t j| }t �||�} | d �d d ��� } | �d d ��� } | �s*d } t} t|��r�d |k�r|d!|d k�r||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 dt | d# �d �} |d0d1� d2d3� | D �� � |d/ | |d/< |d4| d( � n6| �|� |�d5| � |�d6� |d7|d |f � �q�W | �r6|d8� t|��r�x�|d D �]�}t |��s~t d9|d: � d|d � d�� �qL| �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 |!d@< g |!dA< t%||!�}|dB|d |d |d |d |d f � |�d5|d � |�dC� |d7|d |d f � �qLW |dD� |dE� dF|d d1� |�|d/ f |d/< dG|d k�r*dH}"nd}"|dI|"|d |d �&� d1� |�f � |dJ|d � |dK|"|d |d �&� |d f � |dL� |dM | | |dM< dN|d |d |d f g|dO |dO< |d � |dP|d � |�rx&t'|�D ]}#|dQ|d |#f � �q�W |�r4|d� dRg| �� |dS� |dT� | �rbx t'| �D ]}#|dU|# � �qLW |dVd1� t'| �� � |dW|d � |d� |dX ��dYdZ�� g |dX< |d@ �d[|d d1� t'| ��f � q\W d |d\< g |d]< g |dA< |d/ |dX< t(|d@ �dk�rd |d@< ||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 �fadd` s zbuildhooks.<locals>.faddc S s d|d | f |d< d S )Nz%s %sr r )r r r r r �daddd s zbuildhooks.<locals>.dadd�namer �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 �caddz 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_%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 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}z"f90mod_rules.buildhooks: skipping �blockz%s()� modulenamezf2pywrap_%s_%s)� 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�range�int� isroutineZbuildapi� isfunctionr ZcreatefuncwrapperZcreatesubrwrapperZ applyrulesZ dictappend�upperr r' )$Zpymodr r Zfhooksr r1 r r ZsargsZfargsZefargsZmodobjsZnotvarsZonlyvarsZsargspZifargsZmfargsr �n�varZchooksr# Zihooksr$ Zvrdr% �ct�at�dmZdmsZ use_fgetdims2�api�wrap�arr �ar r r � buildhooksW sH " & " & rI )�__doc__� __version__Z f2py_version�numpy�npr r r Z crackfortranr r Zauxfuncs�optionsr Zintp�itemsizer: r8 r9 rI r r r r �<module> s
| ver. 1.4 |
Github
|
.
| PHP 8.3.23 | Генерация страницы: 0.03 |
proxy
|
phpinfo
|
Настройка