X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-HCD-5D%2Fsecondary.f;fp=source%2Fwham%2Fsrc-HCD-5D%2Fsecondary.f;h=d2e9271dd6330d8fb0d84b9561f7649b65411e19;hb=d02292725c202ff9c2749beac934bf1630f9017e;hp=4088831451929787edf0dedad82d0bd32692a8bd;hpb=6260e60062f93c75d71ad18219a28f1ab5611dec;p=unres.git

diff --git a/source/wham/src-HCD-5D/secondary.f b/source/wham/src-HCD-5D/secondary.f
index 4088831..d2e9271 100644
--- a/source/wham/src-HCD-5D/secondary.f
+++ b/source/wham/src-HCD-5D/secondary.f
@@ -401,8 +401,8 @@ cd      write (iout,*) '------- looking for parallel beta -----------'
       do i=1,ncont
         i1=icont(1,i)
         j1=icont(2,i)
-        if (i1.ge.nstart_sup .and. i1.le.nend_sup 
-     &     .and. j1.gt.nstart_sup .and. j1.le.nend_sup) then
+c        if (i1.ge.nstart_sup .and. i1.le.nend_sup 
+c     &     .and. j1.gt.nstart_sup .and. j1.le.nend_sup) then
 cd        write (iout,*) "parallel",i1,j1
         if(j1-i1.gt.5 .and. freeres(i1,j1,nsec,isec)) then
           ii1=i1
@@ -469,7 +469,7 @@ cd            write (iout,*) i1,j1,not_done
      &          "SetNeigh",ii1-1,i1-1,jj1-1,j1-1
            endif
           endif
-        endif
+c        endif
         endif ! i1.ge.nstart_sup .and. i1.le.nend_sup .and. i2.gt.nstart_sup .and. i2.le.nend_sup
       enddo