Question

我想知道我是否必须为Fortran 90中的函数提供参数？我是否可以拥有一个不带参数的函数，例如在Java中，例如例如get()？

Answer 1

是的，这是可能的。不带参数的函数简单地声明没有参数，例如

integer function get_a_number()
   implicit none
   get_a_number = 42
end function get_a_number

不带参数，只返回默认整数类型的值42。

您还可以使用可选参数，例如

function hello_string(name)
  implicit none
  character(len=150) :: hello_string
  character(len=*), optional :: name

  if (present(name)) then
     hello_string = "Hello "//trim(name)//"!"
  else
     hello_String = "Hello!"
  end if
end function

此函数将返回“Hello！”如果没有参数调用，并且“Hello name ！”如果提供参数。此函数可以使用1或0个参数。请注意，此类函数需要显式接口才能正常工作。

Fortran 90函数没有参数？

1 个答案: