Administración avanzada de GNU/Linux (PDF) - SW Computación

ª FUOC • XP04/90785/00019
Software libre
Ejecución Mpich: mpirun.mpich -np N.º_procesos srtest
(solicitará la contraseña [N.º procesos - 1] veces si
no se tiene el acceso directo por ssh).
Ejecución LAM:
mpirun np N.º_procesos srtest
(debe ser un usuario diferente de root).
#include “mpi.h”
#include
#define BUFLEN 512
int main(int argc, char *argv[]) {
ANOTACIONES
int myid, numprocs, next, namelen;
char buffer[BUFLEN], processor_name[MPI_MAX_PROCESSOR_NAME];
MPI_Status status;
MPI_Init(&argc,&argv);
/* Debe ponerse antes de otras llamadas MPI, siempre */
MPI_Comm_size(MPI_COMM_WORLD,&numprocs);
MPI_Comm_rank(MPI_COMM_WORLD,&myid);
/*Integra el proceso en un grupo de comunicaciones*/
MPI_Get_processor_name(processor_name,&namelen);
/*Obtiene el nombre del procesador*/
fprintf(stderr,”Proceso %d sobre %s\n”, myid, processor_name);
strcpy(buffer,”Hola Pueblo”);
if (myid ==numprocs1) next = 0;
else next = myid+1;
if (myid ==0) {
/*Si es el inicial, envía string de buffer*/.
printf(“%d Envío ‘%s’ \n”,myid,buffer);
MPI_Send(buffer, strlen(buffer)+1, MPI_CHAR, next, 99, MPI_COMM_WORLD);
/*Blocking Send, 1 o :buffer, 2 o :size, 3 o :tipo, 4 o :destino, 5 o :tag, 6 o
:contexto*/
/*MPI_Send(buffer, strlen(buffer)+1, MPI_CHAR, MPI_PROC_NULL, 299,MPI_COMM_WORLD);*/
printf(“%d recibiendo \n”,myid);
/* Blocking Recv, 1 o :buffer, 2 o :size, 3 o :tipo, 4 o :fuente, 5 o :tag, 6 o
:contexto, 7 o :status*/
}
MPI_Recv(buffer, BUFLEN, MPI_CHAR, MPI_ANY_SOURCE, 99, MPI_COMM_WORLD,&status);
printf(“%d recibió ‘%s’ \n”,myid,buffer) }
else {
printf(“%d recibiendo \n”,myid);
MPI_Recv(buffer, BUFLEN, MPI_CHAR, MPI_ANY_SOURCE, 99, MPI_COMM_WORLD,status);
/*MPI_Recv(buffer, BUFLEN, MPI_CHAR, MPI_PROC_NULL, 299,MPI_COMM_WORLD,&status);*/
printf(“%d recibió ‘%s’ \n”,myid,buffer);
MPI_Send(buffer, strlen(buffer)+1, MPI_CHAR, next, 99, MPI_COMM_WORLD);
printf(“%d envió ‘%s’ \n”,myid,buffer);}
MPI_Barrier(MPI_COMM_WORLD);
/*Sincroniza todos los procesos*/
MPI_Finalize();
/*Libera los recursos y termina*/
return (0);
430