CALL文 |
CALL サブルーチンの名前(x1,x2,x3,…) |
CALL name[([arg1[,arg2],…])] |
name | サブルーチン副プログラムまたは入口点の名前である。 |
arg | サブルーチン副プログラムに渡される実引数である。 引数は、変数名、配列要素名、定数、算術式などである。 |
[例] |
PROGRAM main INTEGER,DIMENSION(10) :: a=(/3,6,7,6,5,8,9,1,0,4/) INTEGER :: sum INTEGER :: n=10 EXTERNAL sumn !外部サブルーチンの定義 CALL sumn(a,n,sum) !サブルーチンの呼出し WRITE(*,*) sum END PROGRAM main SUBROUTINE sumn(x,k,wa) INTEGER,DIMENSION(n),INTENT(IN) :: x INTEGER,INTENT(IN) :: k INTEGER,INTENT(OUT) :: wa wa=0 DO i=1,k wa=wa+x(i) END DO END SUBROUTINE suma