From 3eebd64f748e21e32d9f03e9c69af8fd55be457c Mon Sep 17 00:00:00 2001
From: Wiarda <wiardada@ornl.gov>
Date: Thu, 4 Jun 2020 11:25:12 -0400
Subject: [PATCH] Fix a missplaced endif:wq
---
sammy/src/npv/mnpv9.f | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/sammy/src/npv/mnpv9.f b/sammy/src/npv/mnpv9.f
index b4f2e7556..adbe8d423 100644
--- a/sammy/src/npv/mnpv9.f
+++ b/sammy/src/npv/mnpv9.f
@@ -71,8 +71,8 @@ C ( A(Iwdasi), A_Iwdbsi ) -> A_Igx
DO I=1,N
A(Ith + I -1) = A(Iwsigx + I -1)
END DO
- CALL Reorg ( A_Igx, A(Iwdasi), A_Iwdbsi , Kdat)
end if
+ CALL Reorg ( A_Igx, A(Iwdasi), A_Iwdbsi , Kdat)
C
C
IF (Ksolve.NE.2 .OR. Nfpall.GT.Nvpall) THEN
--
GitLab