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

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

UNIT = INTEGER (Given)

FNAME = CHARACTER $\ast$ ( $\ast$ ) (Given)

IOSTAT = INTEGER (Given)

MESS = CHARACTER $\ast$ ( $\ast$ ) (Given)

STATUS = INTEGER (Given and Returned)

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.

• This routine sets the message tokens UNIT, FNAME and IOSTAT. They can be given in the text of the error message.

• FNAME can be a general character string, a hyphen or blank. If FNAME is a general character string, it is used as the name of the file when reporting the error message. If FNAME is blank, then this routine uses INQUIRE to find the name of the file. If FNAME is a hyphen, then this routine does not set the token FNAME. It should be set before calling this routine if a sensible error message is to be produced.