如果可选参数不是PRESENT，我们可以避免创建局部变量吗？ [英] Can we avoid creating a local variable if an optional argument is not PRESENT?

问题描述

我在使用Fortran 95的 PRESENT 语句时遇到问题。目前，我正在使用Silverfrost的柏拉图和他们的FTN95编译器（以Release Win32模式）。我想要做的是创建一个子程序 SUB（a，b），其中 b 是一个可选变量。到目前为止这么好，但是当我尝试给 b 加上 if（.NOT。present（b））b = 0 。这是代码：

  module MOD 
包含
子例程SUB（a，b）
隐式无
整型:: a 
整型，可选:: b 
 if（.NOT。present（b））b = 0 
 print *，a，b 
结束子程序SUB 
结束模块MOD 
 
程序TEST 
使用MOD 
隐含无
 
整数:: i = 2，j = 1 
 
调用SUB（i，j）
调用SUB（i）
调用SUB（j）
 
结束程序TEST 
  

有没有这种情况的优雅方式，还是我真的需要创建另一个变量 b_aux 例如，然后使用下面的代码？：

  if（present（b） ）然后
 b_aux = b 
 else 
 b_aux = 0 
 endif 
  

I am having a problem with the PRESENT statement with Fortran 95. Currently I am using Silverfrost's Plato and their FTN95 compiler (in "Release Win32" mode). What I wanted to do is to create a subroutine SUB(a,b), where b is an optional variable. So far so good, but the problem arises when I try to give a new value to b with if (.NOT. present(b)) b=0. This is the code:

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

Is there an elegant way out of this situation, or do I really need to create another variable, b_aux for instance, and then use the following code?:

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

解决方案

You can't use a non-existent variable, so an approach such as the auxiliary local variable is needed.

这篇关于如果可选参数不是PRESENT，我们可以避免创建局部变量吗？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！