From fd33d5b7262f8cd79d82a21280b1a89225f39aff Mon Sep 17 00:00:00 2001
From: Wiarda <wiardada@ornl.gov>
Date: Wed, 6 Apr 2022 12:33:19 -0400
Subject: [PATCH] Since Maxkda is no longer used, don't compare against it
---
sammy/src/dat/mdat5.f | 17 +++--------------
1 file changed, 3 insertions(+), 14 deletions(-)
diff --git a/sammy/src/dat/mdat5.f b/sammy/src/dat/mdat5.f
index b3cd0f8fa..932b09a95 100755
--- a/sammy/src/dat/mdat5.f
+++ b/sammy/src/dat/mdat5.f
@@ -327,23 +327,14 @@ C *** Determine the size of the adjustment to be Made
IF (X1(I).LT.0.1667D0) A = X21(I)*2.0D0
IF (X1(I).GE.0.1667D0) A = X21(I)
call reallocate_real_data(Energb, Ii, 100)
- Energb(Ii) = X2(I+1)
- IF (Ii.GT.Maxkda) STOP '[#6 in Adjust_Auxil in dat/mdat5]'
+ Energb(Ii) = X2(I+1)
Ii = Ii + 1
C
IF (X1(I).LT.0.1667D0) THEN
C *** Here we need to subdivide region i several times
200 CONTINUE
call reallocate_real_data(Energb, Ii, 100)
- Energb(Ii) = Energb(Ii-1) + A
- IF (Ii.GT.Maxkda) THEN
- DO M=Ii-10,Ii
- De = Energb(M) - Energb(M-1)
- WRITE (6,40000) M, Energb(M), De
-40000 FORMAT(' M, E, De=', I8, 1P2G20.10)
- END DO
- STOP '[#7 in Adjust_Auxil in dat/mdat5]'
- END IF
+ Energb(Ii) = Energb(Ii-1) + A
Ii = Ii + 1
A = A*2.0D0
IF (Energb(Ii-1)+A .LT. X2(I+2)) GO TO 200
@@ -363,9 +354,7 @@ C
END IF
C
220 CONTINUE
- Kdatb = Ii - 1
- IF (Kdatb.GT.Maxkda) WRITE (6,20100) Kdatb, Maxkda
-20100 FORMAT (/' ########### WARNING ######### Kdatb, Maxkda =', 2I10)
+ Kdatb = Ii - 1
Size = B
C
C
--
GitLab