cpu_risc.f

来自「分子动力学模拟程序」· F 代码 · 共 9 行

	real*8 function cputime( t )
	real*8 t, r
	real*4 et(2)
	r = etime_(et) - t
	cputime = r
	end