cpu_cray.f

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

       real function cputime( t )
       external getcpu
	call getcpu(t0)
        write(*,*)t0
        cputime=t0-t
        end