Adam's wham update

[unres.git] / source / wham / src-HCD / secondary.f

diff --git a/source/wham/src-HCD/secondary.f b/source/wham/src-HCD/secondary.f
index 4088831..d2e9271 100644 (file)
--- a/source/wham/src-HCD/secondary.f
+++ b/source/wham/src-HCD/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