projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
correction to the last commit - cleaning of homo restraints
[unres.git]
/
source
/
cluster
/
wham
/
src-M
/
initialize_p.F
diff --git
a/source/cluster/wham/src-M/initialize_p.F
b/source/cluster/wham/src-M/initialize_p.F
index
8b01a36
..
1c83869
100644
(file)
--- a/
source/cluster/wham/src-M/initialize_p.F
+++ b/
source/cluster/wham/src-M/initialize_p.F
@@
-620,10
+620,10
@@
c include 'COMMON.SETUP'
& " lim_dih",lim_dih
#ifdef MPL
call int_bounds(lim_odl,link_start_homo,link_end_homo)
& " lim_dih",lim_dih
#ifdef MPL
call int_bounds(lim_odl,link_start_homo,link_end_homo)
- call int_bounds(lim_dih-nnt+1,idihconstr_start_homo,
+ call int_bounds(lim_dih,idihconstr_start_homo,
& idihconstr_end_homo)
& idihconstr_end_homo)
- idihconstr_start_homo=idihconstr_start_homo+nnt-1
- idihconstr_end_homo=idihconstr_end_homo+nnt-1
+ idihconstr_start_homo=idihconstr_start_homo+nnt-1+3
+ idihconstr_end_homo=idihconstr_end_homo+nnt-1+3
if (me.eq.king .or. .not. out1file)
& write (iout,*) 'Processor',fg_rank,' CG group',kolor,
& ' absolute rank',MyRank,
if (me.eq.king .or. .not. out1file)
& write (iout,*) 'Processor',fg_rank,' CG group',kolor,
& ' absolute rank',MyRank,
@@
-634,8
+634,8
@@
c include 'COMMON.SETUP'
#else
link_start_homo=1
link_end_homo=lim_odl
#else
link_start_homo=1
link_end_homo=lim_odl
- idihconstr_start_homo=nnt
- idihconstr_end_homo=lim_dih
+ idihconstr_start_homo=nnt+3
+ idihconstr_end_homo=lim_dih+3
write (iout,*)
& ' lim_odl',lim_odl,' link_start=',link_start_homo,
& ' link_end',link_end_homo,' lim_dih',lim_dih,
write (iout,*)
& ' lim_odl',lim_odl,' link_start=',link_start_homo,
& ' link_end',link_end_homo,' lim_dih',lim_dih,