FIO_SERR - Set error status

Description:

Convert a Fortran IOSTAT error value into an FIO status value and report the error.

Invocation:

CALL FIO_SERR( IOSTAT, STATUS )

Arguments:

IOSTAT = INTEGER (Given)

Variable containing the Fortran error value.

STATUS = INTEGER (Given and Returned)

The global status. Set to contain the FIO status.