diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2000-11-17 22:43:27 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2000-11-17 22:43:27 (GMT) |
| commit | 5dad15399582249d6fa0d7100a84b46116925bf8 (patch) | |
| tree | 9c021ed6bde61abd44769ade48de63c235186983 /fortran/src/H5f90proto.h | |
| parent | cfac5f773e8fc360a69d8384674d7a557d5a43f6 (diff) | |
| download | hdf5-5dad15399582249d6fa0d7100a84b46116925bf8.zip hdf5-5dad15399582249d6fa0d7100a84b46116925bf8.tar.gz hdf5-5dad15399582249d6fa0d7100a84b46116925bf8.tar.bz2 | |
[svn-r2975]
Purpose:
Code maintenance and development
Description:
I added two functions h5open_f and h5close_f to initialize
C library and Fortran interface (flags, predefined datatypes, etc).
Those calls are required for any F90 program that uses HDF5.
I renamed H5f90misc.c and H5f90miscf.f90 files to H5f.c and H5ff.f90.
New functions are added to those new files.
Platforms tested:
Solaris 2.6
Diffstat (limited to 'fortran/src/H5f90proto.h')
| -rw-r--r-- | fortran/src/H5f90proto.h | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/fortran/src/H5f90proto.h b/fortran/src/H5f90proto.h index e252344..c7cc67b 100644 --- a/fortran/src/H5f90proto.h +++ b/fortran/src/H5f90proto.h @@ -889,21 +889,26 @@ extern int_f nh5eget_minor_c(int_f* error_no, _fcd name); extern int_f nh5eset_auto_c(int_f* printflag); /* - * Functions from H5f90misc.c + * Functions from H5f.c */ -#ifndef H5MISCf90_FNAMES -# define H5MISCf90_FNAMES +#ifndef H5_FNAMES +# define H5_FNAMES #ifdef DF_CAPFNAMES +# define nh5open_c FNAME(H5OPEN_C) +# define nh5close_c FNAME(H5CLOSE_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 nh5open_c FNAME(h5open_c) +# define nh5close_c FNAME(h5close_c) # 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 nh5open_c(void); +extern int_f nh5close_c(void); 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); |