10/05/23 19:59:51
前半は納得した．
後半「読み込んだデータを延々と配列にため込んでいるので、」というのは違うと思う．
どちらも0:MPの配列を使い回してる．
>>107の抜粋
READ(10,*) X(0),Y(0)
do N=1,NW,MP
DO I=1,MP
READ(10,*,err=99) X(I),Y(I)
end do
CALL SUB1(X,Y,G,H,N,MP)
．．．（略）．．．
X(0) = X(MP)
Y(0) = Y(MP)
end do
>>132の抜粋
READ(10,*) X(0),Y(0)
DO N = 1, 999999
DO I = 1,MP
READ(10,*,err=99) X(I),Y(I)
END DO
CALL SUB1(X,Y,G,H,MP)
．．．（略）．．．
X(0) = X(MP)
Y(0) = Y(MP)
END DO
どちらにしてもサブルーチンの中身が分からないと，X,Yの配列を使い回すのが正しいのかすら推測の域を出ないな．
質問者のレベルから考えると，引数の意味を把握しているか自体が心配．
（このスレ，勉強になるなぁ）