fortran中CPU_TIME计时程序

bfjc

      

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

查看代码

打印?

01	program main

02	implicit none

03	real(kind=4)::t1_real, t2_real

04	integer i, j ,k

05

06	call CPU_TIME(t1_real)

07

08

09	do i = 1,10000

10	do j = 1,10000

11

k = j

12

end do

13

end do

14

15

16	call CPU_TIME(t2_real)

17

18	write(*,*) "count1",t1_real

19	write(*,*) "count2",t2_real

20	write(*,*) "时间",t2_real - t1_real

21

22	end program

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

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

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

查看代码

打印?

01	subroutine umat(stress,statev,ddsdde,sse,spd,scd,......)

02

...

03

...

04

...

05

...

06	real(kind=4) :: t1_real, t2_real

07	integer  i,j,k

08

...

09

...

10

...

11

...

12	call CPU_TIME(t1_real)

13	do i = 1,10000

14	do j = 1,10000

15

k = j

16

end do

17

end do

18	call CPU_TIME(t2_real)

19	write(*,*) "count1",t1_real                               ！默认输出在log文件里

20	write(*,*) "count2",t2_real                               ！默认输出在log文件里

21	write(*,*) "时间",t2_real - t1_real                     ！默认输出在log文件里

22

...

23

...

24

...

25

...

26

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

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

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