SUBROUTINE REMOVE(NAME)
      INTEGER NAME(50)
      INTEGER PNAME(50)
      INTEGER PACK, IER
      IER = PACK (NAME, PNAME, 50)
      CALL DFILW (PNAME, IER)
      RETURN
      END