summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Ef.c
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/src/H5Ef.c')
-rw-r--r--fortran/src/H5Ef.c40
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