旧版本fortran do loop manova代码

Question

我正在尝试复制1971年出版的多元统计代码。未指定Fortran版本。我正在将int移植到C++，我不理解下面的代码片段；来自Cooley and Lohnes -多元数据分析

DO 12 NS = 1, NG
READ(5, TIT)        (V(J),  J = 1, M)
DO 12   J = 1, M
U(J) =  U(J) + V(J)
T(J) =  T(J) + V(J)
DO 12   K = 1, M
A(J, K) = A(J,K) + V(J) * V(K)

12 C(J，K) = C(J，K) + V(J) * V(K)

具体地说，我不明白V(J)是如何填充到第二行的。我们将非常感谢Fortran专家的任何帮助。顺便说一句，TIT是一个包含项目描述的数组，所以我不明白为什么要在这里读取它。

Answer 1

V(J), J=1,M基本上是一个隐式循环，因此它大致相当于

for (i=1; i <= m; i++)
    infile >> v[i];