fortran 转置问题 为什么要b(i,j)=a(i,j)

来源：百度知道 编辑：UC知道 时间：2024/04/29 21:02:56
program zhuanzhi
real,dimension(4,4)::a,b
read(*,*)((a(i,j),j=1,4),i=1,4)
10 format(1x,4f6.2)
do i=1,4
do j=1,4
b(i,j)=a(i,j)
enddo
enddo
write(*,10)b
end

其实是没必要的
实际上在读入数据时，我们输入的每一行数据是存储在a的每一列里，就是说你直接输出a，也是你所输入矩阵的转置了。你若改为这样，可能就是这个题目的真正意义了。
program zhuanzhi
real,dimension(4,4)::a,b
read(*,*)((a(i,j),i=1,4),j=1,4)
10 format(1x,4f6.2)
do i=1,4
do j=1,4
b(j,i)=a(i,j)
enddo
enddo
write(*,10)a,b
end

4399