X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Finitialize_p.F;h=696a931c049e5fd164950fe9d59a75a07b35dbf8;hb=06a7b5d89b58b39f785a1662d35225f4da1cf5d8;hp=e9af07ae69672bdb0d59d14b4bf320be42e13a44;hpb=bde71ffff7527add147c1bee4bad23f02b4d1ab7;p=unres.git

diff --git a/source/unres/src_MD-M/initialize_p.F b/source/unres/src_MD-M/initialize_p.F
index e9af07a..696a931 100644
--- a/source/unres/src_MD-M/initialize_p.F
+++ b/source/unres/src_MD-M/initialize_p.F
@@ -661,6 +661,10 @@ C Partition local interactions
       ibondp_end=ibondp_end+nnt
       call int_bounds(nres,ilip_start,ilip_end)
       ilip_start=ilip_start
+      ilip_end=ilip_end
+      call int_bounds(nres-1,itube_start,itube_end)
+      itube_start=itube_start
+      itube_end=itube_end     
       call int_bounds1(nres-1,ivec_start,ivec_end) 
 c      print *,"Processor",myrank,fg_rank,fg_rank1,
 c     &  " ivec_start",ivec_start," ivec_end",ivec_end
@@ -756,7 +760,7 @@ c      nlen=nres-nnt+1
         iaux=iphi1_end-iphi1_start+1
         call MPI_Allgather(iaux,1,MPI_INTEGER,iphi1_count(0),1,
      &    MPI_INTEGER,FG_COMM,IERROR)
-        do i=0,maxprocs-1
+        do i=0,max_fg_procs-1
           do j=1,maxres
             ielstart_all(j,i)=0
             ielend_all(j,i)=0
@@ -1206,6 +1210,9 @@ C      ibondp_end=nct-1
       iint_end=nres-1
       ilip_start=1
       ilip_end=nres
+      itube_start=1
+      itube_end=nres
+
 #endif
       return
       end