FIO_REP

Report error from FORTRAN I/O statements

Description:

Translate the value of IOSTAT to an FIO error code and report the corresponding error message.

Invocation

CALL FIO_REP( UNIT, FNAME, IOSTAT, MESS, STATUS )

Arguments

UNIT = INTEGER (Given)
The Fortran I/O unit number.
FNAME = CHARACTER ( ) (Given)
The name of the data file.
IOSTAT = INTEGER (Given)
The value of IOSTAT from a Fortran I/O statement.
MESS = CHARACTER ( ) (Given)
An error message to be output.
STATUS = INTEGER (Given and Returned)
The global status.

Examples:

CALL FIO_REP( UNIT, ’ ’, IOSTAT, ’ ’, STATUS )
This will inquire the name of the file that is connected to UNIT and report an error message containing the unit number file name and which error occurred.
CALL FIO_REP( UNIT, ’ ’, IOSTAT, ’Failed to open ^FNAME’, STATUS )
This example provides an explicit error message containing the token FNAME.

Notes: