diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2000-11-17 22:43:27 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2000-11-17 22:43:27 (GMT) |
| commit | 5dad15399582249d6fa0d7100a84b46116925bf8 (patch) | |
| tree | 9c021ed6bde61abd44769ade48de63c235186983 /fortran/src/H5Ef.c | |
| parent | cfac5f773e8fc360a69d8384674d7a557d5a43f6 (diff) | |
| download | hdf5-5dad15399582249d6fa0d7100a84b46116925bf8.zip hdf5-5dad15399582249d6fa0d7100a84b46116925bf8.tar.gz hdf5-5dad15399582249d6fa0d7100a84b46116925bf8.tar.bz2 | |
[svn-r2975]
Purpose:
Code maintenance and development
Description:
I added two functions h5open_f and h5close_f to initialize
C library and Fortran interface (flags, predefined datatypes, etc).
Those calls are required for any F90 program that uses HDF5.
I renamed H5f90misc.c and H5f90miscf.f90 files to H5f.c and H5ff.f90.
New functions are added to those new files.
Platforms tested:
Solaris 2.6
Diffstat (limited to 'fortran/src/H5Ef.c')
| -rw-r--r-- | fortran/src/H5Ef.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/fortran/src/H5Ef.c b/fortran/src/H5Ef.c index 0ae4255..57e4b19 100644 --- a/fortran/src/H5Ef.c +++ b/fortran/src/H5Ef.c @@ -152,9 +152,9 @@ nh5eget_minor_c(int_f* error_no, _fcd name) * Inputs: printflag - flag to turn automatic error printing on or off. * Outputs: * Returns: 0 on success, -1 on failure - * Programmer: Xiangyang Su - * Wednesday, March 29, 2000 - * Modifications: + * Programmer: Elena Pourmal + * Friday, November 17, 2000 + * Modifications: major bug fix. Function never disabled printing. *---------------------------------------------------------------------------*/ int_f nh5eset_auto_c(int_f* printflag) @@ -164,6 +164,8 @@ nh5eset_auto_c(int_f* printflag) if (*printflag == 1) status = H5Eset_auto((H5E_auto_t)H5Eprint, stderr); + if (*printflag == 0) + status = H5Eset_auto(NULL,NULL); if (status >= 0) ret_val = 0; return ret_val; } |