flush1.f

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

	subroutine flush (un)
*               empties buffers for file unit 'un'.
        implicit none
        integer un
	endfile(un)
	backspace(un)
	end