!c=========================================================================
      subroutine deletefile(filename,status)
!c-------------------------------------------------------------------------
!c     delete fits file
!c-------------------------------------------------------------------------
      implicit none
      integer status
      character*(*) filename

      integer access,i,unlink




      if(access(filename,'w').eq.0) then
         i=unlink(filename)
      endif

      return
      end