flush1.f

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

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