flush_new.f

一个有用的分子动力学小辅助程序

	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