用变量值初始化常量

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了用变量值初始化常量相关的知识,希望对你有一定的参考价值。

program main
   real, parameter :: a = 1 
   !real :: a
   !a=1

   res = func(a)
   write(*,*) res

end program main

function func(a)
   real, parameter :: b=a+1  !(*)
   func = b
   return
end function func

我的编译器在标记为(*)的行处抱怨。有没有办法用一个超出该函数的值来设置常量的值?

答案

您不能将“b”声明为参数,因为它的值在编译时不是常量,因为它取决于函数参数。

使用“隐式无”是个好主意,因此您一定要声明所有变量。还要将您的过程放入模块并“使用”该模块,以便调用者知道该接口。如:

module my_funcs
implicit none
contains

function func(a)
   real :: func
   real, intent (in) :: a
   real :: b
   b = a + 1
   func = b
   return
end function func

end module my_funcs

program main
   use my_funcs
   implicit none
   real, parameter :: a = 1
   real :: res

   res = func(a)
   write(*,*) res

end program main
另一答案

@M。如果您可以接受运行时初始化,那么S. B.的答案很好。如果你确实想要一个在编译时设置的Fortran parameter,那么你可以这样做:

program main
  implicit none
  real, parameter :: a = 1.0
  real :: res

  res = func()
  write(*,*) res

contains
  function func()
    real, parameter :: b = a + 1.0
    real :: func
    func = b
  end function func
end program main

我怀疑部分混乱是由于语言的差异。通常,“参数”用于表示函数的参数,但在Fortran中,它从未以这种方式使用。相反,它意味着类似于C / C ++中的const。所以,从你的问题我不清楚你是否真的想要一个Fortran parameter

在我上面的例子中,参数afunc中通过主机关联已知,它是嵌套范围的Fortran术语。您也可以使用模块,通过使用关联来完成它,但它有点冗长:

module mypars
  implicit none
  real, parameter :: a = 1.0
end module mypars

module myfuncs
  implicit none
contains
  function func()
    use mypars, only: a
    real, parameter :: b = a + 1.0
    real :: func
    func = b
  end function func
end module myfuncs

program main
  use myfuncs, only: func
  implicit none
  real :: res
  res = func()
  print *, res
end program main

以上是关于用变量值初始化常量的主要内容,如果未能解决你的问题,请参考以下文章

变量 及其命名和使用规范

数据类型

Java基础-变量常量

从活动中更改片段的变量值

计算机编程以及基础原理

创建宏变量方法