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
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
iint_end=nres-1
ilip_start=1
ilip_end=nres
+ itube_start=1
+ itube_end=nres
+
#endif
return
end