X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Fdfa.F;h=7de40156ba649c5bc502edccb9003767969c003f;hb=76d1e8aa14e4e16df2d617758794197cf50ddd57;hp=62e88928f6f28080895def3424216a83a7bc87cc;hpb=f9783c27de185ff3e1d6e874a37a1a8c4d3c93a3;p=unres.git

diff --git a/source/unres/src-HCD-5D/dfa.F b/source/unres/src-HCD-5D/dfa.F
index 62e8892..7de4015 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 (nfgprocs.gt.1) then
       do i=0,max_fg_procs-1
         idfadis_start_all(j)=0
         idfadis_end_all(j)=0
@@ -308,6 +309,7 @@ C     BETA is not parallel !
      &     idfanei_end_all(i)
         enddo
       endif
+      endif
 #else
       idfadis_start=1
       idfadis_end=idfadis