projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Adam's corrections
[unres.git]
/
source
/
cluster
/
wham
/
src-HCD
/
energy_p_new.F
diff --git
a/source/cluster/wham/src-HCD/energy_p_new.F
b/source/cluster/wham/src-HCD/energy_p_new.F
index
27e944b
..
95898b4
100644
(file)
--- a/
source/cluster/wham/src-HCD/energy_p_new.F
+++ b/
source/cluster/wham/src-HCD/energy_p_new.F
@@
-10203,16
+10203,20
@@
c
enddo
c min_odl=minval(distancek)
enddo
c min_odl=minval(distancek)
- do kk=1,constr_homology
- if(l_homo(kk,ii)) then
- min_odl=distancek(kk)
- exit
- endif
- enddo
- do kk=1,constr_homology
- if(l_homo(kk,ii) .and. distancek(kk).lt.min_odl)
+ if (nexl.gt.0) then
+ min_odl=0.0d0
+ else
+ do kk=1,constr_homology
+ if(l_homo(kk,ii)) then
+ min_odl=distancek(kk)
+ exit
+ endif
+ enddo
+ do kk=1,constr_homology
+ if(l_homo(kk,ii) .and. distancek(kk).lt.min_odl)
& min_odl=distancek(kk)
& min_odl=distancek(kk)
- enddo
+ enddo
+ endif
c write (iout,* )"min_odl",min_odl
#ifdef DEBUG
write (iout,*) "ij dij",i,j,dij
c write (iout,* )"min_odl",min_odl
#ifdef DEBUG
write (iout,*) "ij dij",i,j,dij