+ /ic,<Rt^RIt^RIt^RIt^RIHt^RIHt^RIt^RIt^RI H t H t ^RI t ^RIt^RIHtHtHt]P&!]P(!]4R4t]P.R4tRtR tR tR tR tR tRtRt Rt!Rt"Rt#Rt$Rt%Rt&R#)z#Tests for fortran sequential files N)path)iglob) assert_equalassert_allclose) FortranFileFortranEOFErrorFortranFormattingErrordatac,\P!4#)N) threadingLockY/var/www/html/photoedit/myenv/lib/python3.14/site-packages/scipy/io/tests/test_fortran.pyio_lockrs >> rc*\\P!\R44EFVp\P !RV\P 4pV'g\RV R24h\VP^44\VP^44\VP^443pVP^4PRR4pV;_uu_4\VRR4pVPVR7PVR R 7pVP4R R R 4\P !\P"!V44PV4P%V4p\'XV4EKY R # +'giLk;i) fortran-*-*x*x*.dat%fortran-([^-]+)-(\d+)x(\d+)x(\d+).datCouldn't match  filename to regexs<r"$$ O :LMN NAGGAJQWWQZ#aggaj/B ""3, WHc51A==u=-55d#5FD GGI 99RWWT]+33D9@@GT8$GWs AF F c \P!\R4pT;_uu_4\VRR4;_uu_4pVP R4pRRR4RRR4\ XR,^,^4\ VR,^,R4\ VR,^,^4\ VR ,^,R R .4R# +'giL;i +'giL;i) zfortran-mixed.datrrz"$$ O :LMN NAGGAJQWWQZ#aggaj/B ""3,yy'//5<!?!' h(?AHHc%0A NN466 " GGI$/L8T*G **,glln!) +    MMO MM& !/G. MM& !s 2C"H11I c X\P!\R4pT;_uu_4\VRR4;_uu_4pVP RR4pRRR4RRR4\ P !^ 4P^^4P\ P4p\ P!RR.\ PR7p\X^,VP4\V^,VP4R# +'giL;i +'giL;i) zfortran-3x3d-2i.datrrz(3,3) KBKK R 40 rzz!}bjjmRXXc]K LB # 99  Ss  + 2 22:: > 99  S1v  . 5 5bjj A 99  Ss  + 2 2288 < > ?BhG S ! !Q NNA "S ! !Q u%A" SVSV$!iFB    ! !" !s H7H& H# & H6 c\VP4R4;_uu_4pVP^4\P!V\P W,V,R7pVP^4RRR4XP W,V,8wd)\RW,V, RVP 24hVPWV3RR7# +'giLk;i)aJ Read a Fortran-style unformatted binary file written with a single write() call, assuming it wraps the data with 4-byte record markers. Returns: np.ndarray of shape (m, n, k) with dtype float64 Reference: Fortran implementation: https://github.com/scipy/scipy/blob/maintenance/1.15.x/scipy/io/_test_fortran.f#L1-L9 r>rcountN Expected  elements, got rr) rGstriprHr+fromfilerSr] ValueErrorr)r0nkr/r2r s&&&& rread_unformatted_doubler~s hnn % % q {{1BJJaeai@ q  &  yyAEAI9QSUG?499+FGG <<q < -- & % AC C- c\VP4R4;_uu_4pVP^4\P!V\P W,R7p\P!V\P VR7pVP^4RRR4XPW3RR7pVX3# +'giL(;i)a Read a Fortran unformatted binary file that contains a mix of: - a double precision array a(m, n) - an integer array b(k) Assumes a single write(10) a, b was used and file is wrapped with Fortran record markers. Returns: a: np.ndarray of shape (m, n) with dtype float64 b: np.ndarray of shape (k,) with dtype int32 Reference: Fortran implementation: https://github.com/scipy/scipy/blob/maintenance/1.15.x/scipy/io/_test_fortran.f#L21-L30 r>rtNrr)rGrxrHr+ryrSrUr))r0r|r}r/r2a_flatrorns&&&& rread_unformatted_mixedrs" hnn % % q Qbjj> KK 3 q  & vS)A a4K & %s A7B:: C c\VP4R4;_uu_4pVP^4\P!V\P W,V,R7pVP^4RRR4XP W,V,8wd)\RW,V, RVP 24hVPWV3RR7# +'giLk;i)at Read a Fortran unformatted binary file containing a 3D integer array (m, n, k). Assumes the array is written with a single write(10) a and wrapped with record markers. Returns: np.ndarray: 3D array of shape (m, n, k) with dtype int32 Reference: Fortran implementation: https://github.com/scipy/scipy/blob/maintenance/1.15.x/scipy/io/_test_fortran.f#L11-L19 r>rtNrvrwrr) rGrxrHr+ryrUr]rzr)r{s&&&& rread_unformatted_intrs hnn % % q {{1BHHAEAI> q & yyAEAI9QSUG?499+FGG <<q < -- & %rc\P!\V4\\P!44R4p\ P !\P!V4RR7\PP^4p^^^repVPWEV4p\VR4;_uu_4pVPVP4RRR4V;_uu_4\WEWb4p RRR4\VR4;_uu_4pVP!R4Pp RRR4\#X V4\#X V4^^^repVPWEV4P%\P&4p\VR4;_uu_4pVPVP4RRR4V;_uu_4\)WEWb4p RRR4\VR4;_uu_4pVP!R4Pp RRR4\#W4\#W4^^^repVPWE4pVPV4P%\P*4p \VR4;_uu_4pVPVPV P4RRR4V;_uu_4\-WEWb4wrRRR4\VR4;_uu_4pVP!RR 4wrV Pp RRR4\#W4\#W4\#X V 4\#X V 4R# +'giELn;i +'giELc;i +'giEL?;i +'giEL;i +'giEL;i +'giEL;i +'giEL;i +'giEL ;i +'giL;i) rZTr[r=Nrz (2,3,5)f8z (2,3,5)i4z(3,5)f82i4)rrrBr rCrbrcrdr+rf RandomStaterandnrrErFr~r(rr.rUrintcr)rKrr/rngr0r|r}rnr2a2a3rob2b3s&& rtest_fortran_roundtriprsyyVc)*A*A*C&D#%HKK X&6 ))   "CA!A !A Xs # #q qss $  $Q1 7  Xs # #q ]]; ' ) ) $QQA!A !!!"((+A Xs # #q qss $  !! 4  Xs # #q ]]; ' ) ) $A!A !A ! BGG$A Xs # #q qssACC  $ 'a:  Xs # #qy%0 TT $QQI $ # #  $ # # $ # #  # # # $ # #  # #sl4L5" M  MM1= N&N8'N-1O!O5 M M  M. 1 N  N  N* - N>  O  O% c t\P!\V4\\P!44R4p\ P !\P!V4RR7\PP^4p\VR4;_uu_4pVPVP^44VPVP^44RRR4\VR4;_uu_4p\VP44^8XgQh\VP44^8XgQh\ P"!\$4;_uu_4VP4RRR4RRR4R# +'giL;i +'giL-;i +'giR#;i)scratchTr[r=Nr)rrrBr rCrbrcrdr+rfrrrErrh read_realspytestraisesrrKr/rr2s& rtest_fortran_eof_okrsyyVc)*A*A*C&D"$HKK X&6 ))   "C Xs # #q syy|$ syy|$ $ Xs # #q1<<>"a'''1<<>"a''' ]]? + + LLN, $ # $ # , + $ # #s2AF:A#F&F .F& F  F# F&& F7 c \P!\V4\\P!44R4p\ P !\P!V4RR7\PP^4p\VR4;_uu_4pVPVP^44VPVP^44RRR4\VR4;_uu_4pVPR4RRR4\VR4;_uu_4p\!VP#44^8XgQh\!VP#44^8XgQh\$P&!\(4;_uu_4VP#4RRR4RRR4R# +'giL;i +'giL;i +'giL@;i +'giR#;i)rTr[r=Nabr)rrrBr rCrbrcrdr+rfrrrErrGwriterhrrrrrs& rtest_fortran_eof_broken_sizers@yyVc)*A*A*C&D"$HKK X&6 ))   "C Xs # #q syy|$ syy|$ $ h     Xs # #q1<<>"a'''1<<>"a''' ]]1 2 2 LLN3 $ # $ #   3 2 $ # #s>AF.:G(A#G' G G'. F>  G  G$ G'' G8 c v\P!\V4\\P!44R4p\ P !\P!V4RR7\PP^4p\VR4;_uu_4pVPVP^44VPVP^44RRR4\VR4;_uu_4pVPR4RRR4\VR4;_uu_4p\ P"!\$4;_uu_4VP'4RRR4RRR4R# +'giL;i +'giL};i +'giL@;i +'giR#;i)rTr[r=Nzw+bsr)rrrBr rCrbrcrdr+rfrrrErrGrrrrrrs& rtest_fortran_bogus_sizer(syyVc)*A*A*C&D"$HKK X&6 ))   "C Xs # #q syy|$ syy|$ $ h  !    Xs # #q ]]1 2 2 LLN3 $ # $ #  3 2 $ # #s=AE.:F(#F' F F'. E>  F  F$ F'' F8 c \P!\V4\\P!44R4p\ P !\P!V4RR7\PP^4p\VR4;_uu_4pVPVP^44VPVP^44RRR4\VR4;_uu_4pVP\P !V4^, 4RRR4\VR4;_uu_4p\#VP%44^8XgQh\&P(!\*4;_uu_4VP%4RRR4RRR4R# +'giL;i +'giL;i +'giL@;i +'giR#;i)rTr[r=Nrr)rrrBr rCrbrcrdr+rfrrrErrGtruncategetsizerhrrrrrs& rtest_fortran_eof_broken_recordr7s5yyVc)*A*A*C&D"$HKK X&6 ))   "C Xs # #q syy|$ syy|$ $ h   4<<)",-  Xs # #q1<<>"a''' ]]1 2 2 LLN3 $ # $ #  3 2 $ # #s>AF):-F<AG"G G") F9 < G  G G"" G3 c x\P!\V4\\P!44R4p\ P !\P!V4RR7^^^rCp\P!R\PW#33.4p\P!WER7p\VR4;_uu_4pVPV^,4VPV4VPV4RRR4\VR4;_uu_4pVP\P !V4^, 4RRR4\VR4;_uu_4p\#VP%VR74^8XgQh\#VP%VR74V8XgQh\&P(!\*4;_uu_4VP%VR7RRR4RRR4R# +'giL;i +'giL;i +'giL@;i +'giR#;i) rTr[fieldrr=Nrr)rrrBr rCrbrcrdr+rrSzerosrrErGrrrhr(rrr)rKr/r|r0qdtrnr2s& r!test_fortran_eof_multidimensionalrGsyyVc)*A*A*C&D"$HKK X&6A!A GRZZ!01 2B A Xs # #q qt q q $ h   4<<)",-  Xs # #q1==r=*+q0001==r=*+q000 ]]1 2 2 MMM #3 $ # $ #   3 2 $ # #s=;G/-H#A'H( H H(/ G?  H  H% H(( H9 )'__doc__r@rIrbrglobrr r! numpy.testingrrnumpyr+rscipy.iorrrrrd__file__r fixturerr4r;rOrXrrr~rrrrrrrrr rrrs*  7 .. IIdll8,f 5 %& 1"6"0!..,B.6.b "   $r