! * ************************************************************************** * ! * Interface auto generated - do not modify * ! * ************************************************************************** * #include "../fortran/xios_fortran_prefix.hpp" MODULE domain_interface_attr USE, INTRINSIC :: ISO_C_BINDING INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C99 SUBROUTINE cxios_set_domain_area(domain_hdl, area, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_set_domain_area SUBROUTINE cxios_get_domain_area(domain_hdl, area, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_get_domain_area FUNCTION cxios_is_defined_domain_area(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_area INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_area SUBROUTINE cxios_set_domain_bounds_lat_1d(domain_hdl, bounds_lat_1d, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lat_1d INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_set_domain_bounds_lat_1d SUBROUTINE cxios_get_domain_bounds_lat_1d(domain_hdl, bounds_lat_1d, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lat_1d INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_get_domain_bounds_lat_1d FUNCTION cxios_is_defined_domain_bounds_lat_1d(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lat_1d INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_bounds_lat_1d SUBROUTINE cxios_set_domain_bounds_lat_2d(domain_hdl, bounds_lat_2d, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lat_2d INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_set_domain_bounds_lat_2d SUBROUTINE cxios_get_domain_bounds_lat_2d(domain_hdl, bounds_lat_2d, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lat_2d INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_get_domain_bounds_lat_2d FUNCTION cxios_is_defined_domain_bounds_lat_2d(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lat_2d INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_bounds_lat_2d SUBROUTINE cxios_set_domain_bounds_lon_1d(domain_hdl, bounds_lon_1d, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lon_1d INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_set_domain_bounds_lon_1d SUBROUTINE cxios_get_domain_bounds_lon_1d(domain_hdl, bounds_lon_1d, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lon_1d INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_get_domain_bounds_lon_1d FUNCTION cxios_is_defined_domain_bounds_lon_1d(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lon_1d INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_bounds_lon_1d SUBROUTINE cxios_set_domain_bounds_lon_2d(domain_hdl, bounds_lon_2d, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lon_2d INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_set_domain_bounds_lon_2d SUBROUTINE cxios_get_domain_bounds_lon_2d(domain_hdl, bounds_lon_2d, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lon_2d INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_get_domain_bounds_lon_2d FUNCTION cxios_is_defined_domain_bounds_lon_2d(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lon_2d INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_bounds_lon_2d SUBROUTINE cxios_set_domain_data_dim(domain_hdl, data_dim) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) , VALUE :: data_dim END SUBROUTINE cxios_set_domain_data_dim SUBROUTINE cxios_get_domain_data_dim(domain_hdl, data_dim) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) :: data_dim END SUBROUTINE cxios_get_domain_data_dim FUNCTION cxios_is_defined_domain_data_dim(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_dim INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_data_dim SUBROUTINE cxios_set_domain_data_i_index(domain_hdl, data_i_index, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) , DIMENSION(*) :: data_i_index INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_set_domain_data_i_index SUBROUTINE cxios_get_domain_data_i_index(domain_hdl, data_i_index, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) , DIMENSION(*) :: data_i_index INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_get_domain_data_i_index FUNCTION cxios_is_defined_domain_data_i_index(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_i_index INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_data_i_index SUBROUTINE cxios_set_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) , VALUE :: data_ibegin END SUBROUTINE cxios_set_domain_data_ibegin SUBROUTINE cxios_get_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) :: data_ibegin END SUBROUTINE cxios_get_domain_data_ibegin FUNCTION cxios_is_defined_domain_data_ibegin(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ibegin INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_data_ibegin SUBROUTINE cxios_set_domain_data_j_index(domain_hdl, data_j_index, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) , DIMENSION(*) :: data_j_index INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_set_domain_data_j_index SUBROUTINE cxios_get_domain_data_j_index(domain_hdl, data_j_index, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) , DIMENSION(*) :: data_j_index INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_get_domain_data_j_index FUNCTION cxios_is_defined_domain_data_j_index(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_j_index INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_data_j_index SUBROUTINE cxios_set_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) , VALUE :: data_jbegin END SUBROUTINE cxios_set_domain_data_jbegin SUBROUTINE cxios_get_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) :: data_jbegin END SUBROUTINE cxios_get_domain_data_jbegin FUNCTION cxios_is_defined_domain_data_jbegin(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_jbegin INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_data_jbegin SUBROUTINE cxios_set_domain_data_ni(domain_hdl, data_ni) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) , VALUE :: data_ni END SUBROUTINE cxios_set_domain_data_ni SUBROUTINE cxios_get_domain_data_ni(domain_hdl, data_ni) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) :: data_ni END SUBROUTINE cxios_get_domain_data_ni FUNCTION cxios_is_defined_domain_data_ni(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ni INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_data_ni SUBROUTINE cxios_set_domain_data_nj(domain_hdl, data_nj) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) , VALUE :: data_nj END SUBROUTINE cxios_set_domain_data_nj SUBROUTINE cxios_get_domain_data_nj(domain_hdl, data_nj) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) :: data_nj END SUBROUTINE cxios_get_domain_data_nj FUNCTION cxios_is_defined_domain_data_nj(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_nj INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_data_nj SUBROUTINE cxios_set_domain_domain_ref(domain_hdl, domain_ref, domain_ref_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_ref INTEGER (kind = C_INT) , VALUE :: domain_ref_size END SUBROUTINE cxios_set_domain_domain_ref SUBROUTINE cxios_get_domain_domain_ref(domain_hdl, domain_ref, domain_ref_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_ref INTEGER (kind = C_INT) , VALUE :: domain_ref_size END SUBROUTINE cxios_get_domain_domain_ref FUNCTION cxios_is_defined_domain_domain_ref(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_ref INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_domain_ref SUBROUTINE cxios_set_domain_i_index(domain_hdl, i_index, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) , DIMENSION(*) :: i_index INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_set_domain_i_index SUBROUTINE cxios_get_domain_i_index(domain_hdl, i_index, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) , DIMENSION(*) :: i_index INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_get_domain_i_index FUNCTION cxios_is_defined_domain_i_index(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_i_index INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_i_index SUBROUTINE cxios_set_domain_ibegin(domain_hdl, ibegin) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) , VALUE :: ibegin END SUBROUTINE cxios_set_domain_ibegin SUBROUTINE cxios_get_domain_ibegin(domain_hdl, ibegin) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) :: ibegin END SUBROUTINE cxios_get_domain_ibegin FUNCTION cxios_is_defined_domain_ibegin(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ibegin INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_ibegin SUBROUTINE cxios_set_domain_j_index(domain_hdl, j_index, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) , DIMENSION(*) :: j_index INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_set_domain_j_index SUBROUTINE cxios_get_domain_j_index(domain_hdl, j_index, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) , DIMENSION(*) :: j_index INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_get_domain_j_index FUNCTION cxios_is_defined_domain_j_index(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_j_index INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_j_index SUBROUTINE cxios_set_domain_jbegin(domain_hdl, jbegin) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) , VALUE :: jbegin END SUBROUTINE cxios_set_domain_jbegin SUBROUTINE cxios_get_domain_jbegin(domain_hdl, jbegin) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) :: jbegin END SUBROUTINE cxios_get_domain_jbegin FUNCTION cxios_is_defined_domain_jbegin(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jbegin INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_jbegin SUBROUTINE cxios_set_domain_latvalue_1d(domain_hdl, latvalue_1d, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: latvalue_1d INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_set_domain_latvalue_1d SUBROUTINE cxios_get_domain_latvalue_1d(domain_hdl, latvalue_1d, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: latvalue_1d INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_get_domain_latvalue_1d FUNCTION cxios_is_defined_domain_latvalue_1d(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue_1d INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_latvalue_1d SUBROUTINE cxios_set_domain_latvalue_2d(domain_hdl, latvalue_2d, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: latvalue_2d INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_set_domain_latvalue_2d SUBROUTINE cxios_get_domain_latvalue_2d(domain_hdl, latvalue_2d, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: latvalue_2d INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_get_domain_latvalue_2d FUNCTION cxios_is_defined_domain_latvalue_2d(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue_2d INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_latvalue_2d SUBROUTINE cxios_set_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: long_name INTEGER (kind = C_INT) , VALUE :: long_name_size END SUBROUTINE cxios_set_domain_long_name SUBROUTINE cxios_get_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: long_name INTEGER (kind = C_INT) , VALUE :: long_name_size END SUBROUTINE cxios_get_domain_long_name FUNCTION cxios_is_defined_domain_long_name(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_long_name INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_long_name SUBROUTINE cxios_set_domain_lonvalue_1d(domain_hdl, lonvalue_1d, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: lonvalue_1d INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_set_domain_lonvalue_1d SUBROUTINE cxios_get_domain_lonvalue_1d(domain_hdl, lonvalue_1d, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: lonvalue_1d INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_get_domain_lonvalue_1d FUNCTION cxios_is_defined_domain_lonvalue_1d(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue_1d INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_lonvalue_1d SUBROUTINE cxios_set_domain_lonvalue_2d(domain_hdl, lonvalue_2d, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: lonvalue_2d INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_set_domain_lonvalue_2d SUBROUTINE cxios_get_domain_lonvalue_2d(domain_hdl, lonvalue_2d, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl REAL (KIND=C_DOUBLE) , DIMENSION(*) :: lonvalue_2d INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_get_domain_lonvalue_2d FUNCTION cxios_is_defined_domain_lonvalue_2d(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue_2d INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_lonvalue_2d SUBROUTINE cxios_set_domain_mask_1d(domain_hdl, mask_1d, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_1d INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_set_domain_mask_1d SUBROUTINE cxios_get_domain_mask_1d(domain_hdl, mask_1d, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_1d INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_get_domain_mask_1d FUNCTION cxios_is_defined_domain_mask_1d(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask_1d INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_mask_1d SUBROUTINE cxios_set_domain_mask_2d(domain_hdl, mask_2d, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_2d INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_set_domain_mask_2d SUBROUTINE cxios_get_domain_mask_2d(domain_hdl, mask_2d, extent) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_2d INTEGER (kind = C_INT), DIMENSION(*) :: extent END SUBROUTINE cxios_get_domain_mask_2d FUNCTION cxios_is_defined_domain_mask_2d(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask_2d INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_mask_2d SUBROUTINE cxios_set_domain_name(domain_hdl, name, name_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name INTEGER (kind = C_INT) , VALUE :: name_size END SUBROUTINE cxios_set_domain_name SUBROUTINE cxios_get_domain_name(domain_hdl, name, name_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name INTEGER (kind = C_INT) , VALUE :: name_size END SUBROUTINE cxios_get_domain_name FUNCTION cxios_is_defined_domain_name(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_name INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_name SUBROUTINE cxios_set_domain_ni(domain_hdl, ni) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) , VALUE :: ni END SUBROUTINE cxios_set_domain_ni SUBROUTINE cxios_get_domain_ni(domain_hdl, ni) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) :: ni END SUBROUTINE cxios_get_domain_ni FUNCTION cxios_is_defined_domain_ni(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_ni SUBROUTINE cxios_set_domain_ni_glo(domain_hdl, ni_glo) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) , VALUE :: ni_glo END SUBROUTINE cxios_set_domain_ni_glo SUBROUTINE cxios_get_domain_ni_glo(domain_hdl, ni_glo) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) :: ni_glo END SUBROUTINE cxios_get_domain_ni_glo FUNCTION cxios_is_defined_domain_ni_glo(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni_glo INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_ni_glo SUBROUTINE cxios_set_domain_nj(domain_hdl, nj) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) , VALUE :: nj END SUBROUTINE cxios_set_domain_nj SUBROUTINE cxios_get_domain_nj(domain_hdl, nj) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) :: nj END SUBROUTINE cxios_get_domain_nj FUNCTION cxios_is_defined_domain_nj(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_nj SUBROUTINE cxios_set_domain_nj_glo(domain_hdl, nj_glo) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) , VALUE :: nj_glo END SUBROUTINE cxios_set_domain_nj_glo SUBROUTINE cxios_get_domain_nj_glo(domain_hdl, nj_glo) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) :: nj_glo END SUBROUTINE cxios_get_domain_nj_glo FUNCTION cxios_is_defined_domain_nj_glo(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj_glo INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_nj_glo SUBROUTINE cxios_set_domain_nvertex(domain_hdl, nvertex) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) , VALUE :: nvertex END SUBROUTINE cxios_set_domain_nvertex SUBROUTINE cxios_get_domain_nvertex(domain_hdl, nvertex) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl INTEGER (KIND=C_INT) :: nvertex END SUBROUTINE cxios_get_domain_nvertex FUNCTION cxios_is_defined_domain_nvertex(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nvertex INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_nvertex SUBROUTINE cxios_set_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: standard_name INTEGER (kind = C_INT) , VALUE :: standard_name_size END SUBROUTINE cxios_set_domain_standard_name SUBROUTINE cxios_get_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: standard_name INTEGER (kind = C_INT) , VALUE :: standard_name_size END SUBROUTINE cxios_get_domain_standard_name FUNCTION cxios_is_defined_domain_standard_name(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_standard_name INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_standard_name SUBROUTINE cxios_set_domain_type(domain_hdl, type, type_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: type INTEGER (kind = C_INT) , VALUE :: type_size END SUBROUTINE cxios_set_domain_type SUBROUTINE cxios_get_domain_type(domain_hdl, type, type_size) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl CHARACTER(kind = C_CHAR) , DIMENSION(*) :: type INTEGER (kind = C_INT) , VALUE :: type_size END SUBROUTINE cxios_get_domain_type FUNCTION cxios_is_defined_domain_type(domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_type INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl END FUNCTION cxios_is_defined_domain_type END INTERFACE END MODULE domain_interface_attr