Parallel Processing: A KISS Approach - University of North Dakota

pvm_upkint(&nodeNumber, 1, 1);
pvm_upkint(&dataNumber, 1, 1);
pvm_upkstr(command);
/***********************************************/
/* Unpack the user's data that was sent by the */
/* master. */
/* */
/* The order of the data unpacking MUST match */
/* the order that it was packed by the master! */
/* */
/* I would expect the user would want to */
/* modify this code to fit their application. */
/***********************************************/
for (j = 0; j < cellHeight; j++) {
pvm_upkdouble(R[j], cellWidth, 1);
}
/***********************************************/
/* These lines terminate the program if the */
/* passed string "command" contains the text */
/* "stop". This is a required section! */
/* Otherwise, the slave process will never */
/* terminate! */
/***********************************************/
if (!strcmp(command, "stop")) {
pvm_exit();
exit(0);
}
/***********************************************/
/* Call the user's routine to process the data */
/* that was sent by the master. */
/* */
/* I would expect the user would want to */
/* modify this code to fit their application. */
/***********************************************/
PROCESS_R();
/***********************************************/
/* Initiate communication to the master. */
/***********************************************/
pvm_initsend(PvmDataRaw);
/***********************************************/
/* Pack the "bookkeeping" data into the */
/* communication buffer. */
/***********************************************/
pvm_pkint(&tid, 1, 1);
pvm_pkint(&nodeNumber, 1, 1);
pvm_pkint(&dataNumber, 1, 1);
/***********************************************/
/* Pack the processed data into the */
/* communication buffer. */
/* */
/* I would expect the user would want to */
48