From dd51e474f0a8c34b6cd216b4ce9639f098450b71 Mon Sep 17 00:00:00 2001 From: Albert Cheng Date: Mon, 30 Mar 1998 12:00:57 -0500 Subject: [svn-r331] Moved its code into testphdf.c. Easier that way. --- testpar/phdf5sup.c | 54 ------------------------------------------------------ 1 file changed, 54 deletions(-) delete mode 100644 testpar/phdf5sup.c diff --git a/testpar/phdf5sup.c b/testpar/phdf5sup.c deleted file mode 100644 index e09c403..0000000 --- a/testpar/phdf5sup.c +++ /dev/null @@ -1,54 +0,0 @@ -/* debugging tools */ -#define MESG(x)\ - printf("%s\n", x);\ - -#ifdef HAVE_PARALLEL -#define MPI_BANNER(mesg)\ - {printf("================================\n");\ - printf("Proc %d: ", myid); \ - printf("*** %s\n", mesg);\ - printf("================================\n");} -#else -#define MPI_BANNER(mesg)\ - {printf("================================\n");\ - printf("*** %s\n", mesg);\ - printf("================================\n");} -#endif - -#ifdef HAVE_PARALLEL -#define SYNC(comm)\ - {MPI_BANNER("doing a SYNC"); MPI_Barrier(comm); MPI_BANNER("SYNC DONE");} - -/* pause the process for a moment to allow debugger to attach if desired. */ -/* Will pause more if greenlight file is not persent but will eventually */ -/* continue. */ -#include -#include -void pause_proc(MPI_Comm comm, int myid, char* processor_name, int namelen, - int argc, char **argv) -{ - - int pid; - struct stat statbuf; - char greenlight[] = "go"; - int maxloop = 10; - int time_int = 10; - - /* check if an pause interval option is given */ - if (--argc > 0 && isdigit(*++argv)) - time_int = atoi(*argv); - pid = getpid(); - printf("Proc %d (%*s): pid = %d\n", - myid, namelen, processor_name, pid); - - if (myid == 0) - while ((stat(greenlight, &statbuf) == -1) && maxloop-- > 0){ - printf("waiting(%ds) for file %s ...", time_int, greenlight); - fflush(stdout); - sleep(time_int); - } - MPI_Barrier(comm); -} -#endif /*HAVE_PARALLEL*/ - - -- cgit v0.12