diff options
| author | Albert Cheng <acheng@hdfgroup.org> | 2005-04-25 22:17:44 (GMT) |
|---|---|---|
| committer | Albert Cheng <acheng@hdfgroup.org> | 2005-04-25 22:17:44 (GMT) |
| commit | 33fb554bd35334acec6bd12ea0b7970966f09633 (patch) | |
| tree | f802e04a82a9be36b325458ee272fe53c679aa62 /fortran | |
| parent | 8e29c05d16a5ded6ed6896ad4b9043201473dcec (diff) | |
| download | hdf5-33fb554bd35334acec6bd12ea0b7970966f09633.zip hdf5-33fb554bd35334acec6bd12ea0b7970966f09633.tar.gz hdf5-33fb554bd35334acec6bd12ea0b7970966f09633.tar.bz2 | |
[svn-r10662] Purpose:
bug fix
Description:
Removed some errorous duplicated code segment.
Platforms tested:
heping PP only. simple change.
Misc. update:
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/testpar/thyperslab_wr.f90 | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/fortran/testpar/thyperslab_wr.f90 b/fortran/testpar/thyperslab_wr.f90 index 8c12d30..a9f6f06 100644 --- a/fortran/testpar/thyperslab_wr.f90 +++ b/fortran/testpar/thyperslab_wr.f90 @@ -84,24 +84,6 @@ ! ! Create the dataset with default properties. ! - CALL h5_fixname_f(filename, fix_filename, plac_id, error) - - ! - ! Create the file collectively. - ! - CALL h5fcreate_f(fix_filename, H5F_ACC_TRUNC_F, file_id, error, access_prp = plac_id) - CALL check("h5fcreate_f", error, total_error) - CALL h5pclose_f(plac_id, error) - CALL check("h5pclose_f", error, total_error) - ! - ! Create the data space for the dataset. - ! - CALL h5screate_simple_f(rank, dimsf, filespace, error) - CALL check("h5screate_simple_f", error, total_error) - - ! - ! Create the dataset with default properties. - ! CALL h5dcreate_f(file_id, dsetname, H5T_NATIVE_INTEGER, filespace, & dset_id, error) CALL check("h5dcreate_f", error, total_error) |