diff --git a/sammy/src/ssm/mssm04.f90 b/sammy/src/ssm/mssm04.f90 index 5c75301cc460a48ab6d3b6d28170e74298f2f111..4fe66397c9e0c6d08d5a87299448667369bfe3b7 100644 --- a/sammy/src/ssm/mssm04.f90 +++ b/sammy/src/ssm/mssm04.f90 @@ -59,7 +59,7 @@ module ssm_4_m Kdatmn = 0 Nsen = 1 ! -! *** Start major do-loop on +! *** Start major do-loop on energy DO N=1,Kdatb Nn = N ! @@ -668,7 +668,7 @@ module ssm_4_m ! *** Here if Idone=3, which means don't calculate yield, but do ! *** calculate the pieces needed for Y2 ! -! *** Also here if Idone=0, Em is bigger than Eminr, so +! *** Also here if Idone=0, energy Em is bigger than Eminr, so ! *** calculation can proceed ! IF (Idone.NE.3 .AND. Kdatmn.EQ.0) Kdatmn = Nn