[svn-r6684]

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

Description: Fortran files did not have copyright statement; VL types
             did not work on T90IEEE since I never brought the correct code
             from 1.4 branch; there were compilation warnings on Windows;
             some character parameters were not passed correctly to C stubs
             causing tests to fail on Windows.

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:

1 files changed, 16 insertions, 5 deletions

diff --git a/fortran/src/H5Tf.c b/fortran/src/H5Tf.c
index 341f230d..e0a69f3 100644
--- a/fortran/src/H5Tf.c
+++ b/fortran/src/H5Tf.c
@@ -1,3 +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. *
+  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
+
+/* This files contains C stubs for H5T Fortran APIs */
+
 #include "H5f90.h"
 
 
@@ -763,7 +779,6 @@ nh5tget_inpad_c ( hid_t_f *type_id , int_f * padtype)
 {
   int ret_value = -1;
   hid_t c_type_id;
-  herr_t status;
   H5T_pad_t c_padtype; 
 
   c_type_id = *type_id;
@@ -825,7 +840,6 @@ nh5tget_cset_c ( hid_t_f *type_id , int_f * cset)
 {
   int ret_value = -1;
   hid_t c_type_id;
-  herr_t status;
   H5T_cset_t  c_cset; 
 
   c_type_id = *type_id;
@@ -885,7 +899,6 @@ nh5tget_strpad_c ( hid_t_f *type_id , int_f * strpad)
 {
   int ret_value = -1;
   hid_t c_type_id;
-  herr_t status;
   H5T_str_t  c_strpad; 
 
   c_type_id = *type_id;
@@ -945,7 +958,6 @@ nh5tget_nmembers_c ( hid_t_f *type_id , int_f * num_members)
 {
   int ret_value = -1;
   hid_t c_type_id;
-  herr_t status;
 
   c_type_id = *type_id;
   *num_members = (int_f)H5Tget_nmembers(c_type_id);
@@ -1307,7 +1319,6 @@ nh5tarray_create_c(hid_t_f * base_id, int_f *rank, hsize_t_f* dims, hid_t_f* typ
   hid_t c_base_id;
   hid_t c_type_id;
   int c_rank;
-  herr_t status;
   hsize_t *c_dims;
   int i;