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,
& idfanei_end_all(i)
enddo
endif
+ endif
#else
idfadis_start=1
idfadis_end=idfadis