e = dtime( tarray )

tarray

real(2)

输出 

e= -1.0：错误：tarray 值未定义

e≠ -1.0：没有错误，tarray(1) 中存储的是用户时间，tarray(2) 中存储的是系统时间

返回值 

real

输出 

e= -1.0：错误

e≠ -1.0：tarray(1) 与 tarray(2) 之和

demo% cat tdtime.f
       real e, dtime, t(2)
       print *, ’elapsed:’, e, ’, user:’, t(1), ’, sys:’, t(2)
       do i = 1, 10000
        k=k+1
       end do
       e = dtime( t )
       print *, ’elapsed:’, e, ’, user:’, t(1), ’, sys:’, t(2)
       end
demo% f95 tdtime.f
demo% a.out
elapsed: 0.0E+0 , user: 0.0E+0 , sys: 0.0E+0
 elapsed: 0.03 , user: 0.01 , sys: 0.02
demo%