summaryrefslogtreecommitdiffstats
path: root/fortran/test
diff options
context:
space:
mode:
authorDana Robinson <43805+derobins@users.noreply.github.com>2023-06-29 19:13:29 (GMT)
committerGitHub <noreply@github.com>2023-06-29 19:13:29 (GMT)
commitfd933f30b1f8cd487ad790ac0b054bb779280a62 (patch)
tree9e366b2c19f1d84e28af4e588daf7bd8c075f8b6 /fortran/test
parentfd56a593b7928da636b2494b25cd7478fed78c29 (diff)
downloadhdf5-fd933f30b1f8cd487ad790ac0b054bb779280a62.zip
hdf5-fd933f30b1f8cd487ad790ac0b054bb779280a62.tar.gz
hdf5-fd933f30b1f8cd487ad790ac0b054bb779280a62.tar.bz2
Remove programmer/date from comments (#3210)
* Removes Programmer: and Date: fields * Fixes a few Modifications: fields leftover from previous work
Diffstat (limited to 'fortran/test')
-rw-r--r--fortran/test/H5_test_buildiface.F903
-rw-r--r--fortran/test/t.c8
-rw-r--r--fortran/test/tH5A_1_8.F904
-rw-r--r--fortran/test/tH5G_1_8.F9043
-rw-r--r--fortran/test/tH5MISC_1_8.F904
-rw-r--r--fortran/test/tH5O_F03.F9010
-rw-r--r--fortran/test/tH5P.F906
-rw-r--r--fortran/test/tH5P_F03.F9014
-rw-r--r--fortran/test/tH5T.F904
-rw-r--r--fortran/test/tH5T_F03.F9015
-rw-r--r--fortran/test/tf.F9019
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 6519a2e..3080447 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 bffdb3e..c19d177 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 ab9c145..358c508 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)
!