alte Version Fortran tun Schleife Manova Code

Question

Ich versuche, multivariaten statistischen Code von 1971 Veröffentlichung zu replizieren. Fortran-Version nicht angegeben. Ich portiere int nach C++ und verstehe das folgende Snippet nicht; Von Cooley und Lohnes - Multivariate Datenanalyse

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)

Insbesondere kann ich nicht verstehe, wie V (J) in der zweiten Zeile aufgefüllt wird. Jede Hilfe von einem Fortran-Guru wird sehr geschätzt. BTW TIT ist ein Array, das eine Projektbeschreibung enthält, weshalb ich nicht verstehe, warum es hier gelesen wird.

Answer 1

Die V(J), J=1,M ist im Grunde eine implizite Schleife, so dass es entspricht in etwa so etwas wie

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