数组赋值问题

不学无墅！ · 发表于 2020-8-27 11:42:46

本帖最后由不学无墅！于 2020-8-28 09:11 编辑

有一个三维数组A（20，27，700），还有一个三维数组B（20，27，100），想要实现，在循环中，先将A（20，27，700）的第一层赋给B（20，27，100）的每一层，再将A（20，27，700）的第二层赋给B（20，27，100）的每一层，依次类推，直到将A（20，27，700）的第700层赋给B（20，27，100）的每一层

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

Do i = 1,700
      Do j = 1,100
            B(:,:,j) = A(:,:,i)
      end Do
end Do

以上是我的代码，报错error #6366: The shapes of the array expressions do not conform.

求各位前辈指教帮助！

青衣巷 · 发表于 2020-8-27 14:17:28

听得很模糊，你是希望 B = A(:,:,:100) 吧？

li913 · 发表于 2020-8-27 15:41:09

确认一下a的形状。

necrohan · 发表于 2020-8-27 17:00:22

Do i = 1,7
B = A(:,:,(i-1)*100+1:i*100)
end Do
我猜你可能要的是这个意思

fcode · 发表于 2020-8-27 20:42:44

necrohan 发表于 2020-8-27 17:00
Do i = 1,7
B = A(:,:,(i-1)*100+1:i*100)
end Do

那用指针方便、高效得多。

风平老涡 · 发表于 2020-8-27 21:37:42

数组间赋值要求数组是必须conformed.
1 Do i = 1,700
2          Do j = 1,100
3             B(:,:,j) = A(:,:,i)
4       end Do
5 end Do
要求B的第一维与A的第一维相同（20对20），B的第二维与A的第二维相同（27对70）。所显错误就是因为A和B的第二维不相同导致。

不学无墅！ · 发表于 2020-8-28 09:13:11

原问题对A的第二维描述错误了前两维都是相同的均为 20x27

不学无墅！ · 发表于 2020-8-28 09:18:09

青衣巷发表于 2020-8-27 14:17
听得很模糊，你是希望 B = A(:,:,:100) 吧？

我是希望A里的每一层依次赋给 B的每100层，具体来说就是先将B（:,:,1:100)全部等于A（:,:,1）
再将B(:,:,1:100)=A(:,:,2)
...........
最后B(;,;,1:100)=A(:,:,100)

不学无墅！ · 发表于 2020-8-28 09:19:17

风平老涡发表于 2020-8-27 21:37
数组间赋值要求数组是必须conformed.
1 Do i = 1,700
2 Do j = 1,100

不好意思原问题描述数组大小的时候写错了 A B的前两维是相同的

不学无墅！ · 发表于 2020-8-28 09:23:35

necrohan 发表于 2020-8-27 17:00
Do i = 1,7
B = A(:,:,(i-1)*100+1:i*100)
end Do

谢谢您但是不是这个意思

[求助] 数组赋值问题

规矩勋章

新人勋章

元老勋章

美女勋章

热心勋章

星光勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

水王勋章