From 8bdfb151bfd985d7b478c0438c54018ceb455710 Mon Sep 17 00:00:00 2001
From: Wiarda <wiardada@ornl.gov>
Date: Fri, 19 Jun 2020 10:28:31 -0400
Subject: [PATCH] Fix an uninitialized variable.
---
sammy/src/xct/mxct27.f90 | 6 ------
1 file changed, 6 deletions(-)
diff --git a/sammy/src/xct/mxct27.f90 b/sammy/src/xct/mxct27.f90
index 8bf899b44..19520ca52 100644
--- a/sammy/src/xct/mxct27.f90
+++ b/sammy/src/xct/mxct27.f90
@@ -92,9 +92,6 @@ module mxct27_m
Sigxxx(Nnnsss,*), Dasigx(Nnnsss,*), Dbsigx(Nnnsss,Ndbxxx,*)
!
Kk = Kkkkkk
- IF (Large.EQ.1) THEN
- Kk = 1
- END IF
DO Iso=1,Iq_Iso
DO Isig=1,Nnnsss
Wsigxx(Isig,Iso,Kk) = Sigxxx(Isig,Iso)
@@ -134,9 +131,6 @@ module mxct27_m
!
!
Kk = Kkkkkk
- IF (Large.EQ.1) THEN
- Kk = 1
- END IF
!
DO Jsig=1,Nnnsig
Theory(Jsig,Jj) = 0.0d0
--
GitLab