Fortran 的計時程式

cpp 代码

! main()
implicit none

real t1, t2
integer*4 no, sum, i

pause
t1= secnds(0.0)

pause
t2= secnds(t1)
print *, 't1= ', t1, ', t2= ', t2
pause

no= 10
do while (no .GT. 0)
   t1= secnds(0.0)

       sum= 0
       do i=1, no
          sum= sum + i
       end do
   t2= secnds(t1)

   if (t2 .GT. 0.0) then
      print *, '*** no= ', no, ', sum= ', sum, ', t2= ', t2
   else
      print *, '    no= ', no, ', sum= ', sum, ', t2= ', t2
   end if

   no= no + no
end do

end !of main()
! -----------------------------------------------

分享到：

Fortran 90 教學大綱 | Fortran 所提供的 迴圈結構

• 2007-01-31 12:53
• 浏览 2480
• 评论(0)
• 查看更多