矩阵输出格式

青衣巷

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

program matrix
  implicit none
  integer :: a(2,3)
  a = reshape([1,2,3,4,5,6], [2,3])
  write(*,'(*(3(i3,1x),/))') a
end program matrix