X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Funres%2Fsrc-HCD-5D%2FCOMMON.DFA;h=6759f8b96e9e214bfe1c7e0f9b1cb81405386064;hb=ab695e2bb5e28825f160d84875b68d48c5c0f493;hp=67a1a0d78be9a9518fec57625f328d67f002c652;hpb=48ae9e01d2dd6571fa2cca6c704dc04f86e5fd7b;p=unres.git

diff --git a/source/unres/src-HCD-5D/COMMON.DFA b/source/unres/src-HCD-5D/COMMON.DFA
index 67a1a0d..6759f8b 100644
--- 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