! * ************************************************************************** * ! * Interface auto generated - do not modify * ! * ************************************************************************** * MODULE axis_interface_attr USE, INTRINSIC :: ISO_C_BINDING INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C99 SUBROUTINE cxios_set_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: long_name INTEGER (kind = C_INT) , VALUE :: long_name_size END SUBROUTINE cxios_set_axis_long_name SUBROUTINE cxios_get_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: long_name INTEGER (kind = C_INT) , VALUE :: long_name_size END SUBROUTINE cxios_get_axis_long_name FUNCTION cxios_is_defined_axis_long_name(axis_hdl ) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_long_name INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl END FUNCTION cxios_is_defined_axis_long_name SUBROUTINE cxios_set_axis_name(axis_hdl, name, name_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name INTEGER (kind = C_INT) , VALUE :: name_size END SUBROUTINE cxios_set_axis_name SUBROUTINE cxios_get_axis_name(axis_hdl, name, name_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name INTEGER (kind = C_INT) , VALUE :: name_size END SUBROUTINE cxios_get_axis_name FUNCTION cxios_is_defined_axis_name(axis_hdl ) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_name INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl END FUNCTION cxios_is_defined_axis_name SUBROUTINE cxios_set_axis_positive(axis_hdl, positive, positive_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: positive INTEGER (kind = C_INT) , VALUE :: positive_size END SUBROUTINE cxios_set_axis_positive SUBROUTINE cxios_get_axis_positive(axis_hdl, positive, positive_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: positive INTEGER (kind = C_INT) , VALUE :: positive_size END SUBROUTINE cxios_get_axis_positive FUNCTION cxios_is_defined_axis_positive(axis_hdl ) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_positive INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl END FUNCTION cxios_is_defined_axis_positive SUBROUTINE cxios_set_axis_size(axis_hdl, size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl INTEGER (KIND=C_INT) , VALUE :: size END SUBROUTINE cxios_set_axis_size SUBROUTINE cxios_get_axis_size(axis_hdl, size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl INTEGER (KIND=C_INT) :: size END SUBROUTINE cxios_get_axis_size FUNCTION cxios_is_defined_axis_size(axis_hdl ) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_size INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl END FUNCTION cxios_is_defined_axis_size SUBROUTINE cxios_set_axis_standard_name(axis_hdl, standard_name, standard_name_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: standard_name INTEGER (kind = C_INT) , VALUE :: standard_name_size END SUBROUTINE cxios_set_axis_standard_name SUBROUTINE cxios_get_axis_standard_name(axis_hdl, standard_name, standard_name_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: standard_name INTEGER (kind = C_INT) , VALUE :: standard_name_size END SUBROUTINE cxios_get_axis_standard_name FUNCTION cxios_is_defined_axis_standard_name(axis_hdl ) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_standard_name INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl END FUNCTION cxios_is_defined_axis_standard_name SUBROUTINE cxios_set_axis_unit(axis_hdl, unit, unit_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: unit INTEGER (kind = C_INT) , VALUE :: unit_size END SUBROUTINE cxios_set_axis_unit SUBROUTINE cxios_get_axis_unit(axis_hdl, unit, unit_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: unit INTEGER (kind = C_INT) , VALUE :: unit_size END SUBROUTINE cxios_get_axis_unit FUNCTION cxios_is_defined_axis_unit(axis_hdl ) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_unit INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl END FUNCTION cxios_is_defined_axis_unit SUBROUTINE cxios_set_axis_value(axis_hdl, value, extent1) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: value INTEGER (kind = C_INT), VALUE :: extent1 END SUBROUTINE cxios_set_axis_value SUBROUTINE cxios_get_axis_value(axis_hdl, value, extent1) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: value INTEGER (kind = C_INT), VALUE :: extent1 END SUBROUTINE cxios_get_axis_value FUNCTION cxios_is_defined_axis_value(axis_hdl ) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_value INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl END FUNCTION cxios_is_defined_axis_value SUBROUTINE cxios_set_axis_zoom_begin(axis_hdl, zoom_begin) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl INTEGER (KIND=C_INT) , VALUE :: zoom_begin END SUBROUTINE cxios_set_axis_zoom_begin SUBROUTINE cxios_get_axis_zoom_begin(axis_hdl, zoom_begin) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl INTEGER (KIND=C_INT) :: zoom_begin END SUBROUTINE cxios_get_axis_zoom_begin FUNCTION cxios_is_defined_axis_zoom_begin(axis_hdl ) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_begin INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl END FUNCTION cxios_is_defined_axis_zoom_begin SUBROUTINE cxios_set_axis_zoom_end(axis_hdl, zoom_end) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl INTEGER (KIND=C_INT) , VALUE :: zoom_end END SUBROUTINE cxios_set_axis_zoom_end SUBROUTINE cxios_get_axis_zoom_end(axis_hdl, zoom_end) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl INTEGER (KIND=C_INT) :: zoom_end END SUBROUTINE cxios_get_axis_zoom_end FUNCTION cxios_is_defined_axis_zoom_end(axis_hdl ) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_end INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl END FUNCTION cxios_is_defined_axis_zoom_end SUBROUTINE cxios_set_axis_zoom_size(axis_hdl, zoom_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl INTEGER (KIND=C_INT) , VALUE :: zoom_size END SUBROUTINE cxios_set_axis_zoom_size SUBROUTINE cxios_get_axis_zoom_size(axis_hdl, zoom_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl INTEGER (KIND=C_INT) :: zoom_size END SUBROUTINE cxios_get_axis_zoom_size FUNCTION cxios_is_defined_axis_zoom_size(axis_hdl ) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_size INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl END FUNCTION cxios_is_defined_axis_zoom_size END INTERFACE END MODULE axis_interface_attr