X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-HCD-5D%2Fread_constr_homology.F;h=0b265fae6f29e8b9134bce8f5cd8935f04afc52c;hb=323646722ac21fc2b215014807f1cb4abeafa1f6;hp=6ae3ef4d930ad55918cd1f72ac1271ca20f05328;hpb=1441ec2b7d68b4fd94014649e4bd9574db0bfc36;p=unres.git

diff --git a/source/cluster/wham/src-HCD-5D/read_constr_homology.F b/source/cluster/wham/src-HCD-5D/read_constr_homology.F
index 6ae3ef4..0b265fa 100644
--- a/source/cluster/wham/src-HCD-5D/read_constr_homology.F
+++ b/source/cluster/wham/src-HCD-5D/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