矩阵输出格式

风平老涡

Fortran中矩阵是用二维数组来表达的。

[Fortran] 纯文本查看 复制代码

program matrix
        implicit none
        integer :: a(2,3)
        integer :: i,j

        a = reshape([1,2,3,4,5,6], [2,3], order = [2,1])
    
        print *, a
        print *
        do i = 1, 2
             print *, (a(i, j), j = 1, 3)
        end do
end program matrix

           1           4           2           5           3           6

           1           2           3
           4           5           6