数组赋值问题

不学无墅！

有一个三维数组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.

求各位前辈指教帮助！

不学无墅！

原问题 对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

谢谢您  但是 不是这个意思