cpu_linux.f

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

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