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

広告


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

出力結果

3


prev | top | next

カウンタ

(2011.3.15〜)