fortran中CPU_TIME计时程序

bfjc · 发表于 2023-9-19 12:21:24

[Fortran] 纯文本查看 复制代码

program main
      implicit none
      real(kind=4)::t1_real, t2_real
      integer i, j ,k

      call CPU_TIME(t1_real)


      do i = 1,10000
          do j = 1,10000
              k = j
          end do
      end do


      call CPU_TIME(t2_real)

      write(*,*) "count1",t1_real
      write(*,*) "count2",t2_real
      write(*,*) "时间",t2_real - t1_real

      end program

以上程序的输出结果为： count1  0.0000000E+00
                                 count2  3.1250000E-02
                                 时间  3.1250000E-02

当我把以上程序写入abaqus子程序中：

[Fortran] 纯文本查看 复制代码

subroutine umat(stress,statev,ddsdde,sse,spd,scd,......)
...
...
...
...
real(kind=4) :: t1_real, t2_real
integer  i,j,k
...
...
...
...
      call CPU_TIME(t1_real)
      do i = 1,10000
          do j = 1,10000
              k = j
          end do
      end do
      call CPU_TIME(t2_real)
      write(*,*) "count1",t1_real                               ！默认输出在log文件里
      write(*,*) "count2",t2_real                               ！默认输出在log文件里
      write(*,*) "时间",t2_real - t1_real                     ！默认输出在log文件里
...
...
...
...
end

在log文件中查看输出结果：
count1 6.250000
count2 6.250000
时间  0.0000000E+00
count1 6.250000
count2 6.250000
时间  0.0000000E+00
....
....
...

所有的 count1和count2都相等，时间为0.  是由于某些原因CPU_TIME函数在abaqus子程序中失效了吗？

fcode · 发表于 2023-9-19 14:08:33

可能你的umat是用release编译的，开了优化。而主程序代码是debug编译的，没有开优化。

一旦你开启了优化，你的代码
   do i = 1,10000
      do j = 1,10000
            k = j
      end do
   end do
就可能自动被优化为 k=10000 这句代码。

[求助] fortran中CPU_TIME计时程序

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章