projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Adam's cluster wham update
[unres.git]
/
source
/
cluster
/
wham
/
src-HCD
/
read_constr_homology.F
diff --git
a/source/cluster/wham/src-HCD/read_constr_homology.F
b/source/cluster/wham/src-HCD/read_constr_homology.F
index
6ae3ef4
..
f2fb1d0
100644
(file)
--- a/
source/cluster/wham/src-HCD/read_constr_homology.F
+++ b/
source/cluster/wham/src-HCD/read_constr_homology.F
@@
-257,8
+257,8
@@
c & constr_homology
endif
sigma_odl(k,ii)=1.0d0/(sigma_odl(k,ii)*sigma_odl(k,ii))
else
endif
sigma_odl(k,ii)=1.0d0/(sigma_odl(k,ii)*sigma_odl(k,ii))
else
- ii=ii+1
- l_homo(k,ii)=.false.
+c ii=ii+1
+c l_homo(k,ii)=.false.
endif
enddo
enddo
endif
enddo
enddo
@@
-558,6
+558,7
@@
c Read clusters
read(ientin,*) (inclust(k,i),k=1,ninclust(i))
read(ientin,*) (iresclust(k,i),k=1,nresclust(i))
enddo
read(ientin,*) (inclust(k,i),k=1,ninclust(i))
read(ientin,*) (iresclust(k,i),k=1,nresclust(i))
enddo
+ close(ientin)
c
c Loop over clusters
c
c
c Loop over clusters
c