diff options
author | Dana Robinson <43805+derobins@users.noreply.github.com> | 2023-07-27 21:08:47 (GMT) |
---|---|---|
committer | GitHub <noreply@github.com> | 2023-07-27 21:08:47 (GMT) |
commit | 61186204c020a81b5b0044a3b5e08311ccf1424d (patch) | |
tree | d39acd70c119e92640277d4f595963f07d77f13c /fortran/test | |
parent | 1e91d96fa02466ffe451319bdac1005f84dc7993 (diff) | |
download | hdf5-61186204c020a81b5b0044a3b5e08311ccf1424d.zip hdf5-61186204c020a81b5b0044a3b5e08311ccf1424d.tar.gz hdf5-61186204c020a81b5b0044a3b5e08311ccf1424d.tar.bz2 |
Remove "Programmer" lines (#3294)
Diffstat (limited to 'fortran/test')
-rw-r--r-- | fortran/test/H5_test_buildiface.F90 | 3 | ||||
-rw-r--r-- | fortran/test/t.c | 8 | ||||
-rw-r--r-- | fortran/test/tH5A_1_8.F90 | 4 | ||||
-rw-r--r-- | fortran/test/tH5G_1_8.F90 | 43 | ||||
-rw-r--r-- | fortran/test/tH5MISC_1_8.F90 | 4 | ||||
-rw-r--r-- | fortran/test/tH5O_F03.F90 | 10 | ||||
-rw-r--r-- | fortran/test/tH5P.F90 | 6 | ||||
-rw-r--r-- | fortran/test/tH5P_F03.F90 | 14 | ||||
-rw-r--r-- | fortran/test/tH5T.F90 | 4 | ||||
-rw-r--r-- | fortran/test/tH5T_F03.F90 | 15 | ||||
-rw-r--r-- | fortran/test/tf.F90 | 19 |
11 files changed, 2 insertions, 128 deletions
diff --git a/fortran/test/H5_test_buildiface.F90 b/fortran/test/H5_test_buildiface.F90 index ca945db..60f2e4c 100644 --- a/fortran/test/H5_test_buildiface.F90 +++ b/fortran/test/H5_test_buildiface.F90 @@ -38,9 +38,6 @@ ! help@hdfgroup.org. * ! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ! -! AUTHOR -! M. Scot Breitenfeld -! !***** #include <H5config_f.inc> diff --git a/fortran/test/t.c b/fortran/test/t.c index f3b326b..bda1226 100644 --- a/fortran/test/t.c +++ b/fortran/test/t.c @@ -34,8 +34,6 @@ * full_name - buffer to return full name * full_namelen - name length * Returns: 0 on success, -1 on failure - * Programmer: Elena Pourmal - * Friday, September 13, 2002 *---------------------------------------------------------------------------*/ int_f nh5_fixname_c(_fcd base_name, size_t_f *base_namelen, hid_t_f *fapl, _fcd full_name, size_t_f *full_namelen) @@ -75,8 +73,6 @@ done: * base_namelen - name length * fapl - file access property list * Returns: 0 on success, -1 on failure - * Programmer: Elena Pourmal - * Thursday, September 19, 2002 *---------------------------------------------------------------------------*/ int_f nh5_cleanup_c(_fcd base_name, size_t_f *base_namelen, hid_t_f *fapl) @@ -124,8 +120,6 @@ DONE: * up as exit(0). * Inputs: status - status for exit() to return * Returns: none - * Programmer: Quincey Koziol - * Tuesday, December 14, 2004 *---------------------------------------------------------------------------*/ void nh5_exit_c(int_f *status) @@ -140,8 +134,6 @@ nh5_exit_c(int_f *status) * Output: status: 1 - HDF5_NOCLEANUP is set * 0 - HDF5_NOCLEANUP is not set * Returns: none - * Programmer: M.S. Breitenfeld - * September 30, 2008 *---------------------------------------------------------------------------*/ void nh5_env_nocleanup_c(int_f *status) diff --git a/fortran/test/tH5A_1_8.F90 b/fortran/test/tH5A_1_8.F90 index 17d152b..8201675 100644 --- a/fortran/test/tH5A_1_8.F90 +++ b/fortran/test/tH5A_1_8.F90 @@ -2671,10 +2671,6 @@ END SUBROUTINE test_attr_many ! * ! * Return: Success: 0 ! * Failure: -1 -! * -! * Programmer: Fortran version (M.S. Breitenfeld) -! * March 21, 2008 -! * ! *------------------------------------------------------------------------- ! diff --git a/fortran/test/tH5G_1_8.F90 b/fortran/test/tH5G_1_8.F90 index 1764c08..0be6c7b 100644 --- a/fortran/test/tH5G_1_8.F90 +++ b/fortran/test/tH5G_1_8.F90 @@ -129,10 +129,6 @@ END SUBROUTINE group_test ! * Return: Success: 0 ! * Failure: -1 ! * -! * Programmer: Adapted from C test routines by -! * M.S. Breitenfeld -! * February 18, 2008 -! * ! *------------------------------------------------------------------------- ! @@ -552,11 +548,6 @@ END SUBROUTINE group_info ! * ! * Purpose: Verify that disabling tracking timestamps for an object ! * works correctly -! * -! * -! * Programmer: M.S. Breitenfeld -! * February 20, 2008 -! * ! *------------------------------------------------------------------------- ! @@ -745,10 +736,6 @@ END SUBROUTINE group_info ! * ! * Purpose: Build a file with assorted links. ! * -! * -! * Programmer: Adapted from C test by: -! * M.S. Breitenfeld -! * ! *------------------------------------------------------------------------- ! @@ -836,10 +823,6 @@ END SUBROUTINE group_info ! * ! * Purpose: Tests that moving and renaming links preserves their ! * properties. -! * -! * Programmer: M.S. Breitenfeld -! * March 3, 2008 -! * ! *------------------------------------------------------------------------- ! @@ -1041,10 +1024,6 @@ END SUBROUTINE group_info ! * Return: Success: 0 ! * ! * Failure: -1 -! * -! * Programmer: Quincey Koziol -! * Monday, October 17, 2005 -! * ! *------------------------------------------------------------------------- ! SUBROUTINE lifecycle(cleanup, fapl2, total_error) @@ -1182,10 +1161,6 @@ SUBROUTINE lifecycle(cleanup, fapl2, total_error) ! * Return: Success: 0 ! * ! * Failure: -1 -! * -! * Programmer: M.S. Breitenfeld -! * April 14, 2008 -! * ! *------------------------------------------------------------------------- ! @@ -1251,12 +1226,6 @@ END SUBROUTINE cklinks ! * ! * Return: Total error ! * -! * C Programmer: Quincey Koziol -! * Tuesday, November 14, 2006 -! * -! * Adapted to FORTRAN: M.S. Breitenfeld -! * March 3, 2008 -! * ! *------------------------------------------------------------------------- ! SUBROUTINE delete_by_idx(cleanup, fapl, total_error) @@ -1491,10 +1460,6 @@ END SUBROUTINE delete_by_idx ! * ! * Return: Success: 0 ! * Failure: -1 -! * -! * Programmer: Quincey Koziol -! * Tuesday, November 7, 2006 -! * ! *------------------------------------------------------------------------- ! SUBROUTINE link_info_by_idx_check(group_id, linkname, n, & @@ -1590,10 +1555,6 @@ SUBROUTINE link_info_by_idx_check(group_id, linkname, n, & ! * Return: Success: 0 ! * Failure: number of errors ! * -! * Programmer: M.S. Breitenfeld -! * Modified C routine -! * March 12, 2008 -! * ! *------------------------------------------------------------------------- ! @@ -1958,10 +1919,6 @@ END SUBROUTINE objcopy ! * Return: Success: 0 ! * ! * Failure: -1 -! * -! * Programmer: James Laird -! * Tuesday, June 6, 2006 -! * ! *------------------------------------------------------------------------- ! diff --git a/fortran/test/tH5MISC_1_8.F90 b/fortran/test/tH5MISC_1_8.F90 index 5413169..85f9634 100644 --- a/fortran/test/tH5MISC_1_8.F90 +++ b/fortran/test/tH5MISC_1_8.F90 @@ -337,10 +337,6 @@ END SUBROUTINE test_h5s_encode ! ! Return: Success: 0 ! Failure: >0 -! -! Programmer: M. Scot Breitenfeld -! Decemeber 11, 2010 -! !------------------------------------------------------------------------- ! diff --git a/fortran/test/tH5O_F03.F90 b/fortran/test/tH5O_F03.F90 index 6b6c730..e608a30 100644 --- a/fortran/test/tH5O_F03.F90 +++ b/fortran/test/tH5O_F03.F90 @@ -41,11 +41,6 @@ MODULE visit_cb ! ! Return: Success: 0 ! Failure: -1 - ! - ! Programmer: M.S. Breitenfeld - ! July 12, 2012 - ! Adopted from C test. - ! !------------------------------------------------------------------------- ! ! Object visit structs @@ -702,11 +697,6 @@ END SUBROUTINE test_obj_info ! Function: build_visit_file ! ! Purpose: Build an "interesting" file to use for visiting links & objects -! -! Programmer: M. Scot Breitenfeld -! July 12, 2012 -! NOTE: Adapted from C test. -! !------------------------------------------------------------------------- ! diff --git a/fortran/test/tH5P.F90 b/fortran/test/tH5P.F90 index 57320df..c73016b 100644 --- a/fortran/test/tH5P.F90 +++ b/fortran/test/tH5P.F90 @@ -448,12 +448,6 @@ END SUBROUTINE multi_file_test ! ! Return: Success: 0 ! Failure: -1 -! -! C Programmer: Neil Fortner -! Wednesday, October 29, 2008 -! -! FORTRAN Programmer: M. Scot Breitenfeld -! April 16, 2009 !------------------------------------------------------------------------- ! SUBROUTINE test_chunk_cache(cleanup, total_error) diff --git a/fortran/test/tH5P_F03.F90 b/fortran/test/tH5P_F03.F90 index f15a471..606a9cd 100644 --- a/fortran/test/tH5P_F03.F90 +++ b/fortran/test/tH5P_F03.F90 @@ -81,10 +81,6 @@ CONTAINS ! * Return: Success: 0 ! * ! * Failure: number of errors -! * -! * Programmer: M. Scot Breitenfeld -! * June 24, 2008 -! * ! *------------------------------------------------------------------------- ! @@ -442,9 +438,6 @@ END SUBROUTINE test_genprop_class_callback ! ! Return: Success: 0 ! Failure: -1 -! -! FORTRAN Programmer: M. Scot Breitenfeld -! April 1, 2014 !------------------------------------------------------------------------- SUBROUTINE test_h5p_file_image(total_error) @@ -514,9 +507,6 @@ END SUBROUTINE test_h5p_file_image ! ! Return: Success: 0 ! Failure: -1 -! -! FORTRAN Programmer: M. Scot Breitenfeld -! January 10, 2012 !------------------------------------------------------------------------- ! SUBROUTINE external_test_offset(cleanup,total_error) @@ -662,10 +652,6 @@ END SUBROUTINE external_test_offset ! RETURNS: ! Success: 0 ! Failure: number of errors -! -! FORTRAN Programmer: M. Scot Breitenfeld -! February 1, 2016 -! !------------------------------------------------------------------------- ! SUBROUTINE test_vds(total_error) diff --git a/fortran/test/tH5T.F90 b/fortran/test/tH5T.F90 index 1fee036..953d6d0 100644 --- a/fortran/test/tH5T.F90 +++ b/fortran/test/tH5T.F90 @@ -949,10 +949,6 @@ CONTAINS ! * Return: Success: 0 ! * ! * Failure: number of errors -! * -! * Fortran Programmer: M.S. Breitenfeld -! * September 9, 2008 -! * ! *------------------------------------------------------------------------- ! diff --git a/fortran/test/tH5T_F03.F90 b/fortran/test/tH5T_F03.F90 index 0f56806..661a0cc 100644 --- a/fortran/test/tH5T_F03.F90 +++ b/fortran/test/tH5T_F03.F90 @@ -2913,10 +2913,6 @@ END SUBROUTINE setup_buffer ! ! Return: Success: 0 ! Failure: >0 -! -! Programmer: M. Scot Breitenfeld -! Decemeber 7, 2010 -! !------------------------------------------------------------------------- ! @@ -3057,9 +3053,6 @@ SUBROUTINE t_enum_conv(total_error) ! Return: Success: 0 ! Failure: number of errors ! -! Programmer: M. Scot Breitenfeld -! October 27, 2012 -! ! Note: Adapted from C test (enum.c -- test_conv) ! No reliance on C tests. !------------------------------------------------------------------------- @@ -3401,9 +3394,9 @@ END SUBROUTINE t_enum_conv ! Tests the reading and writing of multiple datasets using H5Dread_multi and ! H5Dwrite_multi - + SUBROUTINE multiple_dset_rw(total_error) - + !------------------------------------------------------------------------- ! Subroutine: multiple_dset_rw ! @@ -3412,10 +3405,6 @@ SUBROUTINE multiple_dset_rw(total_error) ! ! Return: Success: 0 ! Failure: number of errors -! -! Programmer: M. Scot Breitenfeld -! April 2, 2014 -! !------------------------------------------------------------------------- ! USE iso_c_binding diff --git a/fortran/test/tf.F90 b/fortran/test/tf.F90 index 501d243..d08d1c7 100644 --- a/fortran/test/tf.F90 +++ b/fortran/test/tf.F90 @@ -204,11 +204,6 @@ CONTAINS ! hdferr: - error code ! Success: 0 ! Failure: -1 -! -! Programmer: Elena Pourmal -! September 13, 2002 -! -! !---------------------------------------------------------------------- SUBROUTINE h5_fixname_f(base_name, full_name, fapl, hdferr) ! @@ -264,11 +259,6 @@ CONTAINS ! hdferr: - error code ! Success: 0 ! Failure: -1 -! -! Programmer: Elena Pourmal -! September 19, 2002 -! -! !---------------------------------------------------------------------- SUBROUTINE h5_cleanup_f(base_name, fapl, hdferr) ! @@ -316,11 +306,6 @@ CONTAINS ! ! Outputs: ! none -! -! Programmer: Quincey Koziol -! December 14, 2004 -! -! !---------------------------------------------------------------------- SUBROUTINE h5_exit_f(status) ! @@ -354,10 +339,6 @@ CONTAINS ! ! Outputs: HDF5_NOCLEANUP: .true. - don't remove test files ! .false. - remove test files -! -! Programmer: M.S. Breitenfeld -! September 30, 2008 -! !---------------------------------------------------------------------- SUBROUTINE h5_env_nocleanup_f(HDF5_NOCLEANUP) ! |