diff options
Diffstat (limited to 'fortran/src/H5Ff.c')
| -rw-r--r-- | fortran/src/H5Ff.c | 451 |
1 files changed, 451 insertions, 0 deletions
diff --git a/fortran/src/H5Ff.c b/fortran/src/H5Ff.c new file mode 100644 index 0000000..9e3d56d --- /dev/null +++ b/fortran/src/H5Ff.c @@ -0,0 +1,451 @@ +#include "H5f90.h" + +/*---------------------------------------------------------------------------- + * Name: h5fcreate_c + * Purpose: Call H5Fcreate to create the file + * Inputs: name - name of the file + * namelen - name length + * access_flags - file access flags + * crt_pr - identifier of creation property list + * acc_prp - identifier of access property list + * Outputs: file_id - file identifier + * Returns: 0 on success, -1 on failure + * Programmer: Elena Pourmal + * Monday, July 26, 1999 + * Modifications: + *---------------------------------------------------------------------------*/ +int_f +nh5fcreate_c(_fcd name, int_f *namelen, int_f *access_flags, hid_t_f* crt_prp, hid_t_f *acc_prp, hid_t_f *file_id) +{ + int ret_value = -1; + char *c_name; + int c_namelen; + hid_t c_file_id; + unsigned c_access_flags; + hid_t c_crt_prp; + hid_t c_acc_prp; + int CASE; + hid_t CASE_prp; + + /* + * Define access flags + */ + CASE = (int)*access_flags; + switch (CASE) { + + case H5F_ACC_RDWR_F: + c_access_flags = H5F_ACC_RDWR; + break; + + case H5F_ACC_RDONLY_F: + c_access_flags = H5F_ACC_RDONLY; + break; + + case H5F_ACC_TRUNC_F: + c_access_flags = H5F_ACC_TRUNC; + break; + + case H5F_ACC_EXCL_F: + c_access_flags = H5F_ACC_EXCL; + break; + + case H5F_ACC_DEBUG_F: + c_access_flags = H5F_ACC_DEBUG; + break; + + default: + return ret_value; + } + + /* + * Define creation property + */ + c_crt_prp = *crt_prp; + if ( H5P_DEFAULT_F == c_crt_prp ) c_crt_prp = H5P_DEFAULT; + + /* + * Define access property + */ + c_acc_prp = *acc_prp; + if ( H5P_DEFAULT_F == c_acc_prp ) c_acc_prp = H5P_DEFAULT; + + /* + * Convert FORTRAN name to C name + */ + c_namelen = *namelen; + c_name = (char *)HD5f2cstring(name, c_namelen); + if (c_name == NULL) return ret_value; + + /* + * Call H5Fcreate function. + */ + c_file_id = H5Fcreate(c_name, c_access_flags, c_crt_prp, c_acc_prp); + + if (c_file_id < 0) return ret_value; + *file_id = c_file_id; + HDfree(c_name); + ret_value = 0; + return ret_value; +} + +/*---------------------------------------------------------------------------- + * Name: h5fflush_c + * Purpose: Call H5Fflush to flush the object + * Inputs: object_id - identifier of either a file, a dataset, + * a group, an attribute or a named data type + * scope - integer to specify the flushing action, either + * H5F_SCOPE_GLOBAL or H5F_SCOPE_LOCAL + * Returns: 0 on success, -1 on failure + * Programmer: Xiangyang Su + * Friday, November 5, 1999 + * Modifications: + *---------------------------------------------------------------------------*/ +int_f +nh5fflush_c (hid_t_f *object_id, int_f *scope) +{ + int ret_value = -1; + hid_t c_file_id; + int CASE; + H5F_scope_t c_scope; + htri_t status; + + /* + * Define scope flags + */ + CASE = (int)*scope; + switch (CASE) { + + case H5F_SCOPE_LOCAL_F: + c_scope = H5F_SCOPE_LOCAL; + break; + + case H5F_SCOPE_GLOBAL_F: + c_scope = H5F_SCOPE_GLOBAL; + break; + + default: + return ret_value; + } + + /* + * Call H5Fflush function. + */ + + c_file_id = *object_id; + + status = H5Fflush(c_file_id, c_scope); + + if (status >= 0) ret_value = 0; + + return ret_value; +} + + +/*---------------------------------------------------------------------------- + * Name: h5fmount_c + * Purpose: Call H5Fmount to mount the file + * Inputs: loc_id - Identifier for file or group + * dsetname - name of dataset + * namelen - dsetname length + * file_id - file identifier for the file to be mounted + * acc_prp - identifier of access property list + * Returns: 0 on success, -1 on failure + * Programmer: Xiangyang Su + * Monday, October 25, 1999 + * Modifications: + *---------------------------------------------------------------------------*/ +int_f +nh5fmount_c (hid_t_f *loc_id, _fcd dsetname, int_f *namelen, hid_t_f *file_id, hid_t_f *acc_prp) +{ + int ret_value = -1; + char *c_name; + int c_namelen; + hid_t c_loc_id; + hid_t c_file_id; + hid_t c_acc_prp; + htri_t status; + + /* + * Define access property + */ + c_acc_prp = *acc_prp; + if ( H5P_DEFAULT_F == c_acc_prp ) c_acc_prp = H5P_DEFAULT; + + c_loc_id = *loc_id; + c_file_id = *file_id; + /* + * Convert FORTRAN name to C name + */ + c_namelen = *namelen; + c_name = (char *)HD5f2cstring(dsetname, c_namelen); + if (c_name == NULL) return ret_value; + + /* + * Call H5Fmount function. + */ + status = H5Fmount(c_loc_id, c_name, c_file_id, c_acc_prp); + + if (status >= 0) ret_value = 0; + + HDfree(c_name); + return ret_value; +} + +/*---------------------------------------------------------------------------- + * Name: h5funmount_c + * Purpose: Call H5Funmount to unmount the file + * Inputs: loc_id - Identifier for file or group + * dsetname - name of dataset + * namelen - dsetname length + * Returns: 0 on success, -1 on failure + * Programmer: Xiangyang Su + * Monday, October 25, 1999 + * Modifications: + *---------------------------------------------------------------------------*/ +int_f +nh5funmount_c (hid_t_f *loc_id, _fcd dsetname, int_f *namelen) +{ + int ret_value = -1; + char *c_name; + int c_namelen; + hid_t c_loc_id; + htri_t status; + + c_loc_id = *loc_id; + + /* + * Convert FORTRAN name to C name + */ + c_namelen = *namelen; + c_name = (char *)HD5f2cstring(dsetname, c_namelen); + if (c_name == NULL) return ret_value; + + /* + * Call H5Fmount function. + */ + status = H5Funmount(c_loc_id, c_name); + + if (status >= 0) ret_value = 0; + + HDfree(c_name); + return ret_value; +} + + + +/*---------------------------------------------------------------------------- + * Name: h5fopen_c + * Purpose: Call H5Fopen to open the file + * Inputs: name - name of the file + * namelen - name length + * access_flags - file access flags + * acc_prp - identifier of access property list + * Outputs: file_id - file identifier + * Returns: 0 on success, -1 on failure + * Programmer: Elena Pourmal + * Tuesday, August 3, 1999 + * Modifications: + *---------------------------------------------------------------------------*/ +int_f +nh5fopen_c (_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *acc_prp, hid_t_f *file_id) +{ + int ret_value = -1; + char *c_name; + int c_namelen; + hid_t c_file_id; + unsigned c_access_flags; + hid_t c_acc_prp; + int CASE; + hid_t CASE_prp; + + /* + * Define access flags + */ + CASE = (int)*access_flags; + switch (CASE) { + + case H5F_ACC_RDWR_F: + c_access_flags = H5F_ACC_RDWR; + break; + + case H5F_ACC_RDONLY_F: + c_access_flags = H5F_ACC_RDONLY; + break; + + case H5F_ACC_TRUNC_F: + c_access_flags = H5F_ACC_TRUNC; + break; + + case H5F_ACC_EXCL_F: + c_access_flags = H5F_ACC_EXCL; + break; + + case H5F_ACC_DEBUG_F: + c_access_flags = H5F_ACC_DEBUG; + break; + + default: + return ret_value; + } + + /* + * Define access property + */ + c_acc_prp = *acc_prp; + if ( H5P_DEFAULT_F == c_acc_prp ) c_acc_prp = H5P_DEFAULT; + + /* + * Convert FORTRAN name to C name + */ + c_namelen = *namelen; + c_name = (char *)HD5f2cstring(name, c_namelen); + if (c_name == NULL) return ret_value; + + /* + * Call H5Fopen function. + */ + c_file_id = H5Fopen(c_name, c_access_flags, c_acc_prp); + + if (c_file_id < 0) return ret_value; + *file_id = (hid_t_f)c_file_id; + + HDfree(c_name); + ret_value = 0; + return ret_value; +} + +/*---------------------------------------------------------------------------- + * Name: h5freopen_c + * Purpose: Call H5Freopen to open the file + * Inputs: file_id1 - file identifier + * Outputs: file_id2 - file identifier + * Returns: 0 on success, -1 on failure + * Programmer: Xiangyang Su + * Wednesday, November 3, 1999 + * Modifications: + *---------------------------------------------------------------------------*/ +int_f +nh5freopen_c (hid_t_f *file_id1, hid_t_f *file_id2) +{ + int ret_value = -1; + hid_t c_file_id1, c_file_id2; + + c_file_id1 = *file_id1; + c_file_id2 = H5Freopen(c_file_id1); + + if (c_file_id2 < 0) return ret_value; + *file_id2 = (hid_t_f)c_file_id2; + + ret_value = 0; + return ret_value; +} + +/*---------------------------------------------------------------------------- + * Name: h5fget_create_plist_c + * Purpose: Call H5Fget_create_plist to get the file creation property list + * Inputs: file_id - file identifier + * Outputs: prop_id - creation property list identifier + * Returns: 0 on success, -1 on failure + * Programmer: Xiangyang Su + * Wednesday, November 3, 1999 + * Modifications: + *---------------------------------------------------------------------------*/ +int_f +nh5fget_create_plist_c (hid_t_f *file_id, hid_t_f *prop_id) +{ + int ret_value = -1; + hid_t c_file_id, c_prop_id; + + c_file_id = *file_id; + c_prop_id = H5Fget_create_plist(c_file_id); + + if (c_prop_id < 0) return ret_value; + *prop_id = (hid_t_f)c_prop_id; + + ret_value = 0; + return ret_value; +} + +/*---------------------------------------------------------------------------- + * Name: h5fget_access_plist_c + * Purpose: Call H5Fget_access_plist to get the file access property list + * Inputs: file_id - file identifier + * Outputs: access_id - access property list identifier + * Returns: 0 on success, -1 on failure + * Programmer: Xiangyang Su + * Friday, November 5, 1999 + * Modifications: + *---------------------------------------------------------------------------*/ +int_f +nh5fget_access_plist_c (hid_t_f *file_id, hid_t_f *access_id) +{ + int ret_value = -1; + hid_t c_file_id, c_access_id; + + c_file_id = *file_id; + c_access_id = H5Fget_access_plist(c_file_id); + + if (c_access_id < 0) return ret_value; + *access_id = (hid_t_f)c_access_id; + + ret_value = 0; + return ret_value; +} + +/*---------------------------------------------------------------------------- + * Name: h5fis_hdf5_c + * Purpose: Call H5Fis_hdf5 to determone if the file is an HDF5 file + * Inputs: name - name of the file + * namelen - name length + * Outputs: flag - 0 if file is not HDF5 file , positive if a file + * is an HDF5 file, and negative on failure. + * Returns: 0 on success, -1 on failure + * Programmer: Elena Pourmal + * Tuesday, August 3, 1999 + * Modifications: + *---------------------------------------------------------------------------*/ +int_f +nh5fis_hdf5_c (_fcd name, int_f *namelen, int_f *flag) +{ + int ret_value = -1; + char *c_name; + int c_namelen; + htri_t status; + + /* + * Convert FORTRAN name to C name + */ + c_namelen = *namelen; + c_name = (char *)HD5f2cstring(name, c_namelen); + if (c_name == NULL) return ret_value; + + /* + * Call H5Fopen function. + */ + status = H5Fis_hdf5(c_name); + *flag = (int_f)status; + if (status >= 0) ret_value = 0; + + HDfree(c_name); + return ret_value; +} +/*---------------------------------------------------------------------------- + * Name: h5fclose_c + * Purpose: Call H5Fclose to close the file + * Inputs: file_id - identifier of the file to be closed + * Returns: 0 on success, -1 on failure + * Programmer: Elena Pourmal + * Monday, July 26, 1999 + * Modifications: + *---------------------------------------------------------------------------*/ + +int_f +nh5fclose_c ( hid_t_f *file_id ) +{ + int ret_value = 0; + hid_t c_file_id; + + c_file_id = *file_id; + if ( H5Fclose(c_file_id) < 0 ) ret_value = -1; + return ret_value; +} |