Ë
|
Kñúh,X ã óT d dl Z d dlZd dlZd dlmZ d dlmZmZm Z ej j G d dej « « Z G d dej « Z G d d ej « Z G d
|
d ej « Z G d d ej « Zej j G d dej « « Zej j G d dej « « Zej j G d dej « « Zy)é N)Úutil)Úassert_array_equalÚ assert_equalÚ assert_raisesc óú e Zd ZdZdZg d¢ZdZeD ]» ZeZddij ee« Z
|
e e j dj g de de d e
|
d
|
e de de d e d e
|
d e d e de d e de
|
de d e de de de
|
de de de de de
|
de de 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 úRH:\Change_password\venv_build\Lib\site-packages\numpy/f2py/tests/test_character.pyÚ
|
test_inputz TestCharacterString.test_inputO sk à&/×%Ñ% f¨fÓ5Ü DKK § ¡ ° Ñ!9¸GÑ!CÓ DàE¨;Ñ 7¸Ñ ?ä1Q4¤§¡¬$¬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" r# r$ r% r& Úencoder' s r+ Ú test_outputz TestCharacterString.test_outputX sb àÜ DKK § ¡ °
|
Ñ!:¸WÑ!DÓ EàEÑ " 6Ñ *ä1RXX¤d¬3¬s°A«;Ó&7¸tÔ DÓEØ 88:õ 'r- c ó, |}t | j | j dz |z « }t j dddd| dddd| gd ¬
|
« }t j |D cg c] }t |« c}d ¬
|
« }t ||« |« y c c}w ) Nr r r r r ÚAÚABCÚABCDEABCDEABCDEÚSr r ©r r r! r" r# r$ r )r( r r) r* r ÚsÚexpecteds r+ Útest_array_inputz$TestCharacterString.test_array_inputb s àÜ DKK § ¡ °Ñ!?À'Ñ!IÓ Jä HHC e°[ÑAÀ&ÑIØ e°[ÑAÀ&ÑIðà "ô $ô 88¨aÖ 0¨T !WÒ 0¸Ô=Ü1Q4 Õ*ùò 1ó Á#Bc ó, |}t | j | j dz |z « }t j dddd| dddd| gd ¬
|
« }t j |D cg c] }t |« c}d ¬
|
« }t ||« |« y c c}w ) Nr r r r r r3 r4 r5 r6 r r r7 )r( r r) r* r9 r8 r s r+ Útest_array_outputz%TestCharacterString.test_array_outputn s àÜ DKK § ¡ Ð0@Ñ!@À7Ñ!JÓ Kä88ØU¨KÑ 8¸Ñ @ØU¨KÑ 8¸Ñ @ð BØILôNô HH xÖ0 !d1gÒ0¸Ô =Ü1Q4 Õ*ùò 1r; c ó~ |}t | j | j dz |z « }t j dddd| dddd| gd d
|
d d| d d dd| ggd¬« }t j |D cg c] }|D cg c] }t |« c} c}}dd ¬« }t ||« |« y c c}w c c}}w )Nr r r r r r3 r4 r5 r* ÚfghÚfghijfghijfghijÚFÚFGHÚFGHIJFGHIJFGHIJr6 r r ©r Úorderr7 )r( r r) r* r ÚrowÚitemr9 s r+ Útest_2d_array_inputz'TestCharacterString.test_2d_array_inputz sÍ àÜ DKK § ¡ Ð0BÑ!BÀWÑ!LÓ Mä HHS u°kÑBÀ6ÑJØ u°kÑBÀ6ÑJðLà u°kÑBÀ6ÑJØ u°kÑBÀ6ÑJðLðMð ô ô
|
88ÀQ× G¸c°SÖ 9¨Td 4jÔ 9Ó GØ"&¨cô3ä1Q4 Õ*ùò :ùÓ Gs Á6 B9
|
Á?B4ÂB9
|
Â4B9
|
)Ú__name__Ú
|
__module__Ú __qualname__Úsuffixr! Ú length_listÚcoder r) r ÚclengthÚtextwrapÚdedentÚjoinÚpytestÚmarkÚ parametrizer, r1 r: r= rH © r- r+ r r
|
sl ð FØ%GÚ$Kà DØ ò ; ØØ5/×%Ñ% f¨fÓ5à ÷ 7! ó 7! ð %ð 7! à9ð7! à #ð7! à$+ 9ð7! ð-ð7! ð Ið7! ð ð7! ð yð7! ð !(ð7! ð )0 yð7! ð1ð7! ð 9ð7! ð %ð7! ð &- Ið7! ð.ð7! ð Ið7! ð ð7! ð" yð#7! ð" !)ð#7! ð" *1¨ ð#7! ð"2ð#7! ð& 9ð'7! ð& *ð'7! ð& +2¨ð'7! ð&3ð'7! ð* Ið+7! ð* ð+7! ð8 yð97! ð8 !.ð97! ð8 /6¨Yð97! ð87ð97! ð< 9ð=7! ð< +ð=7! ð< ,3¨)ð=7! ð<4ð=7! ð> Ið?7! ð> ð?7! ðP yðQ7! ðP !/ðQ7! ðP 07¨iðQ7! ðP8ðQ7! ðT 9ðU7! ðT -ðU7! ðT .5¨IðU7! ðT6ðU7! ðX IðY7! ðX
|
ðY7! ðl yðm7! ðl !1ðm7! ðl 29° ðm7! ðl: ôm7! ó 7 ñ 7 ð ; ðz [[× Ñ X {Ó3ñJó 4ðJð [[× Ñ X {°3°BÐ'7Ó8ñ'ó 9ð'ð [[× Ñ X {Ó3ñ +ó 4ð +ð [[× Ñ X {Ó3ñ +ó 4ð +ð [[× Ñ X {Ó3ñ +ó 4ñ +r- r c ól e Zd ZdZdZ ej dj g de de de de de d e d
|
e d e d e d e de de de de de de de de de de de de de de d « « Ze j j d d d g« d « Z d! Z e j j d g d"¢« d# « Zd$ Ze j j d g d"¢« d% « Zd& Zd' Zd( Ze j j d d d g« d) « Zd* Ze j j d d d g« d+ « Ze j j d d d g« d, « Zd- Ze j j3 d.« d/ « Zd0 Zy1)2Ú TestCharacterr Útest_characterr ú
|
subroutine z_input(c, o)
|
character, intent(in) :: c
|
integer*1 o
|
!f2py intent(out) o
|
o = transfer(c, o)
|
end subroutine z_input
|
|
subroutine z_output(c, o)
|
character :: c
|
integer*1, intent(in) :: o
|
!f2py intent(out) c
|
c = transfer(o, c)
|
end subroutine z_output
|
|
subroutine z_input_output(c, o)
|
character, intent(in) :: c
|
character o
|
!f2py intent(out) o
|
o = c
|
end subroutine z!_input_output
|
|
subroutine z_inout(c, n)
|
character :: c, n
|
!f2py intent(in) n
|
!f2py intent(inout) c
|
c = n
|
end subroutine z_inout
|
|
function z
_return(o) result (c)
|
character :: c
|
character, intent(in) :: o
|
c = transfer(o, c)
|
end function z_return
|
|
subroutine zè_array_input(c, o)
|
character, intent(in) :: c(3)
|
integer*1 o(3)
|
!f2py intent(out) o
|
integer i
|
do i=1,3
|
o(i) = transfer(c(i), o(i))
|
end do
|
end subroutine z _array_input
|
|
subroutine a' _2d_array_input(c, o)
|
character, intent(in) :: c(2, 3)
|
integer*1 o(2, 3)
|
!f2py intent(out) o
|
integer i, j
|
do i=1,2
|
do j=1,3
|
o(i, j) = transfer(c(i, j), o(i, j))
|
end do
|
end do
|
end subroutine z#_2d_array_input
|
|
subroutine zØ_array_output(c, o)
|
character :: c(3)
|
integer*1, intent(in) :: o(3)
|
!f2py intent(out) c
|
do i=1,3
|
c(i) = transfer(o(i), c(i))
|
end do
|
end subroutine z!_array_output
|
|
subroutine zÊ_array_inout(c, n)
|
character :: c(3), n(3)
|
!f2py intent(in) n(3)
|
!f2py intent(inout) c(3)
|
do i=1,3
|
c(i) = n(i)
|
end do
|
end subroutine z _array_inout
|
|
subroutine a _2d_array_inout(c, n)
|
character :: c(2, 3), n(2, 3)
|
!f2py intent(in) n(2, 3)
|
!f2py intent(inout) c(2. 3)
|
integer i, j
|
do i=1,2
|
do j=1,3
|
c(i, j) = n(i, j)
|
end do
|
end do
|
end subroutine z!_2d_array_inout
|
|
function z»_array_return(o) result (c)
|
character, dimension(3) :: c
|
character, intent(in) :: o(3)
|
do i=1,3
|
c(i) = o(i)
|
end do
|
end function z _array_return
|
|
function z_optional(o) result (c)
|
character, intent(in) :: o
|
!f2py character o = "a"
|
character :: c
|
c = o
|
end function z_optional
|
r ÚcÚS1c ó0 t | j | j dz « }t |t j
|
d|¬« « t d« « t |t j
|
d|¬« « t d« « t |t j
|
dg|¬« « t d« « t |t j
|
d|¬« « t d« « t |t j
|
dgg|¬« « t d« « y )NÚ_inputr r ó ar )r r r! r r" r# r& ©r( r r* s r+ r, zTestCharacter.test_inputõ s· ä DKK § ¡ °Ñ!8Ó 9äQrxx ¨5Ô1Ó2´C¸³HÔ=ÜQrxx ¨EÔ2Ó3´S¸³XÔ>ÜQrxx ¨UÔ3Ó4´c¸#³hÔ?ÜQrxx ¨UÔ3Ó4´c¸#³hÔ?ÜQrxx # ¨uÔ5Ó6¼¸C»ÕAr- c ó t | j | j dz « }t |d« t d« « t |d« t d« « t |d« d« t |d« d« t |d« d« t |d« t d« « t |d « t d« « t |dg« t d« « t |t j d« « t d« « t |t j dg« « t d« « t j d« }t ||« t d« « t j dg« }t ||« t d« « |g « t |j d
|
« # t $ r%}t |« j d « s Y d }~nd }~ww xY w |d « t |j d « # t $ r%}t |« j d« s Y d }~y d }~ww xY w)Nr^ r r_ r r r- ó Úabs abz! should have failed on empty listz got 0-listéa z should have failed on int valuez got int instance) r r r! r r& r" r# Ú SystemErrorrI Ú
|
IndexErrorÚstrÚendswithÚ TypeError©r( r* r Úmsgs r+ Útest_input_variaz TestCharacter.test_input_variaÿ s¿ Ü DKK § ¡ °Ñ!8Ó 9äQsVS XÔ&ÜQtWc $iÔ(ÜQrUAÔ ÜQsVQÔ ÜQuXqÔ!ÜQtWc #hÔ'ÜQuXs 3xÔ(ÜQuXs 3xÔ(äQrxx ~Ó&¬¨C«Ô1ÜQrxx Ó'Ó(¬#¨c«(Ô3Ü HHSMÜQqT3s8Ô$Ü HHcUOÜQqT3s8Ô$ð PÙ bEô
|
§¡ Ð,MÐ NÓOÐ Oøô ò Üs8×$Ñ$ ]Ô3Øô 4ûð úð OÙ bEô
|
§¡ Ð,LÐ MÓNÐ Nøô ò Üs8×$Ñ$Ð%8Ô9Øô :ûð ús0 Æ!G Ç G/Ç
|
G*Ç*G/Ç3H È IÈ H<È<I)r[ r\ ÚU1c ó t | j | j dz « }t |t j
|
g d¢|¬« « t j
|
t t t d« « d¬« « t |t j
|
g d¢|¬« « t j
|
t t t d« « d¬« « y )NÚ _array_input©r Úbr[ r r Úi1©r_ ó bó c) r r r! r r" r# r$ r% r& r` s r+ r: z TestCharacter.test_array_input" s ä DKK § ¡ °Ñ!>Ó ?ä1RXX¢o¸UÔ CÓDÜ 88¤D¬¬S°%« Ó$9ÀÔFô Hä1RXXÒ&8ÀÔ FÓGÜ 88¤D¬¬S°%« Ó$9ÀÔFõ Hr- c óð t | j | j dz « }t |g d¢« t j
|
t t t d« « d¬« « t |g d¢« t j
|
t t t d« « d¬« « |g d¢« t |j d« # t $ r%}t |« j d « s Y d }~y d }~ww xY w)
|
Nro rp r rr r rs ©r rq r[ Údú" should have failed on wrong inputú)th dimension must be fixed to 3 but got 4)r r r! r r" r# r$ r% r& re rI Ú
|
ValueErrorrg rh )r( r* rk s r+ Útest_array_input_variaz$TestCharacter.test_array_input_varia+ sÎ Ü DKK § ¡ °Ñ!>Ó ?Ü1_Ó-Ü 88¤D¬¬S°%« Ó$9ÀÔFô Hä1Ò /Ó0Ü 88¤D¬¬S°%« Ó$9ÀÔFô Hð CÙ Ò"Ô #ô Ø::,Ð @ÐAóCð Cøô ò Üs8×$Ñ$Ø?ôAàôAûð ús Â%
|
C à C5ÃC0Ã0C5c ó t | j | j dz « }t j g d¢g d¢g|d¬« }|j |dk( rt j nt j « }t ||« |« y )NÚ_2d_array_inputrp ©rx Úer* rA rD rm ) r r r! r" r# ÚviewÚuint32Úuint8r )r( r r* r r9 s r+ rH z!TestCharacter.test_2d_array_input< sf ä DKK § ¡ Ð0AÑ!AÓ Bä HHoÚ%ð'Ø.3¸3ô @à66 u°¢}"))¼"¿(¹(ÓCÜ1Q4 Õ*r- c ó¤ t | j | j dz « }t |t d« « d« t |d« d« y )NÚ_outputr_ r rb )r r r! r r& ©r( r* s r+ r1 zTestCharacter.test_outputE s; Ü DKK § ¡ ° Ñ!9Ó :äQs4y\ 4Ô(ÜQqT5Õ!r- c
|
óØ t | j | j dz « }t |t t t d« « « t j t d« d¬« « y )NÚ _array_outputr r\ r ) r r r! r r$ r% r& r" r# r s r+ r= z TestCharacter.test_array_outputK sG Ü DKK § ¡ °Ñ!?Ó @ä1T¤#¤c¨5£/Ó 2Ó3Ü 88¤D¨£K°tÔ<õ >r- c ó¶ t | j | j dz « }t |d« d« t |d« d« t |d« d« y )NÚ _input_outputr_ r r rb ©r r r! r r s r+ Útest_input_outputz TestCharacter.test_input_outputQ sE Ü DKK § ¡ °Ñ!?Ó @äQtWdÔ#ÜQsVTÔ"ÜQrUEÕ"r- c ó t | j | j dz « }t j t d« |¬« } ||d« t |t j t d« |j ¬« « ||dd d« t |t j t d« |j ¬« « t j dg|¬« } ||d« t |t j dg|j ¬« « y ) NÚ_inoutr r r3 ÚAbcé ÚBÚABc)r r r! r" r# r$ r r )r( r r* r s r+ Ú
|
test_inoutzTestCharacter.test_inoutX s· ä DKK § ¡ °Ñ!8Ó 9ä HHT%[¨Ô .Ù !S Ü1bhh¤t¨E£{¸!¿'¹'Ô BÔCÙ !AB% Ü1bhh¤t¨E£{¸!¿'¹'Ô BÔCä HHeW EÔ *Ù !S Ü1bhh¨ w°a·g±gÔ >Õ?r- c ó t | j | j dz « }t j dd¬« } ||d« t |t j d|j ¬« « t j dgd¬« } ||d« t |t j dg|j ¬« « |dd« t |j d« # t $ r%}t |« j d« s Y d }~y d }~ww xY w) Nr r ÚS3r r3 r z should have failed on str valuez
|
got 3-str) r r r! r" r# r r re rI r{ rg rh rj s r+ Útest_inout_variaz TestCharacter.test_inout_variaf s× Ü DKK § ¡ °Ñ!8Ó 9Ü HHU $Ô 'Ù !S Ü1bhh u°A·G±GÔ <Ô=ä HHeW DÔ )Ù !S Ü1bhh¨ w°a·g±gÔ >Ô?ð OÙ eSMô
|
§¡ Ð,LÐ MÓNÐ Nøô ò Üs8×$Ñ$ \Ô2Øô 3ûð ús Â= C à D Ã'DÄD c óÔ t | j | j dz « }t j g d¢|d¬« }t j g d¢|d¬« } |||« t ||« t j g d¢|¬« } ||dd |« t |t j g d ¢|¬« « t j g d¢g|d¬« } |||« t |t j g d¢g|¬« « t j g d¢|d¬« } |||« t |j d
|
« # t $ r%}t |« j d « s Y d }~y d }~ww xY w) NÚ _array_inout©r3 r ÚCrA rD rp rw r r )r r3 r r ry rz ) r r r! r" r# r re rI r{ rg rh )r( r r* Únr rk s r+ Útest_array_inoutz TestCharacter.test_array_inoutx s1 ä DKK § ¡ °Ñ!>Ó ?Ü HH_¨E¸Ô =ä HH_¨E¸Ô =Ù !QÜ1aÔ ä HHÒ)°Ô 7Ù !AB% Ü1bhhÒ';À5Ô IÔJä HHoÐ&¨e¸3Ô ?Ù !QÜ1bhhªÐ'8ÀÔ FÔGä HHÒ)°¸cÔ Bð CÙ aGô Ø::,Ð @ÐAóCð Cøô ò Üs8×$Ñ$Ø?ôAàôAûð ús Ä D9 Ä9 E'ÅE"Å"E'c óì t | j | j dz « }t j g d¢g d¢g|d¬« }t j g d¢g d¢g|d¬« } |||« t ||« y )NÚ_2d_array_inoutr )ÚDÚErA rA rD rp r ©r r r! r" r# r )r( r r* r r s r+ Útest_2d_array_inoutz!TestCharacter.test_2d_array_inout sm ä DKK § ¡ Ð0AÑ!AÓ BÜ HHoÚ%ð'à ¨ô -ô HHoÚ%ð'à ¨ô -ñ
|
!QÜ1aÕ r- c ón t | j | j dz « }t |d« d« y )NÚ_returnr r_ r r s r+ Ú test_returnzTestCharacter.test_return s) Ü DKK § ¡ ° Ñ!9Ó :äQsVTÕ"r- z*fortran function returning array segfaultsc ó® t | j | j dz « }t j t d« d¬« }t ||« |« y )NÚ _array_returnr r\ r r7 )r( r* r s r+ Útest_array_returnz TestCharacter.test_array_return¥ s= ä DKK § ¡ °Ñ!?Ó @ä HHT%[¨Ô -Ü1Q4 Õ#r- c ó t | j | j dz « }t |« d« t |d« d« y )NÚ _optionalr_ ó Br r s r+ Ú test_optionalzTestCharacter.test_optional¬ s5 Ü DKK § ¡ ° Ñ!;Ó <äQS$Ô ÜQtWdÕ#r- N) rI rJ rK rL r! rP rQ rR rN rS rT rU r, rl r: r| rH r1 r= r r r r r¢ r¥ Úskipr¨ r¬ rV r- r+ rX rX sø à FØ Gà 8??÷ e ó e ð ð e Ø)ðe ð ðe ð ið e ð ð e ð )ðe ð ðe ð iðe ð ðe ð )ð e ð ð e ð( ið)e ð( ð)e ð, )ð-e ð, ð-e ð6 ið7e ð6 ð7e ð: ð;e ð:ð;e ðB IðCe ðB ðCe ðF )ðGe ðF ðGe ðV iðWe ðV ðWe ðZ )ð[e ðZ
|
ð[e ðn iðoe ðn ðoe ðr )ðse ðr ðse ð@ iðAe ð@ ðAe ðD )ðEe ðD ðEe ðR iðSe ðR ðSe ðV )ðWe ðV
|
ðWe ðj iðke ðj ðke ðn ðoe ðnðoe ðz Ið{e ðz ð{e ð~ ðe ð~ðe ðH IðIe ðH ôIe ó e DðN [[× Ñ W s¨D kÓ2ñBó 3ðBò!OðF [[× Ñ WÒ&7Ó8ñHó 9ðHòCð" [[× Ñ WÒ&7Ó8ñ+ó 9ð+ò"ò >ò #ð [[× Ñ W s¨D kÓ2ñ @ó 3ð @òOð$ [[× Ñ W s¨D kÓ2ñCó 3ðCð6 [[× Ñ W s¨D kÓ2ñ !ó 3ð !ò#ð
|
[[×ÑÐBÓCñ$ó Dð$ó $r- rX c ó e Zd ZdZdZ ej de de de de de de d e d
|
e d e d e d e de d« Zej j d « Z d Z d Z d Zej j dddg« d « Zy)ÚTestMiscCharacterr Útest_misc_characterrZ a( _gh18684(x, y, m)
|
character(len=5), dimension(m), intent(in) :: x
|
character*5, dimension(m), intent(out) :: y
|
integer i, m
|
!f2py integer, intent(hide), depend(x) :: m = f2py_len(x)
|
do i=1,m
|
y(i) = x(i)
|
end do
|
end subroutine z _gh18684
|
|
subroutine z«_gh6308(x, i)
|
integer i
|
!f2py check(i>=0 && i<12) i
|
character*5 name, x
|
common name(12)
|
name(i + 1) = x
|
end subroutine z_gh6308
|
|
subroutine zý_gh4519(x)
|
character(len=*), intent(in) :: x(:)
|
!f2py intent(out) x
|
integer :: i
|
! Uncomment for debug printing:
|
!do i=1, size(x)
|
! print*, "x(",i,")=", x(i)
|
!end do
|
end subroutine z _gh4519
|
|
pure function aq _gh3425(x) result (y)
|
character(len=*), intent(in) :: x
|
character(len=len(x)) :: y
|
integer :: i
|
do i = 1, len(x)
|
j = iachar(x(i:i))
|
if (j>=iachar("a") .and. j<=iachar("z") ) then
|
y(i:i) = achar(j-32)
|
else
|
y(i:i) = x(i:i)
|
endif
|
end do
|
end function z_gh3425
|
|
subroutine aO _character_bc_new(x, y, z)
|
character, intent(in) :: x
|
character, intent(out) :: y
|
!f2py character, depend(x) :: y = x
|
!f2py character, dimension((x=='a'?1:2)), depend(x), intent(out) :: z
|
character, dimension(*) :: z
|
!f2py character, optional, check(x == 'a' || x == 'b') :: x = 'a'
|
!f2py callstatement (*f2py_func)(&x, &y, z)
|
!f2py callprotoargument character*, character*, character*
|
if (y.eq.x) then
|
y = x
|
else
|
y = 'e'
|
endif
|
z(1) = 'c'
|
end subroutine z%_character_bc_new
|
|
subroutine aG _character_bc_old(x, y, z)
|
character, intent(in) :: x
|
character, intent(out) :: y
|
!f2py character, depend(x) :: y = x[0]
|
!f2py character, dimension((*x=='a'?1:2)), depend(x), intent(out) :: z
|
character, dimension(*) :: z
|
!f2py character, optional, check(*x == 'a' || x[0] == 'b') :: x = 'a'
|
!f2py callstatement (*f2py_func)(x, y, z)
|
!f2py callprotoargument char*, char*, char*
|
if (y.eq.x) then
|
y = x
|
else
|
y = 'e'
|
endif
|
z(1) = 'c'
|
end subroutine z_character_bc_old
|
c ó¤ t | j | j dz « }t j ddgd¬« } ||« }t ||« y )NÚ_gh18684ÚabcdeÚfghijÚS5r r¡ )r( r* ÚxÚys r+ Ú test_gh18684z TestMiscCharacter.test_gh18684 sE ô DKK § ¡ °
|
Ñ!:Ó ;Ü HHgwÐ'¨tÔ 4Ù aDä1aÕ r- c ó t | j | j dz « }t | j j j
|
j t j d« « t t | j j j
|
« d« |dd« t | j j j
|
d d« |dd« t | j j j
|
d d « y )
|
NÚ_gh6308rµ é r³ r s abcdeÚ12345é s 12345) r r r! r Ú_BLNK_Únamer r" Úlenr s r+ Ú test_gh6308z TestMiscCharacter.test_gh6308 s² ä DKK § ¡ ° Ñ!9Ó :äT[[×'Ñ'×,Ñ,×2Ñ2´B·H±H¸T³NÔCÜS×+Ñ+×0Ñ0Ó1°2Ô6Ù '1 ÜT[[×'Ñ'×,Ñ,¨QÑ/°Ô:Ù '1 ÜT[[×'Ñ'×,Ñ,¨QÑ/°Õ:r- c óú t | j | j dz « }ddt j d« dfddt j d« dft j
|
g d¢d¬ « d
|
t j d« dfg d ¢d
|
t j d « dfd d gdt j d« dffD ]; \ }} ||« }|j « D ] \ }}t t ||« |« = y )NÚ_gh4519r rV r\ )Úshaper ÚtextÚS4)r Ú2r r )é )r rÇ Ú34ÚS2r )é )r r r! r" r r# Úitemsr )r( r* r¶ r9 ÚrÚkÚvs r+ Ú test_gh4519z TestMiscCharacter.test_gh4519 sæ ä DKK § ¡ ° Ñ!9Ó :ð ¬R¯X©X°d«^Ñ<Ð=Ø 2´·±¸³Ñ?Ð@Ü/°Ô6Ø ¬"¯(©(°4«.Ñ9ð;â!Ø ¬"¯(©(°4«.Ñ9ð;àb T´B·H±H¸T³NÑCÐDð Fò
|
/KAxñ !AØ Ó(ò /1Ü W Q¨]¨AÕ.ñ /ñ
|
/r- c ó¶ t | j | j dz « }t |d« d« t |d« d« t |d« d« y )NÚ_gh3425ÚabCs ABCr r- ÚabC12ds ABC12Dr r s r+ Ú test_gh3425z TestMiscCharacter.test_gh3425* sG ä DKK § ¡ ° Ñ!9Ó :ô QuXvÔ&ÜQrUCÔ ÜQx[ )Õ,r- ÚstateÚnewÚoldc ó& t | j | j dz |z « « \ }}t |d« t t |« d« d« \ }}t |d« t t |« d« t t fd« y )NÚ_character_bc_r_ r rt rË c ó d« S )Nru rV )r* s r+ ú<lambda>z5TestMiscCharacter.test_character_bc.<locals>.<lambda>? s ø ©¨4« r- )r r r! r rÀ r Ú Exception)r( rÖ r[ r r* s @r+ Útest_character_bcz#TestMiscCharacter.test_character_bc3 st ø ä DKK § ¡ Ð0@Ñ!@À5Ñ!HÓ Iás1ÜQÔ ÜSVQÔ áw1ÜQÔ ÜSVQÔ äi£ Õ1r- N)rI rJ rK rL r! rP rQ rN rS rT Úslowr¸ rÁ rÐ rÕ rU rÞ rV r- r+ r¯ r¯ ³ s à FØ#Gà 8??ð Ø)ð ð ið à)ð ð ið à)ð ð ið à Yð ð Ið à)ð ð ið à)ð ð ið ðWL ó L Dð\ [[×Ññ!ó ð!ò ;ò/ò -ð [[× Ñ W u¨e nÓ5ñ 2ó 6ñ 2r- r¯ c óD e Zd Z ej dddd« gZd Zd Zy)ÚTestStringScalarArrÚtestsÚsrcÚstringzscalar_string.f90c óÚ | j j j | j j j fD ]( }d}|j |k( sJ d}|j
|
|k( r(J y )NrV z|S8)r Ú string_testrä Ústring77rÄ r ©r( Úoutr9 s r+ Ú test_charz TestStringScalarArr.test_charE sg ØKK×+Ñ+×2Ñ2ØKK×+Ñ+×4Ñ4ð6ò )CàHØ99 Ò(Ð (Ð(Ø HØ99 Ó(Ð (Ð(ñ )r- c óÚ | j j j | j j j fD ]( }d}|j |k( sJ d}|j
|
|k( r(J y )N)r½ é z|S12)r ræ ÚstrarrÚstrarr77rÄ r rè s r+ Ú test_char_arrz!TestStringScalarArr.test_char_arrM sg ØKK×+Ñ+×2Ñ2ØKK×+Ñ+×4Ñ4ð6ò )Cà HØ99 Ò(Ð (Ð(Ø HØ99 Ó(Ð (Ð(ñ )r- N)rI rJ rK r ÚgetpathÚsourcesrê rï rV r- r+ rá rá B s& Øt||G U¨HÐ6IÓJÐKGò)ó)r- rá c ó> e Zd Z ej dddd« gZd Zy)ÚTestStringAssumedLengthrâ rã rä z gh24008.fc ó< | j j dd« y )NÚjoeÚbob)r Úgreet)r( s r+ Ú test_gh24008z$TestStringAssumedLength.test_gh24008X s Ø ×Ñ% Õ'r- N)rI rJ rK r rð rñ rø rV r- r+ ró ró U s Øt||G U¨H°kÓBÐCGó(r- ró c ó> e Zd Z ej dddd« gZd Zy)ÚTestStringOptionalInOutrâ rã rä z gh24662.f90c óv | j j « t j dd¬« }| j j |« d|j « j « v sJ t j t « 5 d}| j j |« d d d « y # 1 sw Y y xY w)NÚhiÚS32r z output stringÚHi) r Ústring_inout_optionalr" r# ÚtobytesÚdecoderS ÚraisesrÝ )r( r Úaas r+ Ú test_gh24662z$TestStringOptionalInOut.test_gh24662_ s Ø ×)Ñ)Ô+Ü HHT Ô 'Ø ×)Ñ)¨!Ô,Ø !§)¡)£+×"4Ñ"4Ó"6Ñ6Ð6Ð6Ü ]]9Ó %ñ 2ØBØ KK× -Ñ -¨bÔ 1÷ 2÷ 2ñ 2ús  B/Â/B8N)rI rJ rK r rð rñ r rV r- r+ rú rú [ s àt||G U¨H°mÓDÐEGó2r- rú c ój e Zd Z ej dddd« ej dddd« gZdZd Zy) ÚTestNewCharHandlingrâ rã rä z gh25286.pyfú gh25286.f90Ú_char_handling_testc óH | j j d« }|dk( sJ y ©NÚTrË ©r Úcharint©r( Úinfos r+ Ú test_gh25286z TestNewCharHandling.test_gh25286r ó" Ø{{×"Ñ" 3Ó'ØqyÐyr- N©rI rJ rK r rð rñ Ú module_namer rV r- r+ r r i s? ð We X¨}Ó=Ø We X¨}Ó=ðGð (Kór- r c ój e Zd Z ej dddd« ej dddd« gZdZd Zy) ÚTestBCCharHandlingrâ rã rä zgh25286_bc.pyfr r c óH | j j d« }|dk( sJ y r
|
r r s r+ r z TestBCCharHandling.test_gh25286 r r- Nr rV r- r+ r r v s@ ð We XÐ/?Ó@Ø We X¨}Ó=ðGð (Kór- r )rP rS Únumpyr" Únumpy.f2py.testsr Ú numpy.testingr r r rT rß ÚF2PyTestr rX r¯ rá ró rú r r rV r- r+ ú<module>r s ðÛ ã ã Ý !ß IÑ Ið ×Ñô{+$--ó {+ó ð{+ô|g$DMMô g$ôT L2 ô L2ô^)$--ô )ô&(dmmô (ð ×Ñô
|
2dmmó
|
2ó ð
|
2ð ×Ñô
|
$--ó
|
ó ð
|
ð ×Ñô
|
ó
|
ó ñ
|
r-
|
