From 208ff9c6daee42de0ea66deb5f8da33c33e14009 Mon Sep 17 00:00:00 2001
From: Wiarda <wiardada@ornl.gov>
Date: Tue, 2 Jun 2020 16:13:58 -0400
Subject: [PATCH] Address review comments
---
sammy/src/ssm/mssm04.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/sammy/src/ssm/mssm04.f90 b/sammy/src/ssm/mssm04.f90
index 5c75301cc..4fe66397c 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
--
GitLab