R不能设置成动态数组

fcode

因为你的代码不全，无法帮你跑启动动态调试，只能看代码猜。

你试试 R 分配以后，令 R = 0.0 试试。再把 forall 改为 Do 循环试试。