通过加法更新Fortran变量

在我的Fortran代码中，我需要通过添加一些东西来更新许多变量。例如，如果

x

是我的变量，我可能需要执行以下操作：

x = x + 1

---

问题是我的变量是数组元素，并且有大的名称等等，所以在上面的等式中重复

x

是一项很麻烦的任务。例如，在Python中，我们使用

+=

操作符来实现这一点。我们在Fortran中有类似的东西吗？

没有，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 )
! ...

“问题是我的变量是数组元素，并且有大的名称等，所以在上面的等式中重复x是一项很麻烦的任务。”

好吧，如果这是您唯一的问题，那么最简单、最干净的解决方案就是使用

associate

构造（我一直都是为了这个目的使用它）：

---

FORTRAN没有这个有用的操作符有什么原因吗？就我个人而言，我会编写

调用我的增量（数组，1）

而不是

调用我的增量（数组（：），1）

，因为

数组（：）

从技术上讲是数组切片，FORTRAN可以将整个数组复制到切片，并将副本传递给子例程。如果整个数组未经许可而传递，则不太可能发生这种情况。原因之一是它不是运算符，或者在Fortran中不是运算符。Fortran的赋值（

=

）不是运算符。必须将

+=

定义为具有新规则的全新野兽。FWIW有解决这个问题的建议，但它们看起来不同，我看到的是在作业的左侧引入一个特殊符号，以便在右侧引用。@HighPerformanceMark我同意，这只是为了证明

arr

确实是一个数组；-）

ASSOCIATE( x => variable_with_really_long_name, &
           y => another_one)

    ! some calculations here

    x = x + 1

    ! some calculations here again

end associate