Writes binary records to a file in manner analogous to fortran's "access=direct".
procedure fbindirwrite ( path  : string, var : numeric )
Pathname to binary file.var
A numeric variable of any dimensionality.
fbindirwrite writes records to a file in a manner similar to that written by Fortran code that opens a file with 'form=unformatted, access=direct, recl= ...'. If the file already exists, the values to be written are appended to the file.
By default, the elements of var are written to the file using the machine's native binary format. To force the byte order to be written as big-endian or little-endian, see the "WriteByteOrder" option in the setfileoption procedure.
This function was updated in version 4.3.0 in order to allow writes of files bigger than 2 GB.
The following will write ntimes records, each of length 64x128 float words.
ntimes = 100 z = new ( (/ntimes,64,128/), float) . path = "/dummy/file" do nt=0,ntimes-1 fbindirwrite(path,z(nt,:,:) ) end doThe binary file will be the same as one opened via Fortran's open statement:
open(..., form="unformatted", access="direct", recl= ) ; recl is system dependent