!   ===================================================================
      SubRoutine DFits (Nom)
!    ===================================================================

!     Effacement du fichier FITS Nom s'il est present.
!    ===================================================================

      character &
       &       Nom*40,&
       &       Label*20                  ! commentaire associe aux erreurs

      integer*4 &
     &       LuTest,ReadWrite,iBlockSize,iStatus

      iStatus = 0
      call ftGIOU (LuTest,iStatus)
      call PrintError(iStatus)

      ReadWrite  = 1                      ! read/write access
   !Label   = 'Open FITS'
      iStatus = 0
      call ftOpen (LuTest,Nom,ReadWrite,iBlockSize,iStatus)
      if ( iStatus.eq.0 ) then         ! le fichier est present
  ! Label = 'Delete FITS'
          call ftDelT (LuTest,iStatus)
          call PrintError(iStatus)
      else                             ! le fichier est absent
          iStatus = 0                  ! pour les routines suivantes
      endif

 ! Label   = 'Free I/O Unit'
      iStatus = 0
      call ftFIOU(LuTest,iStatus)
      call PrintError(iStatus)

      RETURN
      end