[svn-r5575]

Purpose:
    Maintenance
Description:
    Added Copyright statement ot the source files
Platforms tested:
    Solaris 2.7 (arabica)

16 files changed, 243 insertions, 65 deletions

diff --git a/fortran/test/Makefile.in b/fortran/test/Makefile.in
index ba4b919..b34a123 100644
--- a/fortran/test/Makefile.in
+++ b/fortran/test/Makefile.in
@@ -1,9 +1,20 @@
-## HDF5-Fortran test/Makefile(.in)
-##
-## Copyright (C) 2000 National Center for Supercomputing Applications.
-##                    All rights reserved.
-##
+##  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+##  * Copyright by the Board of Trustees of the University of Illinois.         *
+##  * All rights reserved.                                                      *
+##  *                                                                           *
+##  * This file is part of HDF5.  The full HDF5 copyright notice, including     *
+##  * terms governing use, modification, and redistribution, is contained in    *
+##  * the files COPYING and Copyright.html.  COPYING can be found at the root   *
+##  * of the source code distribution tree; Copyright.html can be found at the  *
+##  * root level of an installed copy of the electronic HDF5 document set and   *
+##  * is linked from the top-level documents page.  It can also be found at     *
+##  * http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *
+##  * access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+##  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
+##  HDF5-Fortran test/Makefile(.in)
 ##
+
+
 top_srcdir=@top_srcdir@/..
 top_builddir=../..
 srcdir=@srcdir@
diff --git a/fortran/test/fflush1.f90 b/fortran/test/fflush1.f90
index d71a7c0..9a3b0d8 100644
--- a/fortran/test/fflush1.f90
+++ b/fortran/test/fflush1.f90
@@ -1,9 +1,22 @@
- !
- ! Purpose:	This is the first half of a two-part test that makes sure
- !		that a file can be read after an application crashes as long
- !		as the file was flushed first.  We simulate by exit the 
- !              the program using stop statement
- !
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+!   Copyright by the Board of Trustees of the University of Illinois.         *
+!   All rights reserved.                                                      *
+!                                                                             *
+!   This file is part of HDF5.  The full HDF5 copyright notice, including     *
+!   terms governing use, modification, and redistribution, is contained in    *
+!   the files COPYING and Copyright.html.  COPYING can be found at the root   *
+!   of the source code distribution tree; Copyright.html can be found at the  *
+!   root level of an installed copy of the electronic HDF5 document set and   *
+!   is linked from the top-level documents page.  It can also be found at     *
+!   http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *
+!   access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+!
+! Purpose:    This is the first half of a two-part test that makes sure
+!	      that a file can be read after an application crashes as long
+!	      as the file was flushed first.  We simulate by exit the 
+!             the program using stop statement.
+!
 
      PROGRAM FFLUSH1EXAMPLE
 
diff --git a/fortran/test/fflush2.f90 b/fortran/test/fflush2.f90
index d7e5053..fc6ad9a 100644
--- a/fortran/test/fflush2.f90
+++ b/fortran/test/fflush2.f90
@@ -1,9 +1,22 @@
- !
- ! Purpose:	This is the second half of a two-part test that makes sure
- !		that a file can be read after an application crashes as long
- !		as the file was flushed first.  This half tries to read the
- !		file created by the first half.
- !
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+!   Copyright by the Board of Trustees of the University of Illinois.         *
+!   All rights reserved.                                                      *
+!                                                                             *
+!   This file is part of HDF5.  The full HDF5 copyright notice, including     *
+!   terms governing use, modification, and redistribution, is contained in    *
+!   the files COPYING and Copyright.html.  COPYING can be found at the root   *
+!   of the source code distribution tree; Copyright.html can be found at the  *
+!   root level of an installed copy of the electronic HDF5 document set and   *
+!   is linked from the top-level documents page.  It can also be found at     *
+!   http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *
+!   access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+!
+! Purpose:	This is the second half of a two-part test that makes sure
+!		that a file can be read after an application crashes as long
+!		as the file was flushed first.  This half tries to read the
+!		file created by the first half.
+!
 
      PROGRAM FFLUSH2EXAMPLE
 
diff --git a/fortran/test/fortranlib_test.f90 b/fortran/test/fortranlib_test.f90
index 2c5c13a..4483504 100644
--- a/fortran/test/fortranlib_test.f90
+++ b/fortran/test/fortranlib_test.f90
@@ -1,3 +1,16 @@
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+!   Copyright by the Board of Trustees of the University of Illinois.         *
+!   All rights reserved.                                                      *
+!                                                                             *
+!   This file is part of HDF5.  The full HDF5 copyright notice, including     *
+!   terms governing use, modification, and redistribution, is contained in    *
+!   the files COPYING and Copyright.html.  COPYING can be found at the root   *
+!   of the source code distribution tree; Copyright.html can be found at the  *
+!   root level of an installed copy of the electronic HDF5 document set and   *
+!   is linked from the top-level documents page.  It can also be found at     *
+!   http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *
+!   access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 !
 ! 
 !    Testing Fortran functionality.
diff --git a/fortran/test/hdf5test.f90 b/fortran/test/hdf5test.f90
index 978c832..f5bfc8e 100644
--- a/fortran/test/hdf5test.f90
+++ b/fortran/test/hdf5test.f90
@@ -1,3 +1,16 @@
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+!   Copyright by the Board of Trustees of the University of Illinois.         *
+!   All rights reserved.                                                      *
+!                                                                             *
+!   This file is part of HDF5.  The full HDF5 copyright notice, including     *
+!   terms governing use, modification, and redistribution, is contained in    *
+!   the files COPYING and Copyright.html.  COPYING can be found at the root   *
+!   of the source code distribution tree; Copyright.html can be found at the  *
+!   root level of an installed copy of the electronic HDF5 document set and   *
+!   is linked from the top-level documents page.  It can also be found at     *
+!   http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *
+!   access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 !
 ! 
 !    This module contains check subroutine which is used in
diff --git a/fortran/test/tH5A.f90 b/fortran/test/tH5A.f90
index cec25de..cdd9972 100644
--- a/fortran/test/tH5A.f90
+++ b/fortran/test/tH5A.f90
@@ -1,3 +1,16 @@
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+!   Copyright by the Board of Trustees of the University of Illinois.         *
+!   All rights reserved.                                                      *
+!                                                                             *
+!   This file is part of HDF5.  The full HDF5 copyright notice, including     *
+!   terms governing use, modification, and redistribution, is contained in    *
+!   the files COPYING and Copyright.html.  COPYING can be found at the root   *
+!   of the source code distribution tree; Copyright.html can be found at the  *
+!   root level of an installed copy of the electronic HDF5 document set and   *
+!   is linked from the top-level documents page.  It can also be found at     *
+!   http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *
+!   access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
     SUBROUTINE attribute_test(total_error)
 
diff --git a/fortran/test/tH5D.f90 b/fortran/test/tH5D.f90
index 1f32fbb..c0ffd9b 100644
--- a/fortran/test/tH5D.f90
+++ b/fortran/test/tH5D.f90
@@ -1,13 +1,20 @@
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+!   Copyright by the Board of Trustees of the University of Illinois.         *
+!   All rights reserved.                                                      *
+!                                                                             *
+!   This file is part of HDF5.  The full HDF5 copyright notice, including     *
+!   terms governing use, modification, and redistribution, is contained in    *
+!   the files COPYING and Copyright.html.  COPYING can be found at the root   *
+!   of the source code distribution tree; Copyright.html can be found at the  *
+!   root level of an installed copy of the electronic HDF5 document set and   *
+!   is linked from the top-level documents page.  It can also be found at     *
+!   http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *
+!   access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 !
 ! 
 !    Testing Dataset Interface functionality.
 !
-!      MODULE H5DTEST
-
-!        USE HDF5 ! This module contains all necessary modules 
-        
-!      CONTAINS
-      
 !
 !The following subroutine tests the following functionalities:
 !h5dcreate_f, h5dopen_f, h5dclose_f, h5dget_space_f, h5dget_type_f,
@@ -455,5 +462,3 @@
         END SUBROUTINE extenddsettest 
 
 
-
-!      END MODULE H5DTEST
diff --git a/fortran/test/tH5E.f90 b/fortran/test/tH5E.f90
index c14b101..60987ba 100644
--- a/fortran/test/tH5E.f90
+++ b/fortran/test/tH5E.f90
@@ -1,6 +1,20 @@
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+!   Copyright by the Board of Trustees of the University of Illinois.         *
+!   All rights reserved.                                                      *
+!                                                                             *
+!   This file is part of HDF5.  The full HDF5 copyright notice, including     *
+!   terms governing use, modification, and redistribution, is contained in    *
+!   the files COPYING and Copyright.html.  COPYING can be found at the root   *
+!   of the source code distribution tree; Copyright.html can be found at the  *
+!   root level of an installed copy of the electronic HDF5 document set and   *
+!   is linked from the top-level documents page.  It can also be found at     *
+!   http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *
+!   access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+
     SUBROUTINE error_report_test(total_error)
 
-!THis subroutine tests following functionalities: h5eprint_f
+!This subroutine tests following functionalities: h5eprint_f
 
    USE HDF5 ! This module contains all necessary modules 
 
diff --git a/fortran/test/tH5F.f90 b/fortran/test/tH5F.f90
index 31da85d..e275eb4 100644
--- a/fortran/test/tH5F.f90
+++ b/fortran/test/tH5F.f90
@@ -1,13 +1,20 @@
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+!   Copyright by the Board of Trustees of the University of Illinois.         *
+!   All rights reserved.                                                      *
+!                                                                             *
+!   This file is part of HDF5.  The full HDF5 copyright notice, including     *
+!   terms governing use, modification, and redistribution, is contained in    *
+!   the files COPYING and Copyright.html.  COPYING can be found at the root   *
+!   of the source code distribution tree; Copyright.html can be found at the  *
+!   root level of an installed copy of the electronic HDF5 document set and   *
+!   is linked from the top-level documents page.  It can also be found at     *
+!   http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *
+!   access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 !
 ! 
 !    Testing File Interface functionality.
 !
-!      MODULE H5FTEST
-
-!        USE HDF5  ! This module contains all necessary modules
-        
-!      CONTAINS
-
 !In the mountingtest subroutine we create one file with a group in it, 
 !and another file with a dataset. Mounting is used to
 !access the dataset from the second file as a member of a group 
@@ -514,9 +521,7 @@
           RETURN
 
         END SUBROUTINE plisttest
-              
      
 
-!      END MODULE H5FTEST
 
 
diff --git a/fortran/test/tH5G.f90 b/fortran/test/tH5G.f90
index 8200f6b..9b68122 100644
--- a/fortran/test/tH5G.f90
+++ b/fortran/test/tH5G.f90
@@ -1,3 +1,16 @@
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+!   Copyright by the Board of Trustees of the University of Illinois.         *
+!   All rights reserved.                                                      *
+!                                                                             *
+!   This file is part of HDF5.  The full HDF5 copyright notice, including     *
+!   terms governing use, modification, and redistribution, is contained in    *
+!   the files COPYING and Copyright.html.  COPYING can be found at the root   *
+!   of the source code distribution tree; Copyright.html can be found at the  *
+!   root level of an installed copy of the electronic HDF5 document set and   *
+!   is linked from the top-level documents page.  It can also be found at     *
+!   http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *
+!   access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
     SUBROUTINE group_test(total_error)
 
 !THis subroutine tests following functionalities: 
diff --git a/fortran/test/tH5I.f90 b/fortran/test/tH5I.f90
index 958453b..da0dca7 100644
--- a/fortran/test/tH5I.f90
+++ b/fortran/test/tH5I.f90
@@ -1,6 +1,19 @@
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+!   Copyright by the Board of Trustees of the University of Illinois.         *
+!   All rights reserved.                                                      *
+!                                                                             *
+!   This file is part of HDF5.  The full HDF5 copyright notice, including     *
+!   terms governing use, modification, and redistribution, is contained in    *
+!   the files COPYING and Copyright.html.  COPYING can be found at the root   *
+!   of the source code distribution tree; Copyright.html can be found at the  *
+!   root level of an installed copy of the electronic HDF5 document set and   *
+!   is linked from the top-level documents page.  It can also be found at     *
+!   http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *
+!   access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
     SUBROUTINE identifier_test(total_error)
 
-!THis subroutine tests following functionalities: h5iget_type_f
+!This subroutine tests following functionalities: h5iget_type_f
 
    USE HDF5 ! This module contains all necessary modules 
 
diff --git a/fortran/test/tH5P.f90 b/fortran/test/tH5P.f90
index 0567b21..520f02e 100644
--- a/fortran/test/tH5P.f90
+++ b/fortran/test/tH5P.f90
@@ -1,8 +1,22 @@
-     
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+!   Copyright by the Board of Trustees of the University of Illinois.         *
+!   All rights reserved.                                                      *
+!                                                                             *
+!   This file is part of HDF5.  The full HDF5 copyright notice, including     *
+!   terms governing use, modification, and redistribution, is contained in    *
+!   the files COPYING and Copyright.html.  COPYING can be found at the root   *
+!   of the source code distribution tree; Copyright.html can be found at the  *
+!   root level of an installed copy of the electronic HDF5 document set and   *
+!   is linked from the top-level documents page.  It can also be found at     *
+!   http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *
+!   access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+
     SUBROUTINE external_test(total_error)
-!THis subroutine tests following functionalities: 
-!h5pset_external_f,  h5pget_external_count_f,
-!h5pget_external_f
+
+!    This subroutine tests following functionalities: 
+!    h5pset_external_f,  h5pget_external_count_f,
+!    h5pget_external_f
 
      USE HDF5 ! This module contains all necessary modules 
         
diff --git a/fortran/test/tH5R.f90 b/fortran/test/tH5R.f90
index 345345b..1cc78a1 100644
--- a/fortran/test/tH5R.f90
+++ b/fortran/test/tH5R.f90
@@ -1,12 +1,20 @@
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+!   Copyright by the Board of Trustees of the University of Illinois.         *
+!   All rights reserved.                                                      *
+!                                                                             *
+!   This file is part of HDF5.  The full HDF5 copyright notice, including     *
+!   terms governing use, modification, and redistribution, is contained in    *
+!   the files COPYING and Copyright.html.  COPYING can be found at the root   *
+!   of the source code distribution tree; Copyright.html can be found at the  *
+!   root level of an installed copy of the electronic HDF5 document set and   *
+!   is linked from the top-level documents page.  It can also be found at     *
+!   http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *
+!   access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 !
 ! 
 !    Testing Reference Interface functionality.
 !
-!      MODULE H5RTEST
-
-!        USE HDF5 ! This module contains all necessary modules 
-        
-!      CONTAINS
 !      
 !The following subroutine tests h5rcreate_f, h5rdereference_f
 !and H5Rget_object_type functions
@@ -375,5 +383,3 @@
 
         END SUBROUTINE refregtest
 
-
-!      END MODULE H5RTEST
diff --git a/fortran/test/tH5S.f90 b/fortran/test/tH5S.f90
index c20c445..f50637b 100644
--- a/fortran/test/tH5S.f90
+++ b/fortran/test/tH5S.f90
@@ -1,19 +1,26 @@
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+!   Copyright by the Board of Trustees of the University of Illinois.         *
+!   All rights reserved.                                                      *
+!                                                                             *
+!   This file is part of HDF5.  The full HDF5 copyright notice, including     *
+!   terms governing use, modification, and redistribution, is contained in    *
+!   the files COPYING and Copyright.html.  COPYING can be found at the root   *
+!   of the source code distribution tree; Copyright.html can be found at the  *
+!   root level of an installed copy of the electronic HDF5 document set and   *
+!   is linked from the top-level documents page.  It can also be found at     *
+!   http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *
+!   access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 !
 ! 
 !    Testing Dataspace Interface functionality.
 !
-!      MODULE H5STEST
-
-!        USE HDF5 ! This module contains all necessary modules 
-        
-!      CONTAINS
-      
 !
-!The following subroutine tests the following functionalities:
-!h5screate_f, h5scopy_f, h5screate_simple_f, h5sis_simple_f,   
-!h5sget_simple_extent_dims_f,h5sget_simple_extent_ndims_f 
-!h5sget_simple_extent_npoints_f, h5sget_simple_extent_type_f,
-!h5sextent_copy_f, h5sset_extent_simple_f, h5sset_extent_none_f     
+!    The following subroutine tests the following functionalities:
+!    h5screate_f, h5scopy_f, h5screate_simple_f, h5sis_simple_f,   
+!    h5sget_simple_extent_dims_f,h5sget_simple_extent_ndims_f 
+!    h5sget_simple_extent_npoints_f, h5sget_simple_extent_type_f,
+!    h5sextent_copy_f, h5sset_extent_simple_f, h5sset_extent_none_f     
 !
         SUBROUTINE dataspace_basic_test(total_error)
 
@@ -252,5 +259,3 @@
           RETURN
         END SUBROUTINE dataspace_basic_test
 
-
-!      END MODULE H5STEST
diff --git a/fortran/test/tH5Sselect.f90 b/fortran/test/tH5Sselect.f90
index 64d4916..1f584e6 100644
--- a/fortran/test/tH5Sselect.f90
+++ b/fortran/test/tH5Sselect.f90
@@ -1,14 +1,27 @@
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+!   Copyright by the Board of Trustees of the University of Illinois.         *
+!   All rights reserved.                                                      *
+!                                                                             *
+!   This file is part of HDF5.  The full HDF5 copyright notice, including     *
+!   terms governing use, modification, and redistribution, is contained in    *
+!   the files COPYING and Copyright.html.  COPYING can be found at the root   *
+!   of the source code distribution tree; Copyright.html can be found at the  *
+!   root level of an installed copy of the electronic HDF5 document set and   *
+!   is linked from the top-level documents page.  It can also be found at     *
+!   http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *
+!   access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 ! 
 !    Testing Selection-related Dataspace Interface functionality.
 !
 
 !
-!The following subroutines tests the following functionalities:
-!h5sget_select_npoints_f, h5sselect_elements_f, h5sselect_all_f,
-!h5sselect_none_f, h5sselect_valid_f, h5sselect_hyperslab_f,
-!h5sget_select_bounds_f, h5sget_select_elem_pointlist_f,
-!h5sget_select_elem_npoints_f, h5sget_select_hyper_blocklist_f, 
-!h5sget_select_hyper_nblocks_f, h5sget_select_npoints_f
+!    The following subroutines tests the following functionalities:
+!    h5sget_select_npoints_f, h5sselect_elements_f, h5sselect_all_f,
+!    h5sselect_none_f, h5sselect_valid_f, h5sselect_hyperslab_f,
+!    h5sget_select_bounds_f, h5sget_select_elem_pointlist_f,
+!    h5sget_select_elem_npoints_f, h5sget_select_hyper_blocklist_f, 
+!    h5sget_select_hyper_nblocks_f, h5sget_select_npoints_f
 !
 
   SUBROUTINE test_select_hyperslab(total_error)
diff --git a/fortran/test/tH5T.f90 b/fortran/test/tH5T.f90
index 43c3a9e..01df302 100644
--- a/fortran/test/tH5T.f90
+++ b/fortran/test/tH5T.f90
@@ -1,3 +1,17 @@
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+!   Copyright by the Board of Trustees of the University of Illinois.         *
+!   All rights reserved.                                                      *
+!                                                                             *
+!   This file is part of HDF5.  The full HDF5 copyright notice, including     *
+!   terms governing use, modification, and redistribution, is contained in    *
+!   the files COPYING and Copyright.html.  COPYING can be found at the root   *
+!   of the source code distribution tree; Copyright.html can be found at the  *
+!   root level of an installed copy of the electronic HDF5 document set and   *
+!   is linked from the top-level documents page.  It can also be found at     *
+!   http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *
+!   access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+
     SUBROUTINE compoundtest(total_error)
 !
 ! This program creates a dataset that is one dimensional array of