subroutine関数(fortran)

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

subroutine関数

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

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

i=1

j=2

       call add(i,j,k)

       write(*,*)k

       stop

end

       subroutine add(i,j,k)

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

       k=i+j

       return

end

出力結果