Fortran Coder

标题: 有目的对一个二维数组中部分位置重新赋值 [打印本页]

作者: xiaochen 时间: 2022-4-1 10:22
标题: 有目的对一个二维数组中部分位置重新赋值
已知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
断点是什么？

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

作者: xiaochen 时间: 2022-4-5 16:58

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

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

作者: xiaochen 时间: 2022-4-5 17:00

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

已经解决了，感谢感谢

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)