/*
 *        	         Exemple "HolaPVM.c" PVM versio 3.3
 *		 Susana Maria Bajo Sanchez (ei05646@salleURL.edu)
 *		 Josep Maria Garrell i Guiu (josepmg@salleURL.edu)
 *		           Departament d'Informatica (DI)
 *				Software Paral.lel
 *	               Enginyeria i Arquitectura La Salle
 *		           Universitat Ramon Llull (URL)
 * 		                  Curs 1999/2000

*/

#include <stdio.h>
#include "pvm3.h"

void main()
{
	int cc, tid, msgtag;
	char buf[100];

	// salida estandar por pantalla
	pvm_catchout(stdout);

	printf("HolaPVM: Soy la tarea #%x\n",pvm_mytid());

	// se crea la tarea hija 'HolaUSR'
	cc = pvm_spawn("HolaUSR",(char**)0,0,"",1,&tid);
	if (cc==1)
		{
		printf("HolaPVM: He podido crear la tarea 'HolaUSR'\n");
		
		msgtag = 1;
		
		pvm_recv(tid, msgtag);
		printf("HolaPVM: Recibo de la tarea #%x con msgtag %d\n",tid,msgtag);
		
		pvm_upkstr(buf);
		printf("HolaPVM: He desempaquetado el string '%s'\n",buf);
		}
		else printf("HolaPVM: No he podido crear la tarea HolaUSR\n");

	printf("HolaPVM: Salgo de PVM\n");
	pvm_exit();
}