projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Adam's changes
[unres.git]
/
source
/
unres
/
src-HCD-5D
/
energy_p_new-sep_barrier.F
diff --git
a/source/unres/src-HCD-5D/energy_p_new-sep_barrier.F
b/source/unres/src-HCD-5D/energy_p_new-sep_barrier.F
index
96f7777
..
28ba1d1
100644
(file)
--- a/
source/unres/src-HCD-5D/energy_p_new-sep_barrier.F
+++ b/
source/unres/src-HCD-5D/energy_p_new-sep_barrier.F
@@
-639,7
+639,6
@@
c double precision rrsave(maxdim)
logical lprn
evdw=0.0D0
c print *,'Entering EBP nnt=',nnt,' nct=',nct,' expon=',expon
logical lprn
evdw=0.0D0
c print *,'Entering EBP nnt=',nnt,' nct=',nct,' expon=',expon
- evdw=0.0D0
c if (icall.eq.0) then
c lprn=.true.
c else
c if (icall.eq.0) then
c lprn=.true.
c else
@@
-1100,7
+1099,6
@@
C
double precision sss1,sssgrad1
evdw=0.0D0
c print *,'Entering EGB nnt=',nnt,' nct=',nct,' expon=',expon
double precision sss1,sssgrad1
evdw=0.0D0
c print *,'Entering EGB nnt=',nnt,' nct=',nct,' expon=',expon
- evdw=0.0D0
lprn=.false.
c if (icall.eq.0) lprn=.true.
ind=0
lprn=.false.
c if (icall.eq.0) lprn=.true.
ind=0
@@
-1254,7
+1252,6
@@
C
double precision boxshift
evdw=0.0D0
c print *,'Entering EGB nnt=',nnt,' nct=',nct,' expon=',expon
double precision boxshift
evdw=0.0D0
c print *,'Entering EGB nnt=',nnt,' nct=',nct,' expon=',expon
- evdw=0.0D0
lprn=.false.
c if (icall.eq.0) lprn=.true.
ind=0
lprn=.false.
c if (icall.eq.0) lprn=.true.
ind=0