From a36a6e42c2706cba21808cddd69da7814109bee7 Mon Sep 17 00:00:00 2001 From: Raymond Lu Date: Wed, 11 Jul 2001 17:21:33 -0500 Subject: [svn-r4194] Purpose: Bug Fix Description: For dataset writing in multiple group testing, change datatype from double to integer to avoid possible problem. Platforms tested: Problem was found on T3E. Don't have access to it. Will check it after the group testing tomorrow. July 12, 2001. --- testpar/t_mdset.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/testpar/t_mdset.c b/testpar/t_mdset.c index dab37e2..14658df 100644 --- a/testpar/t_mdset.c +++ b/testpar/t_mdset.c @@ -156,7 +156,7 @@ void write_dataset(hid_t memspace, hid_t filespace, hid_t gid) for(n=0; n < NDATASET; n++) { sprintf(dname, "dataset%d", n); - did = H5Dcreate(gid, dname, H5T_NATIVE_DOUBLE, filespace, + did = H5Dcreate(gid, dname, H5T_NATIVE_INT, filespace, H5P_DEFAULT); VRFY((did > 0), dname); @@ -164,7 +164,7 @@ void write_dataset(hid_t memspace, hid_t filespace, hid_t gid) for(j=0; j < SIZE; j++) outme[i][j] = n*1000 + mpi_rank; - H5Dwrite(did, H5T_NATIVE_DOUBLE, memspace, filespace, H5P_DEFAULT, + H5Dwrite(did, H5T_NATIVE_INT, memspace, filespace, H5P_DEFAULT, outme); H5Dclose(did); } @@ -283,7 +283,7 @@ int read_dataset(hid_t memspace, hid_t filespace, hid_t gid) did = H5Dopen(gid, dname); VRFY((did>0), dname); - H5Dread(did, H5T_NATIVE_DOUBLE, memspace, filespace, H5P_DEFAULT, + H5Dread(did, H5T_NATIVE_INT, memspace, filespace, H5P_DEFAULT, indata); for(i=0; i