Fortran Coder

查看: 16113|回复: 4
打印 上一主题 下一主题

[输入输出] 矩阵输出格式

[复制链接]

13

帖子

6

主题

0

精华

入门

F 币
86 元
贡献
48 点
跳转到指定楼层
楼主
发表于 2021-4-3 10:12:51 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请问
矩阵A=[1,2,3;4,5,6]Fortran中输出的是 1,4,2,5,3,6
怎么让Fortran按照
[1,2,3;
4,5,6]
的格式输出?


分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

213

帖子

2

主题

0

精华

宗师

F 币
2142 元
贡献
875 点

规矩勋章

沙发
发表于 2021-4-4 05:29:06 | 只看该作者
本帖最后由 风平老涡 于 2021-4-4 05:31 编辑

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

81

帖子

0

主题

0

精华

专家

F 币
471 元
贡献
232 点

规矩勋章新人勋章元老勋章

QQ
板凳
发表于 2021-4-4 16:29:49 | 只看该作者
本帖最后由 青衣巷 于 2021-4-4 16:33 编辑

[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
彼岸,有永恒的守候...

13

帖子

6

主题

0

精华

入门

F 币
86 元
贡献
48 点
地板
 楼主| 发表于 2021-4-4 19:37:48 | 只看该作者
青衣巷 发表于 2021-4-4 16:29
[mw_shl_code=fortran,true]program matrix
  implicit none
  integer :: a(2,3)

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

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
5#
发表于 2021-4-5 15:56:29 | 只看该作者
* 就是有多少算多少。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-25 09:54

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表