diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2000-11-03 19:45:50 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2000-11-03 19:45:50 (GMT) |
| commit | 46f49b84cf37d98fc68d582c857f98345f2e5835 (patch) | |
| tree | 05496d12e49b67f871814f3c11f4f69b18d5b419 /fortran/src/H5Df.c | |
| parent | 0556db98e281f377b54e7e918bc296604b490993 (diff) | |
| download | hdf5-46f49b84cf37d98fc68d582c857f98345f2e5835.zip hdf5-46f49b84cf37d98fc68d582c857f98345f2e5835.tar.gz hdf5-46f49b84cf37d98fc68d582c857f98345f2e5835.tar.bz2 | |
[svn-r2795]
Purpose:
New feature
Description:
Now all Fortran flags such as H5F_ACC_RDONLY_F (previously defined in the
H5fortran_flags.f90 file) are generated at runtime when h5init_fortran_f
subroutine is called. All flags have now the same value as
corresponding C flags. This change affects user's programming model:
Every Fortran program that uses F90 HDF5 Library has to call
h5init_fortran_f(error) subroutine before the first call to the
F90 HDF5 Library and h5close_fortran_f(error) after the last call to the
Library. h5init(close)_types_f calls are not needed anymore since
F90 datatypes are intialized(closed) with the h5init(close)_fortran_f
calls.
Platforms tested:
O2K and Solaris2.7
Diffstat (limited to 'fortran/src/H5Df.c')
| -rw-r--r-- | fortran/src/H5Df.c | 28 |
1 files changed, 21 insertions, 7 deletions
diff --git a/fortran/src/H5Df.c b/fortran/src/H5Df.c index d4d70c0..76646fb 100644 --- a/fortran/src/H5Df.c +++ b/fortran/src/H5Df.c @@ -30,8 +30,10 @@ nh5dcreate_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_ /* * Define creation property */ - c_crt_prp = *crt_prp; + c_crt_prp = (hid_t)*crt_prp; +/* if ( H5P_DEFAULT_F == c_crt_prp ) c_crt_prp = H5P_DEFAULT; +*/ /* * Convert FORTRAN name to C name @@ -150,8 +152,10 @@ nh5dwrite_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_ /* * Define transfer property */ - c_xfer_prp = *xfer_prp; + c_xfer_prp = (hid_t)*xfer_prp; +/* if ( H5P_DEFAULT_F == c_xfer_prp ) c_xfer_prp = H5P_DEFAULT; +*/ /* * Call H5Dwrite function. @@ -198,8 +202,10 @@ nh5dwrite_ref_obj_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_ /* * Define transfer property */ - c_xfer_prp = *xfer_prp; + c_xfer_prp = (hid_t)*xfer_prp; +/* if ( H5P_DEFAULT_F == c_xfer_prp ) c_xfer_prp = H5P_DEFAULT; +*/ /* * Allocate temporary buffer and copy references from Fortran. @@ -258,8 +264,10 @@ nh5dwrite_ref_reg_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_ /* * Define transfer property */ - c_xfer_prp = *xfer_prp; + c_xfer_prp = (hid_t)*xfer_prp; +/* if ( H5P_DEFAULT_F == c_xfer_prp ) c_xfer_prp = H5P_DEFAULT; +*/ /* * Allocate temporary buffer and copy references from Fortran. @@ -344,8 +352,10 @@ nh5dread_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t /* * Define transfer property */ - c_xfer_prp = *xfer_prp; + c_xfer_prp = (hid_t)*xfer_prp; +/* if ( H5P_DEFAULT_F == c_xfer_prp ) c_xfer_prp = H5P_DEFAULT; +*/ /* * Call H5Dread function. @@ -392,8 +402,10 @@ nh5dread_ref_obj_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_i /* * Define transfer property */ - c_xfer_prp = *xfer_prp; + c_xfer_prp = (hid_t)*xfer_prp; +/* if ( H5P_DEFAULT_F == c_xfer_prp ) c_xfer_prp = H5P_DEFAULT; +*/ /* * Allocate temporary buffer. @@ -452,8 +464,10 @@ nh5dread_ref_reg_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_i /* * Define transfer property */ - c_xfer_prp = *xfer_prp; + c_xfer_prp = (hid_t)*xfer_prp; +/* if ( H5P_DEFAULT_F == c_xfer_prp ) c_xfer_prp = H5P_DEFAULT; +*/ /* * Allocate temporary buffer. |