From 23fd845b8d034ff3caddc1b733eb9eefc3855770 Mon Sep 17 00:00:00 2001
From: Dorothea Wiarda <dw8@ornl.gov>
Date: Fri, 12 Nov 2021 14:40:45 -0500
Subject: [PATCH] Add definition for Spinm back in mxct30
---
sammy/src/xct/mxct30.f90 | 1 +
1 file changed, 1 insertion(+)
diff --git a/sammy/src/xct/mxct30.f90 b/sammy/src/xct/mxct30.f90
index 58217d5f6..40491a9f8 100644
--- a/sammy/src/xct/mxct30.f90
+++ b/sammy/src/xct/mxct30.f90
@@ -95,6 +95,7 @@ end function
isoMgr = spinMgr%getIsotopeIndex()
IF (IsoNgr.EQ.IsoMgr) &
THEN
+ Spinm = dABS(spinGroupMgr%getJ())
Acn2 = Acn
!v IF (Mgr.NE.Ngr) THEN
!v Acn2 = Two*Acn
--
GitLab