X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Fdfa.F;h=3982b6d79fd24338da0dba027a63e9ccf6abdb00;hb=0143e44721ccc50d45946103d35b42c12d2d563a;hp=6bafba7ab17f0f95d6fa2b09e93f4e4867c07fb1;hpb=df7798f36ae1ab43a54da798d3f825f92b2273b0;p=unres.git

diff --git a/source/unres/src-HCD-5D/dfa.F b/source/unres/src-HCD-5D/dfa.F
index 6bafba7..3982b6d 100644
--- a/source/unres/src-HCD-5D/dfa.F
+++ b/source/unres/src-HCD-5D/dfa.F
@@ -270,6 +270,7 @@ C     BETA is not parallel !
      & "idfaphi ",idfaphi,idfaphi_start,idfaphi_end,
      & "idfathe ",idfathe,idfathe_start,idfathe_end,
      & "idfanei ",idfanei,idfanei_start,idfanei_end
+      if (nfgtasks.gt.1) then
       do i=0,max_fg_procs-1
         idfadis_start_all(j)=0
         idfadis_end_all(j)=0
@@ -280,7 +281,6 @@ 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,