zio_uf_close

INTERFACE:

         integer function zio_uf_close(filedesc,status)

DESCRIPTION:

Close a file

REVISION HISTORY:

       2003-Jan-31 -- first prototype
       2003-Aug-16 -- support single task mode: ZIO_SPMD undefined

USES:

         implicit none

INPUT PARAMETERS:

         integer, intent(in):: filedesc                    ! file desc index
         character(len=*), optional, intent(in):: status   ! keep or delete

\