Procedure

     DELFIL ( Delete a file  )

     SUBROUTINE DELFIL ( FILNAM )

Abstract

     Delete a file.

Required_Reading

     None.

Keywords

     UTILITY

Declarations

     CHARACTER*(*)         FILNAM

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     FILNAM     I   The name of a file to be deleted.

Detailed_Input

     FILNAM   is the name of a file that is to be deleted. Upon
              successful completion of this routine this file will
              no longer exist. The file to be deleted must be closed
              when this routine is called.

Detailed_Output

     None.

Parameters

     None.

Exceptions

     1)  If the file name is blank, the error SPICE(BLANKFILENAME)
         is signaled.

     2)  If the inquire on the filename specified by FILNAM fails for
         some reason, the error SPICE(INQUIREERROR) is signaled.

     3)  If the file specified by FILNAM is already open, the error
         SPICE(FILECURRENTLYOPEN) is signaled.

     4)  If the file specified by FILNAM does not exist, the error
         SPICE(NOSUCHFILE) is signaled.

     5)  If the attempt to open the file specified by FILNAM fails,
         the error SPICE(FILEOPENFAILED) is signaled.

     6)  If the attempt to close the file with STATUS='DELETE' fails,
         the error SPICE(FILEDELETEFAILED) is signaled.

Files

     The  file specified by FILNAM is opened and then closed by this
     routine with STATUS = 'DELETE' to delete it. The file must be
     closed for this routine to delete it.

Particulars

     This subroutine is a support utility that deletes a file.

Examples

     Suppose you wish to delete a file named 'delete.me' in the
     current directory. The code fragment below would accomplish this.

        FILE = 'delete.me'
        CALL DELFIL ( FILE )

Restrictions

     1)  The file to be deleted must be closed when this routine is
         invoked.

Literature_References

     None.

Author_and_Institution

     J. Diaz del Rio    (ODC Space)
     K.R. Gehringer     (JPL)

Version

    SPICELIB Version 1.0.1, 02-JUN-2021 (JDR)

        Edited the header to comply with NAIF standard.

    SPICELIB Version 1.0.0, 20-DEC-1995 (KRG)