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编写的简单程序,该程序通过调用SECNDS函数来测量代码执行的时间,并实现了一个求和功能。程序首先记录起始时间,在执行一系列整数求和操作之后再次记录时间,最后输出每次求和所花费的时间。
1030

被折叠的 条评论
为什么被折叠?



