Types 当使用%运算符访问时，Fortran类型变量为零

我尝试使用%运算符访问数据类型的元素，但结果为零。下面是一些示例代码

行

print*，t%tsum

总是打印出零。但是，当我在子例程中打印tsum时，它应该是这样的

MODULE statistics

PUBLIC :: TimeMarker , start , finish , avgTime , begin , end_ , tsum ,  counts 

TYPE TimeMarker
  REAL*8 :: begin , end_ , tsum 
  INTEGER :: counts = 0
    CONTAINS
            PROCEDURE :: start => start_time
            PROCEDURE :: finish => finish_time
            PROCEDURE :: avgTime => averageTime
END TYPE TimeMarker


CONTAINS


        SUBROUTINE start_time(this)
        CLASS(timeMarker) , INTENT(INOUT) :: this
        CALL CPU_TIME(begin)
            END SUBROUTINE start_time      

            SUBROUTINE finish_time(this)
        CLASS(timeMarker) , INTENT(INOUT) :: this
        CALL CPU_TIME(end_)
        tsum = tsum + end_ - begin
        counts = counts + 1
            END SUBROUTINE finish_time          

            SUBROUTINE averageTime(this)
        CLASS(timeMarker) , INTENT(INOUT) :: this
        WRITE(*,*) "Average time : " , tsum/counts
            END SUBROUTINE averageTime   


END MODULE statistics



program test
  use statistics
  implicit none
  type(TimeMarker) :: t
  integer :: n , m
  real*8 :: a

  do m=1,50    
    call t%start
    do n=1,20000000
      a = sqrt(a)
    end do  

    print*, t%tsum

  end do
  call t%avgTime


end program test

---

在类型绑定过程中，传递对象的组件仍然使用语法

参数\u name%component\u name

引用。传递的对象没有隐式的“this”变量，这在其他语言中可能会找到。您使用了

this

作为传递参数的名称-因此，例如，必须将begin组件引用为

this%begin

，而不仅仅是

begin

在模块范围内，隐式类型有效-模块没有隐式NONE语句。因此，在类型绑定过程中操作的变量是隐式声明的模块变量，这意味着编译器不会报告错误

示例代码中还有其他逻辑错误，一旦组件引用被修复，就需要处理这些错误

---

（

%

不是Fortran中的运算符，它只是语法的一部分。）

Real*8不是Fortran的一部分，因此可能不可移植。我强烈建议您学习Fortran类机制以及如何使用它。例如，看或看一本好书，如Metcalf、Reid和CohenAlways使用隐式无。