dcpl name

Author: scivision

src/write/write.f90

@@ -14,9 +14,9 @@
 
 logical :: exists
 integer :: ierr
-integer(HID_T) :: plist_id, ds_id
+integer(HID_T) :: dcpl, ds_id
 
-plist_id = H5P_DEFAULT_F
+dcpl = H5P_DEFAULT_F
 memspace = H5S_ALL_F
 
 if(.not.self%is_open) error stop 'h5fortran:write: file handle is not open: ' // self%filename
@@ -55,18 +55,18 @@
 
 !> compression
 if(size(mem_dims) >= 2) then
-  call set_deflate(self, mem_dims, plist_id, chunk_size)
+  call set_deflate(self, mem_dims, dcpl, chunk_size)
 endif
 
 !> compact dataset (for very small datasets to increase I/O speed)
 if(present(compact)) then
 !! datasets are EITHER compact or chunked.
-if(compact .and. plist_id == H5P_DEFAULT_F .and. product(dset_dims) * 8 < 60000)  then
+if(compact .and. dcpl == H5P_DEFAULT_F .and. product(dset_dims) * 8 < 60000)  then
 !! 64000 byte limit, here we assumed 8 bytes / element
-  call h5pcreate_f(H5P_DATASET_CREATE_F, plist_id, ierr)
+  call h5pcreate_f(H5P_DATASET_CREATE_F, dcpl, ierr)
   if (check(ierr, self%filename)) error stop "h5fortran:hdf_create:h5pcreate: " // dname
 
-  call h5pset_layout_f(plist_id, H5D_COMPACT_F, ierr)
+  call h5pset_layout_f(dcpl, H5D_COMPACT_F, ierr)
   if (check(ierr, self%filename)) error stop "h5fortran:hdf_create:h5pset_layout: " // dname
 endif
 endif
@@ -80,10 +80,10 @@
 if (ierr/=0) error stop "h5fortran:hdf_create:h5screate:filespace " // dname // " " // self%filename
 
 !> create dataset
-call h5dcreate_f(self%file_id, dname, dtype, space_id=filespace, dset_id=dset_id, hdferr=ierr, dcpl_id=plist_id)
+call h5dcreate_f(self%file_id, dname, dtype, space_id=filespace, dset_id=dset_id, hdferr=ierr, dcpl_id=dcpl)
 if (ierr/=0) error stop "h5fortran:hdf_create:h5dcreate: " // dname // " " // self%filename
 
-call h5pclose_f(plist_id, ierr)
+call h5pclose_f(dcpl, ierr)
 if (ierr/=0) error stop "h5pclose: " // dname // ' in ' // self%filename
 
 end procedure hdf_create