Fortran 90函數沒有參數？

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！」如果沒有參數調用，並且「你好名稱！」如果提供了一個參數。該函數可以帶1或0個參數。請注意，這種功能需要一個明確的界面才能正常工作。