[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, 2 insertions, 21 deletions

diff --git a/fortran/src/H5Sf.c b/fortran/src/H5Sf.c
index 646a465..a6a793e 100644
--- a/fortran/src/H5Sf.c
+++ b/fortran/src/H5Sf.c
@@ -84,27 +84,10 @@ int_f
 nh5screate_c ( int_f *classtype, hid_t_f *space_id )
 {
   H5S_class_t c_classtype;
-  int CASE;
   int ret_value = 0;
   hid_t c_space_id;
   c_classtype = (H5S_class_t) *classtype;
-/*
-  switch (CASE) {
-
-     case (H5S_SCALAR_F):
-       c_classtype = H5S_SCALAR;
-       break;
-
-     case(H5S_SIMPLE_F):
-       c_classtype = H5S_SIMPLE;
-       break;
-
-     default:
-       ret_value = -1;
-       return ret_value;
- }
-*/
-   c_space_id = H5Screate(c_classtype); 
+  c_space_id = H5Screate(c_classtype); 
 
   if ( c_space_id  < 0  ) ret_value = -1;
   *space_id = (hid_t_f) c_space_id;
@@ -157,8 +140,6 @@ nh5sget_select_hyper_nblocks_c( hid_t_f *space_id , hssize_t_f * num_blocks)
   int ret_value = 0;
   hid_t c_space_id;
   hssize_t c_num_blocks;
-  hsize_t* buf;
-  int i, j;
 
   c_space_id = *space_id;
   c_num_blocks = H5Sget_select_hyper_nblocks(c_space_id);
@@ -324,7 +305,7 @@ nh5sget_select_elem_pointlist_c( hid_t_f *space_id ,hsize_t_f * startpoint,
   hid_t c_space_id;
   hsize_t c_num_points;
   hsize_t c_startpoint,* c_buf;
-  int i,j, rank;
+  int i, rank;
 
   c_space_id = *space_id;
   c_num_points = (hsize_t)* numpoints;