mirrors/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2026-09-25 04:09:44 +03:00
Code Issues Packages Projects Releases Wiki Activity

removed link creation related c-wrappers (#5190)

Browse Source
This commit is contained in:
Scot Breitenfeld
2024-12-31 12:31:03 -06:00
committed by GitHub
parent 11ddd6203f
commit 980117be30
2 changed files with 19 additions and 86 deletions
Download Patch File Download Diff File Expand all files Collapse all files
fortran/src/H5Pf.c
-70
View File
@@ -3504,37 +3504,6 @@ h5pget_attr_creation_order_c(hid_t_f *ocpl_id, int_f *crt_order_flags)
ret_value = 0;
return ret_value;
}
/****if* H5Pf/h5pset_link_creation_order_c
* NAME
* h5pset_link_creation_order_c
* PURPOSE
* Calls H5Pset_link_creation_order
*
* INPUTS
* gcpl_id - Group creation property list identifier
* crt_order_flags - Creation order flag(s)
* OUTPUTS
*
* RETURNS
* 0 on success, -1 on failure
* SOURCE
*/
int_f
h5pset_link_creation_order_c(hid_t_f *gcpl_id, int_f *crt_order_flags)
/******/
{
int ret_value = -1;
herr_t ret;
/*
* Call H5Pset_link_creation_order function.
*/
ret = H5Pset_link_creation_order((hid_t)*gcpl_id, (unsigned)*crt_order_flags);
if (ret < 0)
return ret_value;
ret_value = 0;
return ret_value;
}
/****if* H5Pf/h5pget_link_phase_change_c
* NAME
@@ -3682,45 +3651,6 @@ h5pset_create_inter_group_c(hid_t_f *lcpl_id, int_f *crt_intermed_group)
return ret_value;
}
/****if* H5Pf/h5pget_link_creation_order_c
* NAME
* h5pget_link_creation_order_c
* PURPOSE
* Calls H5Pget_link_creation_order
*
* INPUTS
*
* gcpl_id - Group creation property list identifier
* OUTPUTS
*
* crt_order_flags - Creation order flag(s)
*
* RETURNS
* 0 on success, -1 on failure
* SOURCE
*/
int_f
h5pget_link_creation_order_c(hid_t_f *gcpl_id, int_f *crt_order_flags)
/******/
{
int ret_value = -1;
herr_t ret;
unsigned c_crt_order_flags;
/*
* Call h5pget_link_creation_order function.
*/
ret = H5Pget_link_creation_order((hid_t)*gcpl_id, &c_crt_order_flags);
if (ret < 0)
return ret_value;
*crt_order_flags = (int_f)c_crt_order_flags;
ret_value = 0;
return ret_value;
}
/****if* H5Pf/h5pset_char_encoding_c
* NAME
* h5pset_char_encoding_c
fortran/src/H5Pff.F90
+19 -16
View File
@@ -3470,17 +3470,17 @@ CONTAINS
INTEGER, INTENT(IN) :: crt_order_flags
INTEGER, INTENT(OUT) :: hdferr
INTERFACE
INTEGER FUNCTION h5pset_link_creation_order_c(gcpl_id, crt_order_flags) &
BIND(C,NAME='h5pset_link_creation_order_c')
IMPORT :: HID_T
INTEGER FUNCTION h5pset_link_creation_order(gcpl_id, crt_order_flags) &
BIND(C,NAME='H5Pset_link_creation_order')
IMPORT :: HID_T, C_INT
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: gcpl_id
INTEGER, INTENT(IN) :: crt_order_flags
INTEGER(HID_T), VALUE :: gcpl_id
INTEGER(C_INT), VALUE :: crt_order_flags
END FUNCTION H5pset_link_creation_order_c
END FUNCTION H5pset_link_creation_order
END INTERFACE
hdferr = h5pset_link_creation_order_c(gcpl_id, crt_order_flags)
hdferr = h5pset_link_creation_order(gcpl_id, INT(crt_order_flags, C_INT))
END SUBROUTINE h5pset_link_creation_order_f
@@ -3634,18 +3634,21 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: gcpl_id
INTEGER, INTENT(OUT) :: crt_order_flags
INTEGER, INTENT(OUT) :: hdferr
INTERFACE
INTEGER FUNCTION h5pget_link_creation_order_c(gcpl_id, crt_order_flags) &
BIND(C,NAME='h5pget_link_creation_order_c')
IMPORT :: HID_T
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: gcpl_id
INTEGER, INTENT(OUT) :: crt_order_flags
END FUNCTION H5pget_link_creation_order_c
INTEGER(C_INT) :: c_crt_order_flags
INTERFACE
INTEGER FUNCTION h5pget_link_creation_order(gcpl_id, crt_order_flags) &
BIND(C,NAME='H5Pget_link_creation_order')
IMPORT :: HID_T, C_INT
IMPLICIT NONE
INTEGER(HID_T), VALUE :: gcpl_id
INTEGER(C_INT) :: crt_order_flags
END FUNCTION H5pget_link_creation_order
END INTERFACE
hdferr = h5pget_link_creation_order_c(gcpl_id, crt_order_flags)
hdferr = h5pget_link_creation_order(gcpl_id, c_crt_order_flags)
crt_order_flags = INT(c_crt_order_flags)
END SUBROUTINE h5pget_link_creation_order_f