USE文 |
USE モジュールの名前 [,変数名 => 変数名] USE モジュールの名前 [,ONLY : 変数名] |
[例] |
MODULE data !モジュールの定義 INTEGER,DIMENSION(5,3) :: a !共通使用の変数 REAL :: b=12.3 !共通使用の変数 INTEGER :: c=123 !共通使用の変数 END MODULE data PROGRAM main !主プログラム USE data a=10 WRITE(*,*) b,c CALL sub CONTAINS SUBROUTINE sub !サブルーチン USE data,ONLY : a,b !変数a,bを参照する WRITE(*,*) a,b END SUBROUTINE sub END PROGRAM main