function関数(fortran)

流体力学から数値計算まで

function関数

関数を宣言する命令文です。

       implicit double precision(a-h,o-z)

i=1

j=2

       k=add(i,j)

       write(*,*)k

       stop

end

       function add(i,j)

       implicit double precision(a-h,o-z)

       add=i+j

       return

end

出力結果