GIF89a=( õ' 7IAXKgNgYvYx\%wh…hŽth%ˆs%—x¨}9®Œ©€&©‰%¶†(¹–.¹5·œD¹&Çš)ÇŸ5ǘ;Í£*È¡&Õ²)ׯ7×µ<Ñ»4ï°3ø‘HÖ§KͯT÷¨Yÿšqÿ»qÿÔFØ !ù ' !ÿ NETSCAPE2.0 , =( þÀ“pH,È¤rÉl:ŸÐ¨tJ­Z¯Ø¬vËíz¿à°xL.›Ïè´zÍn»ßð¸|N¯Ûïø¼~Ïïûÿ€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§gª«ªE¯°¨¬ª±²Œ¹º¹E¾­”´ÂB¶¯ §Åȸ»ÑD¾¿Á•ÄÅ®° ÝH¾ÒLÀÆDÙ«D¶BÝïðÀ¾DÑÑÔTÌÍíH òGö¨A RÎڐ |¥ ٭&ºìE8œ¹kGÔAÞpx­a¶­ã R2XB®åE8I€Õ6Xî:vT)äžþÀq¦è³¥ì仕F~%xñ  4#ZÔ‰O|-4Bs‘X:= QÉ œš lºÒyXJŠGȦ|s hÏíK–3l7·B|¥$'7Jީܪ‰‡àá”Dæn=Pƒ ¤Òëí‰`䌨ljóá¯Éüv>á–Á¼5 ½.69ûϸd«­ºÀûnlv©‹ªîf{¬ÜãPbŸ  l5‘ޝpß ´ ˜3aÅùäI«O’ý·‘áÞ‡˜¾Æ‚ÙÏiÇÿ‹Àƒ #öó)pâš Þ½ ‘Ý{ó)vmÞü%D~ 6f s}ŃƒDØW Eþ`‡þ À…L8xá†ç˜{)x`X/> Ì}mø‚–RØ‘*|`D=‚Ø_ ^ð5 !_…'aä“OÚ—7âcð`D”Cx`ÝÂ¥ä‹éY¹—F¼¤¥Š?¡Õ™ n@`} lď’ÄÉ@4>ñd œ à‘vÒxNÃ×™@žd=ˆgsžG±æ ´²æud &p8Qñ)ˆ«lXD©øÜéAžHìySun jª×k*D¤LH] †¦§C™Jä–´Xb~ʪwStŽ6K,°£qÁœ:9ت:¨þªl¨@¡`‚ûÚ ».Û¬¯t‹ÆSÉ[:°=Š‹„‘Nåû”Ìî{¿ÂA ‡Rà›ÀÙ6úë°Ÿð0Ä_ ½;ÃϱîÉì^ÇÛÇ#Ëë¼ôº!±Ä˜íUîÅÇ;0L1óÁµö«p% AÀºU̬ݵ¼á%霼€‡¯Á~`ÏG¯»À× ­²± =4ªnpð3¾¤³¯­ü¾¦îuÙuµÙ®|%2ÊIÿür¦#0·ÔJ``8È@S@5ê¢ ö×Þ^`8EÜ]ý.뜃Âç 7 ú ȉÞj œ½Dç zý¸iþœÑÙûÄë!ˆÞÀl§Ïw‹*DçI€nEX¯¬¼ &A¬Go¼QföõFç°¯;é¦÷îŽêJ°îúôF5¡ÌQ|îúöXªæ»TÁÏyñêï]ê² o óÎC=öõ›ÒÓPB@ D×½œä(>èCÂxŽ`±«Ÿ–JЀ»Û á¤±p+eE0`ëŽ`A Ú/NE€Ø†À9‚@¤à H½7”à‡%B‰`Àl*ƒó‘–‡8 2ñ%¸ —€:Ù1Á‰E¸àux%nP1ð!‘ðC)¾P81lÑɸF#ˆ€{´âé°ÈB„0>±û °b¡Š´±O‚3È–Ù()yRpbµ¨E.Z‘D8ÊH@% òŒx+%Ù˜Æcü »¸˜fõ¬b·d`Fê™8èXH"ÉÈ-±|1Ô6iI, 2““¬$+](A*jÐ QTÂo‰.ÛU슬Œã„Ž`¯SN¡–¶Äåyše¯ª’­¬‚´b¦Éož œ)åyâ@Ì®3 ÎtT̉°&Ø+žLÀf"Ø-|žçÔ>‡Ðv¦Ðžì\‚ Q1)Ž@Žh#aP72”ˆ™¨$‚ !ù " , =( …7IAXG]KgNgYvYxR"k\%w]'}hŽth%ˆg+ˆs%—r.—m3šx3˜x¨}9®€&©€+¨‡7§‰%¶†(¹–.¹œD¹&ǘ;Í•&ײ)×»4ïÌ6ò§KÍ þ@‘pH,È¤rÉl:ŸÐ¨tJ­Z¯Ø¬vËíz¿à°xL.›Ïè´zÍn»ßð¸|N¯Ûïø¼~Ïïûÿ€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§g «¬ E ±± ¨­¶°ººE Á´”·®C¬²§Ç¶Œ»ÓDÃÕƷ¯Ê±H½ºM×ÁGÚ¬D¶BËÁ½î½DÓôTÏÛßîG»ôõC×CÌ l&âž:'òtU³6ɹ#·Ø)€'Ü.6±&ëÍÈ» K(8p0N?!æ2"ÛˆNIJX>R¼ÐO‚M '¡¨2¸*Ÿþ>#n↠å@‚<[:¡Iïf’ ¤TÚ˘CdbÜÙ“[«ŽEú5MBo¤×@€`@„€Êt W-3 ¶Ÿ¡BíêäjIÝ…Eò9[T…$íêﯧ„…•s»Óȳ¹€ÅÚdc®UUρ#±Ùïldj?´í¼²`\ŽÁðÞu|3'ÖŒ]ë6 ¶S#²‡˜FKLÈ *N E´‘áäŠ$˜›eÄYD„ºq«.è촁ƒs \-ÔjA 9²õ÷å- üúM[Âx(ís÷ì®x€|í¡Ù’p¦‚ ŽkÛTÇDpE@WÜ ²Ç]kŠ1¨ þ€·Yb ÓÁ‰l°*n0 ç™—žzBdОu¾7ĉBl€â‰-ºx~|UåU‰  h*Hœ|e"#"?vpÄiŠe6^ˆ„+qâŠm8 #VÇá ‘å–ÄV„œ|Аè•m"сœn|@›U¶ÆÎž—Špb¥G¨ED”€±Úê2FÌIç? >Éxå Œ± ¡¤„%‘žjŸ‘ꄯ<Ìaà9ijÐ2˜D¦È&›†Z`‚å]wþ¼Â:ç6àB¤7eFJ|õÒ§Õ,¨äàFÇ®cS·Ê¶+B°,‘Þ˜ºNûãØ>PADÌHD¹æž«ÄÀnÌ¥}­#Ë’ë QÀÉSÌÂÇ2ÌXÀ{æk²lQÁ2«ÊðÀ¯w|2Í h‹ÄÂG€,m¾¶ë3ÐÙ6-´ÅE¬L°ÆIij*K½ÀÇqï`DwVÍQXœÚÔpeœ±¬Ñ q˜§Tœ½µƒ°Œìu Â<¶aØ*At¯lmEØ ü ôÛN[P1ÔÛ¦­±$ÜÆ@`ùåDpy¶yXvCAyåB`ŽD¶ 0QwG#¯ æš[^Äþ $ÀÓÝǦ{„L™[±úKÄgÌ;ï£S~¹ìGX.ôgoT.»åˆ°ùŸûù¡?1zö¦Ÿž:ÅgÁ|ìL¹ „®£œŠ‚à0œ]PÁ^p F<"•ç?!,ñ‡N4—…PÄ Á„ö¨Û:Tè@hÀ‹%táÿ:ø-žI<`þ‹p I….)^ 40D#p@ƒj4–؀:²‰1Øâr˜¼F2oW¼#Z†;$Q q” ‘ ÂK¦ñNl#29 !’F@¥Bh·ᏀL!—XFóLH‘Kh¤.«hE&JòG¨¥<™WN!€ÑÙÚˆY„@†>Œž19J" 2,/ &.GXB%ÌRÈ9B6¹W]’î×ÔW¥’IÎ$ ñ‹ÓŒE8YÆ ¼³™ñA5“à®Q.aŸB€&Ø©³ JÁ—! ¦t)K%tœ-¦JF bòNMxLôþ)ÐR¸Ð™‘ èÝ6‘O!THÌ„HÛ ‰ !ù ) , =( …AXKgNgYvYxR"k\%wh…hŽh%ˆg+ˆs%—r.—x3˜x¨}9®€&©€+¨Œ,©‡7§‰%¶†(¹–.¹5·&Çš)ǘ;Í•&×£*Ȳ)ׯ7×»4ï°3øÌ6ò‘HÖ§KÍ»Hó¯T÷¨Yÿ»qÿÇhÿ þÀ”pH,È¤rÉl:ŸÐ¨tJ­Z¯Ø¬vËíz¿à°xL.›Ïè´zÍn»ßð¸|N¯Ûïø¼~Ïïûÿ€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§g ª« E$±²¨ª­ · °²½$E$ÂÕ««D· Í ¿¦Ç¶¸ÌŒ¾³CÃÅÆ E ééH½MÛÂGâªD­ çBêêϾD²ÒaÀà€Š1r­ðÓ¤ ÔožzU!L˜C'¾yW½UGtäÇïÙllê0×àÂuGþ)AÀs[þ·xì ÁxO%ƒûX2ó—  P£n›R/¡ÑšHše+êDm?# —‘Ç£6¡8íJ¡ŸâDiäªM¥Ö„ôj“¬¹£5oQ7°- <‡ *´lãÓŒ2r/a!l)dÈ A™ÈE¢ôÔ͆…ð ;Ö˜c ¡%ß‚’Ùˆâ¸b½—pe~C"BíëÚHïeF2§æŠ8qb t_`urŠeü wÅu3êæPv§h•"ß`íÍxçLĹÜÖ3á  ~Öº“®›¸ÏMDfJÙ °„ÛµáWõ%§œ‚à©–‚X ÓØ)@®Ñ›Eþ´wëuÅSxb8y\mÖzœ¥§ZbºE—ÂLªÌw!y(>¡™wú=Ç|ÅÝs¢d €CÁW)HÜcC$€L Ä7„r.á\{)@ð` @ äXÈ$PD” `šaG:§æˆOˆ72EÐamn]ù"ŒcÊxÑŒ° &dR8`g«iÙŸLR!¦P …d’ä¡“¦ðÎTƒ¦ià|À _ ¥ Qi#¦Šg›Æ ›noMµ ›V ã£)p ç£ÎW…š=Âeªk§†j„ ´®1ß²sÉxéW«jšl|0¯B0Û, \jÛ´›6±¬¶C ÛíWþï|ëÙ‹¸ñzĸV {ì;Ýñn¼òVˆm³I¼³.Ðã¤PN¥ ²µ¼„µCã+¹ÍByî£Ñ¾HŸ›ëê 7ìYÆFTk¨SaoaY$Dµœìï¿Ã29RÈkt Çïfñ ÇÒ:ÀÐSp¹3ÇI¨â¥DZÄ ü9Ïýögñ½­uÔ*3)O‘˜Ö[_hv ,àî×Et Ÿé¶BH€ Õ[ü±64M@ÔSÌM7dÐl5-ÄÙU܍´©zߌ3Ô€3ž„ „ ¶ÛPô½5×g› êÚ˜kN„Ý…0Îj4€Ìë°“#{þÕ3S2çKÜ'ợlø¼Ú2K{° {Û¶?žm𸧠ËI¼nEò='êüóºè^üæÃ_Û=°óž‚ì#Oý¿Í'¡½áo..ÏYìnüñCœO±Áa¿¢Kô½o,üÄËbö²çºíï{ËC Ú— "”Ï{ËK ÍÒw„õ±Oz dÕ¨à:$ ƒô—«v»] A#ð «€¿šéz)Rx׿ˆ¥‚d``èw-îyÏf×K!ð€þ­Ð|ìPľ„=Ì`ý(f” 'Pa ¥ÐBJa%Ðâf§„%Š¡}FàáÝ×6>ÉäŠG"éŽè=ø!oа^FP¼Ø©Q„ÀCÙÁ`(Ž\ÄÝ® ©Â$<n@dÄ E#ììUÒI! ‚#lù‹`k¦ÐÇ'Rró’ZýNBÈMF Í[¤+‹ðɈ-áwj¨¥þ8¾rá ,VÂh„"|½œ=×G_¦Ñ™EØ 0i*%̲˜Æda0mV‚k¾)›;„&6 p>ÓjK “¦Ç# âDÂ:ûc?:R Ó¬fÞéI-Ì“•Ã<ä=™Ï7˜3œ¨˜c2ŒW ,ˆ”8(T™P‰F¡Jhç"‚ ; 403WebShell
403Webshell
Server IP : 104.21.83.152  /  Your IP : 216.73.216.66
Web Server : LiteSpeed
System : Linux premium229.web-hosting.com 4.18.0-553.45.1.lve.el8.x86_64 #1 SMP Wed Mar 26 12:08:09 UTC 2025 x86_64
User : akhalid ( 749)
PHP Version : 8.3.22
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /opt/cloudlinux/venv/lib/python3.11/site-packages/numpy/f2py/__pycache__/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /opt/cloudlinux/venv/lib/python3.11/site-packages/numpy/f2py/__pycache__/func2subr.cpython-311.pyc
�

�h.&��l�dZddlZddlmZmZmZmZmZmZm	Z	m
Z
mZmZm
Z
mZmZd	d�Zd
d�Zd
d�Zd�ZdS)aW

Rules for building C/API module with f2py2e.

Copyright 1999,2000 Pearu Peterson all rights reserved,
Pearu Peterson <[email protected]>
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: 2004/11/26 11:13:06 $
Pearu Peterson

�N�)
�getfortranname�
isexternal�
isfunction�isfunction_wrap�isintent_in�isintent_out�islogicalfunction�ismoduleroutine�isscalar�issubroutine�issubroutine_wrap�outmess�showc��|�|}||vr#t|��td|z��dSd||vr)t||��td|z��dS||d}|dkrd||vr|�d||d�d�}i}d}d	||vr||d	}d
}nd||vr||d}d}d
|vrK|r"|d
dvrd|z}nu|�d|�d|d
�d�}nc|d
dvr|�d|d
�d�}nJ|�d
|d
��}n<d|vr&|�d|d��}d
|vr|�d|d
�d�}nd|z}nd
|vr|�d|d
�d�}|�d|��}d||vr'|�dd�||d���d�}|S)Nz1var2fixfortran: No definition for argument "%s".
��typespecz/var2fixfortran: No typespec for argument "%s".
�type�typename�(�)�kindselector�kind�charselector�len�*)r�:�(*)z	%s(len=*)�=)rrz*(z(len=z,kind=z%s)z(kind=� �	dimension�,)rr�join)�vars�a�fa�f90mode�vardef�selector�lks       �g/builddir/build/BUILD/cloudlinux-venv-1.0.8/venv/lib64/python3.11/site-packages/numpy/f2py/func2subr.py�var2fixfortranr,sN��	�z�
����}�}��T�
�
�
��D�q�H�I�I�I��r���a�� � ��T�!�W�
�
�
��B�Q�F�G�G�G��r�
�!�W�Z�
 �F�
����J�$�q�'�1�1�#�V�V�T�!�W�Z�%8�%8�%8�9���H�	�B���a�� � ���7�>�*��
���	�4��7�	"�	"���7�>�*��
��
�h����		;���}� 1�1�1�$��/���(.������H�S�M�M�M�B�����}�
�*�*�&,�f�f�h�s�m�m�m�<���$*�F�F�H�S�M�M�:����H���$*�F�F�H�U�O�O�<�F���!�!�*0�&�&�(�6�2B�2B�2B�C����&�)���
�x�
�
�&,�f�f�h�v�.>�.>�.>�?�F������
#�F��d�1�g���#�V�V�S�X�X�d�1�g�k�.B�%C�%C�%C�%C�D���M�c	�l	���t|��sJ�g�|d}|dD]�}|d|}t|�dg����D]V\}}|dkrKd|�d|��}tddg�	��}d
|�d|�d�|d
<��|��|||<||d|<�W��|d����t
���}	dg}
|
fd�}|d�t|��}t|��}
d�z}||vr |�||<|g|ddd�z}n|g|dz}t|�d|
��}|dd�dkrJ|
rd|dd�z}n
d|dd�z}|�d}|�dd��dkrd|d<|�
d|��}d}d�|��}|
ra|�
��d�d��}�fd�|D��}||d<|d|d�d��d |�d���|s|d!|d�d"|����n>|d#��d |�d���|	s*|d$|z��|�
dd��d%z|z}|	rT|d&�d'��D]8}|�
���d!��rd(|vr||���9|dd�}g}|D]:}t||��r#|d$|z��|�|���;|D]L}||vr�t!||��r0|t|||
�)����|�|���M|D]L}||vr�t#||��r0|t|||
�)����|�|���M|D]"}||vr�|t|||
�)�����#||��|�||��|	r<|
rn9|d*��||d&�
����|d+��d��fd,�|D����}|s8t%|��r||�d-|�d.|�d/���n||�d0|�d.|�d���|
r|d1|d�d�����n|d2��|
d3S)4Nr$�argsr!r�f2py_�_d�integer�hide�r�intent�shape(�, rrrc�&�|d�d|��|d<dS�Nrz
      ���line�rets  r+�addzcreatefuncwrapper.<locals>.add^���#&�q�6�6�6�4�4�0��A���r-�namez
%sf2pywraprz
@@@NAME@@@�
z
character*(*)zcharacter(len=10)zcharacter*10rrr�10c� ��g|]
}|�k�|��Sr:r:)�.0�argr@s  �r+�
<listcomp>z%createfuncwrapper.<locals>.<listcomp>~s���3�3�3��s�d�{�{��{�{�{r-�subroutine f2pywrap_�
modulename�_� (�use �	, only : �subroutine f2pywrap�external %sr �saved_interface�
�__user__�r'�	interface�
end interfacec���g|]}|�v�|��	Sr:r:�rDr%�
extra_argss  �r+rFz%createfuncwrapper.<locals>.<listcomp>��#���>�>�>�Q�!�:�*=�*=�q�*=�*=�*=r-z = .not.(.not.rz))z = �end subroutine f2pywrap_�endr)r�	enumerate�get�dict�append�extend�boolrrr,�replacer#�split�lstrip�
startswithrrrr
)�rout�	signaturer$r%�v�i�d�dn�dv�need_interfacer=r>�fortrannamer'�newnamer/�l_tmpl�
charselect�l1�rl�sargsr<�dumped_argsrWr@s                       @@r+�createfuncwrapperruJsS�����d�������J���<�D�
�&�\�	'�	'����L��O���a�e�e�K��4�4�5�5�	'�	'�D�A�q��C�x�x�x�&'�a�a���+���9�f�X�>�>�>���-.�Q�Q����2��3���!�!�"�%�%�%���R��$&��+��q�!��	'�	��L���
�#�#�#��*�%�%�N�
�$�C��1�1�1�1���<�D� ��&�&�K��d�#�#�G��d�#�G��d����T�
��W�
��y�4��<����+�+����y�4��<�'��
�D�$��g�
>�
>�F�
�c�r�c�{�o�%�%��	2�(�6�"�#�#�;�6�F�F�#�f�R�S�S�k�1�F��$�Z��/�
��>�>�#�r�"�"�e�+�+�"�J�s�O�	����g�	.�	.�B�	
�B��I�I�d�O�O�E��F��
�
��k�k�k�2�.�.��3�3�3�3�t�3�3�3����V�����
�,�
�
�
����u�u�u�
.�	/�	/�	/��	I��C�C�t�L�'9�'9�'9�;�;�G�H�H�H�����D�D�D�%�%�%�8�9�9�9��	F��C�
��-�.�.�.�����b�1�1�C�7�+�E�B����*�+�1�1�$�7�7�	�	�D��{�{�}�}�'�'��/�/�
�J�d�4J�4J���D�	�	�	������8�D��K�
�"�"���d�1�g���	"��C�
��#�$�$�$����q�!�!�!��
�"�"��������D��G���	"��C��t�Q��8�8�8�9�9�9����q�!�!�!��
�"�"��������t�A�w���	"��C��t�Q��8�8�8�9�9�9����q�!�!�!��
�6�6���������N�4��G�4�4�4�5�5�5�5��C��G�G�G�	�~���B�����!��	!���C������C��&�'�.�.�0�0�1�1�1��C�� � � ��I�I�>�>�>�>�$�>�>�>�?�?�E��?��T�"�"�	?��C�W�W�W�k�k�k�5�5�5�I�J�J�J�J��C����+�+�+�u�u�u�=�>�>�>������t�L�/A�/A�/A�4�4�H�I�I�I�I���E�
�
�
��q�6�Mr-c	���t|��sJ�g�|d}|dD]�}|d|}t|�dg����D]V\}}|dkrKd|�d|��}tddg�	��}d
|�d|�d�|d
<��|��|||<||d|<�W��|d����t
���}	dg}
|
fd�}|d}t|��}
t|��}|d}d�	|��}|r5|d|d�d|�d|�d���|s|d|d�d|
����n"|d|�d|�d���|	s|d|
z��|	rT|d�
d��D]8}|����d��rd|vr||���9g}|D]:}t||��r#|d|z��|�|���;|D]L}||vr�t||��r0|t|||�����|�|���M|D]"}||vr�|t|||������#|	rn|rnk|d��|d�
d��D]9}|����d��rd|vr�.||���:|d��d�	�fd�|D����}|s|d |
�d!|�d���|r|d"|d�d|����n|d#��|
d$S)%Nr$r/r!rr0r1r2r3r4r6r7rrrc�&�|d�d|��|d<dSr9r:r;s  r+r>zcreatesubrwrapper.<locals>.add�r?r-r@rGrHrIrJrKrLrMrNrOrPrQrRrSrTc���g|]}|�v�|��	Sr:r:rVs  �r+rFz%createsubrwrapper.<locals>.<listcomp>	rXr-zcall rrYrZr)r
r[r\r]r^r_r`rrr#rbrcrdrrr,)rerfr$r%rgrhrirjrkrlr=r>r@rmr'r/rsr<rtrWs                   @r+�createsubrwrapperry�s������������J���<�D�
�&�\�	'�	'����L��O���a�e�e�K��4�4�5�5�	'�	'�D�A�q��C�x�x�x�&'�a�a���+���9�f�X�>�>�>���-.�Q�Q����2��3���!�!�"�%�%�%���R��$&��+��q�!��	'�	��L���
�#�#�#��*�%�%�N�
�$�C��1�1�1�1���<�D� ��&�&�K��d�#�#�G���<�D��I�I�d�O�O�E��/����
�,�
�
�
����u�u�u�
.�	/�	/�	/��	I��C�C�t�L�'9�'9�'9�;�;�G�H�H�H�����D�D�D�%�%�%�8�9�9�9��	/��C�
��-�.�.�.����*�+�1�1�$�7�7�	�	�D��{�{�}�}�'�'��/�/�
�J�d�4J�4J���D�	�	�	���K�
�"�"���d�1�g���	"��C�
��#�$�$�$����q�!�!�!��
�"�"��������D��G���	"��C��t�Q��8�8�8�9�9�9����q�!�!�!��
�6�6���������N�4��G�4�4�4�5�5�5�5��
!��		!���C������.�/�5�5�d�;�;�
�
���;�;�=�=�+�+�F�3�3��
�d�8J�8J����D�	�	�	�	��C�� � � ��I�I�>�>�>�>�$�>�>�>�?�?�E��2����[�[�[�%�%�%�0�1�1�1������t�L�/A�/A�/A�4�4�H�I�I�I�I���E�
�
�
��q�6�Mr-c��t|���rt|��}|d}td|�d|�d���tj|��}|}|}d|vr|d}|d||d|<|d|}t	|��sjd|vrg|d<|d�d��d	}|dD]}|�d
��rd}n�|r|d�d|z��|g|d
z|d
dd�<|t|��fSt|��rRt|��}|d}td|�d|�d���tj|��}|t|��fS|dfS)Nr@z)		Creating wrapper for Fortran function "z"("z")...
�resultr$r5�outrzout=rzout=%sr/z+		Creating wrapper for Fortran subroutine "r)
rrr�copyr	r^rdrurry)rermr@�fname�rname�fvar�flagrhs        r+�assubrr�s����t���-�$�T�*�*���F�|�����D�D�+�+�+��	 �	 �	 ��y����������t�����N�E�"&�v�,�u�"5�D��L����F�|�E�"���D�!�!�
	:��t�#�#�!#��X����N�!�!�%�(�(�(��D��(�^�
�
���<�<��'�'���D��E���
:��X��%�%�h�%�&8�9�9�9� �'�D��L�0��V��Q�Q�Q���&�t�,�,�,�,�����-�$�T�*�*���F�|�����4�4����&�	'�	'�	'��y������&�t�,�,�,�,���8�Or-)NN)r)�__doc__r}�auxfuncsrrrrrr	r
rrr
rrrr,ruryr�r:r-r+�<module>r�s��
�
�����������������������������������.�.�.�.�bt�t�t�t�nP�P�P�P�f!�!�!�!�!r-

Youez - 2016 - github.com/yon3zu
LinuXploit