FIO_ASSOC - Create/open a sequential file associated with a parameter

Description:

Open the sequential file specified by parameter PNAME and return a file descriptor for it.

Invocation:

CALL FIO_ASSOC( PNAME, ACMODE, FORM, RECSZ, FD, STATUS )

Arguments:

PNAME = CHARACTER $*$ ( $*$ ) (Given)

Expression giving the name of a file parameter.

ACMODE = CHARACTER $*$ ( $*$ ) (Given)

Expression giving the required access mode. Valid modes are:
'READ' - Open the file READONLY. The file must exist.
'WRITE' - Create a new file and open it to write.
'UPDATE' - Open a file to write. The file must exist.
'APPEND' - Open a file to append. The file need not exist.

FORM = CHARACTER $*$ ( $*$ ) (Given)

Expression giving the required formatting of the file. Valid formats are:
'FORTRAN' - Formatted file, normal Fortran interpretation of the first character of each record.
'LIST' - Formatted file, single spacing between records.
'NONE' - Formatted file, no implied carriage control.
'UNFORMATTED' - Unformatted, no implied carriage control.

RECSZ = INTEGER (Given)

Expression giving the maximum record size in bytes. Set it to zero if the Fortran default is required.

FD = INTEGER (Returned)

Variable to contain the file descriptor.

STATUS = INTEGER (Given and Returned)

The global status.

External Routines Used

CHR: CHR_SIMLR