Fortran 计时

Posted on 2008-01-23 20:46 ZelluX 阅读(660) 评论(0) 编辑收藏

几天没贴技术贴了，不好
贴个简单的，热热身

program addvector

parameter n = 10000000

real :: a(n)

real :: b(n)

real :: result1(n)

call system_clock(time(0))

do i = 1, n, 1

result1(i) = a(i) + b(i)

end do

call system_clock(time(1))

write (*,*) 'Elapsed time: ', (time(1) - time(0))

end

Snowdream