philipp/hdf5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[svn-r5066]

Browse Source 
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
This commit is contained in:
Elena Pourmal
2002-03-14 15:12:12 -05:00
parent 34880b42a0
commit 7b77f97188
7 changed files with 19 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
fortran/src/H5Ef.c
View File

@@ -115,7 +115,7 @@ nh5eget_major_c(int_f* error_no, _fcd name)
* Call H5Eget_major function.
*/
c_name = H5Eget_major(c_error_no);
HDpackFstring((char*)c_name, _fcdtocp(name), strlen(c_name));
HD5packFstring((char*)c_name, _fcdtocp(name), strlen(c_name));
if(!strcmp(c_name, "Invalid major error number")) return ret_val;
ret_val = 0;
@@ -145,7 +145,7 @@ nh5eget_minor_c(int_f* error_no, _fcd name)
* Call H5Eget_minor function.
*/
c_name = H5Eget_minor(c_error_no);
HDpackFstring((char*)c_name, _fcdtocp(name), strlen(c_name));
HD5packFstring((char*)c_name, _fcdtocp(name), strlen(c_name));
if(!strcmp(c_name, "Invalid minor error number")) return ret_val;
ret_val = 0;