57 lines
1.0 KiB
C
57 lines
1.0 KiB
C
#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 num_procs, my_rank;
|
|
char hname[128];
|
|
int abort_rank = 0;
|
|
|
|
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 irreg. host=%s, rank:%d, pid:%d\n", hname, my_rank, getpid());
|
|
if (argc > 2) {
|
|
abort_rank = atoi(argv[1]);
|
|
}
|
|
|
|
if (my_rank != abort_rank) {
|
|
printf("%d:done=yes\n", my_rank);
|
|
fflush(stdout);
|
|
}
|
|
else {
|
|
printf("%d:done=abort\n", my_rank);
|
|
fflush(stdout);
|
|
MPI_Abort(MPI_COMM_WORLD, -1);
|
|
}
|
|
|
|
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;
|
|
}
|