| INTENT属性 |
INTENT属性
|
宣言文,INTENT(IN) :: 変数名,… 宣言文,INTENT(OUT) :: 変数名,… 宣言文,INTENT(INOUT) :: 変数名,… |
| [例] |
PROGRAM main !主プログラム
INTEGER :: a,b,c
EXTERNAL sub !外部サブルーチンの定義
CALL sub(a,b,c)
END PROGRAM main
SUBROUTINE sub(x,y,z) !外部サブルーチン
INTEGER,INTENT(IN) :: x !授受特性(入力)
INTEGER,INTENT(OUT) :: y !授受特性(出力)
INTEGER,INTENT(INOUT) :: z !授受特性(入出力)
x=10 !コンパイルエラー
z=20
END SUBROUTINE sub