summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5_f.c
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/src/H5_f.c')
-rw-r--r--fortran/src/H5_f.c100
1 files changed, 100 insertions, 0 deletions
diff --git a/fortran/src/H5_f.c b/fortran/src/H5_f.c
index 08c3a9e..d8b3d06 100644
--- a/fortran/src/H5_f.c
+++ b/fortran/src/H5_f.c
@@ -342,3 +342,103 @@ nh5close_c()
ret_value = 0;
return ret_value;
}
+
+
+/*---------------------------------------------------------------------------
+ * Name: h5get_libversion_c
+ * Purpose: Calls H5get_libversion function
+ * to retrieve library version info.
+ * Inputs:
+ * None
+ * Outputs:
+ * majnum - the major version of the library
+ * minnum - the minor version of the library
+ * relnum - the release version of the library
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Tuesday, September 24, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5get_libversion_c( int_f *majnum, int_f *minnum, int_f *relnum)
+{
+
+ int ret_value = -1;
+ unsigned c_majnum, c_minnum, c_relnum;
+
+ if (H5get_libversion(&c_majnum, &c_minnum, &c_relnum) < 0) return ret_value;
+
+ *majnum = (int_f)c_majnum;
+ *minnum = (int_f)c_minnum;
+ *relnum = (int_f)c_relnum;
+ ret_value = 0;
+ return ret_value;
+}
+
+
+/*---------------------------------------------------------------------------
+ * Name: h5check_version_c
+ * Purpose: Calls H5check_version function
+ * to verify library version info.
+ * Inputs:
+ * majnum - the major version of the library
+ * minnum - the minor version of the library
+ * relnum - the release version of the library
+ * Outputs:
+ * None
+ * Returns: 0 on success, aborts on failure
+ * Programmer: Elena Pourmal
+ * Tuesday, September 24, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5check_version_c( int_f *majnum, int_f *minnum, int_f *relnum)
+{
+
+ int ret_value = -1;
+ unsigned c_majnum, c_minnum, c_relnum;
+ c_majnum = (unsigned) *majnum;
+ c_minnum = (unsigned) *minnum;
+ c_relnum = (unsigned) *relnum;
+
+ H5check_version(c_majnum, c_minnum, c_relnum);
+
+ ret_value = 0;
+ return ret_value;
+}
+
+/*---------------------------------------------------------------------------
+ * Name: h5garbage_collect_c
+ * Purpose: Calls H5garbage_collect to collect on all free-lists of all types
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Tuesday, September 24, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5garbage_collect_c()
+{
+
+ int ret_value = -1;
+ if (H5garbage_collect() < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*---------------------------------------------------------------------------
+ * Name: h5dont_atexit_c
+ * Purpose: Calls H5dont_atexit not to install atexit cleanup routine
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Tuesday, September 24, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5dont_atexit_c()
+{
+
+ int ret_value = -1;
+ if (H5dont_atexit() < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}