1      subroutine util_flush(unit)
2C$Id$
3      implicit none
4#include "stdio.fh"
5      integer unit
6#ifdef CRAY
7      integer*4 iunit4
8#endif
9c
10c     Flush buffered output for the fortran unit
11c
12#if defined(SUN) || defined(SOLARIS) || \
13    defined(IBM)||defined(LINUX)||defined(MACX)
14      call flush(unit)
15#endif
16#ifdef CRAY
17      iunit4=unit
18      call flush(iunit4)
19#endif
20#if defined(PSCALE)
21      call util_cflush()
22#endif
23#if defined(SGI)
24      if (unit.eq.luout) then
25        call sgi_flush6()
26      else
27        call flush(unit)
28      endif
29#endif
30#if defined(GFORTRAN)
31      call flush(unit)
32#endif
33      call util_cflush()
34c
35      end
36