Untuk master :

#include
#include "pvm3.h"

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

	printf("i'm t%x\n", pvm_mytid());

	cc = pvm_spawn("hello_other", (char**)0, 0, "", 1, &tid);

	if (cc == 1) {
		cc = pvm_recv(-1, -1);
		pvm_bufinfo(cc, (int*)0, (int*)0, &tid);
		pvm_upkstr(buf);
		printf("from t%x: %s\n", tid, buf);

	} else
		printf("can't start hello_other\n");

	pvm_exit();
	exit(0);
}

untuk Slave :

#include "pvm3.h"

main()
{
	int ptid;
	char buf[100];

	ptid = pvm_parent();

	strcpy(buf, "hello, world from ");
	gethostname(buf + strlen(buf), 64);

	pvm_initsend(PvmDataDefault);
	pvm_pkstr(buf);
	pvm_send(ptid, 1);

	pvm_exit();
	exit(0);
}

hanya mau nambahin aja dikit… di bagian akhir dari code yg buat MPI, tambahin
“MPI_Finalize();”

void main(int argc, char** argv) {
int rank;
MPI_Init(&argc, &argv);
MPI_Comm_rank(MPI_COMM_WORLD, rank);

printf(”Hello world, from rank %d\n”, rank);

MPI_Finalize();
}

di openmp

void main() {
  #pragma omp parallel
  {
     printf("Hello World!\r\n");
  {
}

di mpi

void main(int argc, char** argv) {
  int rank;
  MPI_Init(&argc, &argv);
  MPI_Comm_rank(MPI_COMM_WORLD, rank);

  printf("Hello world, from rank %d\n", rank);
}

kalau salah ya… maap…

kayanya blog ini makin menarik nih.