integer*4 lunit external flush call flush ( lunit )
The flush subroutine causes the contents of the buffer for logical unit lunit to be written to the associated file. This is useful for logical units 0 and 6 when they are both associated with the control terminal.
fclose(3), fsync(3)