From df7798f36ae1ab43a54da798d3f825f92b2273b0 Mon Sep 17 00:00:00 2001 From: Cezary Czaplewski Date: Sun, 7 Jun 2020 23:46:13 +0200 Subject: [PATCH] DFA FGPROC=1 correction --- source/unres/src-HCD-5D/dfa.F | 2 ++ 1 file changed, 2 insertions(+) diff --git a/source/unres/src-HCD-5D/dfa.F b/source/unres/src-HCD-5D/dfa.F index 62e8892..6bafba7 100644 --- a/source/unres/src-HCD-5D/dfa.F +++ b/source/unres/src-HCD-5D/dfa.F @@ -280,6 +280,7 @@ C BETA is not parallel ! idfanei_start_all(j)=0 idfanei_end_all(j)=0 enddo + if (nfgtasks.gt.1) then call MPI_Allgather(idfadis_start,1,MPI_INTEGER, & idfadis_start_all(0),1,MPI_INTEGER,FG_COMM,IERROR) call MPI_Allgather(idfadis_end,1,MPI_INTEGER, @@ -308,6 +309,7 @@ C BETA is not parallel ! & idfanei_end_all(i) enddo endif + endif #else idfadis_start=1 idfadis_end=idfadis -- 1.7.9.5