Commit 7b37d56b authored by Gregor Michalicek's avatar Gregor Michalicek

Bugfix for last bugfix to io/eig66_mpi.F90

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