(ph*dSrSSKrSSKr/SQr"SS\\5r"SS\\5r"SS 5r g) z Module to read / write Fortran unformatted sequential files. This is in the spirit of code written by Neil Martinsen-Burrell and Joe Zuntz. N) FortranFileFortranEOFErrorFortranFormattingErrorc\rSrSrSrSrg)r zIndicates that the file ended properly. This error descends from TypeError because the code used to raise TypeError (and this was the only way to know that the file had ended) so users might have ``except TypeError:``. N__name__ __module__ __qualname____firstlineno____doc____static_attributes__rD/var/www/html/venv/lib/python3.13/site-packages/scipy/io/_fortran.pyrr s  rrc\rSrSrSrSrg)rz`Indicates that the file ended mid-record. Descends from TypeError for backward compatibility. rNr rrrrrs   rrcv\rSrSrSrS\R 4SjrSSjrSr Sr SSjr SS jr S r S rS rS rg)r!a A file object for unformatted sequential files from Fortran code. Parameters ---------- filename : file or str Open file object or filename. mode : {'r', 'w'}, optional Read-write mode, default is 'r'. header_dtype : dtype, optional Data type of the header. Size and endianness must match the input/output file. Notes ----- These files are broken up into records of unspecified types. The size of each record is given at the start (although the size of this header is not standard) and the data is written onto disk without any formatting. Fortran compilers supporting the BACKSPACE statement will write a second copy of the size to facilitate backwards seeking. This class only supports files written with both sizes for the record. It also does not support the subrecords used in Intel and gfortran compilers for records which are greater than 2GB with a 4-byte header. An example of an unformatted sequential file in Fortran would be written as:: OPEN(1, FILE=myfilename, FORM='unformatted') WRITE(1) myvariable Since this is a non-standard file format, whose contents depend on the compiler and the endianness of the machine, caution is advised. Files from gfortran 4.8.0 and gfortran 4.1.2 on x86_64 are known to work. Consider using Fortran direct-access files or files from the newer Stream I/O, which can be easily read by `numpy.fromfile`. Examples -------- To create an unformatted sequential Fortran file: >>> from scipy.io import FortranFile >>> import numpy as np >>> f = FortranFile('test.unf', 'w') >>> f.write_record(np.array([1,2,3,4,5], dtype=np.int32)) >>> f.write_record(np.linspace(0,1,20).reshape((5,4)).T) >>> f.close() To read this file: >>> f = FortranFile('test.unf', 'r') >>> print(f.read_ints(np.int32)) [1 2 3 4 5] >>> print(f.read_reals(float).reshape((5,4), order="F")) [[0. 0.05263158 0.10526316 0.15789474] [0.21052632 0.26315789 0.31578947 0.36842105] [0.42105263 0.47368421 0.52631579 0.57894737] [0.63157895 0.68421053 0.73684211 0.78947368] [0.84210526 0.89473684 0.94736842 1. ]] >>> f.close() Or, in Fortran:: integer :: a(5), i double precision :: b(5,4) open(1, file='test.unf', form='unformatted') read(1) a read(1) b close(1) write(*,*) a do i = 1, 5 write(*,*) b(i,:) end do rc8Uc [S5e[R"U5nURS:wa[R "SSS9 US;d[ U5S:wa [S5e[US 5(aXlO[XS 35UlX0l g) NzMust specify dtypeuz$Given a dtype which is not unsigned.) stacklevelrwzmode must be either r or wseekb) ValueErrornpdtypekindwarningswarnlenhasattr_fpopen _header_dtype)selffilenamemode header_dtypes r__init__FortranFile.__init__ms  12 2xx -    # MM@Q O t s4yA~9: : 8V $ $HHaj1DH)rc URRnURRU5nU(dU(a [ S5e[ U5U:a [ S5e[[R"X0RSS9S5$)Nz%End of file occurred at end of recordz,End of file in the middle of the record sizerr!countr) r)itemsizer'readrr%rintr frombuffer)r*eof_oknrs r _read_sizeFortranFile._read_sizest    ' ' HHMM! v!"IJ J VaZ(>@ @2==*<*+FortranFile.write_record..s954bjj&&5#%c38# UHoRv M g7fr=)nbytesr?s rrBrCs7)r!N)tuplesumr arrayr)tofiler')r*items total_sizenbrAs r write_recordFortranFile.write_recordsv.9599777 XXzl$*<*< = $((D KK ! $((rcLURSS5nU(a%[S[UR5535eUbX4-nOU(d [S5eUR SS9n[SU55n[ SU55n[ XE5upgUS :wa[S US US 35e[U5S :waXE:wa[S USUS35e/nUHn[R"URX6S9n [U 5U:wa [S5eURS:wa*US :Xa$U RSUR-:XdeU S n URU 5 M UR 5n XJ:wa [S5e[U5S :XaUS $[U5$)a Reads a record of a given type from the file. Parameters ---------- *dtypes : dtypes, optional Data type(s) specifying the size and endianness of the data. Returns ------- data : ndarray A 1-D array object. Raises ------ FortranEOFError To signal that no further records are available FortranFormattingError To signal that the end of the file was encountered part-way through a record Notes ----- If the record contains a multidimensional array, you can specify the size in the dtype. For example:: INTEGER var(5,4) can be read with:: read_record('(4,5)i4').T Note that this function does **not** assume the file data is in Fortran column major order, so you need to (i) swap the order of dimensions when reading and (ii) transpose the resulting array. Alternatively, you can read the data as a 1-D array and handle the ordering yourself. For example:: read_record('i4').reshape(5, 4, order='F') For records that contain several variables or mixed types (as opposed to single scalar or array types), give them as separate arguments:: double precision :: a integer :: b write(1) a, b record = f.read_record('.s;F5rxxFrDc38# UHoRv M g7fr=)r3rSs rrBrTs? ?__D_1 ;F;; >zl;..8\=> > v;!  8zl;//9l:PRS SE DHHEDA1v#,;=={{b ?77dU[[&8888!A KKNoo'  $@A A v;! 7N; rc$URU5$)a9 Reads a record of a given type from the file, defaulting to an integer type (``INTEGER*4`` in Fortran). Parameters ---------- dtype : dtype, optional Data type specifying the size and endianness of the data. Returns ------- data : ndarray A 1-D array object. See Also -------- read_reals read_record rdr*r!s r read_intsFortranFile.read_ints'*&&rc$URU5$)a= Reads a record of a given type from the file, defaulting to a floating point number (``real*8`` in Fortran). Parameters ---------- dtype : dtype, optional Data type specifying the size and endianness of the data. Returns ------- data : ndarray A 1-D array object. See Also -------- read_ints read_record rgrhs r read_realsFortranFile.read_reals>rkrc8URR5 g)z Closes the file. It is unsupported to call any other methods off this object after closing it. Note that this class supports the 'with' statement in modern versions of Python, to call this automatically N)r'closer*s rrpFortranFile.closeUs rcU$r=rrqs r __enter__FortranFile.__enter__^s rc$UR5 gr=)rp)r*typevaluetbs r__exit__FortranFile.__exit__as  r)r'r)N)F)i4)f8)r r r r rr uint32r.r9rOrdrirmrprtrzrrrrrr!sEJV'* *$KB{z'.'.rr) rr#numpyr __all__ TypeErrorOSErrorrrrrrrrs?  F i  Y AAr