- 395 名前：デフォルトの名無しさん mailto:sage [2006/06/06(火) 00:14:17 ]
- >>394
real A(2,3)
data A/1.,2., 3.,4., 5., 6./
do i = 1, 2
write(*,*) (A(i,j), j=1,3)
end do
end
とか
program hoge
implicit none
real :: A(2,3) = reshape((/1.,2., 3.,4., 5.,6./), (/2,3/))
integer :: i
do i = 1, 2
print *, A(i,:)
end do
end program hoge
とか
関係ないがFortran 2003では (/.../) のかわりに [...] と書けるので
可読性が少し良くなる（のかな？）
