X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-HCD%2Fread_constr_homology.F;fp=source%2Fwham%2Fsrc-HCD%2Fread_constr_homology.F;h=03d79681d39161469bc3e9a6bbbee9b7aaf3b6e3;hb=68aa1d135805a14583695611acfcf637748b4466;hp=fa81b801c921c84a21122043f92d5dadb6561067;hpb=809cbbbaf17b645d881fe5c61387d09109acdf19;p=unres.git

diff --git a/source/wham/src-HCD/read_constr_homology.F b/source/wham/src-HCD/read_constr_homology.F
index fa81b80..03d7968 100644
--- a/source/wham/src-HCD/read_constr_homology.F
+++ b/source/wham/src-HCD/read_constr_homology.F
@@ -259,8 +259,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