! * ************************************************************************** * ! * Interface auto generated - do not modify * ! * ************************************************************************** * #include "../fortran/xios_fortran_prefix.hpp" MODULE generate_rectilinear_domain_interface_attr USE, INTRINSIC :: ISO_C_BINDING INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C99 SUBROUTINE cxios_set_generate_rectilinear_domain_bounds_lat_end(generate_rectilinear_domain_hdl, bounds_lat_end) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl REAL (KIND=C_DOUBLE) , VALUE :: bounds_lat_end END SUBROUTINE cxios_set_generate_rectilinear_domain_bounds_lat_end SUBROUTINE cxios_get_generate_rectilinear_domain_bounds_lat_end(generate_rectilinear_domain_hdl, bounds_lat_end) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl REAL (KIND=C_DOUBLE) :: bounds_lat_end END SUBROUTINE cxios_get_generate_rectilinear_domain_bounds_lat_end FUNCTION cxios_is_defined_generate_rectilinear_domain_bounds_lat_end(generate_rectilinear_domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_generate_rectilinear_domain_bounds_lat_end INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl END FUNCTION cxios_is_defined_generate_rectilinear_domain_bounds_lat_end SUBROUTINE cxios_set_generate_rectilinear_domain_bounds_lat_start(generate_rectilinear_domain_hdl, bounds_lat_start) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl REAL (KIND=C_DOUBLE) , VALUE :: bounds_lat_start END SUBROUTINE cxios_set_generate_rectilinear_domain_bounds_lat_start SUBROUTINE cxios_get_generate_rectilinear_domain_bounds_lat_start(generate_rectilinear_domain_hdl, bounds_lat_start) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl REAL (KIND=C_DOUBLE) :: bounds_lat_start END SUBROUTINE cxios_get_generate_rectilinear_domain_bounds_lat_start FUNCTION cxios_is_defined_generate_rectilinear_domain_bounds_lat_start(generate_rectilinear_domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_generate_rectilinear_domain_bounds_lat_start INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl END FUNCTION cxios_is_defined_generate_rectilinear_domain_bounds_lat_start SUBROUTINE cxios_set_generate_rectilinear_domain_bounds_lon_end(generate_rectilinear_domain_hdl, bounds_lon_end) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl REAL (KIND=C_DOUBLE) , VALUE :: bounds_lon_end END SUBROUTINE cxios_set_generate_rectilinear_domain_bounds_lon_end SUBROUTINE cxios_get_generate_rectilinear_domain_bounds_lon_end(generate_rectilinear_domain_hdl, bounds_lon_end) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl REAL (KIND=C_DOUBLE) :: bounds_lon_end END SUBROUTINE cxios_get_generate_rectilinear_domain_bounds_lon_end FUNCTION cxios_is_defined_generate_rectilinear_domain_bounds_lon_end(generate_rectilinear_domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_generate_rectilinear_domain_bounds_lon_end INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl END FUNCTION cxios_is_defined_generate_rectilinear_domain_bounds_lon_end SUBROUTINE cxios_set_generate_rectilinear_domain_bounds_lon_start(generate_rectilinear_domain_hdl, bounds_lon_start) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl REAL (KIND=C_DOUBLE) , VALUE :: bounds_lon_start END SUBROUTINE cxios_set_generate_rectilinear_domain_bounds_lon_start SUBROUTINE cxios_get_generate_rectilinear_domain_bounds_lon_start(generate_rectilinear_domain_hdl, bounds_lon_start) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl REAL (KIND=C_DOUBLE) :: bounds_lon_start END SUBROUTINE cxios_get_generate_rectilinear_domain_bounds_lon_start FUNCTION cxios_is_defined_generate_rectilinear_domain_bounds_lon_start(generate_rectilinear_domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_generate_rectilinear_domain_bounds_lon_start INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl END FUNCTION cxios_is_defined_generate_rectilinear_domain_bounds_lon_start SUBROUTINE cxios_set_generate_rectilinear_domain_lat_end(generate_rectilinear_domain_hdl, lat_end) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl REAL (KIND=C_DOUBLE) , VALUE :: lat_end END SUBROUTINE cxios_set_generate_rectilinear_domain_lat_end SUBROUTINE cxios_get_generate_rectilinear_domain_lat_end(generate_rectilinear_domain_hdl, lat_end) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl REAL (KIND=C_DOUBLE) :: lat_end END SUBROUTINE cxios_get_generate_rectilinear_domain_lat_end FUNCTION cxios_is_defined_generate_rectilinear_domain_lat_end(generate_rectilinear_domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_generate_rectilinear_domain_lat_end INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl END FUNCTION cxios_is_defined_generate_rectilinear_domain_lat_end SUBROUTINE cxios_set_generate_rectilinear_domain_lat_start(generate_rectilinear_domain_hdl, lat_start) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl REAL (KIND=C_DOUBLE) , VALUE :: lat_start END SUBROUTINE cxios_set_generate_rectilinear_domain_lat_start SUBROUTINE cxios_get_generate_rectilinear_domain_lat_start(generate_rectilinear_domain_hdl, lat_start) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl REAL (KIND=C_DOUBLE) :: lat_start END SUBROUTINE cxios_get_generate_rectilinear_domain_lat_start FUNCTION cxios_is_defined_generate_rectilinear_domain_lat_start(generate_rectilinear_domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_generate_rectilinear_domain_lat_start INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl END FUNCTION cxios_is_defined_generate_rectilinear_domain_lat_start SUBROUTINE cxios_set_generate_rectilinear_domain_lon_end(generate_rectilinear_domain_hdl, lon_end) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl REAL (KIND=C_DOUBLE) , VALUE :: lon_end END SUBROUTINE cxios_set_generate_rectilinear_domain_lon_end SUBROUTINE cxios_get_generate_rectilinear_domain_lon_end(generate_rectilinear_domain_hdl, lon_end) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl REAL (KIND=C_DOUBLE) :: lon_end END SUBROUTINE cxios_get_generate_rectilinear_domain_lon_end FUNCTION cxios_is_defined_generate_rectilinear_domain_lon_end(generate_rectilinear_domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_generate_rectilinear_domain_lon_end INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl END FUNCTION cxios_is_defined_generate_rectilinear_domain_lon_end SUBROUTINE cxios_set_generate_rectilinear_domain_lon_start(generate_rectilinear_domain_hdl, lon_start) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl REAL (KIND=C_DOUBLE) , VALUE :: lon_start END SUBROUTINE cxios_set_generate_rectilinear_domain_lon_start SUBROUTINE cxios_get_generate_rectilinear_domain_lon_start(generate_rectilinear_domain_hdl, lon_start) BIND(C) USE ISO_C_BINDING INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl REAL (KIND=C_DOUBLE) :: lon_start END SUBROUTINE cxios_get_generate_rectilinear_domain_lon_start FUNCTION cxios_is_defined_generate_rectilinear_domain_lon_start(generate_rectilinear_domain_hdl) BIND(C) USE ISO_C_BINDING LOGICAL(kind=C_BOOL) :: cxios_is_defined_generate_rectilinear_domain_lon_start INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl END FUNCTION cxios_is_defined_generate_rectilinear_domain_lon_start END INTERFACE END MODULE generate_rectilinear_domain_interface_attr