Commit 3cd43cb6 authored by Daniel Wortmann's avatar Daniel Wortmann

Made minimal size of local memory in eig66_mpi to be 1

parent 49fa9e38
......@@ -167,7 +167,7 @@ CONTAINS
CALL MPI_TYPE_SIZE(MPI_INTEGER,type_size,e)
ENDIF
if (length.ne.1) call judft_error("Bug in eig66_mpi:create_memory")
length=slot_size*local_slots
length=MIN(1,slot_size*local_slots)
length=length*type_size
......
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