为 Fortran 模块内的整数数组赋值

Question

我有一个 Fortran 模块，名为 QFoo。它定义了一个类型QFooType。

我想将整数数组“is_n”的所有元素初始化为 0，并希望在模块内执行此操作。有人可以帮忙吗？谢谢你！

  module QFoo
      type QFooType              
          integer::i              
          integer, dimension(50) :: is_n                         
      end type QFooType

     !-----------
     ! I know the following code is wrong
     ! but I want to initialize all the is_n elements to 0
     !-----------
     ! do i = 1, 50
     !    is_n(i) = 0
     ! enddo
     !-----------
  end module QFoo

Answer 1

integer, dimension(50) :: is_n = 0

适用于最新版本的英特尔 Fortran 编译器。我对 Fortran 95 标准的阅读表明这是标准行为。