summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorDana Robinson <43805+derobins@users.noreply.github.com>2023-05-01 16:06:39 (GMT)
committerGitHub <noreply@github.com>2023-05-01 16:06:39 (GMT)
commit265494b5b94c9f83ce80e06669bab83398c1970b (patch)
treeca6731061157e3022611c66e0237bf42e0fb5b2f /fortran
parent0dceadf245a50f9f8cfe5f75f7caa41471e319a0 (diff)
downloadhdf5-265494b5b94c9f83ce80e06669bab83398c1970b.zip
hdf5-265494b5b94c9f83ce80e06669bab83398c1970b.tar.gz
hdf5-265494b5b94c9f83ce80e06669bab83398c1970b.tar.bz2
Remove "the the" from comments and docs (#2865)
Diffstat (limited to 'fortran')
-rw-r--r--fortran/src/H5Af.c6
-rw-r--r--fortran/src/H5Lf.c2
-rw-r--r--fortran/src/H5Sf.c4
-rw-r--r--fortran/src/H5Tf.c2
-rw-r--r--fortran/test/tH5A_1_8.F9012
5 files changed, 13 insertions, 13 deletions
diff --git a/fortran/src/H5Af.c b/fortran/src/H5Af.c
index ba3b62d..0fdd8fd 100644
--- a/fortran/src/H5Af.c
+++ b/fortran/src/H5Af.c
@@ -359,7 +359,7 @@ done:
* loc_id - Object identifier
* OUTPUTS
*
- * corder_valid - Indicates whether the the creation order data is valid for this attribute
+ * corder_valid - Indicates whether the creation order data is valid for this attribute
* corder - Is a positive integer containing the creation order of the attribute
* cset - Indicates the character set used for the attribute’s name
* data_size - indicates the size, in the number of characters, of the attribute
@@ -427,7 +427,7 @@ done:
* lapl_id - Link access property list
* OUTPUTS
*
- * corder_valid - Indicates whether the the creation order data is valid for this attribute
+ * corder_valid - Indicates whether the creation order data is valid for this attribute
* corder - Is a positive integer containing the creation order of the attribute
* cset - Indicates the character set used for the attribute’s name
* data_size - indicates the size, in the number of characters, of the attribute
@@ -493,7 +493,7 @@ done:
* lapl_id - Link access property list
* OUTPUTS
*
- * corder_valid - Indicates whether the the creation order data is valid for this attribute
+ * corder_valid - Indicates whether the creation order data is valid for this attribute
* corder - Is a positive integer containing the creation order of the attribute
* cset - Indicates the character set used for the attribute’s name
* data_size - indicates the size, in the number of characters, of the attribute
diff --git a/fortran/src/H5Lf.c b/fortran/src/H5Lf.c
index 63bed99..c7ce511 100644
--- a/fortran/src/H5Lf.c
+++ b/fortran/src/H5Lf.c
@@ -232,7 +232,7 @@ done:
* lapl_id - Link access property list
* OUTPUTS
*
- * corder_valid - Indicates whether the the creation order data is valid for this attribute
+ * corder_valid - Indicates whether the creation order data is valid for this attribute
* corder - Is a positive integer containing the creation order of the attribute
* cset - Indicates the character set used for the attribute’s name
* data_size - indicates the size, in the number of characters, of the attribute
diff --git a/fortran/src/H5Sf.c b/fortran/src/H5Sf.c
index d04b639..00b97f8 100644
--- a/fortran/src/H5Sf.c
+++ b/fortran/src/H5Sf.c
@@ -176,7 +176,7 @@ h5scopy_c(hid_t_f *space_id, hid_t_f *new_space_id)
* h5sget_select_hyper_nblocks_c
* PURPOSE
* Call H5SH5Sget_select_hyper_nblocks to
- * get the the number of hyperslab blocks in
+ * get the number of hyperslab blocks in
* the current dataspace selection if successful
* INPUTS
* space_id - identifier of the dataspace
@@ -215,7 +215,7 @@ h5sget_select_hyper_nblocks_c(hid_t_f *space_id, hssize_t_f *num_blocks)
* h5sget_select_elem_npoints_c
* PURPOSE
* Call H5Sget_select_elem_npoints to
- * get the the number of element points in
+ * get the number of element points in
* the current dataspace selection if successful
* INPUTS
* space_id - identifier of the dataspace
diff --git a/fortran/src/H5Tf.c b/fortran/src/H5Tf.c
index 11f62b7..a74f5d1 100644
--- a/fortran/src/H5Tf.c
+++ b/fortran/src/H5Tf.c
@@ -1373,7 +1373,7 @@ DONE:
* type_id - identifier of the dataspace
* member_no - Number of the field whose offset is requested
* OUTPUTS
- * offset - byte offset of the the beginning of the field of
+ * offset - byte offset of the beginning of the field of
* a compound datatype
* RETURNS
* always 0
diff --git a/fortran/test/tH5A_1_8.F90 b/fortran/test/tH5A_1_8.F90
index d43279e..03e26ec 100644
--- a/fortran/test/tH5A_1_8.F90
+++ b/fortran/test/tH5A_1_8.F90
@@ -234,7 +234,7 @@ SUBROUTINE test_attr_corder_create_compact(fcpl,fapl, total_error)
INTEGER(HID_T) :: attr !String Attribute identifier
INTEGER(HSIZE_T), DIMENSION(7) :: data_dims
- LOGICAL :: f_corder_valid ! Indicates whether the the creation order data is valid for this attribute
+ LOGICAL :: f_corder_valid ! Indicates whether the creation order data is valid for this attribute
INTEGER :: corder ! Is a positive integer containing the creation order of the attribute
INTEGER :: cset ! Indicates the character set used for the attribute’s name
INTEGER(HSIZE_T) :: data_size ! indicates the size, in the number of characters
@@ -411,7 +411,7 @@ SUBROUTINE test_attr_null_space(fcpl, fapl, total_error)
INTEGER(HSIZE_T) :: storage_size ! attributes storage requirements
- LOGICAL :: f_corder_valid ! Indicates whether the the creation order data is valid for this attribute
+ LOGICAL :: f_corder_valid ! Indicates whether the creation order data is valid for this attribute
INTEGER :: corder ! Is a positive integer containing the creation order of the attribute
INTEGER :: cset ! Indicates the character set used for the attribute’s name
INTEGER(HSIZE_T) :: data_size ! indicates the size, in the number of characters
@@ -753,7 +753,7 @@ SUBROUTINE test_attr_info_by_idx(new_format, fcpl, fapl, total_error)
INTEGER(HID_T) :: attr !String Attribute identifier
INTEGER(HSIZE_T), DIMENSION(7) :: data_dims
- LOGICAL :: f_corder_valid ! Indicates whether the the creation order data is valid for this attribute
+ LOGICAL :: f_corder_valid ! Indicates whether the creation order data is valid for this attribute
INTEGER :: corder ! Is a positive integer containing the creation order of the attribute
INTEGER :: cset ! Indicates the character set used for the attribute’s name
INTEGER(HSIZE_T) :: data_size ! indicates the size, in the number of characters
@@ -934,7 +934,7 @@ SUBROUTINE attr_info_by_idx_check(obj_id, attrname, n, use_index, total_error )
CHARACTER(LEN=*) :: attrname
INTEGER(HSIZE_T) :: n
LOGICAL :: use_index
- LOGICAL :: f_corder_valid ! Indicates whether the the creation order data is valid for this attribute
+ LOGICAL :: f_corder_valid ! Indicates whether the creation order data is valid for this attribute
INTEGER :: corder ! Is a positive integer containing the creation order of the attribute
INTEGER :: cset ! Indicates the character set used for the attribute’s name
INTEGER(HSIZE_T) :: data_size ! indicates the size, in the number of characters
@@ -1397,7 +1397,7 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error)
INTEGER(HID_T) :: attr !String Attribute identifier
INTEGER(HSIZE_T), DIMENSION(7) :: data_dims
- LOGICAL :: f_corder_valid ! Indicates whether the the creation order data is valid for this attribute
+ LOGICAL :: f_corder_valid ! Indicates whether the creation order data is valid for this attribute
INTEGER :: corder ! Is a positive integer containing the creation order of the attribute
INTEGER :: cset ! Indicates the character set used for the attribute’s name
INTEGER(HSIZE_T) :: data_size ! indicates the size, in the number of characters
@@ -2690,7 +2690,7 @@ SUBROUTINE attr_open_check(fid, dsetname, obj_id, max_attrs, total_error )
INTEGER :: u
CHARACTER (LEN=8) :: attrname
INTEGER :: error
- LOGICAL :: f_corder_valid ! Indicates whether the the creation order data is valid for this attribute
+ LOGICAL :: f_corder_valid ! Indicates whether the creation order data is valid for this attribute
INTEGER :: corder ! Is a positive integer containing the creation order of the attribute
INTEGER :: cset ! Indicates the character set used for the attribute’s name
INTEGER(HSIZE_T) :: data_size ! indicates the size, in the number of characters