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

Administración avanzada de GNU/Linux
ª FUOC • XP04/90785/00019
Ejemplo de PVM: cliente.c
Para compilar:
gcc -O -I/usr/share/pvm3/include/ -L/usr/share/pvm3/lib/LINUX
-o cliente cliente.c -lpvm3
#include
#include “pvm3.h”
main() {
int mytid;/*Mi task id*/
int tids[20];/*Task ids*/
int n, me, i, nproc, master, msgtype, loops; float data[10];
long result[4]; float work();
mytid = pvm_mytid();
msgtype = 0;
pvm_recv( -1, msgtype );
pvm_upkint(&loops, 1, 1);
pvm_upkint(&nproc, 1, 1);
pvm_upkint(tids, nproc, 1);
pvm_upkint(&n, 1, 1);
pvm_upkfloat(data, n, 1);
/*Determina qué hijo es (0 –- nproc-1) */
for( i = 0; i < nproc ; i++ )
if( mytid == tids[i] ){ me = i; break; }
/*Procesa y pasa los datos entre vecinos*/
work( me, data, tids, nproc, loops );
}
/*Envía los datos al máster */
pvm_initsend( PvmDataDefault );
pvm_pkint( &me, 1, 1 );
msgtype = 5;
master = pvm_parent(); /*Averigua quién lo creó*/
pvm_send( master, msgtype);
pvm_exit();
float work(me, data, tids, nproc, loops)
int me, *tids, nproc; float *data; {
int i,j, dest; float psum = 0.0, sum = 0.1;
for (j = 1; j