| USE文 |
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