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

Administración avanzada de GNU/Linux
ª FUOC • XP04/90785/00019
Cálculo de PI distribuido: cpi.c
Para compilar:
mpicc O o cpi cpi.c.
Ejecución Mpich: mpirun.mpich -np N.º procesos cpi
(solicitará la contraseña (N.º procesos – 1) veces si no
se tiene el acceso directo por ssh).
Ejecución LAM: mpirun np N.º procesos cpi
(debe ser un usuario diferente de root).
#include “mpi.h”
#include
#include
double f( double );
double f( double a) { return (4.0 / (1.0 + a*a)); }
int main( int argc, char *argv[] ) {
int done = 0, n, myid, numprocs, i;
double PI25DT = 3.141592653589793238462643;
double mypi, pi, h, sum, x;
double startwtime = 0.0, endwtime;
int namelen;
char processor_name[MPI_MAX_PROCESSOR_NAME];
MPI_Init(&argc,&argv);
MPI_Comm_size(MPI_COMM_WORLD,&numprocs); /*Indica el número de procesos en el grupo*/
MPI_Comm_rank(MPI_COMM_WORLD,&myid); /*Id del proceso*/
MPI_Get_processor_name(processor_name,&namelen); /*Nombre del proceso*/
fprintf(stderr,”Proceso %d sobre %s\n”, myid, processor_name);
n = 0;
while (!done) {
if (myid ==0) { /*Si es el primero...*/
if (n ==0) n = 100; else n = 0;
startwtime = MPI_Wtime();} /* Time Clock */
MPI_Bcast(&n, 1, MPI_INT, 0, MPI_COMM_WORLD); /*Broadcast al resto*/
/*Envía desde el 4.º arg. a todos los procesos del grupo
Los restantes que no son 0 copiarán el buffer desde 4 o arg -proceso 0-*/
/*1.º :buffer, 2.º :size, 3.º :tipo, 5.º :grupo */
if (n == 0) done = 1;
else {
h = 1.0 / (double) n;
sum = 0.0;
for (i = myid + 1; i