From: Cezary Czaplewski <czarek@chem.univ.gda.pl>
Date: Tue, 16 Jun 2020 06:27:32 +0000 (+0200)
Subject: dfa nfgtasks
X-Git-Tag: v.3.3.0~5^2~25
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=commitdiff_plain;h=e1b74e57eb5ac8b4b2f53eb08767a189a622eaa1;p=unres.git

dfa nfgtasks
---

diff --git a/source/unres/src-HCD-5D/dfa.F b/source/unres/src-HCD-5D/dfa.F
index 7de4015..3982b6d 100644
--- a/source/unres/src-HCD-5D/dfa.F
+++ b/source/unres/src-HCD-5D/dfa.F
@@ -270,7 +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
+      if (nfgtasks.gt.1) then
       do i=0,max_fg_procs-1
         idfadis_start_all(j)=0
         idfadis_end_all(j)=0