有目的对一个二维数组中部分位置重新赋值

xiaochen · 发表于 2022-4-1 10:22:10

已知A（4，4）=，B（12，3）B是12行3列，相当于一个三维的意思。其中第一列表示行，第二列表示列，第三列表示i行j列位置的元
我想把B的第三列中的12个数据按照它第一第二列的数据带回A中，对A中数据部分进行重新赋值，但是老是有断点，请求一哈帮助

do k=1,n
   i=int(B(k,1))
   j=int(B(k,2))
   l=B(k,3)
   A(int(bb(k,1)),int(bb(k,2)))=bb(k,3) !就是这里有断点
write(*,*)i,j,l                                           ！  这里又没得问题


   enddo

write(*,*)A

风平老涡 · 发表于 2022-4-1 23:17:06

断点是什么？

唐汉 · 发表于 2022-4-2 02:29:13

如果按照你的描述，那么数组B 不应该是B(16, 3)么，因为你想把A的值复制被B，那A有16个元素啊。因为你打印的时候打印的是循环中的B，当然没问题。

xiaochen · 发表于 2022-4-5 16:58:30

风平老涡发表于 2022-4-1 23:17
断点是什么？

断点当时是赋值那个语句出问题了。后来发现了数据出问题了。感谢感谢

xiaochen · 发表于 2022-4-5 17:00:07

唐汉发表于 2022-4-2 02:29
如果按照你的描述，那么数组B 不应该是B(16, 3)么，因为你想把A的值复制被B，那A有16个元素啊。因为你打印 ...

已经解决了，感谢感谢

[数值问题] 有目的对一个二维数组中部分位置重新赋值

规矩勋章