diff options
Diffstat (limited to 'fortran/src/H5Ff.c')
| -rw-r--r-- | fortran/src/H5Ff.c | 76 |
1 files changed, 38 insertions, 38 deletions
diff --git a/fortran/src/H5Ff.c b/fortran/src/H5Ff.c index cc3fb36..4b21b45 100644 --- a/fortran/src/H5Ff.c +++ b/fortran/src/H5Ff.c @@ -20,11 +20,11 @@ /*---------------------------------------------------------------------------- * Name: h5fcreate_c * Purpose: Call H5Fcreate to create the file - * Inputs: name - name of 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 + * acc_prp - identifier of access property list * Outputs: file_id - file identifier * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal @@ -65,7 +65,7 @@ nh5fcreate_c(_fcd name, int_f *namelen, int_f *access_flags, hid_t_f* crt_prp, h * Convert FORTRAN name to C name */ c_namelen = *namelen; - c_name = (char *)HD5f2cstring(name, (size_t)c_namelen); + c_name = (char *)HD5f2cstring(name, (size_t)c_namelen); if (c_name == NULL) return ret_value; /* @@ -78,15 +78,15 @@ nh5fcreate_c(_fcd name, int_f *namelen, int_f *access_flags, hid_t_f* crt_prp, h 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 + * a group, an attribute or a named data type * scope - integer to specify the flushing action, either - * H5F_SCOPE_GLOBAL or H5F_SCOPE_LOCAL + * H5F_SCOPE_GLOBAL or H5F_SCOPE_LOCAL * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su * Friday, November 5, 1999 @@ -112,17 +112,17 @@ nh5fflush_c (hid_t_f *object_id, int_f *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 + * dsetname - name of dataset * namelen - dsetname length * file_id - file identifier for the file to be mounted - * acc_prp - identifier of access property list + * acc_prp - identifier of access property list * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su * Monday, October 25, 1999 @@ -153,7 +153,7 @@ nh5fmount_c (hid_t_f *loc_id, _fcd dsetname, int_f *namelen, hid_t_f *file_id, h * Convert FORTRAN name to C name */ c_namelen = *namelen; - c_name = (char *)HD5f2cstring(dsetname, (size_t)c_namelen); + c_name = (char *)HD5f2cstring(dsetname, (size_t)c_namelen); if (c_name == NULL) return ret_value; /* @@ -165,13 +165,13 @@ nh5fmount_c (hid_t_f *loc_id, _fcd dsetname, int_f *namelen, hid_t_f *file_id, h 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 + * dsetname - name of dataset * namelen - dsetname length * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su @@ -193,7 +193,7 @@ nh5funmount_c (hid_t_f *loc_id, _fcd dsetname, int_f *namelen) * Convert FORTRAN name to C name */ c_namelen = *namelen; - c_name = (char *)HD5f2cstring(dsetname, (size_t)c_namelen); + c_name = (char *)HD5f2cstring(dsetname, (size_t)c_namelen); if (c_name == NULL) return ret_value; /* @@ -205,17 +205,17 @@ nh5funmount_c (hid_t_f *loc_id, _fcd dsetname, int_f *namelen) HDfree(c_name); return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5fopen_c * Purpose: Call H5Fopen to open the file - * Inputs: name - name of the file + * Inputs: name - name of the file * namelen - name length * access_flags - file access flags - * acc_prp - identifier of access property list + * acc_prp - identifier of access property list * Outputs: file_id - file identifier * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal @@ -249,7 +249,7 @@ nh5fopen_c (_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *acc_prp, hi * Convert FORTRAN name to C name */ c_namelen = *namelen; - c_name = (char *)HD5f2cstring(name, (size_t)c_namelen); + c_name = (char *)HD5f2cstring(name, (size_t)c_namelen); if (c_name == NULL) return ret_value; /* @@ -263,7 +263,7 @@ nh5fopen_c (_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *acc_prp, hi HDfree(c_name); ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5freopen_c @@ -289,7 +289,7 @@ nh5freopen_c (hid_t_f *file_id1, hid_t_f *file_id2) ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5fget_create_plist_c @@ -315,7 +315,7 @@ nh5fget_create_plist_c (hid_t_f *file_id, hid_t_f *prop_id) ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5fget_access_plist_c @@ -341,15 +341,15 @@ nh5fget_access_plist_c (hid_t_f *file_id, hid_t_f *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 + * 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. + * is an HDF5 file, and negative on failure. * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Tuesday, August 3, 1999 @@ -367,7 +367,7 @@ nh5fis_hdf5_c (_fcd name, int_f *namelen, int_f *flag) * Convert FORTRAN name to C name */ c_namelen = *namelen; - c_name = (char *)HD5f2cstring(name, (size_t)c_namelen); + c_name = (char *)HD5f2cstring(name, (size_t)c_namelen); if (c_name == NULL) return ret_value; /* @@ -379,7 +379,7 @@ nh5fis_hdf5_c (_fcd name, int_f *namelen, int_f *flag) HDfree(c_name); return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5fclose_c * Purpose: Call H5Fclose to close the file @@ -390,7 +390,7 @@ nh5fis_hdf5_c (_fcd name, int_f *namelen, int_f *flag) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5fclose_c ( hid_t_f *file_id ) { int ret_value = 0; @@ -405,21 +405,21 @@ nh5fclose_c ( hid_t_f *file_id ) * Purpose: Call H5Fget_obj_count to get number of open objects within a file * Inputs: file_id - identifier of the file to be closed * obj_type - type of the object - * Returns: obj_count - number of objects + * Returns: obj_count - number of objects * 0 on success, -1 on failure * Programmer: Elena Pourmal * Monday, September 30, 2002 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5fget_obj_count_c ( hid_t_f *file_id , int_f *obj_type, int_f * obj_count) { int ret_value = 0; hid_t c_file_id; unsigned c_obj_type; int c_obj_count; - + c_file_id = (hid_t)*file_id; c_obj_type = (unsigned) *obj_type; @@ -439,7 +439,7 @@ nh5fget_obj_count_c ( hid_t_f *file_id , int_f *obj_type, int_f * obj_count) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5fget_obj_ids_c ( hid_t_f *file_id , int_f *obj_type, int_f *max_objs, hid_t_f *obj_ids) { int ret_value = 0; @@ -464,7 +464,7 @@ nh5fget_obj_ids_c ( hid_t_f *file_id , int_f *obj_type, int_f *max_objs, hid_t_f * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5fget_freespace_c ( hid_t_f *file_id , hssize_t_f *free_space) { int ret_value = 0; @@ -479,9 +479,9 @@ nh5fget_freespace_c ( hid_t_f *file_id , hssize_t_f *free_space) /*---------------------------------------------------------------------------- * Name: h5fget_name_c - * Purpose: Call H5Fget_name to get file's name - * Inputs: obj_id - object identifier - * buflen -size of the buffer + * Purpose: Call H5Fget_name to get file's name + * Inputs: obj_id - object identifier + * buflen -size of the buffer * Outputs: buf - buffer to hold the name * size - size of the file's name * Returns: 0 on success, -1 on failure @@ -501,7 +501,7 @@ nh5fget_name_c(hid_t_f *obj_id, size_t_f *size, _fcd buf, size_t_f *buflen) */ if ((c_buf = HDmalloc((size_t)*buflen +1)) == NULL) HGOTO_DONE(FAIL); - + /* * Call H5Aget_name function */ @@ -522,7 +522,7 @@ done: /*---------------------------------------------------------------------------- * Name: h5fget_filesize_c * Purpose: Call H5Fget_filesize to get file size - * Inputs: file_id - file identifier + * Inputs: file_id - file identifier * Outputs: size - size of the file * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal |