+ subroutine homology_partition
+ implicit none
+! include 'DIMENSIONS'
+!#ifdef MPI
+! include 'mpif.h'
+!#endif
+! include 'COMMON.SBRIDGE'
+! include 'COMMON.IOUNITS'
+! include 'COMMON.SETUP'
+! include 'COMMON.CONTROL'
+! include 'COMMON.INTERACT'
+! include 'COMMON.HOMOLOGY'
+!d write(iout,*)"homology_partition: lim_odl=",lim_odl,
+!d & " 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)
+ call int_bounds(lim_dih,idihconstr_start_homo, &
+ idihconstr_end_homo)
+ 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,&
+ ' lim_odl',lim_odl,' link_start=',link_start_homo,&
+ ' link_end',link_end_homo,' lim_dih',lim_dih,&
+ ' idihconstr_start_homo',idihconstr_start_homo,&
+ ' idihconstr_end_homo',idihconstr_end_homo
+#else
+ write (iout,*) "Not MPI"
+ link_start_homo=1
+ link_end_homo=lim_odl
+ idihconstr_start_homo=nnt+3
+ idihconstr_end_homo=lim_dih+nnt-1+3
+ write (iout,*) &
+ ' lim_odl',lim_odl,' link_start=',link_start_homo, &
+ ' link_end',link_end_homo,' lim_dih',lim_dih,&
+ ' idihconstr_start_homo',idihconstr_start_homo,&
+ ' idihconstr_end_homo',idihconstr_end_homo
+#endif
+ return
+ end subroutine homology_partition
+