[326] | 1 | ! * ************************************************************************** * |
---|
| 2 | ! * Interface auto generated - do not modify * |
---|
| 3 | ! * ************************************************************************** * |
---|
[532] | 4 | #include "../fortran/xios_fortran_prefix.hpp" |
---|
[326] | 5 | |
---|
| 6 | MODULE domaingroup_interface_attr |
---|
| 7 | USE, INTRINSIC :: ISO_C_BINDING |
---|
[581] | 8 | |
---|
| 9 | INTERFACE |
---|
| 10 | ! Do not call directly / interface FORTRAN 2003 <-> C99 |
---|
| 11 | |
---|
[611] | 12 | SUBROUTINE cxios_set_domaingroup_area(domaingroup_hdl, area, extent1, extent2) BIND(C) |
---|
| 13 | USE ISO_C_BINDING |
---|
| 14 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 15 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area |
---|
| 16 | INTEGER (kind = C_INT), VALUE :: extent1 |
---|
| 17 | INTEGER (kind = C_INT), VALUE :: extent2 |
---|
| 18 | END SUBROUTINE cxios_set_domaingroup_area |
---|
| 19 | |
---|
| 20 | SUBROUTINE cxios_get_domaingroup_area(domaingroup_hdl, area, extent1, extent2) BIND(C) |
---|
| 21 | USE ISO_C_BINDING |
---|
| 22 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 23 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area |
---|
| 24 | INTEGER (kind = C_INT), VALUE :: extent1 |
---|
| 25 | INTEGER (kind = C_INT), VALUE :: extent2 |
---|
| 26 | END SUBROUTINE cxios_get_domaingroup_area |
---|
| 27 | |
---|
| 28 | FUNCTION cxios_is_defined_domaingroup_area(domaingroup_hdl) BIND(C) |
---|
| 29 | USE ISO_C_BINDING |
---|
| 30 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_area |
---|
| 31 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 32 | END FUNCTION cxios_is_defined_domaingroup_area |
---|
| 33 | |
---|
| 34 | |
---|
[449] | 35 | SUBROUTINE cxios_set_domaingroup_bounds_lat(domaingroup_hdl, bounds_lat, extent1, extent2) BIND(C) |
---|
| 36 | USE ISO_C_BINDING |
---|
| 37 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 38 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lat |
---|
| 39 | INTEGER (kind = C_INT), VALUE :: extent1 |
---|
| 40 | INTEGER (kind = C_INT), VALUE :: extent2 |
---|
| 41 | END SUBROUTINE cxios_set_domaingroup_bounds_lat |
---|
[581] | 42 | |
---|
[449] | 43 | SUBROUTINE cxios_get_domaingroup_bounds_lat(domaingroup_hdl, bounds_lat, extent1, extent2) BIND(C) |
---|
| 44 | USE ISO_C_BINDING |
---|
| 45 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 46 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lat |
---|
| 47 | INTEGER (kind = C_INT), VALUE :: extent1 |
---|
| 48 | INTEGER (kind = C_INT), VALUE :: extent2 |
---|
| 49 | END SUBROUTINE cxios_get_domaingroup_bounds_lat |
---|
[581] | 50 | |
---|
| 51 | FUNCTION cxios_is_defined_domaingroup_bounds_lat(domaingroup_hdl) BIND(C) |
---|
[449] | 52 | USE ISO_C_BINDING |
---|
| 53 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lat |
---|
| 54 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 55 | END FUNCTION cxios_is_defined_domaingroup_bounds_lat |
---|
[581] | 56 | |
---|
| 57 | |
---|
[449] | 58 | SUBROUTINE cxios_set_domaingroup_bounds_lon(domaingroup_hdl, bounds_lon, extent1, extent2) BIND(C) |
---|
| 59 | USE ISO_C_BINDING |
---|
| 60 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 61 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lon |
---|
| 62 | INTEGER (kind = C_INT), VALUE :: extent1 |
---|
| 63 | INTEGER (kind = C_INT), VALUE :: extent2 |
---|
| 64 | END SUBROUTINE cxios_set_domaingroup_bounds_lon |
---|
[581] | 65 | |
---|
[449] | 66 | SUBROUTINE cxios_get_domaingroup_bounds_lon(domaingroup_hdl, bounds_lon, extent1, extent2) BIND(C) |
---|
| 67 | USE ISO_C_BINDING |
---|
| 68 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 69 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lon |
---|
| 70 | INTEGER (kind = C_INT), VALUE :: extent1 |
---|
| 71 | INTEGER (kind = C_INT), VALUE :: extent2 |
---|
| 72 | END SUBROUTINE cxios_get_domaingroup_bounds_lon |
---|
[581] | 73 | |
---|
| 74 | FUNCTION cxios_is_defined_domaingroup_bounds_lon(domaingroup_hdl) BIND(C) |
---|
[449] | 75 | USE ISO_C_BINDING |
---|
| 76 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lon |
---|
| 77 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 78 | END FUNCTION cxios_is_defined_domaingroup_bounds_lon |
---|
[581] | 79 | |
---|
| 80 | |
---|
[326] | 81 | SUBROUTINE cxios_set_domaingroup_data_dim(domaingroup_hdl, data_dim) BIND(C) |
---|
| 82 | USE ISO_C_BINDING |
---|
| 83 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 84 | INTEGER (KIND=C_INT) , VALUE :: data_dim |
---|
| 85 | END SUBROUTINE cxios_set_domaingroup_data_dim |
---|
[581] | 86 | |
---|
[326] | 87 | SUBROUTINE cxios_get_domaingroup_data_dim(domaingroup_hdl, data_dim) BIND(C) |
---|
| 88 | USE ISO_C_BINDING |
---|
| 89 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 90 | INTEGER (KIND=C_INT) :: data_dim |
---|
| 91 | END SUBROUTINE cxios_get_domaingroup_data_dim |
---|
[581] | 92 | |
---|
| 93 | FUNCTION cxios_is_defined_domaingroup_data_dim(domaingroup_hdl) BIND(C) |
---|
[432] | 94 | USE ISO_C_BINDING |
---|
| 95 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_dim |
---|
| 96 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 97 | END FUNCTION cxios_is_defined_domaingroup_data_dim |
---|
[581] | 98 | |
---|
| 99 | |
---|
[326] | 100 | SUBROUTINE cxios_set_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent1) BIND(C) |
---|
| 101 | USE ISO_C_BINDING |
---|
| 102 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 103 | INTEGER (KIND=C_INT) , DIMENSION(*) :: data_i_index |
---|
| 104 | INTEGER (kind = C_INT), VALUE :: extent1 |
---|
| 105 | END SUBROUTINE cxios_set_domaingroup_data_i_index |
---|
[581] | 106 | |
---|
[326] | 107 | SUBROUTINE cxios_get_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent1) BIND(C) |
---|
| 108 | USE ISO_C_BINDING |
---|
| 109 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 110 | INTEGER (KIND=C_INT) , DIMENSION(*) :: data_i_index |
---|
| 111 | INTEGER (kind = C_INT), VALUE :: extent1 |
---|
| 112 | END SUBROUTINE cxios_get_domaingroup_data_i_index |
---|
[581] | 113 | |
---|
| 114 | FUNCTION cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl) BIND(C) |
---|
[432] | 115 | USE ISO_C_BINDING |
---|
| 116 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_i_index |
---|
| 117 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 118 | END FUNCTION cxios_is_defined_domaingroup_data_i_index |
---|
[581] | 119 | |
---|
| 120 | |
---|
[326] | 121 | SUBROUTINE cxios_set_domaingroup_data_ibegin(domaingroup_hdl, data_ibegin) BIND(C) |
---|
| 122 | USE ISO_C_BINDING |
---|
| 123 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 124 | INTEGER (KIND=C_INT) , VALUE :: data_ibegin |
---|
| 125 | END SUBROUTINE cxios_set_domaingroup_data_ibegin |
---|
[581] | 126 | |
---|
[326] | 127 | SUBROUTINE cxios_get_domaingroup_data_ibegin(domaingroup_hdl, data_ibegin) BIND(C) |
---|
| 128 | USE ISO_C_BINDING |
---|
| 129 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 130 | INTEGER (KIND=C_INT) :: data_ibegin |
---|
| 131 | END SUBROUTINE cxios_get_domaingroup_data_ibegin |
---|
[581] | 132 | |
---|
| 133 | FUNCTION cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl) BIND(C) |
---|
[432] | 134 | USE ISO_C_BINDING |
---|
| 135 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_ibegin |
---|
| 136 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 137 | END FUNCTION cxios_is_defined_domaingroup_data_ibegin |
---|
[581] | 138 | |
---|
| 139 | |
---|
[326] | 140 | SUBROUTINE cxios_set_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent1) BIND(C) |
---|
| 141 | USE ISO_C_BINDING |
---|
| 142 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 143 | INTEGER (KIND=C_INT) , DIMENSION(*) :: data_j_index |
---|
| 144 | INTEGER (kind = C_INT), VALUE :: extent1 |
---|
| 145 | END SUBROUTINE cxios_set_domaingroup_data_j_index |
---|
[581] | 146 | |
---|
[326] | 147 | SUBROUTINE cxios_get_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent1) BIND(C) |
---|
| 148 | USE ISO_C_BINDING |
---|
| 149 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 150 | INTEGER (KIND=C_INT) , DIMENSION(*) :: data_j_index |
---|
| 151 | INTEGER (kind = C_INT), VALUE :: extent1 |
---|
| 152 | END SUBROUTINE cxios_get_domaingroup_data_j_index |
---|
[581] | 153 | |
---|
| 154 | FUNCTION cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl) BIND(C) |
---|
[432] | 155 | USE ISO_C_BINDING |
---|
| 156 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_j_index |
---|
| 157 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 158 | END FUNCTION cxios_is_defined_domaingroup_data_j_index |
---|
[581] | 159 | |
---|
| 160 | |
---|
[326] | 161 | SUBROUTINE cxios_set_domaingroup_data_jbegin(domaingroup_hdl, data_jbegin) BIND(C) |
---|
| 162 | USE ISO_C_BINDING |
---|
| 163 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 164 | INTEGER (KIND=C_INT) , VALUE :: data_jbegin |
---|
| 165 | END SUBROUTINE cxios_set_domaingroup_data_jbegin |
---|
[581] | 166 | |
---|
[326] | 167 | SUBROUTINE cxios_get_domaingroup_data_jbegin(domaingroup_hdl, data_jbegin) BIND(C) |
---|
| 168 | USE ISO_C_BINDING |
---|
| 169 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 170 | INTEGER (KIND=C_INT) :: data_jbegin |
---|
| 171 | END SUBROUTINE cxios_get_domaingroup_data_jbegin |
---|
[581] | 172 | |
---|
| 173 | FUNCTION cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl) BIND(C) |
---|
[432] | 174 | USE ISO_C_BINDING |
---|
| 175 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_jbegin |
---|
| 176 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 177 | END FUNCTION cxios_is_defined_domaingroup_data_jbegin |
---|
[581] | 178 | |
---|
| 179 | |
---|
[326] | 180 | SUBROUTINE cxios_set_domaingroup_data_n_index(domaingroup_hdl, data_n_index) BIND(C) |
---|
| 181 | USE ISO_C_BINDING |
---|
| 182 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 183 | INTEGER (KIND=C_INT) , VALUE :: data_n_index |
---|
| 184 | END SUBROUTINE cxios_set_domaingroup_data_n_index |
---|
[581] | 185 | |
---|
[326] | 186 | SUBROUTINE cxios_get_domaingroup_data_n_index(domaingroup_hdl, data_n_index) BIND(C) |
---|
| 187 | USE ISO_C_BINDING |
---|
| 188 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 189 | INTEGER (KIND=C_INT) :: data_n_index |
---|
| 190 | END SUBROUTINE cxios_get_domaingroup_data_n_index |
---|
[581] | 191 | |
---|
| 192 | FUNCTION cxios_is_defined_domaingroup_data_n_index(domaingroup_hdl) BIND(C) |
---|
[432] | 193 | USE ISO_C_BINDING |
---|
| 194 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_n_index |
---|
| 195 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 196 | END FUNCTION cxios_is_defined_domaingroup_data_n_index |
---|
[581] | 197 | |
---|
| 198 | |
---|
[326] | 199 | SUBROUTINE cxios_set_domaingroup_data_ni(domaingroup_hdl, data_ni) BIND(C) |
---|
| 200 | USE ISO_C_BINDING |
---|
| 201 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 202 | INTEGER (KIND=C_INT) , VALUE :: data_ni |
---|
| 203 | END SUBROUTINE cxios_set_domaingroup_data_ni |
---|
[581] | 204 | |
---|
[326] | 205 | SUBROUTINE cxios_get_domaingroup_data_ni(domaingroup_hdl, data_ni) BIND(C) |
---|
| 206 | USE ISO_C_BINDING |
---|
| 207 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 208 | INTEGER (KIND=C_INT) :: data_ni |
---|
| 209 | END SUBROUTINE cxios_get_domaingroup_data_ni |
---|
[581] | 210 | |
---|
| 211 | FUNCTION cxios_is_defined_domaingroup_data_ni(domaingroup_hdl) BIND(C) |
---|
[432] | 212 | USE ISO_C_BINDING |
---|
| 213 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_ni |
---|
| 214 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 215 | END FUNCTION cxios_is_defined_domaingroup_data_ni |
---|
[581] | 216 | |
---|
| 217 | |
---|
[326] | 218 | SUBROUTINE cxios_set_domaingroup_data_nj(domaingroup_hdl, data_nj) BIND(C) |
---|
| 219 | USE ISO_C_BINDING |
---|
| 220 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 221 | INTEGER (KIND=C_INT) , VALUE :: data_nj |
---|
| 222 | END SUBROUTINE cxios_set_domaingroup_data_nj |
---|
[581] | 223 | |
---|
[326] | 224 | SUBROUTINE cxios_get_domaingroup_data_nj(domaingroup_hdl, data_nj) BIND(C) |
---|
| 225 | USE ISO_C_BINDING |
---|
| 226 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 227 | INTEGER (KIND=C_INT) :: data_nj |
---|
| 228 | END SUBROUTINE cxios_get_domaingroup_data_nj |
---|
[581] | 229 | |
---|
| 230 | FUNCTION cxios_is_defined_domaingroup_data_nj(domaingroup_hdl) BIND(C) |
---|
[432] | 231 | USE ISO_C_BINDING |
---|
| 232 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_nj |
---|
| 233 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 234 | END FUNCTION cxios_is_defined_domaingroup_data_nj |
---|
[581] | 235 | |
---|
| 236 | |
---|
[326] | 237 | SUBROUTINE cxios_set_domaingroup_domain_group_ref(domaingroup_hdl, domain_group_ref, domain_group_ref_size) BIND(C) |
---|
| 238 | USE ISO_C_BINDING |
---|
| 239 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 240 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_group_ref |
---|
| 241 | INTEGER (kind = C_INT) , VALUE :: domain_group_ref_size |
---|
| 242 | END SUBROUTINE cxios_set_domaingroup_domain_group_ref |
---|
[581] | 243 | |
---|
[326] | 244 | SUBROUTINE cxios_get_domaingroup_domain_group_ref(domaingroup_hdl, domain_group_ref, domain_group_ref_size) BIND(C) |
---|
| 245 | USE ISO_C_BINDING |
---|
| 246 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 247 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_group_ref |
---|
| 248 | INTEGER (kind = C_INT) , VALUE :: domain_group_ref_size |
---|
| 249 | END SUBROUTINE cxios_get_domaingroup_domain_group_ref |
---|
[581] | 250 | |
---|
| 251 | FUNCTION cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl) BIND(C) |
---|
[432] | 252 | USE ISO_C_BINDING |
---|
| 253 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_domain_group_ref |
---|
| 254 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 255 | END FUNCTION cxios_is_defined_domaingroup_domain_group_ref |
---|
[581] | 256 | |
---|
| 257 | |
---|
[546] | 258 | SUBROUTINE cxios_set_domaingroup_domain_ref(domaingroup_hdl, domain_ref, domain_ref_size) BIND(C) |
---|
| 259 | USE ISO_C_BINDING |
---|
| 260 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 261 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_ref |
---|
| 262 | INTEGER (kind = C_INT) , VALUE :: domain_ref_size |
---|
| 263 | END SUBROUTINE cxios_set_domaingroup_domain_ref |
---|
[581] | 264 | |
---|
[546] | 265 | SUBROUTINE cxios_get_domaingroup_domain_ref(domaingroup_hdl, domain_ref, domain_ref_size) BIND(C) |
---|
| 266 | USE ISO_C_BINDING |
---|
| 267 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 268 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_ref |
---|
| 269 | INTEGER (kind = C_INT) , VALUE :: domain_ref_size |
---|
| 270 | END SUBROUTINE cxios_get_domaingroup_domain_ref |
---|
[581] | 271 | |
---|
| 272 | FUNCTION cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl) BIND(C) |
---|
[546] | 273 | USE ISO_C_BINDING |
---|
| 274 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_domain_ref |
---|
| 275 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 276 | END FUNCTION cxios_is_defined_domaingroup_domain_ref |
---|
[581] | 277 | |
---|
| 278 | |
---|
[326] | 279 | SUBROUTINE cxios_set_domaingroup_group_ref(domaingroup_hdl, group_ref, group_ref_size) BIND(C) |
---|
| 280 | USE ISO_C_BINDING |
---|
| 281 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 282 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: group_ref |
---|
| 283 | INTEGER (kind = C_INT) , VALUE :: group_ref_size |
---|
| 284 | END SUBROUTINE cxios_set_domaingroup_group_ref |
---|
[581] | 285 | |
---|
[326] | 286 | SUBROUTINE cxios_get_domaingroup_group_ref(domaingroup_hdl, group_ref, group_ref_size) BIND(C) |
---|
| 287 | USE ISO_C_BINDING |
---|
| 288 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 289 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: group_ref |
---|
| 290 | INTEGER (kind = C_INT) , VALUE :: group_ref_size |
---|
| 291 | END SUBROUTINE cxios_get_domaingroup_group_ref |
---|
[581] | 292 | |
---|
| 293 | FUNCTION cxios_is_defined_domaingroup_group_ref(domaingroup_hdl) BIND(C) |
---|
[432] | 294 | USE ISO_C_BINDING |
---|
| 295 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_group_ref |
---|
| 296 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 297 | END FUNCTION cxios_is_defined_domaingroup_group_ref |
---|
[581] | 298 | |
---|
| 299 | |
---|
[467] | 300 | SUBROUTINE cxios_set_domaingroup_i_index(domaingroup_hdl, i_index, extent1, extent2) BIND(C) |
---|
| 301 | USE ISO_C_BINDING |
---|
| 302 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 303 | INTEGER (KIND=C_INT) , DIMENSION(*) :: i_index |
---|
| 304 | INTEGER (kind = C_INT), VALUE :: extent1 |
---|
| 305 | INTEGER (kind = C_INT), VALUE :: extent2 |
---|
| 306 | END SUBROUTINE cxios_set_domaingroup_i_index |
---|
[581] | 307 | |
---|
[467] | 308 | SUBROUTINE cxios_get_domaingroup_i_index(domaingroup_hdl, i_index, extent1, extent2) BIND(C) |
---|
| 309 | USE ISO_C_BINDING |
---|
| 310 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 311 | INTEGER (KIND=C_INT) , DIMENSION(*) :: i_index |
---|
| 312 | INTEGER (kind = C_INT), VALUE :: extent1 |
---|
| 313 | INTEGER (kind = C_INT), VALUE :: extent2 |
---|
| 314 | END SUBROUTINE cxios_get_domaingroup_i_index |
---|
[581] | 315 | |
---|
| 316 | FUNCTION cxios_is_defined_domaingroup_i_index(domaingroup_hdl) BIND(C) |
---|
[467] | 317 | USE ISO_C_BINDING |
---|
| 318 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_i_index |
---|
| 319 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 320 | END FUNCTION cxios_is_defined_domaingroup_i_index |
---|
[581] | 321 | |
---|
| 322 | |
---|
[326] | 323 | SUBROUTINE cxios_set_domaingroup_ibegin(domaingroup_hdl, ibegin) BIND(C) |
---|
| 324 | USE ISO_C_BINDING |
---|
| 325 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 326 | INTEGER (KIND=C_INT) , VALUE :: ibegin |
---|
| 327 | END SUBROUTINE cxios_set_domaingroup_ibegin |
---|
[581] | 328 | |
---|
[326] | 329 | SUBROUTINE cxios_get_domaingroup_ibegin(domaingroup_hdl, ibegin) BIND(C) |
---|
| 330 | USE ISO_C_BINDING |
---|
| 331 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 332 | INTEGER (KIND=C_INT) :: ibegin |
---|
| 333 | END SUBROUTINE cxios_get_domaingroup_ibegin |
---|
[581] | 334 | |
---|
| 335 | FUNCTION cxios_is_defined_domaingroup_ibegin(domaingroup_hdl) BIND(C) |
---|
[432] | 336 | USE ISO_C_BINDING |
---|
| 337 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ibegin |
---|
| 338 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 339 | END FUNCTION cxios_is_defined_domaingroup_ibegin |
---|
[581] | 340 | |
---|
| 341 | |
---|
[326] | 342 | SUBROUTINE cxios_set_domaingroup_iend(domaingroup_hdl, iend) BIND(C) |
---|
| 343 | USE ISO_C_BINDING |
---|
| 344 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 345 | INTEGER (KIND=C_INT) , VALUE :: iend |
---|
| 346 | END SUBROUTINE cxios_set_domaingroup_iend |
---|
[581] | 347 | |
---|
[326] | 348 | SUBROUTINE cxios_get_domaingroup_iend(domaingroup_hdl, iend) BIND(C) |
---|
| 349 | USE ISO_C_BINDING |
---|
| 350 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 351 | INTEGER (KIND=C_INT) :: iend |
---|
| 352 | END SUBROUTINE cxios_get_domaingroup_iend |
---|
[581] | 353 | |
---|
| 354 | FUNCTION cxios_is_defined_domaingroup_iend(domaingroup_hdl) BIND(C) |
---|
[432] | 355 | USE ISO_C_BINDING |
---|
| 356 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_iend |
---|
| 357 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 358 | END FUNCTION cxios_is_defined_domaingroup_iend |
---|
[581] | 359 | |
---|
| 360 | |
---|
[467] | 361 | SUBROUTINE cxios_set_domaingroup_j_index(domaingroup_hdl, j_index, extent1, extent2) BIND(C) |
---|
| 362 | USE ISO_C_BINDING |
---|
| 363 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 364 | INTEGER (KIND=C_INT) , DIMENSION(*) :: j_index |
---|
| 365 | INTEGER (kind = C_INT), VALUE :: extent1 |
---|
| 366 | INTEGER (kind = C_INT), VALUE :: extent2 |
---|
| 367 | END SUBROUTINE cxios_set_domaingroup_j_index |
---|
[581] | 368 | |
---|
[467] | 369 | SUBROUTINE cxios_get_domaingroup_j_index(domaingroup_hdl, j_index, extent1, extent2) BIND(C) |
---|
| 370 | USE ISO_C_BINDING |
---|
| 371 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 372 | INTEGER (KIND=C_INT) , DIMENSION(*) :: j_index |
---|
| 373 | INTEGER (kind = C_INT), VALUE :: extent1 |
---|
| 374 | INTEGER (kind = C_INT), VALUE :: extent2 |
---|
| 375 | END SUBROUTINE cxios_get_domaingroup_j_index |
---|
[581] | 376 | |
---|
| 377 | FUNCTION cxios_is_defined_domaingroup_j_index(domaingroup_hdl) BIND(C) |
---|
[467] | 378 | USE ISO_C_BINDING |
---|
| 379 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_j_index |
---|
| 380 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 381 | END FUNCTION cxios_is_defined_domaingroup_j_index |
---|
[581] | 382 | |
---|
| 383 | |
---|
[326] | 384 | SUBROUTINE cxios_set_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C) |
---|
| 385 | USE ISO_C_BINDING |
---|
| 386 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 387 | INTEGER (KIND=C_INT) , VALUE :: jbegin |
---|
| 388 | END SUBROUTINE cxios_set_domaingroup_jbegin |
---|
[581] | 389 | |
---|
[326] | 390 | SUBROUTINE cxios_get_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C) |
---|
| 391 | USE ISO_C_BINDING |
---|
| 392 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 393 | INTEGER (KIND=C_INT) :: jbegin |
---|
| 394 | END SUBROUTINE cxios_get_domaingroup_jbegin |
---|
[581] | 395 | |
---|
| 396 | FUNCTION cxios_is_defined_domaingroup_jbegin(domaingroup_hdl) BIND(C) |
---|
[432] | 397 | USE ISO_C_BINDING |
---|
| 398 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_jbegin |
---|
| 399 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 400 | END FUNCTION cxios_is_defined_domaingroup_jbegin |
---|
[581] | 401 | |
---|
| 402 | |
---|
[326] | 403 | SUBROUTINE cxios_set_domaingroup_jend(domaingroup_hdl, jend) BIND(C) |
---|
| 404 | USE ISO_C_BINDING |
---|
| 405 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 406 | INTEGER (KIND=C_INT) , VALUE :: jend |
---|
| 407 | END SUBROUTINE cxios_set_domaingroup_jend |
---|
[581] | 408 | |
---|
[326] | 409 | SUBROUTINE cxios_get_domaingroup_jend(domaingroup_hdl, jend) BIND(C) |
---|
| 410 | USE ISO_C_BINDING |
---|
| 411 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 412 | INTEGER (KIND=C_INT) :: jend |
---|
| 413 | END SUBROUTINE cxios_get_domaingroup_jend |
---|
[581] | 414 | |
---|
| 415 | FUNCTION cxios_is_defined_domaingroup_jend(domaingroup_hdl) BIND(C) |
---|
[432] | 416 | USE ISO_C_BINDING |
---|
| 417 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_jend |
---|
| 418 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 419 | END FUNCTION cxios_is_defined_domaingroup_jend |
---|
[581] | 420 | |
---|
| 421 | |
---|
[326] | 422 | SUBROUTINE cxios_set_domaingroup_latvalue(domaingroup_hdl, latvalue, extent1) BIND(C) |
---|
| 423 | USE ISO_C_BINDING |
---|
| 424 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 425 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: latvalue |
---|
| 426 | INTEGER (kind = C_INT), VALUE :: extent1 |
---|
| 427 | END SUBROUTINE cxios_set_domaingroup_latvalue |
---|
[581] | 428 | |
---|
[326] | 429 | SUBROUTINE cxios_get_domaingroup_latvalue(domaingroup_hdl, latvalue, extent1) BIND(C) |
---|
| 430 | USE ISO_C_BINDING |
---|
| 431 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 432 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: latvalue |
---|
| 433 | INTEGER (kind = C_INT), VALUE :: extent1 |
---|
| 434 | END SUBROUTINE cxios_get_domaingroup_latvalue |
---|
[581] | 435 | |
---|
| 436 | FUNCTION cxios_is_defined_domaingroup_latvalue(domaingroup_hdl) BIND(C) |
---|
[432] | 437 | USE ISO_C_BINDING |
---|
| 438 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_latvalue |
---|
| 439 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 440 | END FUNCTION cxios_is_defined_domaingroup_latvalue |
---|
[581] | 441 | |
---|
| 442 | |
---|
[326] | 443 | SUBROUTINE cxios_set_domaingroup_long_name(domaingroup_hdl, long_name, long_name_size) BIND(C) |
---|
| 444 | USE ISO_C_BINDING |
---|
| 445 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 446 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: long_name |
---|
| 447 | INTEGER (kind = C_INT) , VALUE :: long_name_size |
---|
| 448 | END SUBROUTINE cxios_set_domaingroup_long_name |
---|
[581] | 449 | |
---|
[326] | 450 | SUBROUTINE cxios_get_domaingroup_long_name(domaingroup_hdl, long_name, long_name_size) BIND(C) |
---|
| 451 | USE ISO_C_BINDING |
---|
| 452 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 453 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: long_name |
---|
| 454 | INTEGER (kind = C_INT) , VALUE :: long_name_size |
---|
| 455 | END SUBROUTINE cxios_get_domaingroup_long_name |
---|
[581] | 456 | |
---|
| 457 | FUNCTION cxios_is_defined_domaingroup_long_name(domaingroup_hdl) BIND(C) |
---|
[432] | 458 | USE ISO_C_BINDING |
---|
| 459 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_long_name |
---|
| 460 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 461 | END FUNCTION cxios_is_defined_domaingroup_long_name |
---|
[581] | 462 | |
---|
| 463 | |
---|
[326] | 464 | SUBROUTINE cxios_set_domaingroup_lonvalue(domaingroup_hdl, lonvalue, extent1) BIND(C) |
---|
| 465 | USE ISO_C_BINDING |
---|
| 466 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 467 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: lonvalue |
---|
| 468 | INTEGER (kind = C_INT), VALUE :: extent1 |
---|
| 469 | END SUBROUTINE cxios_set_domaingroup_lonvalue |
---|
[581] | 470 | |
---|
[326] | 471 | SUBROUTINE cxios_get_domaingroup_lonvalue(domaingroup_hdl, lonvalue, extent1) BIND(C) |
---|
| 472 | USE ISO_C_BINDING |
---|
| 473 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 474 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: lonvalue |
---|
| 475 | INTEGER (kind = C_INT), VALUE :: extent1 |
---|
| 476 | END SUBROUTINE cxios_get_domaingroup_lonvalue |
---|
[581] | 477 | |
---|
| 478 | FUNCTION cxios_is_defined_domaingroup_lonvalue(domaingroup_hdl) BIND(C) |
---|
[432] | 479 | USE ISO_C_BINDING |
---|
| 480 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_lonvalue |
---|
| 481 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 482 | END FUNCTION cxios_is_defined_domaingroup_lonvalue |
---|
[581] | 483 | |
---|
| 484 | |
---|
[326] | 485 | SUBROUTINE cxios_set_domaingroup_mask(domaingroup_hdl, mask, extent1, extent2) BIND(C) |
---|
| 486 | USE ISO_C_BINDING |
---|
| 487 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 488 | LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask |
---|
| 489 | INTEGER (kind = C_INT), VALUE :: extent1 |
---|
| 490 | INTEGER (kind = C_INT), VALUE :: extent2 |
---|
| 491 | END SUBROUTINE cxios_set_domaingroup_mask |
---|
[581] | 492 | |
---|
[326] | 493 | SUBROUTINE cxios_get_domaingroup_mask(domaingroup_hdl, mask, extent1, extent2) BIND(C) |
---|
| 494 | USE ISO_C_BINDING |
---|
| 495 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 496 | LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask |
---|
| 497 | INTEGER (kind = C_INT), VALUE :: extent1 |
---|
| 498 | INTEGER (kind = C_INT), VALUE :: extent2 |
---|
| 499 | END SUBROUTINE cxios_get_domaingroup_mask |
---|
[581] | 500 | |
---|
| 501 | FUNCTION cxios_is_defined_domaingroup_mask(domaingroup_hdl) BIND(C) |
---|
[432] | 502 | USE ISO_C_BINDING |
---|
| 503 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_mask |
---|
| 504 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 505 | END FUNCTION cxios_is_defined_domaingroup_mask |
---|
[581] | 506 | |
---|
| 507 | |
---|
[326] | 508 | SUBROUTINE cxios_set_domaingroup_name(domaingroup_hdl, name, name_size) BIND(C) |
---|
| 509 | USE ISO_C_BINDING |
---|
| 510 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 511 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name |
---|
| 512 | INTEGER (kind = C_INT) , VALUE :: name_size |
---|
| 513 | END SUBROUTINE cxios_set_domaingroup_name |
---|
[581] | 514 | |
---|
[326] | 515 | SUBROUTINE cxios_get_domaingroup_name(domaingroup_hdl, name, name_size) BIND(C) |
---|
| 516 | USE ISO_C_BINDING |
---|
| 517 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 518 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name |
---|
| 519 | INTEGER (kind = C_INT) , VALUE :: name_size |
---|
| 520 | END SUBROUTINE cxios_get_domaingroup_name |
---|
[581] | 521 | |
---|
| 522 | FUNCTION cxios_is_defined_domaingroup_name(domaingroup_hdl) BIND(C) |
---|
[432] | 523 | USE ISO_C_BINDING |
---|
| 524 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_name |
---|
| 525 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 526 | END FUNCTION cxios_is_defined_domaingroup_name |
---|
[581] | 527 | |
---|
| 528 | |
---|
[326] | 529 | SUBROUTINE cxios_set_domaingroup_ni(domaingroup_hdl, ni) BIND(C) |
---|
| 530 | USE ISO_C_BINDING |
---|
| 531 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 532 | INTEGER (KIND=C_INT) , VALUE :: ni |
---|
| 533 | END SUBROUTINE cxios_set_domaingroup_ni |
---|
[581] | 534 | |
---|
[326] | 535 | SUBROUTINE cxios_get_domaingroup_ni(domaingroup_hdl, ni) BIND(C) |
---|
| 536 | USE ISO_C_BINDING |
---|
| 537 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 538 | INTEGER (KIND=C_INT) :: ni |
---|
| 539 | END SUBROUTINE cxios_get_domaingroup_ni |
---|
[581] | 540 | |
---|
| 541 | FUNCTION cxios_is_defined_domaingroup_ni(domaingroup_hdl) BIND(C) |
---|
[432] | 542 | USE ISO_C_BINDING |
---|
| 543 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni |
---|
| 544 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 545 | END FUNCTION cxios_is_defined_domaingroup_ni |
---|
[581] | 546 | |
---|
| 547 | |
---|
[326] | 548 | SUBROUTINE cxios_set_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C) |
---|
| 549 | USE ISO_C_BINDING |
---|
| 550 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 551 | INTEGER (KIND=C_INT) , VALUE :: ni_glo |
---|
| 552 | END SUBROUTINE cxios_set_domaingroup_ni_glo |
---|
[581] | 553 | |
---|
[326] | 554 | SUBROUTINE cxios_get_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C) |
---|
| 555 | USE ISO_C_BINDING |
---|
| 556 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 557 | INTEGER (KIND=C_INT) :: ni_glo |
---|
| 558 | END SUBROUTINE cxios_get_domaingroup_ni_glo |
---|
[581] | 559 | |
---|
| 560 | FUNCTION cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl) BIND(C) |
---|
[432] | 561 | USE ISO_C_BINDING |
---|
| 562 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni_glo |
---|
| 563 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 564 | END FUNCTION cxios_is_defined_domaingroup_ni_glo |
---|
[581] | 565 | |
---|
| 566 | |
---|
[326] | 567 | SUBROUTINE cxios_set_domaingroup_nj(domaingroup_hdl, nj) BIND(C) |
---|
| 568 | USE ISO_C_BINDING |
---|
| 569 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 570 | INTEGER (KIND=C_INT) , VALUE :: nj |
---|
| 571 | END SUBROUTINE cxios_set_domaingroup_nj |
---|
[581] | 572 | |
---|
[326] | 573 | SUBROUTINE cxios_get_domaingroup_nj(domaingroup_hdl, nj) BIND(C) |
---|
| 574 | USE ISO_C_BINDING |
---|
| 575 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 576 | INTEGER (KIND=C_INT) :: nj |
---|
| 577 | END SUBROUTINE cxios_get_domaingroup_nj |
---|
[581] | 578 | |
---|
| 579 | FUNCTION cxios_is_defined_domaingroup_nj(domaingroup_hdl) BIND(C) |
---|
[432] | 580 | USE ISO_C_BINDING |
---|
| 581 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj |
---|
| 582 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 583 | END FUNCTION cxios_is_defined_domaingroup_nj |
---|
[581] | 584 | |
---|
| 585 | |
---|
[326] | 586 | SUBROUTINE cxios_set_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C) |
---|
| 587 | USE ISO_C_BINDING |
---|
| 588 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 589 | INTEGER (KIND=C_INT) , VALUE :: nj_glo |
---|
| 590 | END SUBROUTINE cxios_set_domaingroup_nj_glo |
---|
[581] | 591 | |
---|
[326] | 592 | SUBROUTINE cxios_get_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C) |
---|
| 593 | USE ISO_C_BINDING |
---|
| 594 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 595 | INTEGER (KIND=C_INT) :: nj_glo |
---|
| 596 | END SUBROUTINE cxios_get_domaingroup_nj_glo |
---|
[581] | 597 | |
---|
| 598 | FUNCTION cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl) BIND(C) |
---|
[432] | 599 | USE ISO_C_BINDING |
---|
| 600 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj_glo |
---|
| 601 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 602 | END FUNCTION cxios_is_defined_domaingroup_nj_glo |
---|
[581] | 603 | |
---|
| 604 | |
---|
[449] | 605 | SUBROUTINE cxios_set_domaingroup_nvertex(domaingroup_hdl, nvertex) BIND(C) |
---|
| 606 | USE ISO_C_BINDING |
---|
| 607 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 608 | INTEGER (KIND=C_INT) , VALUE :: nvertex |
---|
| 609 | END SUBROUTINE cxios_set_domaingroup_nvertex |
---|
[581] | 610 | |
---|
[449] | 611 | SUBROUTINE cxios_get_domaingroup_nvertex(domaingroup_hdl, nvertex) BIND(C) |
---|
| 612 | USE ISO_C_BINDING |
---|
| 613 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 614 | INTEGER (KIND=C_INT) :: nvertex |
---|
| 615 | END SUBROUTINE cxios_get_domaingroup_nvertex |
---|
[581] | 616 | |
---|
| 617 | FUNCTION cxios_is_defined_domaingroup_nvertex(domaingroup_hdl) BIND(C) |
---|
[449] | 618 | USE ISO_C_BINDING |
---|
| 619 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nvertex |
---|
| 620 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 621 | END FUNCTION cxios_is_defined_domaingroup_nvertex |
---|
[581] | 622 | |
---|
| 623 | |
---|
[326] | 624 | SUBROUTINE cxios_set_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C) |
---|
| 625 | USE ISO_C_BINDING |
---|
| 626 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 627 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: standard_name |
---|
| 628 | INTEGER (kind = C_INT) , VALUE :: standard_name_size |
---|
| 629 | END SUBROUTINE cxios_set_domaingroup_standard_name |
---|
[581] | 630 | |
---|
[326] | 631 | SUBROUTINE cxios_get_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C) |
---|
| 632 | USE ISO_C_BINDING |
---|
| 633 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 634 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: standard_name |
---|
| 635 | INTEGER (kind = C_INT) , VALUE :: standard_name_size |
---|
| 636 | END SUBROUTINE cxios_get_domaingroup_standard_name |
---|
[581] | 637 | |
---|
| 638 | FUNCTION cxios_is_defined_domaingroup_standard_name(domaingroup_hdl) BIND(C) |
---|
[432] | 639 | USE ISO_C_BINDING |
---|
| 640 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_standard_name |
---|
| 641 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 642 | END FUNCTION cxios_is_defined_domaingroup_standard_name |
---|
[581] | 643 | |
---|
| 644 | |
---|
[449] | 645 | SUBROUTINE cxios_set_domaingroup_type(domaingroup_hdl, type, type_size) BIND(C) |
---|
| 646 | USE ISO_C_BINDING |
---|
| 647 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 648 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: type |
---|
| 649 | INTEGER (kind = C_INT) , VALUE :: type_size |
---|
| 650 | END SUBROUTINE cxios_set_domaingroup_type |
---|
[581] | 651 | |
---|
[449] | 652 | SUBROUTINE cxios_get_domaingroup_type(domaingroup_hdl, type, type_size) BIND(C) |
---|
| 653 | USE ISO_C_BINDING |
---|
| 654 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 655 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: type |
---|
| 656 | INTEGER (kind = C_INT) , VALUE :: type_size |
---|
| 657 | END SUBROUTINE cxios_get_domaingroup_type |
---|
[581] | 658 | |
---|
| 659 | FUNCTION cxios_is_defined_domaingroup_type(domaingroup_hdl) BIND(C) |
---|
[449] | 660 | USE ISO_C_BINDING |
---|
| 661 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_type |
---|
| 662 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 663 | END FUNCTION cxios_is_defined_domaingroup_type |
---|
[581] | 664 | |
---|
| 665 | |
---|
[326] | 666 | SUBROUTINE cxios_set_domaingroup_zoom_ibegin(domaingroup_hdl, zoom_ibegin) BIND(C) |
---|
| 667 | USE ISO_C_BINDING |
---|
| 668 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 669 | INTEGER (KIND=C_INT) , VALUE :: zoom_ibegin |
---|
| 670 | END SUBROUTINE cxios_set_domaingroup_zoom_ibegin |
---|
[581] | 671 | |
---|
[326] | 672 | SUBROUTINE cxios_get_domaingroup_zoom_ibegin(domaingroup_hdl, zoom_ibegin) BIND(C) |
---|
| 673 | USE ISO_C_BINDING |
---|
| 674 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 675 | INTEGER (KIND=C_INT) :: zoom_ibegin |
---|
| 676 | END SUBROUTINE cxios_get_domaingroup_zoom_ibegin |
---|
[581] | 677 | |
---|
| 678 | FUNCTION cxios_is_defined_domaingroup_zoom_ibegin(domaingroup_hdl) BIND(C) |
---|
[432] | 679 | USE ISO_C_BINDING |
---|
| 680 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ibegin |
---|
| 681 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 682 | END FUNCTION cxios_is_defined_domaingroup_zoom_ibegin |
---|
[581] | 683 | |
---|
| 684 | |
---|
[326] | 685 | SUBROUTINE cxios_set_domaingroup_zoom_ibegin_loc(domaingroup_hdl, zoom_ibegin_loc) BIND(C) |
---|
| 686 | USE ISO_C_BINDING |
---|
| 687 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 688 | INTEGER (KIND=C_INT) , VALUE :: zoom_ibegin_loc |
---|
| 689 | END SUBROUTINE cxios_set_domaingroup_zoom_ibegin_loc |
---|
[581] | 690 | |
---|
[326] | 691 | SUBROUTINE cxios_get_domaingroup_zoom_ibegin_loc(domaingroup_hdl, zoom_ibegin_loc) BIND(C) |
---|
| 692 | USE ISO_C_BINDING |
---|
| 693 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 694 | INTEGER (KIND=C_INT) :: zoom_ibegin_loc |
---|
| 695 | END SUBROUTINE cxios_get_domaingroup_zoom_ibegin_loc |
---|
[581] | 696 | |
---|
| 697 | FUNCTION cxios_is_defined_domaingroup_zoom_ibegin_loc(domaingroup_hdl) BIND(C) |
---|
[432] | 698 | USE ISO_C_BINDING |
---|
| 699 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ibegin_loc |
---|
| 700 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 701 | END FUNCTION cxios_is_defined_domaingroup_zoom_ibegin_loc |
---|
[581] | 702 | |
---|
| 703 | |
---|
[326] | 704 | SUBROUTINE cxios_set_domaingroup_zoom_jbegin(domaingroup_hdl, zoom_jbegin) BIND(C) |
---|
| 705 | USE ISO_C_BINDING |
---|
| 706 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 707 | INTEGER (KIND=C_INT) , VALUE :: zoom_jbegin |
---|
| 708 | END SUBROUTINE cxios_set_domaingroup_zoom_jbegin |
---|
[581] | 709 | |
---|
[326] | 710 | SUBROUTINE cxios_get_domaingroup_zoom_jbegin(domaingroup_hdl, zoom_jbegin) BIND(C) |
---|
| 711 | USE ISO_C_BINDING |
---|
| 712 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 713 | INTEGER (KIND=C_INT) :: zoom_jbegin |
---|
| 714 | END SUBROUTINE cxios_get_domaingroup_zoom_jbegin |
---|
[581] | 715 | |
---|
| 716 | FUNCTION cxios_is_defined_domaingroup_zoom_jbegin(domaingroup_hdl) BIND(C) |
---|
[432] | 717 | USE ISO_C_BINDING |
---|
| 718 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_jbegin |
---|
| 719 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 720 | END FUNCTION cxios_is_defined_domaingroup_zoom_jbegin |
---|
[581] | 721 | |
---|
| 722 | |
---|
[326] | 723 | SUBROUTINE cxios_set_domaingroup_zoom_jbegin_loc(domaingroup_hdl, zoom_jbegin_loc) BIND(C) |
---|
| 724 | USE ISO_C_BINDING |
---|
| 725 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 726 | INTEGER (KIND=C_INT) , VALUE :: zoom_jbegin_loc |
---|
| 727 | END SUBROUTINE cxios_set_domaingroup_zoom_jbegin_loc |
---|
[581] | 728 | |
---|
[326] | 729 | SUBROUTINE cxios_get_domaingroup_zoom_jbegin_loc(domaingroup_hdl, zoom_jbegin_loc) BIND(C) |
---|
| 730 | USE ISO_C_BINDING |
---|
| 731 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 732 | INTEGER (KIND=C_INT) :: zoom_jbegin_loc |
---|
| 733 | END SUBROUTINE cxios_get_domaingroup_zoom_jbegin_loc |
---|
[581] | 734 | |
---|
| 735 | FUNCTION cxios_is_defined_domaingroup_zoom_jbegin_loc(domaingroup_hdl) BIND(C) |
---|
[432] | 736 | USE ISO_C_BINDING |
---|
| 737 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_jbegin_loc |
---|
| 738 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 739 | END FUNCTION cxios_is_defined_domaingroup_zoom_jbegin_loc |
---|
[581] | 740 | |
---|
| 741 | |
---|
[326] | 742 | SUBROUTINE cxios_set_domaingroup_zoom_ni(domaingroup_hdl, zoom_ni) BIND(C) |
---|
| 743 | USE ISO_C_BINDING |
---|
| 744 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 745 | INTEGER (KIND=C_INT) , VALUE :: zoom_ni |
---|
| 746 | END SUBROUTINE cxios_set_domaingroup_zoom_ni |
---|
[581] | 747 | |
---|
[326] | 748 | SUBROUTINE cxios_get_domaingroup_zoom_ni(domaingroup_hdl, zoom_ni) BIND(C) |
---|
| 749 | USE ISO_C_BINDING |
---|
| 750 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 751 | INTEGER (KIND=C_INT) :: zoom_ni |
---|
| 752 | END SUBROUTINE cxios_get_domaingroup_zoom_ni |
---|
[581] | 753 | |
---|
| 754 | FUNCTION cxios_is_defined_domaingroup_zoom_ni(domaingroup_hdl) BIND(C) |
---|
[432] | 755 | USE ISO_C_BINDING |
---|
| 756 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ni |
---|
| 757 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 758 | END FUNCTION cxios_is_defined_domaingroup_zoom_ni |
---|
[581] | 759 | |
---|
| 760 | |
---|
[326] | 761 | SUBROUTINE cxios_set_domaingroup_zoom_ni_loc(domaingroup_hdl, zoom_ni_loc) BIND(C) |
---|
| 762 | USE ISO_C_BINDING |
---|
| 763 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 764 | INTEGER (KIND=C_INT) , VALUE :: zoom_ni_loc |
---|
| 765 | END SUBROUTINE cxios_set_domaingroup_zoom_ni_loc |
---|
[581] | 766 | |
---|
[326] | 767 | SUBROUTINE cxios_get_domaingroup_zoom_ni_loc(domaingroup_hdl, zoom_ni_loc) BIND(C) |
---|
| 768 | USE ISO_C_BINDING |
---|
| 769 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 770 | INTEGER (KIND=C_INT) :: zoom_ni_loc |
---|
| 771 | END SUBROUTINE cxios_get_domaingroup_zoom_ni_loc |
---|
[581] | 772 | |
---|
| 773 | FUNCTION cxios_is_defined_domaingroup_zoom_ni_loc(domaingroup_hdl) BIND(C) |
---|
[432] | 774 | USE ISO_C_BINDING |
---|
| 775 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ni_loc |
---|
| 776 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 777 | END FUNCTION cxios_is_defined_domaingroup_zoom_ni_loc |
---|
[581] | 778 | |
---|
| 779 | |
---|
[326] | 780 | SUBROUTINE cxios_set_domaingroup_zoom_nj(domaingroup_hdl, zoom_nj) BIND(C) |
---|
| 781 | USE ISO_C_BINDING |
---|
| 782 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 783 | INTEGER (KIND=C_INT) , VALUE :: zoom_nj |
---|
| 784 | END SUBROUTINE cxios_set_domaingroup_zoom_nj |
---|
[581] | 785 | |
---|
[326] | 786 | SUBROUTINE cxios_get_domaingroup_zoom_nj(domaingroup_hdl, zoom_nj) BIND(C) |
---|
| 787 | USE ISO_C_BINDING |
---|
| 788 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 789 | INTEGER (KIND=C_INT) :: zoom_nj |
---|
| 790 | END SUBROUTINE cxios_get_domaingroup_zoom_nj |
---|
[581] | 791 | |
---|
| 792 | FUNCTION cxios_is_defined_domaingroup_zoom_nj(domaingroup_hdl) BIND(C) |
---|
[432] | 793 | USE ISO_C_BINDING |
---|
| 794 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_nj |
---|
| 795 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 796 | END FUNCTION cxios_is_defined_domaingroup_zoom_nj |
---|
[581] | 797 | |
---|
| 798 | |
---|
[326] | 799 | SUBROUTINE cxios_set_domaingroup_zoom_nj_loc(domaingroup_hdl, zoom_nj_loc) BIND(C) |
---|
| 800 | USE ISO_C_BINDING |
---|
| 801 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 802 | INTEGER (KIND=C_INT) , VALUE :: zoom_nj_loc |
---|
| 803 | END SUBROUTINE cxios_set_domaingroup_zoom_nj_loc |
---|
[581] | 804 | |
---|
[326] | 805 | SUBROUTINE cxios_get_domaingroup_zoom_nj_loc(domaingroup_hdl, zoom_nj_loc) BIND(C) |
---|
| 806 | USE ISO_C_BINDING |
---|
| 807 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 808 | INTEGER (KIND=C_INT) :: zoom_nj_loc |
---|
| 809 | END SUBROUTINE cxios_get_domaingroup_zoom_nj_loc |
---|
[581] | 810 | |
---|
| 811 | FUNCTION cxios_is_defined_domaingroup_zoom_nj_loc(domaingroup_hdl) BIND(C) |
---|
[432] | 812 | USE ISO_C_BINDING |
---|
| 813 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_nj_loc |
---|
| 814 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 815 | END FUNCTION cxios_is_defined_domaingroup_zoom_nj_loc |
---|
[581] | 816 | |
---|
| 817 | END INTERFACE |
---|
| 818 | |
---|
[326] | 819 | END MODULE domaingroup_interface_attr |
---|