fortran - 通过加法更新 Fortran 变量

Question

在我的 Fortran 代码中，我需要通过向它们添加一些东西来更新许多变量。例如，如果 x 是我的变量，我可能需要执行以下操作:

x = x + 1

问题是我的变量是数组元素并且具有大名称等，因此在上述等式中重复 x 是一项繁琐的任务。例如，在 Python 中，我们有 += 运算符来实现这一点。我们在 Fortran 中有类似的东西吗？

Answer 1

不，Fortran 没有这个运算符。但是，您可以实现一个子程序来这样做:

elemental subroutine my_incr( var, incr )
  implicit none
  integer,intent(inout) :: var
  integer,intent(in)    :: incr

  var = var + incr
end subroutine

然后你可以在你的代码中调用它:

! ...
call my_incr( x, 1 )
! ...

由于子程序的 elemental 性质，您还可以对数组执行此操作:

! ...
call my_incr( array(:), 1 )
! ...