next up previous contents index
Next: Disk fileC Up: Usage of FZ Previous: Disk fileFortran

Disk file, Fortran direct-access

This mode works on all machines, except IBM VM.

Note that one may create a true exchange-format file with sequential WRITE on some machine, and read it with direct-access on this or another machine.

Input

Open the file and initialize FZ:

      OPEN (Lun, FILE='zname', STATUS='OLD', FORM='UNFORMATTED'
     +,          ACCESS='DIRECT', RECL=3600)

      CALL FZFILE (Lun, 900, 'D')

Key-word READONLY should be given on CONVEX, VAX, DECstation.

Output

Open the file and initialize FZ:

      OPEN (Lun, FILE='zname', STATUS='NEW', FORM='UNFORMATTED'
     +,          ACCESS='DIRECT', RECL=3600)

      CALL FZFILE (Lun, 900, 'DO')

On most machines the record-length is given in bytes.

On VAX and DECstation one must specify words: RECL=900


Janne Saarela
Mon May 15 08:34:47 METDST 1995