Commit 782158b4 authored by Gregor Michalicek's avatar Gregor Michalicek

Do some checks only for irank=0

parent a8486ab4
......@@ -29,11 +29,13 @@ MODULE m_checks
!Check for IO options not available in parallel
#ifdef CPP_MPI
CALL MPI_COMM_SIZE(MPI_COMM_WORLD,irank,ierr)
IF (isize>1) THEN
IF (juDFT_was_argument("-mem")) CALL judft_error(&
"-mem 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")
IF (irank.EQ.0) THEN
IF (isize>1) THEN
IF (juDFT_was_argument("-mem")) CALL judft_error(&
"-mem 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
#endif
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