Commit 08970512 authored by Matthias Redies's avatar Matthias Redies

n is unused in sequential case

parent 745cdf4b
......@@ -102,12 +102,12 @@ CONTAINS
! local scalars
INTEGER :: eig_id,archiveType
INTEGER :: n,iter,iterHF
INTEGER :: iter,iterHF
LOGICAL :: l_opti,l_cont,l_qfix,l_real
REAL :: fix
#ifdef CPP_MPI
INCLUDE 'mpif.h'
INTEGER :: ierr(2)
INTEGER :: ierr(2),n
#endif
mpi%mpi_comm = mpi_comm
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment