| Server IP : 209.209.40.120 / Your IP : 216.73.217.112 Web Server : Microsoft-IIS/10.0 System : Windows NT NEWWWW 10.0 build 17763 (Windows Server 2019) i586 User : NEWWWW$ ( 0) PHP Version : 8.3.30 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/Python312/Lib/site-packages/numpy/f2py/tests/__pycache__/ |
Upload File : |
�
�gX � �T � d dl Z d dlZd dlmZmZmZ d dlZd dlm Z e j j G d� de j � � Z
G d� de j � Z G d� d e j � Z G d
� de j � Z G d� d
e j � Ze j j G d� de j � � Ze j j G d� de j � � Ze j j G d� de j � � Zy)� N)�assert_array_equal�assert_equal�
assert_raises)�utilc � � e Zd ZdZdZg d�ZdZeD ]� ZeZ e d�� j ee� Ze ej dj g d�e� �d�e� �d �e� �d
�e� �d�e� �d�e� �d�e� �d �e� �d�e� �d�e� �d�e� �d
�e� �d�e� �d�e� �d
�e� �d�e� �d�e� �d�e� �d�e� �d�e� �d�e� �d�e� �d�e� �d�e� �d�e� �d�� � z
Z�� ej j# de� d� � Zej j# dedd � d� � Zej j# de� d� � Zej j# de� d� � Zej j# de� d� � Zy)�TestCharacterString�.f90�test_character_string��1�3�star� �(*))r z
subroutine �_input_z(c, o, n)
character*z�, intent(in) :: c
integer n
!f2py integer, depend(c), intent(hide) :: n = slen(c)
integer*1, dimension(n) :: o
!f2py intent(out) o
o = transfer(c, o)
end subroutine �_output_z�, intent(out) :: c
integer n
integer*1, dimension(n), intent(in) :: o
!f2py integer, depend(o), intent(hide) :: n = len(o)
c = transfer(o, c)
end subroutine �
_array_input_z;(c, o, m, n)
integer m, i, n
character*aH , intent(in), dimension(m) :: c
!f2py integer, depend(c), intent(hide) :: m = len(c)
!f2py integer, depend(c), intent(hide) :: n = f2py_itemsize(c)
integer*1, dimension(m, n), intent(out) :: o
do i=1,m
o(i, :) = transfer(c(i), o(i, :))
end do
end subroutine �_array_output_z!(c, o, m, n)
character*a , intent(out), dimension(m) :: c
integer n
integer*1, dimension(m, n), intent(in) :: o
!f2py character(f2py_len=n) :: c
!f2py integer, depend(o), intent(hide) :: m = len(o)
!f2py integer, depend(o), intent(hide) :: n = shape(o, 1)
do i=1,m
c(i) = transfer(o(i, :), c(i))
end do
end subroutine �_2d_array_input_zH(c, o, m1, m2, n)
integer m1, m2, i, j, n
character*a� , intent(in), dimension(m1, m2) :: c
!f2py integer, depend(c), intent(hide) :: m1 = len(c)
!f2py integer, depend(c), intent(hide) :: m2 = shape(c, 1)
!f2py integer, depend(c), intent(hide) :: n = f2py_itemsize(c)
integer*1, dimension(m1, m2, n), intent(out) :: o
do i=1,m1
do j=1,m2
o(i, j, :) = transfer(c(i, j), o(i, j, :))
end do
end do
end subroutine z
�lengthc � � ddij ||� }t | j | j dz |z � }dddd�| }t ||� t j t t t |� � d� � � y )
Nr r r �a�abc�abcdeabcdeabcder �u1��dtype)
�get�getattr�module�fprefixr �np�array�list�map�ord��selfr �fsuffix�fr s �AC:\Python312\Lib\site-packages\numpy/f2py/tests/test_character.py�
test_inputzTestCharacterString.test_inputM sk � ��&�/�%�%�f�f�5���D�K�K���� �!9�G�!C�D���E�;�7��?���1�Q�4����$�s�3��{�*;�4�!H�I� N���c � � |}t | j | j dz |z � }ddd�| }t |t j
t
t t |� � d�� � |j � � y )Nr r r )r r
r r )
r r r! r r"