如果可选参数不存在，我们可以避免创建局部变量吗？

Question

我在使用 Fortran 95 的 PRESENT 语句时遇到问题。目前我正在使用 Silverfrost 的 Plato 及其 FTN95 编译器（在“发布 Win32”模式下）。我想做的是创建一个子程序SUB(a,b)，其中b 是一个可选变量。到目前为止一切顺利，但是当我尝试使用if (.NOT. present(b)) b=0 为b 赋予新值时，问题就出现了。这是代码：

module MOD
contains
  subroutine SUB(a,b)
  implicit none
  integer :: a
  integer,optional :: b
  if (.NOT. present(b)) b=0
  print*, a,b
  end subroutine SUB
end module MOD

program TEST
use MOD
implicit none

integer :: i=2, j=1

call SUB(i,j)
call SUB(i)
call SUB(j)

end program TEST

有没有一种优雅的方法摆脱这种情况，或者我真的需要创建另一个变量，例如b_aux，然后使用以下代码？：

if (present(b)) then
  b_aux=b
  else
    b_aux=0
endif

Answer 1

不能使用不存在的变量，所以需要辅助局部变量等方法。