
This function writes records to a file in a manner similar to that written by Fortran code that opens a file with "access=direct".
procedure fbindirwrite( path [1] : string, value )
ntimes = 100
z = new ( (/ntimes,64,128/), float)
.
path = "/dummy/file"
do n=0,ntimes-1
fbindirwrite(path,z(nt,:,:) )
end do
This will write ntimes records, each of length 64x128 float
words.
NG4.1 Home, Index, Examples, Glossary, Feedback, Ref Contents, Ref WhereAmI?