program test4 implicit none ! Variables real, allocatable :: x(:, :) ! Body of test4 allocate( x(100, 100) ) x = 1.0 call desub(x) print *, allocated(x) call alsub(x) print *, allocated(x) print *, x stop contains subroutine desub(x) real,…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。