& "idfaphi ",idfaphi,idfaphi_start,idfaphi_end,
& "idfathe ",idfathe,idfathe_start,idfathe_end,
& "idfanei ",idfanei,idfanei_start,idfanei_end
+ if (nfgtasks.gt.1) then
do i=0,max_fg_procs-1
idfadis_start_all(j)=0
idfadis_end_all(j)=0
idfanei_start_all(j)=0
idfanei_end_all(j)=0
enddo
- if (nfgtasks.gt.1) then
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,