第17回 HPF合同検討会 議事録 |
元コード:
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)