サブルーチン内で配列の長さを指定しない場合には形状引継配列を用いる。
ここからコピペさせていただきました。
subroutine mysub(a,b) integer a(:), b(:,:) ! このようにコロンを記述する事で形状引継ぎとなる print *, a ! 配列の形状が配列と共に渡ってきているのでこのような記述もOK print *, b(1,:) ! 部分配列もOK print *, "aの各次元の大きさ =", shape(a) ! 配列の形状がちゃんと取得できる print *, "bの各次元の大きさ =", shape(b) ! 配列の形状がちゃんと取得できる end subroutine