diff options
Diffstat (limited to 'fortran/src/H5Ef.c')
| -rw-r--r-- | fortran/src/H5Ef.c | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/fortran/src/H5Ef.c b/fortran/src/H5Ef.c index 6bd6d74..3c47ee2 100644 --- a/fortran/src/H5Ef.c +++ b/fortran/src/H5Ef.c @@ -20,15 +20,15 @@ /*---------------------------------------------------------------------------- * Name: h5eclear_c * Purpose: Call H5Eclear to clear the error stack for the current thread - * Inputs: - * Outputs: + * Inputs: + * Outputs: * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su * Wednesday, March 29, 2000 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5eclear_c( ) { int ret_val = -1; @@ -37,18 +37,18 @@ nh5eclear_c( ) /* * Call H5Eclear function. */ - status = H5Eclear_stack(H5E_DEFAULT); + status = H5Eclear_stack(H5E_DEFAULT); if(status < 0) return ret_val; ret_val = 0; return ret_val; -} +} /*---------------------------------------------------------------------------- * Name: h5eprint_c1 * Purpose: Call H5Eprint to print the error stack in a default manner. * Inputs: name - file name * namelen - length of name - * Outputs: + * Outputs: * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su * Wednesday, March 29, 2000 @@ -76,17 +76,17 @@ nh5eprint_c1(_fcd name, int_f* namelen) fclose(file); DONE: - HDfree(c_name); + HDfree(c_name); return ret_val; -} +} /*---------------------------------------------------------------------------- * Name: h5eprint_c2 * Purpose: Call H5Eprint to print the error stack to stderr * in a default manner. - * Inputs: - * Outputs: + * Inputs: + * Outputs: * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su * Wednesday, March 29, 2000 @@ -104,11 +104,11 @@ nh5eprint_c2() status = H5Eprint_stack(H5E_DEFAULT, NULL); if(status >= 0) ret_val = 0; return ret_val; -} +} /*---------------------------------------------------------------------------- * Name: h5eget_major_c - * Purpose: Call H5Eget_major to get a character string + * Purpose: Call H5Eget_major to get a character string * describing an error specified by a major error number. * Inputs: error_no - Major error number * Outputs: name - character string describing the error @@ -133,16 +133,16 @@ nh5eget_major_c(int_f* error_no, _fcd name, size_t_f* namelen) * Call H5Eget_major function. */ H5Eget_msg(c_error_no, NULL, c_name, c_namelen); - HD5packFstring((char*)c_name, _fcdtocp(name), c_namelen); - + HD5packFstring((char*)c_name, _fcdtocp(name), c_namelen); + if(!strcmp(c_name, "Invalid major error number")) return ret_val; ret_val = 0; return ret_val; -} +} /*---------------------------------------------------------------------------- * Name: h5eget_minor_c - * Purpose: Call H5Eget_minor to get a character string + * Purpose: Call H5Eget_minor to get a character string * describing an error specified by a minor error number. * Inputs: error_no - Major error number * Outputs: name - character string describing the error @@ -167,18 +167,18 @@ nh5eget_minor_c(int_f* error_no, _fcd name, size_t_f* namelen) * Call H5Eget_minor function. */ H5Eget_msg(c_error_no, NULL, c_name, c_namelen); - HD5packFstring((char*)c_name, _fcdtocp(name), c_namelen); - + HD5packFstring((char*)c_name, _fcdtocp(name), c_namelen); + if(!strcmp(c_name, "Invalid minor error number")) return ret_val; ret_val = 0; return ret_val; -} +} /*---------------------------------------------------------------------------- * Name: h5eset_auto_c * Purpose: Call H5Eset_auto to turn automatic error printing on or off. * Inputs: printflag - flag to turn automatic error printing on or off. - * Outputs: + * Outputs: * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Friday, November 17, 2000 |