RIO_CLOSE - Close a direct access file

Description:

Close the file with the specified file descriptor.

Invocation:

CALL RIO_CLOSE( FD, STATUS )

Arguments:

FD = INTEGER (Given)

A variable containing the file descriptor.

STATUS = INTEGER (Given and Returned)

The global status.

Notes:

If the STATUS variable is not SAI__OK on input, then the routine will still attempt to execute, but will return with STATUS set to the import value.