diff --git a/src/Main/mdot.F b/src/Main/mdot.F
index 805eab4..5b97268 100644
--- 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),