summaryrefslogtreecommitdiffstats
path: root/hl/fortran
diff options
context:
space:
mode:
authorAllen Byrne <50328838+byrnHDF@users.noreply.github.com>2022-07-26 21:45:46 (GMT)
committerGitHub <noreply@github.com>2022-07-26 21:45:46 (GMT)
commitae414872f50187e64cbd6cc8f076c22cf5df2d53 (patch)
treeb616f33f5daa89f213e7c64e04c63afde906e939 /hl/fortran
parent213eac2588369f75a11df6bb1788dde33c4b82e2 (diff)
downloadhdf5-ae414872f50187e64cbd6cc8f076c22cf5df2d53.zip
hdf5-ae414872f50187e64cbd6cc8f076c22cf5df2d53.tar.gz
hdf5-ae414872f50187e64cbd6cc8f076c22cf5df2d53.tar.bz2
Develop clang 13 format (#1933)
* Update format source to clang 13 * More format changes
Diffstat (limited to 'hl/fortran')
-rw-r--r--hl/fortran/src/H5DSfc.c4
-rw-r--r--hl/fortran/src/H5IMfc.c32
-rw-r--r--hl/fortran/src/H5LTf90proto.h4
-rw-r--r--hl/fortran/src/H5LTfc.c42
-rw-r--r--hl/fortran/src/H5TBfc.c44
5 files changed, 63 insertions, 63 deletions
diff --git a/hl/fortran/src/H5DSfc.c b/hl/fortran/src/H5DSfc.c
index a47b1c2..24f060a 100644
--- a/hl/fortran/src/H5DSfc.c
+++ b/hl/fortran/src/H5DSfc.c
@@ -256,7 +256,7 @@ done:
int_f
h5dsget_label_c(hid_t_f *did, int_f *idx, _fcd label, size_t_f *size)
{
- char * c_label = NULL;
+ char *c_label = NULL;
ssize_t size_c = -1;
int_f ret_value = 0;
@@ -306,7 +306,7 @@ done:
int_f
h5dsget_scale_name_c(hid_t_f *did, _fcd name, size_t_f *size)
{
- char * c_scale_name = NULL;
+ char *c_scale_name = NULL;
ssize_t size_c = -1;
int_f ret_value = 0;
diff --git a/hl/fortran/src/H5IMfc.c b/hl/fortran/src/H5IMfc.c
index b8897cc..339f08a 100644
--- a/hl/fortran/src/H5IMfc.c
+++ b/hl/fortran/src/H5IMfc.c
@@ -43,7 +43,7 @@ h5immake_image_8bit_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, hsize_t_f *
int ret_value = -1;
herr_t ret;
hid_t c_loc_id;
- char * c_name = NULL;
+ char *c_name = NULL;
hsize_t w = (hsize_t)*width;
hsize_t h = (hsize_t)*height;
@@ -96,7 +96,7 @@ h5imread_image_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, int_f *buf)
{
int ret_value = -1;
herr_t ret;
- char * c_name = NULL;
+ char *c_name = NULL;
/*
* convert FORTRAN name to C name
@@ -148,8 +148,8 @@ h5immake_image_24bit_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, size_t_f *
int ret_value = -1;
herr_t ret;
hid_t c_loc_id;
- char * c_name = NULL;
- char * c_il = NULL;
+ char *c_name = NULL;
+ char *c_il = NULL;
hsize_t w = (hsize_t)*width;
hsize_t h = (hsize_t)*height;
@@ -211,12 +211,12 @@ h5imget_image_info_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, hsize_t_f *w
int ret_value = -1;
herr_t ret;
hid_t c_loc_id;
- char * c_name = NULL;
+ char *c_name = NULL;
hsize_t c_width;
hsize_t c_height;
hsize_t c_planes;
hssize_t c_npals;
- char * c_buf = NULL; /* buffer to hold C string */
+ char *c_buf = NULL; /* buffer to hold C string */
/*
* convert FORTRAN name to C name
@@ -285,7 +285,7 @@ int_f
h5imis_image_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name)
{
hid_t c_loc_id;
- char * c_name = NULL;
+ char *c_name = NULL;
herr_t ret;
/*
@@ -330,7 +330,7 @@ h5imis_image_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name)
int_f
h5immake_palette_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, hsize_t_f *dims, void *buf)
{
- char * c_name = NULL;
+ char *c_name = NULL;
hsize_t c_dims[H5S_MAX_RANK];
int i;
int rank = 2;
@@ -383,8 +383,8 @@ h5imlink_palette_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, size_t_f *ilen
int ret_value = -1;
herr_t ret;
hid_t c_loc_id;
- char * c_name = NULL;
- char * c_namepal = NULL;
+ char *c_name = NULL;
+ char *c_namepal = NULL;
/*
* convert FORTRAN name to C name
@@ -443,8 +443,8 @@ h5imunlink_palette_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, size_t_f *il
int ret_value = -1;
herr_t ret;
hid_t c_loc_id;
- char * c_name = NULL;
- char * c_namepal = NULL;
+ char *c_name = NULL;
+ char *c_namepal = NULL;
/*
* convert FORTRAN name to C name
@@ -503,7 +503,7 @@ h5imget_npalettes_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, hsize_t_f *np
int ret_value = -1;
herr_t ret;
hid_t c_loc_id;
- char * c_name = NULL;
+ char *c_name = NULL;
hssize_t c_npals;
/*
@@ -559,7 +559,7 @@ h5imget_palette_info_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, int_f *pal
int ret_value = -1;
herr_t ret;
hid_t c_loc_id;
- char * c_name = NULL;
+ char *c_name = NULL;
hsize_t c_dims[2];
int i;
@@ -618,7 +618,7 @@ h5imget_palette_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, int_f *pal_numb
int ret_value = -1;
herr_t ret;
hid_t c_loc_id;
- char * c_name = NULL;
+ char *c_name = NULL;
/*
* convert FORTRAN name to C name
@@ -669,7 +669,7 @@ int_f
h5imis_palette_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name)
{
hid_t c_loc_id;
- char * c_name;
+ char *c_name;
herr_t ret;
/*
diff --git a/hl/fortran/src/H5LTf90proto.h b/hl/fortran/src/H5LTf90proto.h
index 8847c01..499a166 100644
--- a/hl/fortran/src/H5LTf90proto.h
+++ b/hl/fortran/src/H5LTf90proto.h
@@ -169,8 +169,8 @@ int_f h5tbmake_table_ptr_c(size_t_f *namelen1, _fcd name1, hid_t_f *loc_id, size
void *fill_data, int_f *compress,
size_t_f *char_len_field_names, /* field_names lengths */
size_t_f *max_char_size_field_names, /* char len of fields */
- char * field_names, /* field_names */
- void * data);
+ char *field_names, /* field_names */
+ void *data);
HDF5_HL_F90CSTUBDLL
int_f h5tbwrite_field_name_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, size_t_f *namelen1,
diff --git a/hl/fortran/src/H5LTfc.c b/hl/fortran/src/H5LTfc.c
index 4cb9265..eed2c36 100644
--- a/hl/fortran/src/H5LTfc.c
+++ b/hl/fortran/src/H5LTfc.c
@@ -42,7 +42,7 @@ h5ltmake_dataset_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, int_f *rank, h
{
int ret_value = -1;
herr_t ret;
- char * c_name = NULL;
+ char *c_name = NULL;
hsize_t *c_dims = NULL;
int i;
@@ -107,7 +107,7 @@ h5ltread_dataset_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, hid_t_f *type_
herr_t ret;
hid_t c_loc_id;
hid_t c_type_id;
- char * c_name = NULL;
+ char *c_name = NULL;
/*
* convert FORTRAN name to C name
@@ -161,8 +161,8 @@ h5ltmake_dataset_string_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, size_t_
int ret_value = -1;
herr_t ret;
hid_t c_loc_id;
- char * c_name = NULL;
- char * c_buf = NULL;
+ char *c_name = NULL;
+ char *c_buf = NULL;
/*
* convert FORTRAN name to C name
@@ -221,7 +221,7 @@ h5ltread_dataset_string_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, char *b
int ret_value = -1;
herr_t ret;
hid_t c_loc_id;
- char * c_name = NULL;
+ char *c_name = NULL;
/*
* convert FORTRAN name to C name
@@ -275,9 +275,9 @@ h5ltset_attribute_c(hid_t_f *loc_id, size_t_f *namelen, _fcd dsetname, size_t_f
int ret_value = -1;
herr_t ret = SUCCEED;
hid_t c_loc_id;
- char * c_name = NULL;
- char * c_attrname = NULL;
- char * c_buf = NULL;
+ char *c_name = NULL;
+ char *c_attrname = NULL;
+ char *c_buf = NULL;
size_t c_size;
/*
@@ -375,8 +375,8 @@ h5ltget_attribute_c(hid_t_f *loc_id, size_t_f *namelen, _fcd dsetname, size_t_f
int ret_value = -1;
herr_t ret = SUCCEED;
hid_t c_loc_id;
- char * c_name = NULL;
- char * c_attrname = NULL;
+ char *c_name = NULL;
+ char *c_attrname = NULL;
/*
* convert FORTRAN name to C name
@@ -456,9 +456,9 @@ h5ltget_attribute_string_c(hid_t_f *loc_id, size_t_f *namelen, _fcd dsetname, si
{
int ret_value = -1;
herr_t ret;
- char * c_name = NULL;
- char * c_attrname = NULL;
- char * c_buf = NULL;
+ char *c_name = NULL;
+ char *c_attrname = NULL;
+ char *c_buf = NULL;
/*
* Convert FORTRAN name to C name
@@ -526,7 +526,7 @@ h5ltget_dataset_ndims_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, int_f *ra
int ret_value = -1;
herr_t ret;
hid_t c_loc_id;
- char * c_name = NULL;
+ char *c_name = NULL;
int c_rank;
/*
@@ -579,7 +579,7 @@ int_f
h5ltfind_dataset_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name)
{
hid_t c_loc_id;
- char * c_name = NULL;
+ char *c_name = NULL;
herr_t ret;
/*
@@ -628,7 +628,7 @@ h5ltget_dataset_info_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, hsize_t_f
int ret_value = -1;
herr_t ret;
hid_t c_loc_id;
- char * c_name = NULL;
+ char *c_name = NULL;
H5T_class_t c_classtype;
size_t c_type_size;
hsize_t c_dims[32];
@@ -701,8 +701,8 @@ h5ltget_attribute_ndims_c(hid_t_f *loc_id, size_t_f *namelen, _fcd dsetname, siz
int ret_value = -1;
herr_t ret;
hid_t c_loc_id;
- char * c_name = NULL;
- char * c_attrname = NULL;
+ char *c_name = NULL;
+ char *c_attrname = NULL;
int c_rank;
/*
@@ -764,8 +764,8 @@ h5ltget_attribute_info_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, size_t_f
int ret_value = -1;
herr_t ret;
hid_t c_loc_id;
- char * c_name = NULL;
- char * c_attrname = NULL;
+ char *c_name = NULL;
+ char *c_attrname = NULL;
H5T_class_t c_classtype;
size_t c_type_size;
hsize_t c_dims[32];
@@ -841,7 +841,7 @@ int_f
h5ltpath_valid_c(hid_t_f *loc_id, _fcd path, size_t_f *pathlen, int_f *check_object_valid_c)
{
htri_t ret = -1;
- char * c_path = NULL;
+ char *c_path = NULL;
hbool_t check_object_valid;
/*
diff --git a/hl/fortran/src/H5TBfc.c b/hl/fortran/src/H5TBfc.c
index 91c420b..0997c68 100644
--- a/hl/fortran/src/H5TBfc.c
+++ b/hl/fortran/src/H5TBfc.c
@@ -40,17 +40,17 @@ h5tbmake_table_c(size_t_f *namelen1, _fcd name1, hid_t_f *loc_id, size_t_f *name
hid_t_f *field_types, hsize_t_f *chunk_size, int_f *compress,
size_t_f *char_len_field_names, /* field_names lengths */
size_t_f *max_char_size_field_names, /* char len of fields */
- char * field_names) /* field_names */
+ char *field_names) /* field_names */
{
- char * c_name = NULL;
- char * c_name1 = NULL;
+ char *c_name = NULL;
+ char *c_name1 = NULL;
hsize_t num_elem;
hsize_t i;
hsize_t c_nfields = (hsize_t)*nfields;
size_t *c_field_offset = NULL;
- hid_t * c_field_types = NULL;
- char ** c_field_names = NULL;
- char * tmp = NULL, *tmp_p;
+ hid_t *c_field_types = NULL;
+ char **c_field_names = NULL;
+ char *tmp = NULL, *tmp_p;
int_f ret_value = 0;
num_elem = (hsize_t)*nfields;
@@ -147,15 +147,15 @@ h5tbmake_table_ptr_c(size_t_f *namelen1, _fcd name1, hid_t_f *loc_id, size_t_f *
size_t_f *max_char_size_field_names, /* char len of fields */
char *field_names, void *data) /* field_names */
{
- char * c_name = NULL;
- char * c_name1 = NULL;
+ char *c_name = NULL;
+ char *c_name1 = NULL;
hsize_t num_elem;
hsize_t i;
hsize_t c_nfields = (hsize_t)*nfields;
size_t *c_field_offset = NULL;
- hid_t * c_field_types = NULL;
- char ** c_field_names = NULL;
- char * tmp = NULL, *tmp_p;
+ hid_t *c_field_types = NULL;
+ char **c_field_names = NULL;
+ char *tmp = NULL, *tmp_p;
int_f ret_value = 0;
num_elem = (hsize_t)*nfields;
@@ -248,7 +248,7 @@ int_f
h5tbread_table_c(hid_t_f *loc_id, _fcd name, size_t_f *namelen, hsize_t_f *nfields, size_t_f *dst_size,
size_t_f *dst_offset, size_t_f *dst_sizes, void *dst_buf)
{
- char * c_name = NULL;
+ char *c_name = NULL;
size_t *c_dst_offset = NULL;
size_t *c_dst_sizes = NULL;
hsize_t c_nfields = (hsize_t)*nfields;
@@ -308,8 +308,8 @@ int_f
h5tbwrite_field_name_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, size_t_f *namelen1, _fcd field_name,
hsize_t_f *start, hsize_t_f *nrecords, size_t_f *type_size, void *buf)
{
- char * c_name = NULL;
- char * c_name1 = NULL;
+ char *c_name = NULL;
+ char *c_name1 = NULL;
size_t c_type_size[1] = {(size_t)*type_size};
int_f ret_value = 0;
@@ -356,8 +356,8 @@ int_f
h5tbread_field_name_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, size_t_f *namelen1, _fcd field_name,
hsize_t_f *start, hsize_t_f *nrecords, size_t_f *type_size, void *buf)
{
- char * c_name = NULL;
- char * c_name1 = NULL;
+ char *c_name = NULL;
+ char *c_name1 = NULL;
size_t c_type_size[1] = {(size_t)*type_size};
int_f ret_value = 0;
@@ -404,7 +404,7 @@ int_f
h5tbwrite_field_index_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, int_f *field_index, hsize_t_f *start,
hsize_t_f *nrecords, size_t_f *type_size, void *buf)
{
- char * c_name = NULL;
+ char *c_name = NULL;
size_t c_type_size = *type_size;
int c_field_index = *field_index - 1; /* C zero based index */
int_f ret_value = 0;
@@ -448,7 +448,7 @@ int_f
h5tbread_field_index_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, int_f *field_index, hsize_t_f *start,
hsize_t_f *nrecords, size_t_f *type_size, void *buf)
{
- char * c_name = NULL;
+ char *c_name = NULL;
size_t c_type_size = *type_size;
int c_field_index = *field_index - 1; /* C zero based index */
int_f ret_value = 0;
@@ -583,7 +583,7 @@ done:
int_f
h5tbget_table_info_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, hsize_t_f *nfields, hsize_t_f *nrecords)
{
- char * c_name = NULL;
+ char *c_name = NULL;
hsize_t c_nfields;
hsize_t c_nrecords;
int_f ret_value = 0;
@@ -634,14 +634,14 @@ h5tbget_field_info_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, hsize_t_f *n
size_t_f *maxlen_out)
{
- char * c_name = NULL;
+ char *c_name = NULL;
hsize_t num_elem;
hsize_t c_nfields = *nfields;
size_t *c_field_sizes = NULL;
size_t *c_field_offsets = NULL;
size_t c_type_size;
- char ** c_field_names = NULL;
- char * tmp = NULL, *tmp_p;
+ char **c_field_names = NULL;
+ char *tmp = NULL, *tmp_p;
hsize_t i;
int_f ret_value = 0;
size_t c_lenmax;