Adam's lipid and dfa corrections

[unres.git] / source / unres / src-HCD-5D / COMMON.DFA

diff --git a/source/unres/src-HCD-5D/COMMON.DFA b/source/unres/src-HCD-5D/COMMON.DFA
index 67a1a0d..6759f8b 100644 (file)
--- a/source/unres/src-HCD-5D/COMMON.DFA
+++ b/source/unres/src-HCD-5D/COMMON.DFA
@@ -68,14 +68,21 @@ C NMAP    - mapping between dfanum and ndis, nphi, nthe, nnei
      &              NCA, ICAIDX(MAXRES)
       COMMON /IDFA2/ ishiftca,ilastca
 c parallel
-      integer idfadis_start,idfadis_end,
-     &        idfaphi_start,idfaphi_end,
-     &        idfathe_start,idfathe_end,
-     &        idfanei_start,idfanei_end
+      integer idfadis_start,idfadis_end,idfaphi_start,idfaphi_end,
+     &  idfathe_start,idfathe_end,idfanei_start,idfanei_end,
+     &  idfadis_start_all(0:max_fg_procs-1),
+     &  idfadis_end_all(0:max_fg_procs-1),
+     &  idfaphi_start_all(0:max_fg_procs-1),
+     &  idfaphi_end_all(0:max_fg_procs-1),
+     &  idfathe_start_all(0:max_fg_procs-1),
+     &  idfathe_end_all(0:max_fg_procs-1),
+     &  idfanei_start_all(0:max_fg_procs-1),
+     &  idfanei_end_all(0:max_fg_procs-1)
       COMMON /dfa_mpi/ idfadis_start,idfadis_end,
-     &        idfaphi_start,idfaphi_end,
-     &        idfathe_start,idfathe_end,
-     &        idfanei_start,idfanei_end 
+     & idfaphi_start,idfaphi_end,idfathe_start,idfathe_end,
+     & idfanei_start,idfanei_end,idfadis_start_all,idfadis_end_all,
+     & idfaphi_start_all,idfaphi_end_all,idfathe_start_all,
+     & idfathe_end_all,idfanei_start_all,idfanei_end_all 
 
 
 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC