doc-doxygen/html/flush_8_f90_source.html

00001 SUBROUTINE flush(iunit)
00002 #ifdef __NAGf95
00003   USE f90_unix_io, ONLY: nag_flush => flush
00004
00005   IMPLICIT NONE
00006
00007   INTEGER :: iunit
00008
00009   CALL nag_flush(iunit)
00010 #endif
00011 END SUBROUTINE flush