c**********************************************************************
c     subroutine sbout
c**********************************************************************
      subroutine sbout
     i (awzzo, wzzo, awu,  wus, wust, wusp, kbr,
     i  o_unit)
c
c     + + + PURPOSE + + +
c     To print to file tst.out some key variables used in erosion
c
c     + + + ARGUEMENT DECLARATIONS + + +
      real awzzo, wzzo, awu, wus, wust, wusp
      integer kbr, o_unit
c
c     + + + ARGUMENT DEFINITIONS + + +
c     awzzo =
c     wzz0  =
c     awu   =
c     wus   =
c     wust  =
c     o_unit= Unit number for output file
c
c     + + + LOCAL VARIABLES + + +

      integer outflag
      save outflag

c     outflag = 0 - print heading output, 1 - no more heading

c     + + + END SPECIFICATIONS + + +
c
c     output headings?
      if (outflag .eq. 0) then
        write (o_unit,*)
        write (o_unit,*) 'OUT PUT from sbout'
        write (o_unit,10)
        write (o_unit, 15)
        write (o_unit,*)
c     turn off heading output
        outflag = 1
      endif

      write (o_unit,20) awzzo, wzzo,  awu, wus, wust, wusp, kbr
c
c     output formats
   10 format (1x, 'awzzo  wzzo   awu   wus   wust   wusp   kbr')
   15 format (1x, ' (m)   (mm)  ---------(m/s)---------')
   20 format (1x, 6f6.2, i6)
c
      return
      end
c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++