+ do i=0,max_fg_procs-1
+ idfadis_start_all(j)=0
+ idfadis_end_all(j)=0
+ idfaphi_start_all(j)=0
+ idfaphi_end_all(j)=0
+ idfathe_start_all(j)=0
+ idfathe_end_all(j)=0
+ idfanei_start_all(j)=0
+ idfanei_end_all(j)=0
+ enddo
+ call MPI_Allgather(idfadis_start,1,MPI_INTEGER,
+ & idfadis_start_all(0),1,MPI_INTEGER,FG_COMM,IERROR)
+ call MPI_Allgather(idfadis_end,1,MPI_INTEGER,
+ & idfadis_end_all(0),1,MPI_INTEGER,FG_COMM,IERROR)
+ call MPI_Allgather(idfaphi_start,1,MPI_INTEGER,
+ & idfaphi_start_all(0),1,MPI_INTEGER,FG_COMM,IERROR)
+ call MPI_Allgather(idfaphi_end,1,MPI_INTEGER,
+ & idfaphi_end_all(0),1,MPI_INTEGER,FG_COMM,IERROR)
+ call MPI_Allgather(idfathe_start,1,MPI_INTEGER,
+ & idfathe_start_all(0),1,MPI_INTEGER,FG_COMM,IERROR)
+ call MPI_Allgather(idfathe_end,1,MPI_INTEGER,
+ & idfathe_end_all(0),1,MPI_INTEGER,FG_COMM,IERROR)
+ call MPI_Allgather(idfanei_start,1,MPI_INTEGER,
+ & idfanei_start_all(0),1,MPI_INTEGER,FG_COMM,IERROR)
+ call MPI_Allgather(idfanei_end,1,MPI_INTEGER,
+ & idfanei_end_all(0),1,MPI_INTEGER,FG_COMM,IERROR)
+ if (me.eq.0 .or. out1file) then
+ write (iout,*) "Partitioning of DFA work"
+ write (iout,'(5a10)') 'Rank','DFA_dis','DFA_phi','DFA_the',
+ & 'DFA_nei'
+ do i=0,nfgtasks-1
+ write (iout,'(i10,8i5)') i,idfadis_start_all(i),
+ & idfadis_end_all(i),idfaphi_start_all(i),
+ & idfaphi_end_all(i),idfathe_start_all(i),
+ & idfathe_end_all(i),idfanei_start_all(i),
+ & idfanei_end_all(i)
+ enddo
+ endif