From 393f080eded99a2b4fcc4d2dbf3b0f79fe3a3a26 Mon Sep 17 00:00:00 2001 From: Cezary Czaplewski Date: Sat, 16 Feb 2013 14:44:13 +0100 Subject: [PATCH] more type cleaning in DFA --- source/unres/src_CSA_DiL/COMMON.DFA | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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), -- 1.7.9.5