Fix a bug in start.F introduced from last update

nbodyx · May 8, 2019 · 5b10e8b · 5b10e8b
1 parent 381d043
commit 5b10e8b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Main/start.F b/src/Main/start.F
@@ -167,7 +167,7 @@ SUBROUTINE START
 *       Include standard distance criterion.
               DO 45 K = 1,3
                   RIJ2 = RIJ2 + (X(K,ICOMP) - X(K,JCOMP))**2
-                  VIJ2 = VIJ2 + (XDOT(K,I1) - XDOT(K,I2))**2
+                  VIJ2 = VIJ2 + (XDOT(K,ICOMP) - XDOT(K,JCOMP))**2
    45         CONTINUE
               RIJ = SQRT(RIJ2)
               IF(RIJ.LT.SMMIN) SMMIN=RIJ