70 i = l
Do 71 j=1,m
a(i, i) = a(i, i) + pmi(j)/3.D0
a(i, i+1) = pmi(j)/6.D0
a(i+1, i) = a(i, i+1)
a(i+1, i+1) = pmi(j)/3.0D0
71 i=i+1
vvt 发表于 2017-11-11 11:09
您好,在嵌套循环中,您不能在两层循环使用相同的循环变量。比如 Do i = 里面不能再有 Do i = ...,您可以 ...
vvt 发表于 2017-11-11 19:35
我只是告诉你错误的普遍原因,你给出的代码不能具体到更细致的原因。
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |