fortran - Fortran中BLOCK的意义是什么？

Question

我正在看一些代码，这是:

BLOCK

...lines of code...

END BLOCK

BLOCK的作用是什么？我试图用Google搜索它，但发现的只是关于BLOCK DATA和COMMON块的信息。我不确定它们是否相关。

Answer 1

根据Fortran 2008标准:

The BLOCK construct is an executable construct that may contain declarations.

它与通用块或块数据程序单元无关。

因此，主要用途是此“包含声明”。

作为作用域单位，我们有类似

integer i
block
  integer j ! A local integer
  integer i ! Another i
  save i    ! ... which can even be SAVEd
end block

提供声明的局部性:

! ... lots of code
block
  integer something
  read *, something
end block
! ... lots more code

这些作用域块允许automatic objects:

integer i
i = 5
block
  real x(i)
end block

作为可执行结构，它们还具有有用的flow control:

this_block: block
  if (something) exit this_block
  ! ... lots of code
end block

他们还具有最终控制权:

type(t) x
block
  type(t) y
end block ! y is finalized
end  ! x is not finalized

用于终结类型的x和y。

哦，别忘了如何将人们与隐式输入混淆。