# remove - remove file name
include ratdef
   subroutine remove(name)
   character name(MAXNAME)
   
   character pname(MAXNAME)
   integer pack, ier
   
   ier = pack (name, pname, MAXNAME)
   call DFILW (pname, ier)
   
   return
   end