Fortran 函數(shù)副程序

函數(shù)副程序，這個稱呼不一定十分準確，實際上就是其他編程語言中常用的函數(shù)。在某種程度上，函數(shù)只是子程序的替代，但是對于 Fortran 來說，函數(shù)必須將函數(shù)名作為變量進行聲明，并將計算的結(jié)果賦給這個函數(shù)名同名變量。一個完整的例子如下示例 8 所示。

函數(shù)副程序只能返回一個結(jié)果，而子程序可以返回多個結(jié)果。所以如果只是用來計算某個公式或者求解某個結(jié)果，可以優(yōu)先采用函數(shù)副程序。如果需要同時返回多個變量，則優(yōu)先采用子程序。

!!! 示例 8
function square(x)
    implicit none
    real square, x         ! 聲明函數(shù)名同名變量
    square = x*x           ! 將計算結(jié)果賦給函數(shù)名同名變量
end function square

program ftest1
    implicit none
    real x, y, square      ! 聲明使用的函數(shù)名同名變量
    x = 4.0
    y = 3.0*square(x+1.0) + 50.5
    print *, x, y
end program ftest1

!!! 執(zhí)行結(jié)果
>>>   4.00000000       125.500000

Fortran 中的函數(shù)使用需要嚴格遵守函數(shù)名同名變量在主程序和函數(shù)中的相同類型聲明，否則就無法通過編譯。