Question

我正在使用FORTRAN 95.在代码中我需要通过向它们添加内容来更新许多变量。例如，如果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 )
! ...

Answer 2

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

好吧，如果这是你唯一的问题，那么最简单，最干净的解决方案是使用associate构造（我一直用它来实现这个目的）：

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

    ! some calculations here

    x = x + 1

    ! some calculations here again

end associate

通过在fortran中添加来更新变量

2 个答案: