Team Ai
Datasetpublic

codekingpro/portable-devtools

sourceHugging Faceupdated 5mo agoView on Hugging Face
1likes14kdownloads
f90mod_rules.cpython-313.pyc92 linesDownload Raw Back to __pycache__
1�

2z�j_'���SrSSSrSrSSKrSSKJrJr SS	K7 SS3K	J4r5Jr 0rSr
S\R"5R-rS
rSrSrg)a26Build F90 module support for f2py2e.7 8Copyright 1999 -- 2011 Pearu Peterson all rights reserved.9Copyright 2011 -- present NumPy Developers.10Permission to use, modify, and distribute this software is given under the11terms of the NumPy License.12 13NO WARRANTY IS EXPRESSED OR IMPLIED.  USE AT YOUR OWN RISK.14z$Revision: 1.27 $�15�����z
See `f2py -v`�N�)�	capi_maps�	func2subr)�*)�undo_rmbadname�undo_rmbadname1c���[U5(aU/$[U5(d/$/nUSH4n[U5(aURU5 M&U[U5-nM6 U$)N�body)�ismodule�hasbody�append�findf90modules)�m�ret�bs   �]D:\code\apps\devtools\python\user_packages\Python313\site-packages\numpy/f2py/f90mod_rules.pyrrs]����{�{��s�16��1�:�:��	�17�C�
�v�Y���A�;�;��J�J�q�M���q�)�)�C�	�18�J�a�      external f2pysetdata19      logical ns20      integer r,i21      integer(%d) s(*)22      ns = .FALSE.23      if (allocated(d)) then24         do i=1,r25            if ((size(d,i).ne.s(i)).and.(s(i).ge.0)) then26               ns = .TRUE.27            end if28         end do29         if (ns) then30            deallocate(d)31         end if32      end if33      if ((.not.allocated(d)).and.(s(1).ge.1)) thenz�      end if34      if (allocated(d)) then35         do i=1,r36            s(i) = size(d,i)37         end do38      end if39      flag = 140      call f2pysetdata(d,allocated(d))z�      end if41      if (allocated(d)) then42         do i=1,r43            s(i) = size(d,i)44         end do45         !s(r) must be equal to len(d(1))46      end if47      flag = 248      call f2pysetdata(d,allocated(d))c��SSKJn ///SS/SSS.S//S.nS	/nU4S49jnS	/nU4Sjn[U5n[U5G	Hn////US//4up�p�p�/n/n/n[	U5(a US
HnU
RUS5 M USR
5HhnUSUnUU
;dM[U5(dM%[[[5"U5(aMFURU5 URU5 Mj [SUSS35 [U5S:Xa-[U
5S:XaUSU
;a[SUSS35 GMUSU;a%[U5(a[SUSS35 GMEUSU;a%[U5(a[SUSS35 GMsU(a[SSRU5S35 S	/nU4SjnS	/nU4Sjn[ R""U5nU"SUS-5 U"SUS-5 [%U5(a3USn['U[(5(aSRU5nU"U5 U(aU"S5 UGH�nUSUnURU5 [ R*"U5n[ R,Un[ R."UU5nUSR1SS 5R35nUR1S!S 5R35nU(dS n[4nU"S"[7U5<S#US$<S%U<S&U<S'[ R8"U5<S(35 U"S)[ R:"UU5-5 [%U5(a6USn['U[(5(aSRU5nU"S*U35 [=U5(GaU50RS+USS,U35 URU51S-5 U	RS.US/35 URS05 U"S1USS2US335 U"S4U52S-S535 U"S6USS7[7U5S35 U"S85 US[>-US'[AS[CUS$5S-5nU"S9S:RUV s/sHn S;U -PM53 sn 5-5 USU-US'U"S<U54S-35 GMoU55RU5 U	RS=U35 URS>5 U"S1USS?US335 GM� U(aU"S@5 [	U5(Ga�US
GH�n[EU5(d[SAUSBSUSS35 M.URUSSC35 USUSD'URGU5un!n"[IU5(aMUSU"-US'U56RSEUSSFUS35 UR[JRL"USSG95 O|U"(aMUSU"-US'U57RSEUSSFUS35 UR[JRN"USSG95 O(U58RUS5 URU59S-5 /U!SH'[QU!U5n#/U#SI'/U#SJ'[SUU#5nU"S"US<SKUS<SFUS<SLUS<SFUS<S(35 U	RS=US35 URS=5 U"S1USS?USS335 GM� U"SM5 U"SN5 SOUS<SPS:RU	5<SQUS<3US'SFUS;aSRn$OSn$U"SSU$<STUS<SUUSRU5<SVS:RU5<SW3	5 U"SXUS-5 U"SYU$<STUS<SUUSRU5<SZUS<S[3	5 U"S\5 US]U-U-US]'S^US<S_US<S`US<SW3/USa-USa'U"S	5 U"SbUSSc35 U(a#[WU5Hn%U"S6USSdU%35 M U(a#U"SRSe/U-55 U"Sf5 U"Sg5 U(a[WU5Hn%U"ShU%35 M U"SiS:R[WU6055Sj35 U"SkUSS35 U"SRUSl5R1SmSn55 /USl'USIRSoUSSpS:R[WU55Sq35 G	M S	USr'/USs'/USJ'USUSl'[USI5S::aS	USI'X#S4$s sn f)tNr)�rules�F_FUNCz
arrayobject.h�61)�	includes0�includesz"Fortran 90/95 modules:\n")�f90modhooks�initf90modhooksr�need�
separatorsfor�docs�latexdoc�c��USSU3US'g)Nrz62      ���line�ss  r�fadd�buildhooks.<locals>.fadd[s���A�$��x��v�&��!�rc��USSU3US'g�Nrrr$r%s  r�dadd�buildhooks.<locals>.dadd_s���A�$��r�$�� ��!�r�namer�varsz'		Constructing F90 module support for "z"...63rz			Skipping z7 since there are no public vars/func in this module...64z5 since it is in 'use' and contains a common block...65z5 since it is in 'use' and contains a derived type...66z		  Variables: � c��USSU3US'gr+r$r%s  r�cadd�buildhooks.<locals>.cadd������d�V�2�d�V�$�A�a�Drc��USSU3US'gr+r$r%s  r�iadd�buildhooks.<locals>.iadd�r4rz'static FortranDataDef f2py_%s_def[] = {z.\subsection{Fortran 90/95 module \texttt{%s}}67�notez\begin{description}�dimsrz-1�:z	{"z",�rankz,{{z}},z, z},z\item[]{{}\verb@%s@{}}z--- �f2py_�	_getdims_rzvoid (*z/)(int*,npy_intp*,void(*)(char*,npy_intp*),int*)z6void (*)(int*,npy_intp*,void(*)(char*,npy_intp*),int*)z	f2py_z_def[i_f2py++].func = �;zsubroutine z(r,s,f2pysetdata,flag)zuse z
, only: d => z
integer flag68z allocate(d(%s))69�,zs(%s)zend subroutine zchar *zchar*z_def[i_f2py++].data = z\end{description}z"f90mod_rules.buildhooks: skipping �blockz()�70modulename�	f2pywrap_�_)�	signature�externroutinesr �docshortz4",-1,{{-1}},0,0,NULL,(void *)f2py_rout_#modulename#_z,doc_f2py_rout_#modulename#_z	{NULL}71};72�}zstatic void f2py_setup_�(z) {73	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}74rz	PyDict_SetItemString(d, "z", PyFortranObject_New(f2py_z_def,f2py_init_rzsubroutine f2pyinitz(f2pysetupfunc)z	, only : �	interfacez
end interfacezexternal f2pysetupfuncz	external zcall f2pysetupfunc(�)zend subroutine f2pyinitr!z\subsection{z\subsubsection{z"	z --- �"�routine_defs�doc),r"r�getuseblocksrrr�keys�75isvariable�l_or�
isintent_hide�	isprivate�outmess�len�containscommon�containsderivedtypes�joinr�modsign2map�hasnote�76isinstance�list�getctype�77c2capi_map�78getarrdims�replace�strip�	fgetdims2r79�80get_elsize�
getarrdocsign�
isallocatable�	fgetdims1�range�int�	isroutine�buildapi�81isfunctionr�createfuncwrapper�createsubrwrapper�82applyrules�83dictappend�upperr	)&�pymodrr�fhooksr(rOr,�usenamesr�sargs�fargs�efargs�modobjs�notvars�onlyvars�sargsp�ifargs�mfargsr�n�var�chooksr2�ihooksr6�vrdr8�ct�at�dm�dms�
use_fgetdims2�i�api�wrap�arr�as&                                      r�84buildhooksr�Rs�	�����R��o�.�*.�D�A�1�2��	�C�85�T�F��'�
�$�C��!��E�"�H�
�E�
"��;=�r�2�r�
�f�I�L��<�8��f�w��������1�:�:��v�Y�����q��y�)���6����!�A��F�)�A�,�C��� �Z��_�_�t�M�S\�?]�^a�?b�?b�����"��
�
�a� �"�	�<�Q�v�Y�K�w�O�P��x�=�A��#�g�,�!�"3��&�	�W�8L��o�a��i�[�0h�i�j��
�V�9�� �^�A�%6�%6��o�a��i�[�0f�g�h���V�9�� �%9�!�%<�%<��o�a��i�[�0f�g�h����'�����(:�';�2�>�?�����	%�����	%��#�#�A�&���
6�!�F�)�
D�E��
@�A�f�I�
N�O��1�:�:��V�9�D��$��%�%��y�y������J���'�(��A��F�)�A�,�C��N�N�1���#�#�C�(�B��%�%�b�)�B��%�%�a��-�B��V�*�$�$�S�$�/�5�5�7�C��+�+�c�4�(�.�.�0�C����%�M��!�!�$�b��j�#�r��&�&�s�+�-�
.�
�+��)�)�!�S�1�3�
4��s�|�|��6�{���d�D�)�)��9�9�T�?�D��t�D�6�]�#��S�!�!����u�Q�v�Y�K�y���<�=��
�
�e�B�i�(�����a�S� O�P�R��
�
�V�W��w�q��y�k�)?��s�!�D�E��{�5��9�+�-C�D�E��t�A�f�I�;�m�O�A�4F�3G�r�J�K��%�&�"�1�I�	�1��q�	��A�s�2�f�:���2�3���)��h�h�S�9�S���!��S�9�:�<�=�"�1�I�
�5��q�	���u�R�y�k�2�3����Q�����v�a�S�\�*��
�
�g�&��w�q��y�k�)?��s�!�D�E�S�T��%�&��1�:�:��v�Y�� ��|�|��)�)*�7���A�a��i�[��D�E�����!�F�)��B�/�0�"#�F�)��,��!�N�N�1�-�	��T��a�=�=� &�q�	�D� 0�F�1�I��L�L�9�Q�v�Y�K�q��6���!D�E��M�M�)�"=�"=�a�1�"M�N�� &�q�	�D� 0�F�1�I��L�L�9�Q�v�Y�K�q��6���!D�E��M�M�!�3�3�A��C�E��L�L��6��+��M�M�%��)�,�(*��$�%���S�)����6�86�!#��:�� ��b�)����&�	�1�V�9�a��i��6��A�f�I�O�P����v�a��i�[�1�2��
�
�h�'��w�q��y�k�)?��&�	�{�!�L�M�?�@	
�
���S�	�
�f�I�s�x�x����q�	�3��q�	��!�F�)�� �F��F����&�	�1�V�9�?�?�#4�c�h�h�v�6F�H�	I��
/�1�V�9�
=�>����&�	�1�V�9�?�?�#4�a��i�A�	B��U�� ��/�&�8�6�A��M��
�f�I�q��y�!�F�)�#-�".�03�4E�0F�"G�����R���"�1�V�9�+�_�
=�>��#�F�+���t�A�f�I�;�i��s�3�4�,������;�-�&�0�1�2���!��
%�&��#�F�+���y���_�%�,��"�3�8�8�N�5�,A�#B�"C�1�
E�F��&�q��y�k��
4�5��T�Y�Y�s�:��
'�
/�
/��/�1�	2���J���F����T�!�F�)��E�#�(�(�>�'�;R�2S�1T�TV�W�X�E#�H�C����C��J��C�87�O��!�f�C�88�O�89�3�v�;��1����F���q�	�>���o :s�&e=)�__doc__�__version__�f2py_version�numpy�npr"rr�auxfuncs�crackfortranr	r90�optionsr�intp�itemsizerhrd�fgetdims2_sar�r$rr�<module>r�sg��	�"�"�R�(�����"�91�9�92���
7� :<����9K�9K�!
L�	�$
*�	�	*��{r
codekingpro/portable-devtools · Team Ai