[svn-r6685]

Purpose: Added copyright statement; cleaned code and fixed bugs for
         Windows and Cray T90IEEE

Description:  Windows and Cray ports exposed few typos in the source code
              that caused tests to fail

Solution: Added copyright statement and clean the code.

Platforms tested: CRAY T90IEEE, arabica, modi4 with parallel, Windows 2000
                  Only static tests (both debug and release) passed on Windows.
                  DLLs have multiple problems ;-)

Misc. update:

4 files changed, 41 insertions, 2 deletions

diff --git a/fortran/test/t.c b/fortran/test/t.c
index ed18c0f..dfda554 100644
--- a/fortran/test/t.c
+++ b/fortran/test/t.c
@@ -34,7 +34,6 @@ nh5_fixname_c(_fcd base_name, int_f *base_namelen, hid_t_f* fapl, _fcd full_name
      int ret_value = -1;
      char *c_base_name;
      int c_base_namelen;
-     int c_full_namelen;
      char *c_full_name;
      hid_t c_fapl;
 
diff --git a/fortran/test/tH5I.f90 b/fortran/test/tH5I.f90
index 3c5855b..c82baf9 100644
--- a/fortran/test/tH5I.f90
+++ b/fortran/test/tH5I.f90
@@ -1,4 +1,18 @@
 
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+!   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(cleanup, total_error)
 
 !   This subroutine tests following functionalities: h5iget_type_f
diff --git a/fortran/test/tH5Z.f90 b/fortran/test/tH5Z.f90
index bc44344..575ef0b 100644
--- a/fortran/test/tH5Z.f90
+++ b/fortran/test/tH5Z.f90
@@ -1,4 +1,18 @@
 
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+!   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 filters_test(cleanup, total_error)
 
 !   This subroutine tests following functionalities: h5zfilter_avail_f, h5zunregister_f
@@ -242,7 +256,7 @@
           !
           ! Read the dataset.
           !
-          CALL h5dread_f (dset_id, H5T_NATIVE_INTEGER, data_out, dims, error)
+          CALL h5dread_f (dset_id, H5T_NATIVE_INTEGER, data_out, data_dims_b, error)
               CALL check("h5dread_f", error, total_error)
 
           !
diff --git a/fortran/test/tf.f90 b/fortran/test/tf.f90
index ef4c784..828785c 100644
--- a/fortran/test/tf.f90
+++ b/fortran/test/tf.f90
@@ -18,6 +18,10 @@
 !    This file contains subroutines which are used in
 !    all the hdf5 fortran tests
 !
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: check
+!DEC$endif
 
          SUBROUTINE check(string,error,total_error)
             CHARACTER(LEN=*) :: string
@@ -51,6 +55,10 @@
 !----------------------------------------------------------------------
           SUBROUTINE h5_fixname_f(base_name, full_name, fapl, hdferr)
 !
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5_fixname_f
+!DEC$endif
             USE H5GLOBAL           
             IMPLICIT NONE
             CHARACTER(LEN=*), INTENT(IN) :: base_name   ! base name 
@@ -107,6 +115,10 @@
 !----------------------------------------------------------------------
           SUBROUTINE h5_cleanup_f(base_name, fapl, hdferr)
 !
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5_cleanup_f
+!DEC$endif
             USE H5GLOBAL           
             IMPLICIT NONE
             CHARACTER(LEN=*), INTENT(IN) :: base_name   ! base name