subroutine flush(n)
      call flush_(n)
      return
      end