Question

Fortran 编小程序

一直用matlab，现在要换fortran，在定义矩阵上有问题，提前谢了!

(1) 怎么定义一个3*3的全零矩阵

(2) 假如要定义一个3*3的矩阵，第一行为1 ，2， 3 ，第二行：4，5，6，第三行：7，8，9
program main
implict none
integer a(3,3) !
integer row
integer col

do row = 1,3
do col = 1,3

接下来不会写 write

??????????????

end do

end do

end

Answer 1

program main
implicit none
integer a(3,3) !// 是的，就是这样
integer row
integer col
do row = 1,3
do col = 1,3
a( col , row ) = row * 3 - 3 + col
end do
end do
write(*,*) a
end

Answer 2

1)write (*, 100) ( ( a(i , j) ,j=1,3) i=1,3)
100 format (1x 3I4)
2) do row = 1,3
do col = 1,3
write (*,'1xI4') a(row,col)
end do

end do