数组赋值问题

不学无墅！

有一个三维数组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] 纯文本查看 复制代码

查看代码

打印?

1	Do i = 1,700

2	Do j = 1,100

3	B(:,:,j) = A(:,:,i)

4

end Do

5

end Do

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

求各位前辈指教帮助！

青衣巷

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

li913

确认一下a的形状。

necrohan

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

fcode

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

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

风平老涡

数组间赋值要求数组是必须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的第二 维不相同导致。

不学无墅！

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

不学无墅！

青衣巷 发表于 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-27 21:37
数组间赋值要求数组是必须conformed.
1 Do i = 1,700
2           Do j = 1,100

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

不学无墅！

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

谢谢您  但是 不是这个意思