projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
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
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
& "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
endif ! i1.ge.nstart_sup .and. i1.le.nend_sup .and. i2.gt.nstart_sup .and. i2.le.nend_sup
enddo