Skip to content

GitLab

fleur
fleur
Commit 782158b4 authored by Gregor Michalicek's avatar Gregor Michalicek
Browse files
Options

Do some checks only for irank=0

parent a8486ab4
Hide whitespace changes
Inline Side-by-side
Showing with 7 additions and 5 deletions
init/checks.F90
View file @ 782158b4
...@@ -29,11 +29,13 @@ MODULE m_checks ...@@ -29,11 +29,13 @@ MODULE m_checks
!Check for IO options not available in parallel !Check for IO options not available in parallel
#ifdef CPP_MPI #ifdef CPP_MPI
CALL MPI_COMM_SIZE(MPI_COMM_WORLD,irank,ierr) CALL MPI_COMM_SIZE(MPI_COMM_WORLD,irank,ierr)
IF (isize>1) THEN IF (irank.EQ.0) THEN
IF (juDFT_was_argument("-mem")) CALL judft_error(& IF (isize>1) THEN
"-mem cannot be used in parallel mode for Eigenvector IO",hint="Use -mpi or -hdf instead") IF (juDFT_was_argument("-mem")) CALL judft_error(&
IF (juDFT_was_argument("-da")) CALL judft_error(& "-mem cannot be used in parallel mode for Eigenvector IO",hint="Use -mpi or -hdf instead")
"-da cannot be used in parallel mode for Eigenvector IO",hint="Use -mpi or -hdf instead") IF (juDFT_was_argument("-da")) CALL judft_error(&
"-da cannot be used in parallel mode for Eigenvector IO",hint="Use -mpi or -hdf instead")
END IF
END IF END IF
#endif #endif
END SUBROUTINE check_command_line END SUBROUTINE check_command_line
......
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