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/H5Dff.f90 | |
| 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/H5Dff.f90')
| -rw-r--r-- | fortran/src/H5Dff.f90 | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/fortran/src/H5Dff.f90 b/fortran/src/H5Dff.f90 index ba9f9a3..f573ea7 100644 --- a/fortran/src/H5Dff.f90 +++ b/fortran/src/H5Dff.f90 @@ -2,8 +2,7 @@ ! This file contains Fortran90 interfaces for H5D functions. ! MODULE H5D - USE H5FORTRAN_TYPES -! USE H5FORTRAN_FLAGS - do not need it here since it is included in H5R already + USE H5GLOBAL USE H5R INTERFACE h5dwrite_f @@ -383,11 +382,14 @@ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp ! Transfer property list identifier - INTEGER(HID_T) :: xfer_prp_default = H5P_DEFAULT_F - INTEGER(HID_T) :: mem_space_id_default = H5S_ALL_F - INTEGER(HID_T) :: file_space_id_default = H5S_ALL_F + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default INTEGER, EXTERNAL :: h5dwrite_c + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F if (present(xfer_prp)) xfer_prp_default = xfer_prp if (present(mem_space_id)) mem_space_id_default = mem_space_id if (present(file_space_id)) file_space_id_default = file_space_id @@ -783,10 +785,13 @@ ! Transfer property list identifier INTEGER, EXTERNAL :: h5dwrite_c - INTEGER(HID_T) :: xfer_prp_default = H5P_DEFAULT_F - INTEGER(HID_T) :: mem_space_id_default = H5S_ALL_F - INTEGER(HID_T) :: file_space_id_default = H5S_ALL_F + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F if (present(xfer_prp)) xfer_prp_default = xfer_prp if (present(mem_space_id)) mem_space_id_default = mem_space_id if (present(file_space_id)) file_space_id_default = file_space_id |