设为首页收藏本站如何选择编译器？在线F77转F90 繁体浏览

切换到窄版开启辅助访问

Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › fortran二维数组如何赋值给四维数组？？？ ...

返回列表发新帖

查看: 14268|回复: 5

上一主题

下一主题

[数值问题] fortran二维数组如何赋值给四维数组？？？

954 帖子	0 主题	0 精华

F 币: 184 元
贡献: 75 点

发消息

楼主

发表于 2019-11-14 19:32:47 | 显示全部楼层

本帖最后由 vvt 于 2019-11-14 19:33 编辑

Fortran是矢量化的语言，所以很多操作不需要循环
如果数组的大小是一样的，都是64的话。
real :: B(64,64,2,2) , A11(64,64) , A12(64,64) , A21(64,64) , A22(64,64)

这么一句话就可以了。

B = reshape([A11,A12,A21,A22],shape(b))

回复支持 1 反对 0

使用道具举报

返回列表发新帖

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

GMT+8, 2024-6-12 11:02

Powered by Tencent X3.4

© 2013-2024 Tencent

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