cpu_linux.f

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

       real*8 function cputime( t )
        real*8 t 
        real*4 t0,r
        t0=t
        call getcpu( t0, r )
	cputime = r
        end