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