      subroutine xclose(iunit,status)
c
c  closes a post or xyz file
c
c  iunit:       fortran unit number
c  status:      'keep', or 'delete'
c
      character status*(*)
c
      close(iunit,status=status)
      return
      end
