13
6
0
入门
使用道具 举报
213
2
宗师
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
81
专家
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
青衣巷 发表于 2021-4-4 16:29 [mw_shl_code=fortran,true]program matrix implicit none integer :: a(2,3)
954
大师
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给完成“有规有矩”任务的网友
颁发给注册后积极发言的新人
颁发给论坛注册3年以上的网友
颁发给发帖量超过一定数量的坛友
颁发给论坛热心帮助他人的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-12-26 00:13
Powered by Tencent X3.4
© 2013-2024 Tencent