summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--test/h5test.c44
-rw-r--r--test/h5test.h3
2 files changed, 46 insertions, 1 deletions
diff --git a/test/h5test.c b/test/h5test.c
index 2f8e183..08de54a 100644
--- a/test/h5test.c
+++ b/test/h5test.c
@@ -503,3 +503,47 @@ h5_no_hwconv(void)
{
H5Tunregister(H5T_PERS_HARD, NULL, -1, -1, NULL);
}
+
+
+/*-------------------------------------------------------------------------
+ * Function: h5_show_hostname
+ *
+ * Purpose: Show hostname. Show process ID if in MPI environment.
+ *
+ * Return: void
+ *
+ * Programmer: Albert Cheng
+ * 2002/04/22
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+void
+h5_show_hostname(void)
+{
+ char hostname[80];
+
+ /* try show the process or thread id in multiple processes cases*/
+#ifdef H5_HAVE_PARALLEL
+ {
+ int mpi_rank, mpi_initialized;
+
+ MPI_Initialized(&mpi_initialized);
+ if (mpi_initialized){
+ MPI_Comm_rank(MPI_COMM_WORLD,&mpi_rank);
+ printf("MPI-process %d.", mpi_rank);
+ }else
+ printf("thread 0.");
+ }
+#elif defined(H5_HAVE_THREADSAFE)
+ printf("thread %d.", (int)pthread_self());
+#else
+ printf("thread 0.");
+#endif
+ if (gethostname(hostname, 80) < 0){
+ printf(" gethostname failed\n");
+ }
+ else
+ printf(" hostname=%s\n", hostname);
+}
diff --git a/test/h5test.h b/test/h5test.h
index 9614b30..cc627ab 100644
--- a/test/h5test.h
+++ b/test/h5test.h
@@ -1,5 +1,5 @@
/*
- * Copyright © 1998 NCSA
+ * Copyright (c) 1998-2002 NCSA
* All rights reserved.
*
* Programmer: Robb Matzke <matzke@llnl.gov>
@@ -59,6 +59,7 @@ char *h5_fixname(const char *base_name, hid_t fapl, char *fullname,
hid_t h5_fileaccess(void);
void h5_no_hwconv(void);
void h5_reset(void);
+void h5_show_hostname(void);
#ifdef __cplusplus
}