From f12aa11d40681de8a2dbeb07fab70a7f4926c62d Mon Sep 17 00:00:00 2001
From: Parikshit Bajpai <Parikshit.Bajpai@inl.gov>
Date: Mon, 9 Oct 2023 10:42:43 -0600
Subject: [PATCH] Fix wrong conditionals in leveling solver

---
 src/setup/LevelingSolver.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/setup/LevelingSolver.f90 b/src/setup/LevelingSolver.f90
index 5d90d19f..9b3f0e3a 100755
--- a/src/setup/LevelingSolver.f90
+++ b/src/setup/LevelingSolver.f90
@@ -152,7 +152,7 @@ subroutine LevelingSolver
     end if
 
     if (allocated(dLevel)) then
-        if( SIZE(iAssemblage) /= nElements) then
+        if( SIZE(dLevel) /= nElements) then
             deallocate(dLevel, STAT=n)
             if (n /= 0) then
                 INFOThermo = 20
@@ -165,7 +165,7 @@ subroutine LevelingSolver
     end if
 
     if (allocated(iterHistoryLevel)) then
-        if( SIZE(iAssemblage) /= nElements) then
+        if( SIZE(iterHistoryLevel) /= nElements) then
             deallocate(iterHistoryLevel, STAT=n)
             if (n /= 0) then
                 INFOThermo = 20