From 782158b4f73c9156ce2694c1a9ae781807dc5d40 Mon Sep 17 00:00:00 2001 From: Gregor Michalicek Date: Tue, 7 Mar 2017 10:30:07 +0100 Subject: [PATCH] Do some checks only for irank=0 --- init/checks.F90 | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/init/checks.F90 b/init/checks.F90 index 1851bec5..b3991d6d 100644 --- a/init/checks.F90 +++ b/init/checks.F90 @@ -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 -- GitLab