projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
correction of dihedral homology restraints phi(i+3)
[unres.git]
/
source
/
unres
/
src_MD-M
/
initialize_p.F
diff --git
a/source/unres/src_MD-M/initialize_p.F
b/source/unres/src_MD-M/initialize_p.F
index
4d92752
..
570600a
100644
(file)
--- a/
source/unres/src_MD-M/initialize_p.F
+++ b/
source/unres/src_MD-M/initialize_p.F
@@
-1487,10
+1487,10
@@
cd & " lim_dih",lim_dih
#ifdef MPI
if (me.eq.king .or. .not. out1file) write (iout,*) "MPI"
call int_bounds(lim_odl,link_start_homo,link_end_homo)
#ifdef MPI
if (me.eq.king .or. .not. out1file) write (iout,*) "MPI"
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,
@@
-1502,8
+1502,8
@@
cd & " lim_dih",lim_dih
write (iout,*) "Not MPI"
link_start_homo=1
link_end_homo=lim_odl
write (iout,*) "Not MPI"
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,