[svn-r12857] Description:

	Updated code to eliminate compilation warnings and to add support for the latest g95.

Platforms tested:
	g95 on kagiso, heping, and mir
        the first lite (making and reading 1-d datasets) test fails on mir

1 files changed, 251 insertions, 5 deletions

diff --git a/hl/fortran/src/H5TBfc.c b/hl/fortran/src/H5TBfc.c
index 656a393..a74f9ed 100755
--- a/hl/fortran/src/H5TBfc.c
+++ b/hl/fortran/src/H5TBfc.c
@@ -168,7 +168,7 @@ int_f
 nh5tbwrite_field_name_c(hid_t_f *loc_id,
                         int_f *namelen,
                         _fcd name,
-																		      int_f *namelen1,
+		     int_f *namelen1,
                         _fcd field_name,
                         hsize_t_f *start,
                         hsize_t_f *nrecords,
@@ -213,7 +213,58 @@ nh5tbwrite_field_name_c(hid_t_f *loc_id,
  return ret_value;
 }
 
-
+int_f
+nh5tbwrite_field_name_int_c(hid_t_f *loc_id,
+                        int_f *namelen,
+                        _fcd name,
+                       int_f *namelen1,
+                        _fcd field_name,
+                        hsize_t_f *start,
+                        hsize_t_f *nrecords,
+                        size_t_f *type_size,
+                        void *buf)
+{
+   return nh5tbwrite_field_name_c(loc_id,namelen,name,namelen1,field_name,start,nrecords,type_size,buf);
+}
+int_f
+nh5tbwrite_field_name_fl_c(hid_t_f *loc_id,
+                        int_f *namelen,
+                        _fcd name,
+                       int_f *namelen1,
+                        _fcd field_name,
+                        hsize_t_f *start,
+                        hsize_t_f *nrecords,
+                        size_t_f *type_size,
+                        void *buf)
+{
+   return nh5tbwrite_field_name_c(loc_id,namelen,name,namelen1,field_name,start,nrecords,type_size,buf);
+}
+int_f
+nh5tbwrite_field_name_dl_c(hid_t_f *loc_id,
+                        int_f *namelen,
+                        _fcd name,
+                       int_f *namelen1,
+                        _fcd field_name,
+                        hsize_t_f *start,
+                        hsize_t_f *nrecords,
+                        size_t_f *type_size,
+                        void *buf)
+{
+   return nh5tbwrite_field_name_c(loc_id,namelen,name,namelen1,field_name,start,nrecords,type_size,buf);
+}
+int_f
+nh5tbwrite_field_name_st_c(hid_t_f *loc_id,
+                        int_f *namelen,
+                        _fcd name,
+                       int_f *namelen1,
+                        _fcd field_name,
+                        hsize_t_f *start,
+                        hsize_t_f *nrecords,
+                        size_t_f *type_size,
+                        void *buf)
+{
+   return nh5tbwrite_field_name_c(loc_id,namelen,name,namelen1,field_name,start,nrecords,type_size,buf);
+}
 /*-------------------------------------------------------------------------
  * Function: h5tbread_field_name_c
  *
@@ -237,7 +288,7 @@ int_f
 nh5tbread_field_name_c(hid_t_f *loc_id,
                         int_f *namelen,
                         _fcd name,
-																		      int_f *namelen1,
+                       int_f *namelen1,
                         _fcd field_name,
                         hsize_t_f *start,
                         hsize_t_f *nrecords,
@@ -282,7 +333,58 @@ nh5tbread_field_name_c(hid_t_f *loc_id,
  return ret_value;
 }
 
-
+int_f
+nh5tbread_field_name_int_c(hid_t_f *loc_id,
+                        int_f *namelen,
+                        _fcd name,
+                        int_f *namelen1,
+                        _fcd field_name,
+                        hsize_t_f *start,
+                        hsize_t_f *nrecords,
+                        size_t_f *type_size,
+                        void *buf)
+{
+   return nh5tbread_field_name_c(loc_id,namelen,name,namelen1,field_name,start,nrecords,type_size,buf);
+}
+int_f
+nh5tbread_field_name_fl_c(hid_t_f *loc_id,
+                        int_f *namelen,
+                        _fcd name,
+                        int_f *namelen1,
+                        _fcd field_name,
+                        hsize_t_f *start,
+                        hsize_t_f *nrecords,
+                        size_t_f *type_size,
+                        void *buf)
+{
+   return nh5tbread_field_name_c(loc_id,namelen,name,namelen1,field_name,start,nrecords,type_size,buf);
+}
+int_f
+nh5tbread_field_name_dl_c(hid_t_f *loc_id,
+                        int_f *namelen,
+                        _fcd name,
+                        int_f *namelen1,
+                        _fcd field_name,
+                        hsize_t_f *start,
+                        hsize_t_f *nrecords,
+                        size_t_f *type_size,
+                        void *buf)
+{
+   return nh5tbread_field_name_c(loc_id,namelen,name,namelen1,field_name,start,nrecords,type_size,buf);
+}
+int_f
+nh5tbread_field_name_st_c(hid_t_f *loc_id,
+                        int_f *namelen,
+                        _fcd name,
+                        int_f *namelen1,
+                        _fcd field_name,
+                        hsize_t_f *start,
+                        hsize_t_f *nrecords,
+                        size_t_f *type_size,
+                        void *buf)
+{
+   return nh5tbread_field_name_c(loc_id,namelen,name,namelen1,field_name,start,nrecords,type_size,buf);
+}
 
 /*-------------------------------------------------------------------------
  * Function: h5tbwrite_field_index_c
@@ -348,6 +450,54 @@ nh5tbwrite_field_index_c(hid_t_f *loc_id,
  return ret_value;
 }
 
+int_f
+nh5tbwrite_field_index_int_c(hid_t_f *loc_id,
+                        int_f *namelen,
+                        _fcd name,
+                        int_f *field_index,
+                        hsize_t_f *start,
+                        hsize_t_f *nrecords,
+                        size_t_f *type_size,
+                        void *buf)
+{
+   return nh5tbwrite_field_index_c(loc_id,namelen,name,field_index,start,nrecords,type_size,buf);
+}
+int_f
+nh5tbwrite_field_index_fl_c(hid_t_f *loc_id,
+                        int_f *namelen,
+                        _fcd name,
+                        int_f *field_index,
+                        hsize_t_f *start,
+                        hsize_t_f *nrecords,
+                        size_t_f *type_size,
+                        void *buf)
+{
+   return nh5tbwrite_field_index_c(loc_id,namelen,name,field_index,start,nrecords,type_size,buf);
+}
+int_f
+nh5tbwrite_field_index_dl_c(hid_t_f *loc_id,
+                        int_f *namelen,
+                        _fcd name,
+                        int_f *field_index,
+                        hsize_t_f *start,
+                        hsize_t_f *nrecords,
+                        size_t_f *type_size,
+                        void *buf)
+{
+   return nh5tbwrite_field_index_c(loc_id,namelen,name,field_index,start,nrecords,type_size,buf);
+}
+int_f
+nh5tbwrite_field_index_st_c(hid_t_f *loc_id,
+                        int_f *namelen,
+                        _fcd name,
+                        int_f *field_index,
+                        hsize_t_f *start,
+                        hsize_t_f *nrecords,
+                        size_t_f *type_size,
+                        void *buf)
+{
+   return nh5tbwrite_field_index_c(loc_id,namelen,name,field_index,start,nrecords,type_size,buf);
+}
 
 /*-------------------------------------------------------------------------
  * Function: h5tbread_field_index_c
@@ -412,6 +562,54 @@ nh5tbread_field_index_c(hid_t_f *loc_id,
  return ret_value;
 }
 
+int_f
+nh5tbread_field_index_int_c(hid_t_f *loc_id,
+                        int_f *namelen,
+                        _fcd name,
+                        int_f *field_index,
+                        hsize_t_f *start,
+                        hsize_t_f *nrecords,
+                        size_t_f *type_size,
+                        void *buf)
+{
+   return nh5tbread_field_index_c(loc_id,namelen,name,field_index,start,nrecords,type_size,buf);
+}
+int_f
+nh5tbread_field_index_fl_c(hid_t_f *loc_id,
+                        int_f *namelen,
+                        _fcd name,
+                        int_f *field_index,
+                        hsize_t_f *start,
+                        hsize_t_f *nrecords,
+                        size_t_f *type_size,
+                        void *buf)
+{
+   return nh5tbread_field_index_c(loc_id,namelen,name,field_index,start,nrecords,type_size,buf);
+}
+int_f
+nh5tbread_field_index_dl_c(hid_t_f *loc_id,
+                        int_f *namelen,
+                        _fcd name,
+                        int_f *field_index,
+                        hsize_t_f *start,
+                        hsize_t_f *nrecords,
+                        size_t_f *type_size,
+                        void *buf)
+{
+   return nh5tbread_field_index_c(loc_id,namelen,name,field_index,start,nrecords,type_size,buf);
+}
+int_f
+nh5tbread_field_index_st_c(hid_t_f *loc_id,
+                        int_f *namelen,
+                        _fcd name,
+                        int_f *field_index,
+                        hsize_t_f *start,
+                        hsize_t_f *nrecords,
+                        size_t_f *type_size,
+                        void *buf)
+{
+   return nh5tbread_field_index_c(loc_id,namelen,name,field_index,start,nrecords,type_size,buf);
+}
 
 /*-------------------------------------------------------------------------
  * Function: h5tbinsert_field_c
@@ -436,7 +634,7 @@ int_f
 nh5tbinsert_field_c(hid_t_f *loc_id,
                     int_f *namelen,
                     _fcd name,
-																				int_f *namelen1,
+                    int_f *namelen1, 
                     _fcd field_name,
                     hid_t_f *field_type,
                     int_f *position,
@@ -474,6 +672,54 @@ nh5tbinsert_field_c(hid_t_f *loc_id,
  return ret_value;
 }
 
+int_f
+nh5tbinsert_field_int_c(hid_t_f *loc_id,
+                    int_f *namelen,
+                    _fcd name,
+                    int_f *namelen1,
+                    _fcd field_name,
+                    hid_t_f *field_type,
+                    int_f *position,
+                    void *buf)
+{
+   return nh5tbinsert_field_c(loc_id,namelen,name,namelen1,field_name,field_type,position,buf);
+}
+int_f
+nh5tbinsert_field_fl_c(hid_t_f *loc_id,
+                    int_f *namelen,
+                    _fcd name,
+                    int_f *namelen1,
+                    _fcd field_name,
+                    hid_t_f *field_type,
+                    int_f *position,
+                    void *buf)
+{
+   return nh5tbinsert_field_c(loc_id,namelen,name,namelen1,field_name,field_type,position,buf);
+}
+int_f
+nh5tbinsert_field_dl_c(hid_t_f *loc_id,
+                    int_f *namelen,
+                    _fcd name,
+                    int_f *namelen1,
+                    _fcd field_name,
+                    hid_t_f *field_type,
+                    int_f *position,
+                    void *buf)
+{
+   return nh5tbinsert_field_c(loc_id,namelen,name,namelen1,field_name,field_type,position,buf);
+}
+int_f
+nh5tbinsert_field_st_c(hid_t_f *loc_id,
+                    int_f *namelen,
+                    _fcd name,
+                    int_f *namelen1,
+                    _fcd field_name,
+                    hid_t_f *field_type,
+                    int_f *position,
+                    void *buf)
+{
+   return nh5tbinsert_field_c(loc_id,namelen,name,namelen1,field_name,field_type,position,buf);
+}
 
 /*-------------------------------------------------------------------------
  * Function: h5tbdelete_field_c