Fortran DO 循环语法错误

Bensun

       do n = 1, num_train
         read(1,210) n,(train(n,i),i=1,num_in)
       end do
上述程序语句在编译过程当中，提示，语法错误如下：Error: Variable 'n' at (1) cannot be redefined inside loop beginning at (2)
请问，哪位有这方面的经验，上述程序如何修改，谢谢！

Jackdaw

这逻辑上是有冲突的，首先n是循环变量，有指定的变化范围；然后循环体内，又要对n进行赋值。
你可以单独定义一个变量代替n

[Fortran] 纯文本查看 复制代码

integer :: newVar
do n = 1, num_train
         read(1,210) newVar,(train(newVar,i),i=1,num_in)
end do