! * ************************************************************************** * ! * Interface auto generated - do not modify * ! * ************************************************************************** * #include "../fortran/xios_fortran_prefix.hpp" MODULE scalargroup_interface_attr USE, INTRINSIC :: ISO_C_BINDING INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C99 SUBROUTINE cxios_set_scalargroup_axis_type(scalargroup_hdl, axis_type, axis_type_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: axis_type INTEGER (kind = C_INT) , VALUE :: axis_type_size END SUBROUTINE cxios_set_scalargroup_axis_type SUBROUTINE cxios_get_scalargroup_axis_type(scalargroup_hdl, axis_type, axis_type_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: axis_type INTEGER (kind = C_INT) , VALUE :: axis_type_size END SUBROUTINE cxios_get_scalargroup_axis_type FUNCTION cxios_is_defined_scalargroup_axis_type(scalargroup_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_axis_type INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl END FUNCTION cxios_is_defined_scalargroup_axis_type SUBROUTINE cxios_set_scalargroup_bounds(scalargroup_hdl, bounds, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_set_scalargroup_bounds SUBROUTINE cxios_get_scalargroup_bounds(scalargroup_hdl, bounds, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_get_scalargroup_bounds FUNCTION cxios_is_defined_scalargroup_bounds(scalargroup_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_bounds INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl END FUNCTION cxios_is_defined_scalargroup_bounds SUBROUTINE cxios_set_scalargroup_bounds_name(scalargroup_hdl, bounds_name, bounds_name_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_name INTEGER (kind = C_INT) , VALUE :: bounds_name_size END SUBROUTINE cxios_set_scalargroup_bounds_name SUBROUTINE cxios_get_scalargroup_bounds_name(scalargroup_hdl, bounds_name, bounds_name_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_name INTEGER (kind = C_INT) , VALUE :: bounds_name_size END SUBROUTINE cxios_get_scalargroup_bounds_name FUNCTION cxios_is_defined_scalargroup_bounds_name(scalargroup_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_bounds_name INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl END FUNCTION cxios_is_defined_scalargroup_bounds_name SUBROUTINE cxios_set_scalargroup_comment(scalargroup_hdl, comment, comment_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment INTEGER (kind = C_INT) , VALUE :: comment_size END SUBROUTINE cxios_set_scalargroup_comment SUBROUTINE cxios_get_scalargroup_comment(scalargroup_hdl, comment, comment_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment INTEGER (kind = C_INT) , VALUE :: comment_size END SUBROUTINE cxios_get_scalargroup_comment FUNCTION cxios_is_defined_scalargroup_comment(scalargroup_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_comment INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl END FUNCTION cxios_is_defined_scalargroup_comment SUBROUTINE cxios_set_scalargroup_group_ref(scalargroup_hdl, group_ref, group_ref_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: group_ref INTEGER (kind = C_INT) , VALUE :: group_ref_size END SUBROUTINE cxios_set_scalargroup_group_ref SUBROUTINE cxios_get_scalargroup_group_ref(scalargroup_hdl, group_ref, group_ref_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: group_ref INTEGER (kind = C_INT) , VALUE :: group_ref_size END SUBROUTINE cxios_get_scalargroup_group_ref FUNCTION cxios_is_defined_scalargroup_group_ref(scalargroup_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_group_ref INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl END FUNCTION cxios_is_defined_scalargroup_group_ref SUBROUTINE cxios_set_scalargroup_label(scalargroup_hdl, label, label_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: label INTEGER (kind = C_INT) , VALUE :: label_size END SUBROUTINE cxios_set_scalargroup_label SUBROUTINE cxios_get_scalargroup_label(scalargroup_hdl, label, label_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: label INTEGER (kind = C_INT) , VALUE :: label_size END SUBROUTINE cxios_get_scalargroup_label FUNCTION cxios_is_defined_scalargroup_label(scalargroup_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_label INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl END FUNCTION cxios_is_defined_scalargroup_label SUBROUTINE cxios_set_scalargroup_long_name(scalargroup_hdl, long_name, long_name_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: long_name INTEGER (kind = C_INT) , VALUE :: long_name_size END SUBROUTINE cxios_set_scalargroup_long_name SUBROUTINE cxios_get_scalargroup_long_name(scalargroup_hdl, long_name, long_name_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: long_name INTEGER (kind = C_INT) , VALUE :: long_name_size END SUBROUTINE cxios_get_scalargroup_long_name FUNCTION cxios_is_defined_scalargroup_long_name(scalargroup_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_long_name INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl END FUNCTION cxios_is_defined_scalargroup_long_name SUBROUTINE cxios_set_scalargroup_name(scalargroup_hdl, name, name_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name INTEGER (kind = C_INT) , VALUE :: name_size END SUBROUTINE cxios_set_scalargroup_name SUBROUTINE cxios_get_scalargroup_name(scalargroup_hdl, name, name_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name INTEGER (kind = C_INT) , VALUE :: name_size END SUBROUTINE cxios_get_scalargroup_name FUNCTION cxios_is_defined_scalargroup_name(scalargroup_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_name INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl END FUNCTION cxios_is_defined_scalargroup_name SUBROUTINE cxios_set_scalargroup_positive(scalargroup_hdl, positive, positive_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: positive INTEGER (kind = C_INT) , VALUE :: positive_size END SUBROUTINE cxios_set_scalargroup_positive SUBROUTINE cxios_get_scalargroup_positive(scalargroup_hdl, positive, positive_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: positive INTEGER (kind = C_INT) , VALUE :: positive_size END SUBROUTINE cxios_get_scalargroup_positive FUNCTION cxios_is_defined_scalargroup_positive(scalargroup_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_positive INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl END FUNCTION cxios_is_defined_scalargroup_positive SUBROUTINE cxios_set_scalargroup_prec(scalargroup_hdl, prec) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl INTEGER (KIND=C_INT) , VALUE :: prec END SUBROUTINE cxios_set_scalargroup_prec SUBROUTINE cxios_get_scalargroup_prec(scalargroup_hdl, prec) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl INTEGER (KIND=C_INT) :: prec END SUBROUTINE cxios_get_scalargroup_prec FUNCTION cxios_is_defined_scalargroup_prec(scalargroup_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_prec INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl END FUNCTION cxios_is_defined_scalargroup_prec SUBROUTINE cxios_set_scalargroup_scalar_ref(scalargroup_hdl, scalar_ref, scalar_ref_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: scalar_ref INTEGER (kind = C_INT) , VALUE :: scalar_ref_size END SUBROUTINE cxios_set_scalargroup_scalar_ref SUBROUTINE cxios_get_scalargroup_scalar_ref(scalargroup_hdl, scalar_ref, scalar_ref_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: scalar_ref INTEGER (kind = C_INT) , VALUE :: scalar_ref_size END SUBROUTINE cxios_get_scalargroup_scalar_ref FUNCTION cxios_is_defined_scalargroup_scalar_ref(scalargroup_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_scalar_ref INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl END FUNCTION cxios_is_defined_scalargroup_scalar_ref SUBROUTINE cxios_set_scalargroup_standard_name(scalargroup_hdl, standard_name, standard_name_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: standard_name INTEGER (kind = C_INT) , VALUE :: standard_name_size END SUBROUTINE cxios_set_scalargroup_standard_name SUBROUTINE cxios_get_scalargroup_standard_name(scalargroup_hdl, standard_name, standard_name_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: standard_name INTEGER (kind = C_INT) , VALUE :: standard_name_size END SUBROUTINE cxios_get_scalargroup_standard_name FUNCTION cxios_is_defined_scalargroup_standard_name(scalargroup_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_standard_name INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl END FUNCTION cxios_is_defined_scalargroup_standard_name SUBROUTINE cxios_set_scalargroup_unit(scalargroup_hdl, unit, unit_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: unit INTEGER (kind = C_INT) , VALUE :: unit_size END SUBROUTINE cxios_set_scalargroup_unit SUBROUTINE cxios_get_scalargroup_unit(scalargroup_hdl, unit, unit_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: unit INTEGER (kind = C_INT) , VALUE :: unit_size END SUBROUTINE cxios_get_scalargroup_unit FUNCTION cxios_is_defined_scalargroup_unit(scalargroup_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_unit INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl END FUNCTION cxios_is_defined_scalargroup_unit SUBROUTINE cxios_set_scalargroup_value(scalargroup_hdl, value) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl REAL (KIND=C_DOUBLE) , VALUE :: value END SUBROUTINE cxios_set_scalargroup_value SUBROUTINE cxios_get_scalargroup_value(scalargroup_hdl, value) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl REAL (KIND=C_DOUBLE) :: value END SUBROUTINE cxios_get_scalargroup_value FUNCTION cxios_is_defined_scalargroup_value(scalargroup_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_value INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl END FUNCTION cxios_is_defined_scalargroup_value END INTERFACE END MODULE scalargroup_interface_attr