more type cleaning in DFA

diff --git a/source/unres/src_CSA_DiL/COMMON.DFA b/source/unres/src_CSA_DiL/COMMON.DFA
index 1c750cf..c6add4f 100644 (file)
--- a/source/unres/src_CSA_DiL/COMMON.DFA
+++ b/source/unres/src_CSA_DiL/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),