From e6f6081e2f29e666b3407c78be870f2c2bb9cdfe Mon Sep 17 00:00:00 2001 From: Rainer Spurzem Date: Mon, 25 Mar 2024 14:01:00 +0100 Subject: [PATCH] Previous note was about mdot.F sorry --- src/Main/mdot.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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),