From: Cezary Czaplewski <czarek@chem.univ.gda.pl>
Date: Sat, 16 Feb 2013 13:44:13 +0000 (+0100)
Subject: more type cleaning in DFA
X-Git-Tag: v.3.2~21
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=commitdiff_plain;h=393f080eded99a2b4fcc4d2dbf3b0f79fe3a3a26

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
--- 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),