代码之家 › 专栏 › 技术社区 › lbjx

如何从子程序返回值

subroutine fortran90 return-value

lbjx · 技术社区 · 11 年前

我不想使用全球价值——这对一个大项目来说是危险的。代码是这样的

subroutine has_key(id)
  if (true) then 
     return 1
  else
     return 0
  end if
end subroutine

subroutine main
   if(has_key(id))
      write(*,*) 'it works!'
end subroutine

我怎么能用子程序做这样的事情。我想返回一个标志,但我可能会使用全局值。有人知道吗?

2 回复 | 直到 11 年前

High Performance Mark 11 年前

这样地

subroutine test(input, flag)
   integer, intent(in) :: input
   logical, intent(out) :: flag
   flag = input>=0
end subroutine

和

call test(3,myflag)

将myflag设置为 .true.

笔记

子程序通过其参数列表返回值;
使用 intent 子句,告诉编译器子程序可以对其参数做什么;
我的例子很简单,你可能会想根据自己的需要进行调整。

cup 11 年前

你也可以用函数来实现。假设偶数为真

logical function has_key(id)
   integer, intent(in):: id
   has_key = mod(id,2) .eq. 0
end function has_key

program main
   do ii = 1, 4
      if(has_key(ii))
         print *, ii, ' has key'
      else
         print *, ii, ' no key'
      end if
   end do
end program

推荐文章

p_agarwal · 如何解析传递给定义为在Perl中接受2个参数的子例程的一个参数

7 年前

elias soltanie · (/value/)是什么意思?值是子例程的输入参数

7 年前

twosheds · 在并行Fortran do循环中调用内部子例程时,子例程无法访问迭代变量的正确值

7 年前

tjwrona1992 · 从Perl中的子例程返回别名

9 年前

Hydraxia · 在Java中调用void子例程的变量

10 年前

Jpyo · 有人能向我解释一下代码的某个部分发生了什么吗?(MIPS/组件)

11 年前

user2050516 · Perl调用以“&”开头的子程序[重复]

11 年前

lbjx · 如何从子程序返回值

11 年前