      subroutine xuflow (i)
      implicit real*8 (a-h,o-z)
      save
      return
      end
