mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-01-18 15:15:56 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r4637]

Browse Source 
Purpose:
    Bug fix
Description:
    Error messages were printed to the file and standard output regardless
    of the parameters passed to the h5eprint_f function. h5eprintc function
    did not close the file with the error output. Fixed.
Platforms tested:
    arabica and eirene
This commit is contained in:
Elena Pourmal 2001-11-27 10:10:55 -05:00
parent 2e910e48b9
commit 3adfa54afc
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fortran/src/H5Ef.c
View File

@ -36,7 +36,8 @@ nh5eclear_c( )
* Returns: 0 on success, -1 on failure
* Programmer: Xiangyang Su
* Wednesday, March 29, 2000
* Modifications:
* Modifications: Bug fix: Added call to close the file with the error messages
* EP 11/26/01
*---------------------------------------------------------------------------*/
int_f
nh5eprint_c1(_fcd name, int_f* namelen)
@ -48,12 +49,14 @@ nh5eprint_c1(_fcd name, int_f* namelen)
int c_namelen;
c_namelen = *namelen;
c_name = (char*)HD5f2cstring(name, c_namelen);
file = fopen(c_name, "w");
file = fopen(c_name, "a");
if(!file) return ret_val;
/*
* Call H5Eprint function.
*/
status = H5Eprint(file);
fclose(file);
if(status < 0) return ret_val;
ret_val = 0;
return ret_val;

5
fortran/src/H5Eff.f90
View File

@ -110,8 +110,11 @@
END FUNCTION h5eprint_c2
END INTERFACE
namelen = LEN(NAME)
if (present(name)) hdferr = h5eprint_c1(name, namelen)
if (present(name)) then
hdferr = h5eprint_c1(name, namelen)
else
hdferr = h5eprint_c2()
endif
END SUBROUTINE h5eprint_f
!----------------------------------------------------------------------