[svn-r5066]

Purpose:
    Bug fix
Description:
    I borrowed function HDpackFstring from the HDF4 Library and
    left name unchanged. It causes linking problems for Fortran users
    that use both HDF4 and HDF5 Libraries in their applications.
Solution:
    Changed the name to be HD5packFstring
Platforms tested:
    Solaris 2.7

1 files changed, 3 insertions, 3 deletions

diff --git a/fortran/src/H5Tf.c b/fortran/src/H5Tf.c
index 7a72647..332a9cd 100644
--- a/fortran/src/H5Tf.c
+++ b/fortran/src/H5Tf.c
@@ -981,7 +981,7 @@ nh5tget_member_name_c ( hid_t_f *type_id ,int_f* index, _fcd member_name, int_f
   c_name = H5Tget_member_name(c_type_id, c_index);
   if (c_name == NULL ) return ret_value;
 
-  HDpackFstring(c_name, _fcdtocp(member_name), strlen(c_name));  
+  HD5packFstring(c_name, _fcdtocp(member_name), strlen(c_name));  
   *namelen = (int_f)strlen(c_name);
   HDfree(c_name);
   ret_value = 0; 
@@ -1389,7 +1389,7 @@ nh5tenum_nameof_c(hid_t_f *type_id, int_f* value, _fcd name, size_t_f* namelen)
   c_name = (char *)malloc(sizeof(char)*c_namelen);
   c_type_id = *type_id;
   error = H5Tenum_nameof(c_type_id, &c_value, c_name, c_namelen);
-  HDpackFstring(c_name, _fcdtocp(name), strlen(c_name));  
+  HD5packFstring(c_name, _fcdtocp(name), strlen(c_name));  
   HDfree(c_name);
 
   if(error < 0) return ret_value;
@@ -1524,7 +1524,7 @@ nh5tget_tag_c(hid_t_f* type_id, _fcd tag, int_f* taglen)
   c_tag = H5Tget_tag(c_type_id);
   if (c_tag == NULL ) return ret_value;
 
-  HDpackFstring(c_tag, _fcdtocp(tag), strlen(c_tag));  
+  HD5packFstring(c_tag, _fcdtocp(tag), strlen(c_tag));  
   *taglen = strlen(c_tag);
   HDfree(c_tag);
   ret_value = 0;