summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Tf.c
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/src/H5Tf.c')
-rw-r--r--fortran/src/H5Tf.c21
1 files changed, 16 insertions, 5 deletions
diff --git a/fortran/src/H5Tf.c b/fortran/src/H5Tf.c
index 341f230d..e0a69f3 100644
--- a/fortran/src/H5Tf.c
+++ b/fortran/src/H5Tf.c
@@ -1,3 +1,19 @@
+/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+ * Copyright by the Board of Trustees of the University of Illinois. *
+ * All rights reserved. *
+ * *
+ * This file is part of HDF5. The full HDF5 copyright notice, including *
+ * terms governing use, modification, and redistribution, is contained in *
+ * the files COPYING and Copyright.html. COPYING can be found at the root *
+ * of the source code distribution tree; Copyright.html can be found at the *
+ * root level of an installed copy of the electronic HDF5 document set and *
+ * is linked from the top-level documents page. It can also be found at *
+ * http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html. If you do not have *
+ * access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
+
+/* This files contains C stubs for H5T Fortran APIs */
+
#include "H5f90.h"
@@ -763,7 +779,6 @@ nh5tget_inpad_c ( hid_t_f *type_id , int_f * padtype)
{
int ret_value = -1;
hid_t c_type_id;
- herr_t status;
H5T_pad_t c_padtype;
c_type_id = *type_id;
@@ -825,7 +840,6 @@ nh5tget_cset_c ( hid_t_f *type_id , int_f * cset)
{
int ret_value = -1;
hid_t c_type_id;
- herr_t status;
H5T_cset_t c_cset;
c_type_id = *type_id;
@@ -885,7 +899,6 @@ nh5tget_strpad_c ( hid_t_f *type_id , int_f * strpad)
{
int ret_value = -1;
hid_t c_type_id;
- herr_t status;
H5T_str_t c_strpad;
c_type_id = *type_id;
@@ -945,7 +958,6 @@ nh5tget_nmembers_c ( hid_t_f *type_id , int_f * num_members)
{
int ret_value = -1;
hid_t c_type_id;
- herr_t status;
c_type_id = *type_id;
*num_members = (int_f)H5Tget_nmembers(c_type_id);
@@ -1307,7 +1319,6 @@ nh5tarray_create_c(hid_t_f * base_id, int_f *rank, hsize_t_f* dims, hid_t_f* typ
hid_t c_base_id;
hid_t c_type_id;
int c_rank;
- herr_t status;
hsize_t *c_dims;
int i;