Merge pull request #149 from parikshitbajpai/malloc_err_148

ORNL-CEES · Oct 10, 2023 · 2a4e65c · 2a4e65c
2 parents 7cda2ea + f12aa11
commit 2a4e65c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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