From f929f647ce39f2cf430f9b5065791432414d17f0 Mon Sep 17 00:00:00 2001 From: Daniel Wortmann Date: Wed, 3 Jul 2019 14:31:35 +0200 Subject: [PATCH] Update cdn_io.F90 to perform work only on irank==0 --- io/cdn_io.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/io/cdn_io.F90 b/io/cdn_io.F90 index 17f84ec7..3ef4af15 100644 --- a/io/cdn_io.F90 +++ b/io/cdn_io.F90 @@ -991,13 +991,13 @@ MODULE m_cdn_io SELECT CASE(input%qfix) CASE (0,1) !just qfix the density IF (mpi%irank==0) WRITE(6,*) "Using qfix to adjust density" - CALL qfix(mpi,stars,atoms,sym,vacuum,sphhar,input,cell,oneD,& + if (mpi%irank==0) CALL qfix(mpi,stars,atoms,sym,vacuum,sphhar,input,cell,oneD,& den,noco%l_noco,mpi%isize==1,force_fix=.TRUE.,fix=fix) CASE(2,3) - CALL qfix(mpi,stars,atoms,sym,vacuum,sphhar,input,cell,oneD,& + if (mpi%irank==0) CALL qfix(mpi,stars,atoms,sym,vacuum,sphhar,input,cell,oneD,& den,noco%l_noco,mpi%isize==1,force_fix=.TRUE.,fix=fix,fix_pw_only=.true.) CASE(4,5) - CALL fix_by_gaussian(shifts,atoms,stars,mpi,sym,vacuum,sphhar,input,oned,cell,noco,den) + if (mpi%irank==0) CALL fix_by_gaussian(shifts,atoms,stars,mpi,sym,vacuum,sphhar,input,oned,cell,noco,den) CASE default CALL judft_error("Wrong choice of qfix in input") END SELECT -- GitLab