有限要素法・流体力学による数値計算

広告

common文

common文は、関数間で変数を共有する場合に使用します。

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

       input()

       output()

       stop

       end

       !入力用関数

       subroutine input()

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

         common /data1/i,j

         i=1

         j=2

         return

       end

       !出力用関数

       subroutine output()

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

         common /data1/i,j

         write(*,*)i,j

         return

       end

出力結果

1 2

prev

|

top

|

next