From 0143e44721ccc50d45946103d35b42c12d2d563a Mon Sep 17 00:00:00 2001 From: Cezary Czaplewski Date: Tue, 16 Jun 2020 08:27:32 +0200 Subject: [PATCH] dfa nfgtasks --- source/unres/src-HCD-5D/dfa.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.9.5