矩阵输出格式

一路向北

请问
矩阵A=[1,2,3;4,5,6]Fortran中输出的是 1,4,2,5,3,6
怎么让Fortran按照
[1,2,3;
4,5,6]
的格式输出？

风平老涡

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

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

查看代码

打印?

01	program matrix

02	implicit none

03	integer :: a(2,3)

04	integer :: i,j

05

06	a = reshape([1,2,3,4,5,6], [2,3], order = [2,1])

07

08	print *, a

09

print *

10	do i = 1, 2

11	print *, (a(i, j), j = 1, 3)

12

end do

13	end program matrix

           1           4           2           5           3           6

           1           2           3
           4           5           6

青衣巷

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

查看代码

打印?

1	program matrix

2	implicit none

3	integer :: a(2,3)

4	a = reshape([1,2,3,4,5,6], [2,3])

5	write(*,'(*(3(i3,1x),/))') a

6	end program matrix

一路向北

青衣巷 发表于 2021-4-4 16:29
[mw_shl_code=fortran,true]program matrix
  implicit none
  integer :: a(2,3)

谢谢，输出格式(*(3(i3,1x),/))里面的*是什么意思呀   

vvt

* 就是有多少算多少。