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