etime.f
1  subroutine etime(tarray, result)
2 
3  real tarray(2)
4  real result
5 
6  end subroutine etime
7