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/H5f90proto.h | |
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/H5f90proto.h')
-rw-r--r-- | fortran/src/H5f90proto.h | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/fortran/src/H5f90proto.h b/fortran/src/H5f90proto.h index 2a7ce92..6369876 100644 --- a/fortran/src/H5f90proto.h +++ b/fortran/src/H5f90proto.h @@ -877,15 +877,21 @@ extern int_f nh5eset_auto_c(int_f* printflag); #ifndef H5MISCf90_FNAMES # define H5MISCf90_FNAMES #ifdef DF_CAPFNAMES -# define nh5init_types_c FNAME(H5INIT_TYPES_C) +# define nh5init_type_c FNAME(H5INIT_TYPES_C) # define nh5close_types_c FNAME(H5CLOSE_TYPES_C) +# define nh5init_flags_c FNAME(H5INIT_FLAGS_C) #else # define nh5init_types_c FNAME(h5init_types_c) # define nh5close_types_c FNAME(h5close_types_c) +# define nh5init_flags_c FNAME(h5init_flags_c) #endif #endif extern int_f nh5init_types_c(hid_t_f *types, hid_t_f * floatingtypes, hid_t_f * integertypes); extern int_f nh5close_types_c(hid_t_f *types, int_f *lentypes, hid_t_f * floatingtypes, int_f * floatinglen, hid_t_f * integertypes, int_f * integerlen); +extern int_f nh5init_flags_c( int_f *h5d_flags, int_f *h5e_flags, int_f *h5f_flags, + int_f *h5fd_flags, int_f *h5g_flags, int_f *h5i_flags, + int_f *h5p_flags, int_f *h5r_flags, int_f *h5s_flags, + int_f *h5t_flags); #endif /* _H5f90proto_H */ |