[svn-r5222] Purpose:

feture
Description:
    add calls to show hostname.
Platforms tested:
    eirene (linux 2.2) parallel.
This commit is contained in:
Albert Cheng 2002-04-22 15:24:59 -05:00
parent b60521774f
commit 5aeda255db
2 changed files with 13 additions and 1 deletions

View File

@ -23,6 +23,14 @@ int nerrors = 0;
int verbose = 0;
hid_t fapl; /* file access property list */
/* protocols */
static void test_mpio_overlap_writes(char *filename);
static void test_mpio_offset(void);
static void test_mpio_gb_file(char *filename);
static void test_mpio_gb_file(char *filename);
static int parse_options(int argc, char **argv);
static void usage(void);
#define MPIO_TEST_WRITE_SIZE 1024*1024 /* 1 MB */
void
@ -418,6 +426,8 @@ main(int argc, char **argv)
printf("MPI functionality tests\n");
printf("===================================\n");
}
h5_show_hostname();
fapl = H5Pcreate (H5P_FILE_ACCESS);
H5Pset_fapl_mpio(fapl, MPI_COMM_WORLD, MPI_INFO_NULL);

View File

@ -50,7 +50,7 @@ void pause_proc(void)
{
int pid;
h5_stat_t statbuf;
h5_stat_t statbuf;
char greenlight[] = "go";
int maxloop = 10;
int loops = 0;
@ -303,6 +303,8 @@ main(int argc, char **argv)
printf("PHDF5 TESTS START\n");
printf("===================================\n");
}
h5_show_hostname();
fapl = H5Pcreate (H5P_FILE_ACCESS);
H5Pset_fapl_mpio(fapl, MPI_COMM_WORLD, MPI_INFO_NULL);