MPI_GATHER

La funzione MPI_GATHER trasmette da tutti i processi appartenenti ad un comunicatore ad un singolo processo denominato ``ricevente''.
La sintassi di questa funzione è la seguente:

MPI_GATHER(nome-in, quanti,tipo-in,
nome-out,quanti,tipo-out, ricevente, comunicatore, ierr)

dove:

nome-in si riferisce all'indirizzo iniziale di memoria di una serie di dati contigui (al limite solo uno) che devono essere spediti.
quanti il quantitativo di questi dati (è una variabile intera)
tipo-in il loro tipo
nome-out si riferisce all'indirizzo iniziale di una zona di memoria (quindi per il Fortran semplicemente il nome della prima tra le variabili ricevute) da assegnare in modo contiguo alla serie di dati che il ricevente stà ricevendo. Tra queste due zone di memoria, e cioè tra quella occupata dai dati spediti e quella che vanno ad occupare i dati ricevuti non ci devono essere sovrapposizioni, ma questo vale chiaramente solo per il processo ricevente.
quanti ancora il quantitativo di questi dati (è una variabile intera)
tipo-out il tipo dei dati ricevuti
ricevente si riferisce all'intero che caratterizza il processo che riceve il messaggio
comunicatore identifica il gruppo di processi che spedisce il messaggio al ricevente
ierr intero di controllo della funzione

Come esempio riporto un banale codice in cui viene utilizzata la funzione in discussione:

      program esempio3
      include 'mpif.h'
      integer nprocs, mype, ierr, isend, i
      integer irecv
      dimension irecv(3)

      call MPI_INIT(ierr)
      call MPI_COMM_SIZE(MPI_COMM_WORLD, nprocs, ierr)
      call MPI_COMM_RANK(MPI_COMM_WORLD, mype, ierr)

      if(nprocs.gt.3) stop 'N. proc.>3'
      do i=1,3
        irecv(i) = 0
      enddo
      isend = mype + 1
      call MPI_GATHER(isend,1,MPI_INTEGER,
     +                irecv,1,MPI_INTEGER,0,MPI_COMM_WORLD,ierr)
      if(mype.eq.0) then
        write(6,*) 'irecv: ', irecv(1), irecv(2), irecv(3)
      endif
      call MPI_FINALIZE(ierr)
      end

Osservare come l'ordine di riempimento della variabile irecv del processo 0 segue l'ordine numerico dei processi.
Nella sintassi della funzione MPI_ALLGATHER semplicemente sparisce il processo ricevente poichè tutti i processi del comunicatore ricevono il messaggio.