Fixed bug that was causing a segfault when n decreased. Moved the all…

…ocation of the temporary index array out of the if statement
MintonGroup · Oct 6, 2021 · 1d41b68 · 1d41b68
1 parent 4219f95
commit 1d41b68
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/util/util_index_array.f90 b/src/util/util_index_array.f90
@@ -22,8 +22,8 @@ module subroutine util_index_array(ind_arr, n)
          nold = 0
       end if
 
+      allocate(itmp(n))
       if (n >= nold) then
-         allocate(itmp(n))
          if (nold > 0) itmp(1:nold) = ind_arr(1:nold)
          itmp(nold+1:n) = [(i, i = nold + 1, n)]
          call move_alloc(itmp, ind_arr)