元コード: dimension w(3n) call sub(w(1),w(n+1),w(2*n+1)) : subroutine sub(a,b,c) dimension a(1),b(1),c(1) 修正コード: dimension w1(n),w2(n),w3(n) call sub(w1,w2,w3) : subroutine sub(a,b,c) dimension a(n),b(n),c(n)