Bugfix for last bugfix to io/eig66_mpi.F90

Replace MIN by MAX

Bugfix for last bugfix to io/eig66_mpi.F90
Replace MIN by MAX
7b37d56b · Gregor Michalicek · 6daac5c7 · 7b37d56b
Commit 7b37d56b authored Sep 15, 2017 by Gregor Michalicek
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

io/eig66_mpi.F90 io/eig66_mpi.F90 +1 -1

No files found.
--- a/io/eig66_mpi.F90
+++ b/io/eig66_mpi.F90
@@ -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=MIN(1,slot_size*local_slots)
+      length=MAX(1,slot_size*local_slots)
 
      length=length*type_size