Файловый менеджер - Редактировать - /opt/imh-python/lib/python3.9/site-packages/numpy/f2py/__pycache__/f90mod_rules.cpython-39.pyc
Ðазад
a e�h�$ � @ 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 sP t | �r| gS t| �sg S g }| d D ]$}t |�r>|�|� q&|t|� }q&|S )N�body)�ismodule�hasbody�append�findf90modules)�m�ret�b� r ��/root/rpmbuild/BUILDROOT/imh-python39-modules-3.9.7-92.el8.x86_64/opt/imh-python/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� ddl m} g g g ddgddd�dgg d�}d g}|fd d �}d g}|fd d �}t| �D �]�}g g g g |d gg f\}} } } } } g }g }g }t|�r�|d D ]}| �|d � q�|d �� D ]:}|d | }|| vr�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} |d t|�| d! | |t �|�f � |d"t �||� � t |��r�|d }t|t��r~d� |�}|d#| � t|��rx| �d$|d |f � | �| d% � |�d&| � |�d'� |d(|d |f � |d)| d% � |d*|d t|�f � |d+� |d, t |d,< tdt | d! �d �} |d-d.� d/d0� | D �� � |d, | |d,< |d1| d% � n6| �|� |�d2| � |�d3� |d4|d |f � �q�| �r�|d5� t|��rj|d D �]�}t |��st d6|d7 � d|d � d�� �q�| �d8|d � |d |d9< |� |�\} } t |��rz|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 |!d>< t$||!�}|d?|d |d |d |d |d f � |�d2|d � |�d@� |d4|d |d f � �q�|dA� |dB� dC|d d.� |�|d, f |d,< dD|d v �r�dE}"nd}"|dF|"|d |d �%� d.� |�f � |dG|d � |dH|"|d |d �%� |d f � |dI� |dJ | | |dJ< dK|d |d |d f g|dL |dL< |d � |dM|d � |�r�t&|�D ]}#|dN|d |#f � �qv|�r�|d� dOg| �� |dP� |dQ� | �r�t&| �D ]}#|dR|# � �q�|dSd.� t&| �� � |dT|d � |d� |dU ��dVdW�� g |dU< |d= �dX|d d.� t&| ��f � qXd |dY< g |dZ< g |d>< |d, |dU< t'|d= �dk�r�d |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 �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 r r r r r r �caddz 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}�dimsr z-1�:z {"%s",%s,{{%s}},%s, %s},Zrankz\item[]{{}\verb@%s@{}}z--- %szf2py_%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)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>� � 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 Zdocshortza {"%s",-1,{{-1}},0,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� fgetdims2r Z get_elsizeZ getarrdocsignZ isallocatable� fgetdims1�range�int� isroutineZbuildapi� isfunctionr ZcreatefuncwrapperZcreatesubrwrapperZ applyrulesZ dictappend�upperr �len)$Zpymodr r Zfhooksr r4 r! r ZsargsZfargsZefargsZmodobjsZnotvarsZonlyvarsZsargspZifargsZmfargsr �n�varZchooksr% Zihooksr& Zvrdr' �ct�at�dmZdmsZ use_fgetdims2�api�wrap�arr �ar r r � buildhooksW sp � �� � �� � � �� �� � � � � ���� � � rL )�__doc__� __version__Z f2py_version�numpy�npr r r Z crackfortranr r Zauxfuncs�optionsr Zintp�itemsizer< r; Z fgetdims2_sarL r r r r �<module> s �
| ver. 1.1 | |
.
| PHP 8.3.30 | Ð“ÐµÐ½ÐµÑ€Ð°Ñ†Ð¸Ñ Ñтраницы: 0 |
proxy
|
phpinfo
|
ÐаÑтройка