Fix finalize errors.

ORNL-Fusion · Feb 9, 2024 · 50cf71f · 50cf71f
1 parent 185a650
commit 50cf71f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Sources/restart_mod.f90 b/Sources/restart_mod.f90
@@ -888,7 +888,7 @@ SUBROUTINE interpit(aold,     anew,                                      &
 !  Only some of the toroidal modes will match if nfp_new and nfp_old are
 !  different.
          DO i_n = -ntor_old, ntor_old
-            n = tor_modes_old(i_n/nfp_old)
+            n = tor_modes_old(i_n)/nfp_old
             IF (.not.fourier_context%get_index(n)) THEN
                CYCLE
             END IF

diff --git a/Sources/siesta_run.f90 b/Sources/siesta_run.f90
@@ -322,7 +322,7 @@ SUBROUTINE siesta_run_destruct(this)
          CALL blacs_barrier(icontxt, 'All')
          CALL blacs_gridexit(icontxt)
 
-         CALL blacs_exit(0)
+         CALL blacs_exit(.not.BTEST(this%control_state, siesta_run_control_mpi))
          IF ((myrow.EQ.0) .AND. (mycol.EQ.0)) THEN
             CALL profstat
          END IF