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