DFA FGPROC=1 correction

diff --git a/source/unres/src-HCD-5D/dfa.F b/source/unres/src-HCD-5D/dfa.F
index 62e8892..6bafba7 100644 (file)
--- 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