Add qlmpi and swap to mckernel (This is rebase commit for merging to development)

test/qlmpi/qlmpi_testsuite/usr_prg_A.c

@@ -0,0 +1,59 @@
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+#include <mpi.h>
+
+#include <qlmpilib.h>
+
+int
+main(int argc, char **argv)
+{
+	int rc;
+	int i;
+	int num_procs, my_rank;
+	char hname[128];
+	char argv_str[1024];
+
+	gethostname(hname, 128);
+
+	MPI_Init(&argc, &argv);
+	MPI_Comm_size(MPI_COMM_WORLD, &num_procs);
+	MPI_Comm_rank(MPI_COMM_WORLD, &my_rank);
+
+ql_loop:
+	printf("INFO This is A. host=%s, rank:%d, pid:%d\n", hname, my_rank, getpid());
+	memset(argv_str, '\0', sizeof(argv_str));
+
+	printf("%d:argc=%d\n", my_rank, argc);
+	for (i = 0; i < argc; i++) {
+		if (i > 0) {
+			strcat(argv_str, " ");
+		}
+		strcat(argv_str, argv[i]);
+	}
+	printf("%d:argv=%s\n", my_rank, argv_str);
+	
+	printf("%d:QL_TEST=%s\n", my_rank, getenv("QL_TEST"));
+
+	printf("%d:done=yes\n", my_rank);
+	fflush(stdout);
+
+	rc = ql_client(&argc, &argv);
+
+	//printf("ql_client returns: %d\n", rc);
+	if (rc == QL_CONTINUE) {
+		printf("%d:resume=go_back\n", my_rank);
+		goto ql_loop;
+	}
+	else {
+		printf("%d:resume=go_finalize\n", my_rank);
+	}
+
+	MPI_Finalize();
+	printf("%d:finish=yes\n", my_rank);
+	return 0;
+}