- 758 名前：747 mailto:sage [2007/07/27(金) 12:51:34 ]
- まだ混乱しているようだから、整理すると
SUBROUTINE A(X)
INTEGER X(10,5)
WRITE(*,*) X(7,3)
END SUBROUTINE
PROGRAM
INTEGER Y(5,10)
Y(2,6)=10
CALL A(Y)
STOP
END
とかやると
ちゃんと 10って表示されるってことでしょ。
Y(2,6) は前から27番目。 X(7,3)も27番目だから。
メインルーチンの中で Y(7,7) とかやるとコンパイル時にエラーが出ると思う、さすがに
FORTRAN77の頃は結構利用されていたような気がする。
普通は1次元配列で作って2次元で受け取るとかその逆だと思うけど。
