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 doThis will write ntimes records, each of length 64x128 float words.
NG4.1 Home, Index, Examples, Glossary, Feedback, Ref Contents, Ref WhereAmI?