X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2FCOMMON.DFA;h=67a1a0d78be9a9518fec57625f328d67f002c652;hb=21beec1b0c33ba639efa19f03a9d67ef5b534cab;hp=c6add4fb986e5239a71a8394426bd7f8534b321c;hpb=fd605cbdfa3f7064befd092ee0778cfcb7f0cfed;p=unres.git

diff --git a/source/unres/src_MD/COMMON.DFA b/source/unres/src_MD/COMMON.DFA
index c6add4f..67a1a0d 100644
--- a/source/unres/src_MD/COMMON.DFA
+++ b/source/unres/src_MD/COMMON.DFA
@@ -67,6 +67,16 @@ C NMAP    - mapping between dfanum and ndis, nphi, nthe, nnei
      &              KDISNUM(IDFAMAX),
      &              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
+      COMMON /dfa_mpi/ idfadis_start,idfadis_end,
+     &        idfaphi_start,idfaphi_end,
+     &        idfathe_start,idfathe_end,
+     &        idfanei_start,idfanei_end 
+
 
 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
 C