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