FIO_FNAME - Get the full file name of a file

Description:

Get the full name of the file with the specified file descriptor.

Invocation:

CALL FIO_FNAME( FD, FNAME, STATUS )

Arguments:

FD = INTEGER (Given)

The file descriptor.

FNAME = CHARACTER $*$ ( $*$ ) (Returned)

Variable to contain the full file name of the file.

STATUS = INTEGER (Given and Returned)

The global status.