projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
new options for mpich2 with gfortran Makefile
[unres.git]
/
source
/
unres
/
src_CSA
/
COMMON.DFA
diff --git
a/source/unres/src_CSA/COMMON.DFA
b/source/unres/src_CSA/COMMON.DFA
index
1c750cf
..
c6add4f
100644
(file)
--- 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,
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
& 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,
& 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),
c & ,DFAEXP
COMMON /RDFA/ SCCDIST(IDFAMAX,IDMAXMIN),FDIST(IDFAMAX,IDMAXMIN),