Previous note was about mdot.F sorry

nbody6ppgpu · Mar 25, 2024 · e6f6081 · e6f6081
1 parent 2052728
commit e6f6081
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Main/mdot.F b/src/Main/mdot.F
@@ -719,7 +719,7 @@ SUBROUTINE MDOT
          RSCHW = 2.0*BODY(J)/CL2
          QPERI = SEMI*(1.D0 - ECC)
          IF(J1.LT.1)J1 = J
-* RSp updated output Dec. 2021
+* R.Sp. updated output Dec. 2021
       if(rank.eq.0.AND.DJGR.GT.1.E-06)WRITE(6,665)
      &   TTOT,DTGR,STEP(J1),I,IPAIR,LIST(1,J1),
      &   (NAME(JX(3-K)),K=1,2),NAME(J),(KSTAR(JX(3-K)),K=1,2),