mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-01 16:28:09 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r352] *** empty log message ***

Browse Source
This commit is contained in:
Albert Cheng 1998-04-17 09:53:57 -05:00
parent d6923f46e0
commit b59ab36893
2 changed files with 20 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
testpar/Makefile.irix64
View File

@ -13,7 +13,8 @@ MPI_LIBS=$(HOME)/ROMIO/lib/IRIX64/libmpio.a -lmpi
CC=cc -ansi -64 CC=cc -ansi -64
# 1429 -- long long non-standard # 1429 -- long long non-standard
WARNING=-woff 1429 # 1178 -- print format not compatible
WARNING=-woff 1429,1178
CFLAGS=-g $(WARNING) CFLAGS=-g $(WARNING)
CPPFLAGS=-I. -I../src $(MPI_INC) CPPFLAGS=-I. -I../src $(MPI_INC)
RM=rm -f RM=rm -f

36
testpar/testphdf5.c
View File

@ -172,7 +172,7 @@ void dataset_print(hssize_t start[], hsize_t count[], hsize_t stride[], DATATYPE
/* print the slab read */ /* print the slab read */
for (i=0; i < count[0]; i++){ for (i=0; i < count[0]; i++){
printf("Row %ld: ", (long)i*stride[0]+start[0]); printf("Row %d: ", (int)(i*stride[0]+start[0]));
for (j=0; j < count[1]; j++){ for (j=0; j < count[1]; j++){
printf("%03d ", *dataptr++); printf("%03d ", *dataptr++);
} }
@ -204,7 +204,7 @@ int dataset_vrfy(hssize_t start[], hsize_t count[], hsize_t stride[], DATATYPE *
if (nerrors <= MAX_ERR_REPORT){ if (nerrors <= MAX_ERR_REPORT){
printf("Dataset Verify failed at [%d][%d](row %d, col %d): expect %d, got %d\n", printf("Dataset Verify failed at [%d][%d](row %d, col %d): expect %d, got %d\n",
i, j, i, j,
(int) i*stride[0]+start[0], (int) j*stride[1]+start[1], (int)(i*stride[0]+start[0]), (int)(j*stride[1]+start[1]),
*(dataset-1), *(original-1)); *(dataset-1), *(original-1));
} }
} }
@ -268,8 +268,8 @@ phdf5writeInd(char *filename)
acc_tpl1 = H5Pcreate (H5P_FILE_ACCESS); acc_tpl1 = H5Pcreate (H5P_FILE_ACCESS);
assert(acc_tpl1 != FAIL); assert(acc_tpl1 != FAIL);
MESG("H5Pcreate access succeed"); MESG("H5Pcreate access succeed");
/* set Independent Parallel access with communicator */ /* set Parallel access with communicator */
ret = H5Pset_mpi(acc_tpl1, comm, info, H5ACC_INDEPENDENT); ret = H5Pset_mpi(acc_tpl1, comm, info);
assert(ret != FAIL); assert(ret != FAIL);
MESG("H5Pset_mpi succeed"); MESG("H5Pset_mpi succeed");
@ -315,7 +315,7 @@ phdf5writeInd(char *filename)
stride[0] = 1; stride[0] = 1;
stride[1] =1; stride[1] =1;
if (verbose) if (verbose)
printf("start[]=(%d,%d), count[]=(%lu,%lu), total datapoints=%lu\n", printf("start[]=(%d,%d), count[]=(%d,%d), total datapoints=%d\n",
start[0], start[1], count[0], count[1], count[0]*count[1]); start[0], start[1], count[0], count[1], count[0]*count[1]);
/* put some trivial data in the data_array */ /* put some trivial data in the data_array */
@ -400,8 +400,8 @@ phdf5readInd(char *filename)
/* setup file access template */ /* setup file access template */
acc_tpl1 = H5Pcreate (H5P_FILE_ACCESS); acc_tpl1 = H5Pcreate (H5P_FILE_ACCESS);
assert(acc_tpl1 != FAIL); assert(acc_tpl1 != FAIL);
/* set Independent Parallel access with communicator */ /* set Parallel access with communicator */
ret = H5Pset_mpi(acc_tpl1, comm, info, H5ACC_INDEPENDENT); ret = H5Pset_mpi(acc_tpl1, comm, info);
assert(ret != FAIL); assert(ret != FAIL);
@ -430,7 +430,7 @@ phdf5readInd(char *filename)
stride[0] = 1; stride[0] = 1;
stride[1] =1; stride[1] =1;
if (verbose) if (verbose)
printf("start[]=(%d,%d), count[]=(%lu,%lu), total datapoints=%lu\n", printf("start[]=(%d,%d), count[]=(%d,%d), total datapoints=%d\n",
start[0], start[1], count[0], count[1], count[0]*count[1]); start[0], start[1], count[0], count[1], count[0]*count[1]);
/* create a file dataspace independently */ /* create a file dataspace independently */
@ -525,8 +525,8 @@ phdf5writeAll(char *filename)
acc_tpl1 = H5Pcreate (H5P_FILE_ACCESS); acc_tpl1 = H5Pcreate (H5P_FILE_ACCESS);
assert(acc_tpl1 != FAIL); assert(acc_tpl1 != FAIL);
MESG("H5Pcreate access succeed"); MESG("H5Pcreate access succeed");
/* set Independent Parallel access with communicator */ /* set Parallel access with communicator */
ret = H5Pset_mpi(acc_tpl1, comm, info, H5ACC_INDEPENDENT); ret = H5Pset_mpi(acc_tpl1, comm, info);
assert(ret != FAIL); assert(ret != FAIL);
MESG("H5Pset_mpi succeed"); MESG("H5Pset_mpi succeed");
@ -567,7 +567,7 @@ phdf5writeAll(char *filename)
/* Dataset1: each process takes a block of rows. */ /* Dataset1: each process takes a block of rows. */
slab_set(start, count, stride, BYROW); slab_set(start, count, stride, BYROW);
if (verbose) if (verbose)
printf("start[]=(%d,%d), count[]=(%lu,%lu), total datapoints=%lu\n", printf("start[]=(%d,%d), count[]=(%d,%d), total datapoints=%d\n",
start[0], start[1], count[0], count[1], count[0]*count[1]); start[0], start[1], count[0], count[1], count[0]*count[1]);
/* create a file dataspace independently */ /* create a file dataspace independently */
@ -613,7 +613,7 @@ if (verbose)
/* Dataset2: each process takes a block of columns. */ /* Dataset2: each process takes a block of columns. */
slab_set(start, count, stride, BYCOL); slab_set(start, count, stride, BYCOL);
if (verbose) if (verbose)
printf("start[]=(%d,%d), count[]=(%lu,%lu), total datapoints=%lu\n", printf("start[]=(%d,%d), count[]=(%d,%d), total datapoints=%d\n",
start[0], start[1], count[0], count[1], count[0]*count[1]); start[0], start[1], count[0], count[1], count[0]*count[1]);
/* put some trivial data in the data_array */ /* put some trivial data in the data_array */
@ -727,8 +727,8 @@ phdf5readAll(char *filename)
acc_tpl1 = H5Pcreate (H5P_FILE_ACCESS); acc_tpl1 = H5Pcreate (H5P_FILE_ACCESS);
assert(acc_tpl1 != FAIL); assert(acc_tpl1 != FAIL);
MESG("H5Pcreate access succeed"); MESG("H5Pcreate access succeed");
/* set Independent Parallel access with communicator */ /* set Parallel access with communicator */
ret = H5Pset_mpi(acc_tpl1, comm, info, H5ACC_INDEPENDENT); ret = H5Pset_mpi(acc_tpl1, comm, info);
assert(ret != FAIL); assert(ret != FAIL);
MESG("H5Pset_mpi succeed"); MESG("H5Pset_mpi succeed");
@ -762,7 +762,7 @@ phdf5readAll(char *filename)
/* Dataset1: each process takes a block of columns. */ /* Dataset1: each process takes a block of columns. */
slab_set(start, count, stride, BYCOL); slab_set(start, count, stride, BYCOL);
if (verbose) if (verbose)
printf("start[]=(%d,%d), count[]=(%lu,%lu), total datapoints=%lu\n", printf("start[]=(%d,%d), count[]=(%d,%d), total datapoints=%d\n",
start[0], start[1], count[0], count[1], count[0]*count[1]); start[0], start[1], count[0], count[1], count[0]*count[1]);
/* create a file dataspace independently */ /* create a file dataspace independently */
@ -812,7 +812,7 @@ if (verbose)
/* Dataset2: each process takes a block of rows. */ /* Dataset2: each process takes a block of rows. */
slab_set(start, count, stride, BYROW); slab_set(start, count, stride, BYROW);
if (verbose) if (verbose)
printf("start[]=(%d,%d), count[]=(%lu,%lu), total datapoints=%lu\n", printf("start[]=(%d,%d), count[]=(%d,%d), total datapoints=%d\n",
start[0], start[1], count[0], count[1], count[0]*count[1]); start[0], start[1], count[0], count[1], count[0]*count[1]);
/* create a file dataspace independently */ /* create a file dataspace independently */
@ -918,8 +918,8 @@ test_split_comm_access(char *filenames[])
acc_tpl = H5Pcreate (H5P_FILE_ACCESS); acc_tpl = H5Pcreate (H5P_FILE_ACCESS);
assert(acc_tpl != FAIL); assert(acc_tpl != FAIL);
/* set Independent Parallel access with communicator */ /* set Parallel access with communicator */
ret = H5Pset_mpi(acc_tpl, comm, info, H5ACC_INDEPENDENT); ret = H5Pset_mpi(acc_tpl, comm, info);
assert(ret != FAIL); assert(ret != FAIL);
/* create the file collectively */ /* create the file collectively */