1      subroutine ffflush(unit)
2C$Id$
3      integer unit              ! [input]
4c
5c     Flush outputto this fortran unit
6c
7      call util_flush(unit)
8c
9      end
10