diff options
author | luzpaz <luzpaz@users.noreply.github.com> | 2022-08-10 20:57:26 (GMT) |
---|---|---|
committer | GitHub <noreply@github.com> | 2022-08-10 20:57:26 (GMT) |
commit | 174505ca3c27daa30d8affd63bda07ad24f126c5 (patch) | |
tree | 8d5a1aa014056b6c05fd7ea5b5906ca2f65b5afd /fortran/test | |
parent | e794dc5ec44ea73c92a6d3937e86307e87d277ae (diff) | |
download | hdf5-174505ca3c27daa30d8affd63bda07ad24f126c5.zip hdf5-174505ca3c27daa30d8affd63bda07ad24f126c5.tar.gz hdf5-174505ca3c27daa30d8affd63bda07ad24f126c5.tar.bz2 |
Fix typos found in the rest of the hdf5 code-base (#1985)
* Fix typos found in the rest of the hdf5 code-base
* Typo in tool.cmake
* Revert "Typo in tool.cmake"
This reverts commit 06b8403d99757c7d20f1eed530cf317c3d84de4b.
* Fix clang-format styling
Diffstat (limited to 'fortran/test')
-rw-r--r-- | fortran/test/tH5A.F90 | 42 | ||||
-rw-r--r-- | fortran/test/tH5T.F90 | 4 |
2 files changed, 23 insertions, 23 deletions
diff --git a/fortran/test/tH5A.F90 b/fortran/test/tH5A.F90 index 115ce70..f846128 100644 --- a/fortran/test/tH5A.F90 +++ b/fortran/test/tH5A.F90 @@ -383,41 +383,41 @@ CONTAINS CALL h5dopen_f(file_id, dsetname, dset_id, error) CALL check("h5dopen_f",error,total_error) ! - !open the String attrbute by name + !open the String attribute by name ! CALL h5aopen_name_f(dset_id, aname, attr_id, error) CALL check("h5aopen_name_f",error,total_error) ! - !open the CHARACTER attrbute by name + !open the CHARACTER attribute by name ! CALL h5aopen_name_f(dset_id, aname2, attr2_id, error) CALL check("h5aopen_name_f",error,total_error) ! - !open the DOUBLE attrbute by name + !open the DOUBLE attribute by name ! CALL h5aopen_name_f(dset_id, aname3, attr3_id, error) CALL check("h5aopen_name_f",error,total_error) ! - !open the REAL attrbute by name + !open the REAL attribute by name ! CALL h5aopen_name_f(dset_id, aname4, attr4_id, error) CALL check("h5aopen_name_f",error,total_error) ! - !open the INTEGER attrbute by name + !open the INTEGER attribute by name ! CALL h5aopen_name_f(dset_id, aname5, attr5_id, error) CALL check("h5aopen_name_f",error,total_error) ! - !open the NULL attrbute by name + !open the NULL attribute by name ! CALL h5aopen_name_f(dset_id, aname6, attr6_id, error) CALL check("h5aopen_name_f",error,total_error) ! - !get the attrbute name + !get the attribute name ! CALL h5aget_name_f(attr5_id, name_size, attr_name, error) CALL check("h5aget_name_f",error,total_error) @@ -429,44 +429,44 @@ CONTAINS END IF ! - !get the STRING attrbute space + !get the STRING attribute space ! CALL h5aget_space_f(attr_id, attr_space, error) CALL check("h5aget_space_f",error,total_error) ! - !get other attrbute space + !get other attribute space ! CALL h5aget_space_f(attr2_id, attr2_space, error) CALL check("h5aget_space_f",error,total_error) ! - !get the string attrbute datatype + !get the string attribute datatype ! CALL h5aget_type_f(attr_id, attr_type, error) CALL check("h5aget_type_f",error,total_error) ! - !get the character attrbute datatype + !get the character attribute datatype ! CALL h5aget_type_f(attr2_id, attr2_type, error) CALL check("h5aget_type_f",error,total_error) ! - !get the double attrbute datatype + !get the double attribute datatype ! CALL h5aget_type_f(attr3_id, attr3_type, error) CALL check("h5aget_type_f",error,total_error) ! - !get the real attrbute datatype + !get the real attribute datatype ! CALL h5aget_type_f(attr4_id, attr4_type, error) CALL check("h5aget_type_f",error,total_error) ! - !get the integer attrbute datatype + !get the integer attribute datatype ! CALL h5aget_type_f(attr5_id, attr5_type, error) CALL check("h5aget_type_f",error,total_error) ! - !get the null attrbute datatype + !get the null attribute datatype ! CALL h5aget_type_f(attr6_id, attr6_type, error) CALL check("h5aget_type_f",error,total_error) @@ -497,7 +497,7 @@ CONTAINS CALL check("h5aread_f",error,total_error) IF ( (aread_data(1) .NE. attr_data(1)) .OR. (aread_data(2) .NE. attr_data(2)) ) THEN - WRITE(*,*) "Read back string attrbute is wrong", aread_data(1), aread_data(2) + WRITE(*,*) "Read back string attribute is wrong", aread_data(1), aread_data(2) total_error = total_error + 1 END IF @@ -507,7 +507,7 @@ CONTAINS CALL h5aread_f(attr2_id, H5T_NATIVE_CHARACTER, aread_character_data, data_dims, error) CALL check("h5aread_f",error,total_error) IF (aread_character_data .NE. 'A' ) THEN - WRITE(*,*) "Read back character attrbute is wrong ",aread_character_data + WRITE(*,*) "Read back character attribute is wrong ",aread_character_data total_error = total_error + 1 END IF ! @@ -516,7 +516,7 @@ CONTAINS data_dims(1) = 1 CALL h5aread_f(attr3_id, H5T_NATIVE_DOUBLE, aread_double_data, data_dims, error) CALL check("h5aread_f",error,total_error) - CALL VERIFY("Read back double attrbute is wrong", aread_double_data(1),3.459_Fortran_DOUBLE,total_error) + CALL VERIFY("Read back double attribute is wrong", aread_double_data(1),3.459_Fortran_DOUBLE,total_error) ! !read the real attribute data back to memory @@ -524,7 +524,7 @@ CONTAINS data_dims(1) = 1 CALL h5aread_f(attr4_id, H5T_NATIVE_REAL, aread_real_data, data_dims, error) CALL check("h5aread_f",error,total_error) - CALL VERIFY("Read back real attrbute is wrong", aread_real_data(1),4.0,total_error) + CALL VERIFY("Read back real attribute is wrong", aread_real_data(1),4.0,total_error) ! !read the Integer attribute data back to memory ! @@ -532,7 +532,7 @@ CONTAINS CALL h5aread_f(attr5_id, H5T_NATIVE_INTEGER, aread_integer_data, data_dims, error) CALL check("h5aread_f",error,total_error) IF (aread_integer_data(1) .NE. 5 ) THEN - WRITE(*,*) "Read back integer attrbute is wrong ", aread_integer_data + WRITE(*,*) "Read back integer attribute is wrong ", aread_integer_data total_error = total_error + 1 END IF ! @@ -542,7 +542,7 @@ CONTAINS CALL h5aread_f(attr6_id, H5T_NATIVE_INTEGER, aread_null_data, data_dims, error) CALL check("h5aread_f",error,total_error) IF (aread_null_data(1) .NE. 7 ) THEN - WRITE(*,*) "Read back null attrbute is wrong ", aread_null_data + WRITE(*,*) "Read back null attribute is wrong ", aread_null_data total_error = total_error + 1 END IF diff --git a/fortran/test/tH5T.F90 b/fortran/test/tH5T.F90 index d24ac89..7673993 100644 --- a/fortran/test/tH5T.F90 +++ b/fortran/test/tH5T.F90 @@ -862,7 +862,7 @@ CONTAINS CALL h5fcreate_f(fix_filename,H5F_ACC_TRUNC_F,file_id,error) CALL check("h5fcreate_f", error, total_error) ! - ! Create enumeration datatype with tow values + ! Create enumeration datatype with two values ! CALL h5tenum_create_f(H5T_NATIVE_INTEGER,dtype_id,error) CALL check("h5tenum_create_f", error, total_error) @@ -871,7 +871,7 @@ CONTAINS CALL h5tenum_insert_f(dtype_id,false,DATA(2),error) CALL check("h5tenum_insert_f", error, total_error) ! - ! Create write and close a dataset with enum datatype + ! Create write and close a dataset with enum datatype ! CALL h5screate_simple_f(1,dsize,dspace_id,error) CALL check("h5screate_simple_f", error, total_error) |