projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
time
[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
..
0b265fa
100644
(file)
--- a/
source/cluster/wham/src-HCD/read_constr_homology.F
+++ b/
source/cluster/wham/src-HCD/read_constr_homology.F
@@
-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
+ close(ientin)
c
c Loop over clusters
c