X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-HCD%2Fread_constr_homology.F;h=f2fb1d0a9a1cc96be4f2b4739189b6d446f193f9;hb=809cbbbaf17b645d881fe5c61387d09109acdf19;hp=6ae3ef4d930ad55918cd1f72ac1271ca20f05328;hpb=32caa3b64eb94b90fa9fd402b77263ea89efffa1;p=unres.git

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
--- 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
-              ii=ii+1
-              l_homo(k,ii)=.false.
+c              ii=ii+1
+c              l_homo(k,ii)=.false.
             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
+      close(ientin)
 c
 c Loop over clusters
 c