X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA%2FCOMMON.DFA;h=c6add4fb986e5239a71a8394426bd7f8534b321c;hb=9d1c5560b929041bf61c0e10bc5310bd961c2b2a;hp=1c750cf9a9ffcc300d4c669014824e1a04513ab2;hpb=5b3f0612f7af602a26d1230be253fc6b3ae1e38d;p=unres.git

diff --git a/source/unres/src_CSA/COMMON.DFA b/source/unres/src_CSA/COMMON.DFA
index 1c750cf..c6add4f 100644
--- a/source/unres/src_CSA/COMMON.DFA
+++ b/source/unres/src_CSA/COMMON.DFA
@@ -51,7 +51,7 @@ C NMAP    - mapping between dfanum and ndis, nphi, nthe, nnei
       INTEGER IDFADIS,IDFAPHI,IDFATHE,IDFANEI,
      & 	      IDISLIS,IPHILIS,ITHELIS,INEILIS,
      &        IDISNUM,IPHINUM,ITHENUM,INEINUM,
-     &        FNEI,
+     &        FNEI,DFACMD, DFANUM,
      &        NCA,ICAIDX,
      &        STOAGDF, NMAP, IDFACAT, KDISNUM, KSHELL
      &        ishiftca,ilastca 
@@ -82,7 +82,7 @@ C
      &       FTHE1, FTHE2,
      &       DIS_INC, PHI_INC, THE_INC, NEI_INC, BETA_INC,
      &       WSHET, EDFABET, 
-     &       CK, SCK
+     &       CK, SCK, S1, S2
 c    &       ,DFAEXP
 
       COMMON /RDFA/ SCCDIST(IDFAMAX,IDMAXMIN),FDIST(IDFAMAX,IDMAXMIN),