Commit 6d82eff3 authored by Daniel Wortmann's avatar Daniel Wortmann

Update eig66_io.F90 to use eig66_mem in calculations with one MPI task only

parent 67529f02
......@@ -41,7 +41,12 @@ CONTAINS
IF (mode<0) THEN
!Use default mode
#ifdef CPP_MPI
mode=MPI_mode
CALL MPI_COMM_SIZE(mpi_comm,isize,err)
IF (isize>1) THEN
mode=MPI_mode
ELSE
mode=MEM_mode
ENDIF
#else
mode=MEM_mode
#endif
......
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