flush_new.f

来自「一个有用的分子动力学小辅助程序」· F 代码 · 共 10 行

	subroutine flush (un)
*		empties buffers for file unit 'un'.
*		version for AIX xlf v2r3 or higher (just a layer
*		to avoid putting the underscore present in the
*		system call).
	implicit none
	integer un
	call flush_(un)
	end