[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 | |
---|
[674] | 12 | SUBROUTINE cxios_set_domaingroup_area(domaingroup_hdl, area, extent) BIND(C) |
---|
[611] | 13 | USE ISO_C_BINDING |
---|
| 14 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 15 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area |
---|
[674] | 16 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[611] | 17 | END SUBROUTINE cxios_set_domaingroup_area |
---|
| 18 | |
---|
[674] | 19 | SUBROUTINE cxios_get_domaingroup_area(domaingroup_hdl, area, extent) BIND(C) |
---|
[611] | 20 | USE ISO_C_BINDING |
---|
| 21 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 22 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area |
---|
[674] | 23 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[611] | 24 | END SUBROUTINE cxios_get_domaingroup_area |
---|
| 25 | |
---|
| 26 | FUNCTION cxios_is_defined_domaingroup_area(domaingroup_hdl) BIND(C) |
---|
| 27 | USE ISO_C_BINDING |
---|
| 28 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_area |
---|
| 29 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 30 | END FUNCTION cxios_is_defined_domaingroup_area |
---|
| 31 | |
---|
| 32 | |
---|
[674] | 33 | SUBROUTINE cxios_set_domaingroup_bounds_lat_1d(domaingroup_hdl, bounds_lat_1d, extent) BIND(C) |
---|
[449] | 34 | USE ISO_C_BINDING |
---|
| 35 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
[664] | 36 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lat_1d |
---|
[674] | 37 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[664] | 38 | END SUBROUTINE cxios_set_domaingroup_bounds_lat_1d |
---|
[581] | 39 | |
---|
[674] | 40 | SUBROUTINE cxios_get_domaingroup_bounds_lat_1d(domaingroup_hdl, bounds_lat_1d, extent) BIND(C) |
---|
[449] | 41 | USE ISO_C_BINDING |
---|
| 42 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
[664] | 43 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lat_1d |
---|
[674] | 44 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[664] | 45 | END SUBROUTINE cxios_get_domaingroup_bounds_lat_1d |
---|
[581] | 46 | |
---|
[664] | 47 | FUNCTION cxios_is_defined_domaingroup_bounds_lat_1d(domaingroup_hdl) BIND(C) |
---|
[449] | 48 | USE ISO_C_BINDING |
---|
[664] | 49 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lat_1d |
---|
[449] | 50 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
[664] | 51 | END FUNCTION cxios_is_defined_domaingroup_bounds_lat_1d |
---|
[581] | 52 | |
---|
| 53 | |
---|
[674] | 54 | SUBROUTINE cxios_set_domaingroup_bounds_lat_2d(domaingroup_hdl, bounds_lat_2d, extent) BIND(C) |
---|
[449] | 55 | USE ISO_C_BINDING |
---|
| 56 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
[664] | 57 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lat_2d |
---|
[674] | 58 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[664] | 59 | END SUBROUTINE cxios_set_domaingroup_bounds_lat_2d |
---|
[581] | 60 | |
---|
[674] | 61 | SUBROUTINE cxios_get_domaingroup_bounds_lat_2d(domaingroup_hdl, bounds_lat_2d, extent) BIND(C) |
---|
[449] | 62 | USE ISO_C_BINDING |
---|
| 63 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
[664] | 64 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lat_2d |
---|
[674] | 65 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[664] | 66 | END SUBROUTINE cxios_get_domaingroup_bounds_lat_2d |
---|
[581] | 67 | |
---|
[664] | 68 | FUNCTION cxios_is_defined_domaingroup_bounds_lat_2d(domaingroup_hdl) BIND(C) |
---|
[449] | 69 | USE ISO_C_BINDING |
---|
[664] | 70 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lat_2d |
---|
[449] | 71 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
[664] | 72 | END FUNCTION cxios_is_defined_domaingroup_bounds_lat_2d |
---|
[581] | 73 | |
---|
| 74 | |
---|
[674] | 75 | SUBROUTINE cxios_set_domaingroup_bounds_lon_1d(domaingroup_hdl, bounds_lon_1d, extent) BIND(C) |
---|
[664] | 76 | USE ISO_C_BINDING |
---|
| 77 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 78 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lon_1d |
---|
[674] | 79 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[664] | 80 | END SUBROUTINE cxios_set_domaingroup_bounds_lon_1d |
---|
| 81 | |
---|
[674] | 82 | SUBROUTINE cxios_get_domaingroup_bounds_lon_1d(domaingroup_hdl, bounds_lon_1d, extent) BIND(C) |
---|
[664] | 83 | USE ISO_C_BINDING |
---|
| 84 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 85 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lon_1d |
---|
[674] | 86 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[664] | 87 | END SUBROUTINE cxios_get_domaingroup_bounds_lon_1d |
---|
| 88 | |
---|
| 89 | FUNCTION cxios_is_defined_domaingroup_bounds_lon_1d(domaingroup_hdl) BIND(C) |
---|
| 90 | USE ISO_C_BINDING |
---|
| 91 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lon_1d |
---|
| 92 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 93 | END FUNCTION cxios_is_defined_domaingroup_bounds_lon_1d |
---|
| 94 | |
---|
| 95 | |
---|
[674] | 96 | SUBROUTINE cxios_set_domaingroup_bounds_lon_2d(domaingroup_hdl, bounds_lon_2d, extent) BIND(C) |
---|
[664] | 97 | USE ISO_C_BINDING |
---|
| 98 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 99 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lon_2d |
---|
[674] | 100 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[664] | 101 | END SUBROUTINE cxios_set_domaingroup_bounds_lon_2d |
---|
| 102 | |
---|
[674] | 103 | SUBROUTINE cxios_get_domaingroup_bounds_lon_2d(domaingroup_hdl, bounds_lon_2d, extent) BIND(C) |
---|
[664] | 104 | USE ISO_C_BINDING |
---|
| 105 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 106 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds_lon_2d |
---|
[674] | 107 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[664] | 108 | END SUBROUTINE cxios_get_domaingroup_bounds_lon_2d |
---|
| 109 | |
---|
| 110 | FUNCTION cxios_is_defined_domaingroup_bounds_lon_2d(domaingroup_hdl) BIND(C) |
---|
| 111 | USE ISO_C_BINDING |
---|
| 112 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lon_2d |
---|
| 113 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 114 | END FUNCTION cxios_is_defined_domaingroup_bounds_lon_2d |
---|
| 115 | |
---|
| 116 | |
---|
[326] | 117 | SUBROUTINE cxios_set_domaingroup_data_dim(domaingroup_hdl, data_dim) BIND(C) |
---|
| 118 | USE ISO_C_BINDING |
---|
| 119 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 120 | INTEGER (KIND=C_INT) , VALUE :: data_dim |
---|
| 121 | END SUBROUTINE cxios_set_domaingroup_data_dim |
---|
[581] | 122 | |
---|
[326] | 123 | SUBROUTINE cxios_get_domaingroup_data_dim(domaingroup_hdl, data_dim) BIND(C) |
---|
| 124 | USE ISO_C_BINDING |
---|
| 125 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 126 | INTEGER (KIND=C_INT) :: data_dim |
---|
| 127 | END SUBROUTINE cxios_get_domaingroup_data_dim |
---|
[581] | 128 | |
---|
| 129 | FUNCTION cxios_is_defined_domaingroup_data_dim(domaingroup_hdl) BIND(C) |
---|
[432] | 130 | USE ISO_C_BINDING |
---|
| 131 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_dim |
---|
| 132 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 133 | END FUNCTION cxios_is_defined_domaingroup_data_dim |
---|
[581] | 134 | |
---|
| 135 | |
---|
[674] | 136 | SUBROUTINE cxios_set_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent) BIND(C) |
---|
[326] | 137 | USE ISO_C_BINDING |
---|
| 138 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 139 | INTEGER (KIND=C_INT) , DIMENSION(*) :: data_i_index |
---|
[674] | 140 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[326] | 141 | END SUBROUTINE cxios_set_domaingroup_data_i_index |
---|
[581] | 142 | |
---|
[674] | 143 | SUBROUTINE cxios_get_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent) BIND(C) |
---|
[326] | 144 | USE ISO_C_BINDING |
---|
| 145 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 146 | INTEGER (KIND=C_INT) , DIMENSION(*) :: data_i_index |
---|
[674] | 147 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[326] | 148 | END SUBROUTINE cxios_get_domaingroup_data_i_index |
---|
[581] | 149 | |
---|
| 150 | FUNCTION cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl) BIND(C) |
---|
[432] | 151 | USE ISO_C_BINDING |
---|
| 152 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_i_index |
---|
| 153 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 154 | END FUNCTION cxios_is_defined_domaingroup_data_i_index |
---|
[581] | 155 | |
---|
| 156 | |
---|
[326] | 157 | SUBROUTINE cxios_set_domaingroup_data_ibegin(domaingroup_hdl, data_ibegin) BIND(C) |
---|
| 158 | USE ISO_C_BINDING |
---|
| 159 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 160 | INTEGER (KIND=C_INT) , VALUE :: data_ibegin |
---|
| 161 | END SUBROUTINE cxios_set_domaingroup_data_ibegin |
---|
[581] | 162 | |
---|
[326] | 163 | SUBROUTINE cxios_get_domaingroup_data_ibegin(domaingroup_hdl, data_ibegin) BIND(C) |
---|
| 164 | USE ISO_C_BINDING |
---|
| 165 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 166 | INTEGER (KIND=C_INT) :: data_ibegin |
---|
| 167 | END SUBROUTINE cxios_get_domaingroup_data_ibegin |
---|
[581] | 168 | |
---|
| 169 | FUNCTION cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl) BIND(C) |
---|
[432] | 170 | USE ISO_C_BINDING |
---|
| 171 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_ibegin |
---|
| 172 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 173 | END FUNCTION cxios_is_defined_domaingroup_data_ibegin |
---|
[581] | 174 | |
---|
| 175 | |
---|
[674] | 176 | SUBROUTINE cxios_set_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent) BIND(C) |
---|
[326] | 177 | USE ISO_C_BINDING |
---|
| 178 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 179 | INTEGER (KIND=C_INT) , DIMENSION(*) :: data_j_index |
---|
[674] | 180 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[326] | 181 | END SUBROUTINE cxios_set_domaingroup_data_j_index |
---|
[581] | 182 | |
---|
[674] | 183 | SUBROUTINE cxios_get_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent) BIND(C) |
---|
[326] | 184 | USE ISO_C_BINDING |
---|
| 185 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 186 | INTEGER (KIND=C_INT) , DIMENSION(*) :: data_j_index |
---|
[674] | 187 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[326] | 188 | END SUBROUTINE cxios_get_domaingroup_data_j_index |
---|
[581] | 189 | |
---|
| 190 | FUNCTION cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl) BIND(C) |
---|
[432] | 191 | USE ISO_C_BINDING |
---|
| 192 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_j_index |
---|
| 193 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 194 | END FUNCTION cxios_is_defined_domaingroup_data_j_index |
---|
[581] | 195 | |
---|
| 196 | |
---|
[326] | 197 | SUBROUTINE cxios_set_domaingroup_data_jbegin(domaingroup_hdl, data_jbegin) BIND(C) |
---|
| 198 | USE ISO_C_BINDING |
---|
| 199 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 200 | INTEGER (KIND=C_INT) , VALUE :: data_jbegin |
---|
| 201 | END SUBROUTINE cxios_set_domaingroup_data_jbegin |
---|
[581] | 202 | |
---|
[326] | 203 | SUBROUTINE cxios_get_domaingroup_data_jbegin(domaingroup_hdl, data_jbegin) BIND(C) |
---|
| 204 | USE ISO_C_BINDING |
---|
| 205 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 206 | INTEGER (KIND=C_INT) :: data_jbegin |
---|
| 207 | END SUBROUTINE cxios_get_domaingroup_data_jbegin |
---|
[581] | 208 | |
---|
| 209 | FUNCTION cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl) BIND(C) |
---|
[432] | 210 | USE ISO_C_BINDING |
---|
| 211 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_jbegin |
---|
| 212 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 213 | END FUNCTION cxios_is_defined_domaingroup_data_jbegin |
---|
[581] | 214 | |
---|
| 215 | |
---|
[326] | 216 | SUBROUTINE cxios_set_domaingroup_data_ni(domaingroup_hdl, data_ni) BIND(C) |
---|
| 217 | USE ISO_C_BINDING |
---|
| 218 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 219 | INTEGER (KIND=C_INT) , VALUE :: data_ni |
---|
| 220 | END SUBROUTINE cxios_set_domaingroup_data_ni |
---|
[581] | 221 | |
---|
[326] | 222 | SUBROUTINE cxios_get_domaingroup_data_ni(domaingroup_hdl, data_ni) BIND(C) |
---|
| 223 | USE ISO_C_BINDING |
---|
| 224 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 225 | INTEGER (KIND=C_INT) :: data_ni |
---|
| 226 | END SUBROUTINE cxios_get_domaingroup_data_ni |
---|
[581] | 227 | |
---|
| 228 | FUNCTION cxios_is_defined_domaingroup_data_ni(domaingroup_hdl) BIND(C) |
---|
[432] | 229 | USE ISO_C_BINDING |
---|
| 230 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_ni |
---|
| 231 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 232 | END FUNCTION cxios_is_defined_domaingroup_data_ni |
---|
[581] | 233 | |
---|
| 234 | |
---|
[326] | 235 | SUBROUTINE cxios_set_domaingroup_data_nj(domaingroup_hdl, data_nj) BIND(C) |
---|
| 236 | USE ISO_C_BINDING |
---|
| 237 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 238 | INTEGER (KIND=C_INT) , VALUE :: data_nj |
---|
| 239 | END SUBROUTINE cxios_set_domaingroup_data_nj |
---|
[581] | 240 | |
---|
[326] | 241 | SUBROUTINE cxios_get_domaingroup_data_nj(domaingroup_hdl, data_nj) BIND(C) |
---|
| 242 | USE ISO_C_BINDING |
---|
| 243 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 244 | INTEGER (KIND=C_INT) :: data_nj |
---|
| 245 | END SUBROUTINE cxios_get_domaingroup_data_nj |
---|
[581] | 246 | |
---|
| 247 | FUNCTION cxios_is_defined_domaingroup_data_nj(domaingroup_hdl) BIND(C) |
---|
[432] | 248 | USE ISO_C_BINDING |
---|
| 249 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_nj |
---|
| 250 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 251 | END FUNCTION cxios_is_defined_domaingroup_data_nj |
---|
[581] | 252 | |
---|
| 253 | |
---|
[546] | 254 | SUBROUTINE cxios_set_domaingroup_domain_ref(domaingroup_hdl, domain_ref, domain_ref_size) BIND(C) |
---|
| 255 | USE ISO_C_BINDING |
---|
| 256 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 257 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_ref |
---|
| 258 | INTEGER (kind = C_INT) , VALUE :: domain_ref_size |
---|
| 259 | END SUBROUTINE cxios_set_domaingroup_domain_ref |
---|
[581] | 260 | |
---|
[546] | 261 | SUBROUTINE cxios_get_domaingroup_domain_ref(domaingroup_hdl, domain_ref, domain_ref_size) BIND(C) |
---|
| 262 | USE ISO_C_BINDING |
---|
| 263 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 264 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_ref |
---|
| 265 | INTEGER (kind = C_INT) , VALUE :: domain_ref_size |
---|
| 266 | END SUBROUTINE cxios_get_domaingroup_domain_ref |
---|
[581] | 267 | |
---|
| 268 | FUNCTION cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl) BIND(C) |
---|
[546] | 269 | USE ISO_C_BINDING |
---|
| 270 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_domain_ref |
---|
| 271 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 272 | END FUNCTION cxios_is_defined_domaingroup_domain_ref |
---|
[581] | 273 | |
---|
| 274 | |
---|
[326] | 275 | SUBROUTINE cxios_set_domaingroup_group_ref(domaingroup_hdl, group_ref, group_ref_size) BIND(C) |
---|
| 276 | USE ISO_C_BINDING |
---|
| 277 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 278 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: group_ref |
---|
| 279 | INTEGER (kind = C_INT) , VALUE :: group_ref_size |
---|
| 280 | END SUBROUTINE cxios_set_domaingroup_group_ref |
---|
[581] | 281 | |
---|
[326] | 282 | SUBROUTINE cxios_get_domaingroup_group_ref(domaingroup_hdl, group_ref, group_ref_size) BIND(C) |
---|
| 283 | USE ISO_C_BINDING |
---|
| 284 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 285 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: group_ref |
---|
| 286 | INTEGER (kind = C_INT) , VALUE :: group_ref_size |
---|
| 287 | END SUBROUTINE cxios_get_domaingroup_group_ref |
---|
[581] | 288 | |
---|
| 289 | FUNCTION cxios_is_defined_domaingroup_group_ref(domaingroup_hdl) BIND(C) |
---|
[432] | 290 | USE ISO_C_BINDING |
---|
| 291 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_group_ref |
---|
| 292 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 293 | END FUNCTION cxios_is_defined_domaingroup_group_ref |
---|
[581] | 294 | |
---|
| 295 | |
---|
[674] | 296 | SUBROUTINE cxios_set_domaingroup_i_index(domaingroup_hdl, i_index, extent) BIND(C) |
---|
[467] | 297 | USE ISO_C_BINDING |
---|
| 298 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 299 | INTEGER (KIND=C_INT) , DIMENSION(*) :: i_index |
---|
[674] | 300 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[467] | 301 | END SUBROUTINE cxios_set_domaingroup_i_index |
---|
[581] | 302 | |
---|
[674] | 303 | SUBROUTINE cxios_get_domaingroup_i_index(domaingroup_hdl, i_index, extent) BIND(C) |
---|
[467] | 304 | USE ISO_C_BINDING |
---|
| 305 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 306 | INTEGER (KIND=C_INT) , DIMENSION(*) :: i_index |
---|
[674] | 307 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[467] | 308 | END SUBROUTINE cxios_get_domaingroup_i_index |
---|
[581] | 309 | |
---|
| 310 | FUNCTION cxios_is_defined_domaingroup_i_index(domaingroup_hdl) BIND(C) |
---|
[467] | 311 | USE ISO_C_BINDING |
---|
| 312 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_i_index |
---|
| 313 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 314 | END FUNCTION cxios_is_defined_domaingroup_i_index |
---|
[581] | 315 | |
---|
| 316 | |
---|
[326] | 317 | SUBROUTINE cxios_set_domaingroup_ibegin(domaingroup_hdl, ibegin) BIND(C) |
---|
| 318 | USE ISO_C_BINDING |
---|
| 319 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 320 | INTEGER (KIND=C_INT) , VALUE :: ibegin |
---|
| 321 | END SUBROUTINE cxios_set_domaingroup_ibegin |
---|
[581] | 322 | |
---|
[326] | 323 | SUBROUTINE cxios_get_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) :: ibegin |
---|
| 327 | END SUBROUTINE cxios_get_domaingroup_ibegin |
---|
[581] | 328 | |
---|
| 329 | FUNCTION cxios_is_defined_domaingroup_ibegin(domaingroup_hdl) BIND(C) |
---|
[432] | 330 | USE ISO_C_BINDING |
---|
| 331 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ibegin |
---|
| 332 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 333 | END FUNCTION cxios_is_defined_domaingroup_ibegin |
---|
[581] | 334 | |
---|
| 335 | |
---|
[674] | 336 | SUBROUTINE cxios_set_domaingroup_j_index(domaingroup_hdl, j_index, extent) BIND(C) |
---|
[326] | 337 | USE ISO_C_BINDING |
---|
[467] | 338 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 339 | INTEGER (KIND=C_INT) , DIMENSION(*) :: j_index |
---|
[674] | 340 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[467] | 341 | END SUBROUTINE cxios_set_domaingroup_j_index |
---|
[581] | 342 | |
---|
[674] | 343 | SUBROUTINE cxios_get_domaingroup_j_index(domaingroup_hdl, j_index, extent) BIND(C) |
---|
[467] | 344 | USE ISO_C_BINDING |
---|
| 345 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 346 | INTEGER (KIND=C_INT) , DIMENSION(*) :: j_index |
---|
[674] | 347 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[467] | 348 | END SUBROUTINE cxios_get_domaingroup_j_index |
---|
[581] | 349 | |
---|
| 350 | FUNCTION cxios_is_defined_domaingroup_j_index(domaingroup_hdl) BIND(C) |
---|
[467] | 351 | USE ISO_C_BINDING |
---|
| 352 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_j_index |
---|
| 353 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 354 | END FUNCTION cxios_is_defined_domaingroup_j_index |
---|
[581] | 355 | |
---|
| 356 | |
---|
[326] | 357 | SUBROUTINE cxios_set_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C) |
---|
| 358 | USE ISO_C_BINDING |
---|
| 359 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 360 | INTEGER (KIND=C_INT) , VALUE :: jbegin |
---|
| 361 | END SUBROUTINE cxios_set_domaingroup_jbegin |
---|
[581] | 362 | |
---|
[326] | 363 | SUBROUTINE cxios_get_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C) |
---|
| 364 | USE ISO_C_BINDING |
---|
| 365 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 366 | INTEGER (KIND=C_INT) :: jbegin |
---|
| 367 | END SUBROUTINE cxios_get_domaingroup_jbegin |
---|
[581] | 368 | |
---|
| 369 | FUNCTION cxios_is_defined_domaingroup_jbegin(domaingroup_hdl) BIND(C) |
---|
[432] | 370 | USE ISO_C_BINDING |
---|
| 371 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_jbegin |
---|
| 372 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 373 | END FUNCTION cxios_is_defined_domaingroup_jbegin |
---|
[581] | 374 | |
---|
| 375 | |
---|
[674] | 376 | SUBROUTINE cxios_set_domaingroup_latvalue_1d(domaingroup_hdl, latvalue_1d, extent) BIND(C) |
---|
[326] | 377 | USE ISO_C_BINDING |
---|
| 378 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
[664] | 379 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: latvalue_1d |
---|
[674] | 380 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[664] | 381 | END SUBROUTINE cxios_set_domaingroup_latvalue_1d |
---|
[581] | 382 | |
---|
[674] | 383 | SUBROUTINE cxios_get_domaingroup_latvalue_1d(domaingroup_hdl, latvalue_1d, extent) BIND(C) |
---|
[326] | 384 | USE ISO_C_BINDING |
---|
| 385 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
[664] | 386 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: latvalue_1d |
---|
[674] | 387 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[664] | 388 | END SUBROUTINE cxios_get_domaingroup_latvalue_1d |
---|
[581] | 389 | |
---|
[664] | 390 | FUNCTION cxios_is_defined_domaingroup_latvalue_1d(domaingroup_hdl) BIND(C) |
---|
[432] | 391 | USE ISO_C_BINDING |
---|
[664] | 392 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_latvalue_1d |
---|
[432] | 393 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
[664] | 394 | END FUNCTION cxios_is_defined_domaingroup_latvalue_1d |
---|
[581] | 395 | |
---|
| 396 | |
---|
[674] | 397 | SUBROUTINE cxios_set_domaingroup_latvalue_2d(domaingroup_hdl, latvalue_2d, extent) BIND(C) |
---|
[664] | 398 | USE ISO_C_BINDING |
---|
| 399 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 400 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: latvalue_2d |
---|
[674] | 401 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[664] | 402 | END SUBROUTINE cxios_set_domaingroup_latvalue_2d |
---|
| 403 | |
---|
[674] | 404 | SUBROUTINE cxios_get_domaingroup_latvalue_2d(domaingroup_hdl, latvalue_2d, extent) BIND(C) |
---|
[664] | 405 | USE ISO_C_BINDING |
---|
| 406 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 407 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: latvalue_2d |
---|
[674] | 408 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[664] | 409 | END SUBROUTINE cxios_get_domaingroup_latvalue_2d |
---|
| 410 | |
---|
| 411 | FUNCTION cxios_is_defined_domaingroup_latvalue_2d(domaingroup_hdl) BIND(C) |
---|
| 412 | USE ISO_C_BINDING |
---|
| 413 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_latvalue_2d |
---|
| 414 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 415 | END FUNCTION cxios_is_defined_domaingroup_latvalue_2d |
---|
| 416 | |
---|
| 417 | |
---|
[326] | 418 | SUBROUTINE cxios_set_domaingroup_long_name(domaingroup_hdl, long_name, long_name_size) BIND(C) |
---|
| 419 | USE ISO_C_BINDING |
---|
| 420 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 421 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: long_name |
---|
| 422 | INTEGER (kind = C_INT) , VALUE :: long_name_size |
---|
| 423 | END SUBROUTINE cxios_set_domaingroup_long_name |
---|
[581] | 424 | |
---|
[326] | 425 | SUBROUTINE cxios_get_domaingroup_long_name(domaingroup_hdl, long_name, long_name_size) BIND(C) |
---|
| 426 | USE ISO_C_BINDING |
---|
| 427 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 428 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: long_name |
---|
| 429 | INTEGER (kind = C_INT) , VALUE :: long_name_size |
---|
| 430 | END SUBROUTINE cxios_get_domaingroup_long_name |
---|
[581] | 431 | |
---|
| 432 | FUNCTION cxios_is_defined_domaingroup_long_name(domaingroup_hdl) BIND(C) |
---|
[432] | 433 | USE ISO_C_BINDING |
---|
| 434 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_long_name |
---|
| 435 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 436 | END FUNCTION cxios_is_defined_domaingroup_long_name |
---|
[581] | 437 | |
---|
| 438 | |
---|
[674] | 439 | SUBROUTINE cxios_set_domaingroup_lonvalue_1d(domaingroup_hdl, lonvalue_1d, extent) BIND(C) |
---|
[326] | 440 | USE ISO_C_BINDING |
---|
| 441 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
[664] | 442 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: lonvalue_1d |
---|
[674] | 443 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[664] | 444 | END SUBROUTINE cxios_set_domaingroup_lonvalue_1d |
---|
[581] | 445 | |
---|
[674] | 446 | SUBROUTINE cxios_get_domaingroup_lonvalue_1d(domaingroup_hdl, lonvalue_1d, extent) BIND(C) |
---|
[326] | 447 | USE ISO_C_BINDING |
---|
| 448 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
[664] | 449 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: lonvalue_1d |
---|
[674] | 450 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[664] | 451 | END SUBROUTINE cxios_get_domaingroup_lonvalue_1d |
---|
[581] | 452 | |
---|
[664] | 453 | FUNCTION cxios_is_defined_domaingroup_lonvalue_1d(domaingroup_hdl) BIND(C) |
---|
[432] | 454 | USE ISO_C_BINDING |
---|
[664] | 455 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_lonvalue_1d |
---|
[432] | 456 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
[664] | 457 | END FUNCTION cxios_is_defined_domaingroup_lonvalue_1d |
---|
[581] | 458 | |
---|
| 459 | |
---|
[674] | 460 | SUBROUTINE cxios_set_domaingroup_lonvalue_2d(domaingroup_hdl, lonvalue_2d, extent) BIND(C) |
---|
[326] | 461 | USE ISO_C_BINDING |
---|
| 462 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
[664] | 463 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: lonvalue_2d |
---|
[674] | 464 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[664] | 465 | END SUBROUTINE cxios_set_domaingroup_lonvalue_2d |
---|
[581] | 466 | |
---|
[674] | 467 | SUBROUTINE cxios_get_domaingroup_lonvalue_2d(domaingroup_hdl, lonvalue_2d, extent) BIND(C) |
---|
[326] | 468 | USE ISO_C_BINDING |
---|
| 469 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
[664] | 470 | REAL (KIND=C_DOUBLE) , DIMENSION(*) :: lonvalue_2d |
---|
[674] | 471 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[664] | 472 | END SUBROUTINE cxios_get_domaingroup_lonvalue_2d |
---|
[581] | 473 | |
---|
[664] | 474 | FUNCTION cxios_is_defined_domaingroup_lonvalue_2d(domaingroup_hdl) BIND(C) |
---|
[432] | 475 | USE ISO_C_BINDING |
---|
[664] | 476 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_lonvalue_2d |
---|
[432] | 477 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
[664] | 478 | END FUNCTION cxios_is_defined_domaingroup_lonvalue_2d |
---|
[581] | 479 | |
---|
| 480 | |
---|
[674] | 481 | SUBROUTINE cxios_set_domaingroup_mask_1d(domaingroup_hdl, mask_1d, extent) BIND(C) |
---|
[664] | 482 | USE ISO_C_BINDING |
---|
| 483 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 484 | LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_1d |
---|
[674] | 485 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[664] | 486 | END SUBROUTINE cxios_set_domaingroup_mask_1d |
---|
| 487 | |
---|
[674] | 488 | SUBROUTINE cxios_get_domaingroup_mask_1d(domaingroup_hdl, mask_1d, extent) BIND(C) |
---|
[664] | 489 | USE ISO_C_BINDING |
---|
| 490 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 491 | LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_1d |
---|
[674] | 492 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[664] | 493 | END SUBROUTINE cxios_get_domaingroup_mask_1d |
---|
| 494 | |
---|
| 495 | FUNCTION cxios_is_defined_domaingroup_mask_1d(domaingroup_hdl) BIND(C) |
---|
| 496 | USE ISO_C_BINDING |
---|
| 497 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_mask_1d |
---|
| 498 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 499 | END FUNCTION cxios_is_defined_domaingroup_mask_1d |
---|
| 500 | |
---|
| 501 | |
---|
[674] | 502 | SUBROUTINE cxios_set_domaingroup_mask_2d(domaingroup_hdl, mask_2d, extent) BIND(C) |
---|
[664] | 503 | USE ISO_C_BINDING |
---|
| 504 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 505 | LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_2d |
---|
[674] | 506 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[664] | 507 | END SUBROUTINE cxios_set_domaingroup_mask_2d |
---|
| 508 | |
---|
[674] | 509 | SUBROUTINE cxios_get_domaingroup_mask_2d(domaingroup_hdl, mask_2d, extent) BIND(C) |
---|
[664] | 510 | USE ISO_C_BINDING |
---|
| 511 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 512 | LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_2d |
---|
[674] | 513 | INTEGER (kind = C_INT), DIMENSION(*) :: extent |
---|
[664] | 514 | END SUBROUTINE cxios_get_domaingroup_mask_2d |
---|
| 515 | |
---|
| 516 | FUNCTION cxios_is_defined_domaingroup_mask_2d(domaingroup_hdl) BIND(C) |
---|
| 517 | USE ISO_C_BINDING |
---|
| 518 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_mask_2d |
---|
| 519 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 520 | END FUNCTION cxios_is_defined_domaingroup_mask_2d |
---|
| 521 | |
---|
| 522 | |
---|
[326] | 523 | SUBROUTINE cxios_set_domaingroup_name(domaingroup_hdl, name, name_size) BIND(C) |
---|
| 524 | USE ISO_C_BINDING |
---|
| 525 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 526 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name |
---|
| 527 | INTEGER (kind = C_INT) , VALUE :: name_size |
---|
| 528 | END SUBROUTINE cxios_set_domaingroup_name |
---|
[581] | 529 | |
---|
[326] | 530 | SUBROUTINE cxios_get_domaingroup_name(domaingroup_hdl, name, name_size) BIND(C) |
---|
| 531 | USE ISO_C_BINDING |
---|
| 532 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 533 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name |
---|
| 534 | INTEGER (kind = C_INT) , VALUE :: name_size |
---|
| 535 | END SUBROUTINE cxios_get_domaingroup_name |
---|
[581] | 536 | |
---|
| 537 | FUNCTION cxios_is_defined_domaingroup_name(domaingroup_hdl) BIND(C) |
---|
[432] | 538 | USE ISO_C_BINDING |
---|
| 539 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_name |
---|
| 540 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 541 | END FUNCTION cxios_is_defined_domaingroup_name |
---|
[581] | 542 | |
---|
| 543 | |
---|
[326] | 544 | SUBROUTINE cxios_set_domaingroup_ni(domaingroup_hdl, ni) BIND(C) |
---|
| 545 | USE ISO_C_BINDING |
---|
| 546 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 547 | INTEGER (KIND=C_INT) , VALUE :: ni |
---|
| 548 | END SUBROUTINE cxios_set_domaingroup_ni |
---|
[581] | 549 | |
---|
[326] | 550 | SUBROUTINE cxios_get_domaingroup_ni(domaingroup_hdl, ni) BIND(C) |
---|
| 551 | USE ISO_C_BINDING |
---|
| 552 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 553 | INTEGER (KIND=C_INT) :: ni |
---|
| 554 | END SUBROUTINE cxios_get_domaingroup_ni |
---|
[581] | 555 | |
---|
| 556 | FUNCTION cxios_is_defined_domaingroup_ni(domaingroup_hdl) BIND(C) |
---|
[432] | 557 | USE ISO_C_BINDING |
---|
| 558 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni |
---|
| 559 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 560 | END FUNCTION cxios_is_defined_domaingroup_ni |
---|
[581] | 561 | |
---|
| 562 | |
---|
[326] | 563 | SUBROUTINE cxios_set_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C) |
---|
| 564 | USE ISO_C_BINDING |
---|
| 565 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 566 | INTEGER (KIND=C_INT) , VALUE :: ni_glo |
---|
| 567 | END SUBROUTINE cxios_set_domaingroup_ni_glo |
---|
[581] | 568 | |
---|
[326] | 569 | SUBROUTINE cxios_get_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C) |
---|
| 570 | USE ISO_C_BINDING |
---|
| 571 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 572 | INTEGER (KIND=C_INT) :: ni_glo |
---|
| 573 | END SUBROUTINE cxios_get_domaingroup_ni_glo |
---|
[581] | 574 | |
---|
| 575 | FUNCTION cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl) BIND(C) |
---|
[432] | 576 | USE ISO_C_BINDING |
---|
| 577 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni_glo |
---|
| 578 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 579 | END FUNCTION cxios_is_defined_domaingroup_ni_glo |
---|
[581] | 580 | |
---|
| 581 | |
---|
[326] | 582 | SUBROUTINE cxios_set_domaingroup_nj(domaingroup_hdl, nj) BIND(C) |
---|
| 583 | USE ISO_C_BINDING |
---|
| 584 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 585 | INTEGER (KIND=C_INT) , VALUE :: nj |
---|
| 586 | END SUBROUTINE cxios_set_domaingroup_nj |
---|
[581] | 587 | |
---|
[326] | 588 | SUBROUTINE cxios_get_domaingroup_nj(domaingroup_hdl, nj) BIND(C) |
---|
| 589 | USE ISO_C_BINDING |
---|
| 590 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 591 | INTEGER (KIND=C_INT) :: nj |
---|
| 592 | END SUBROUTINE cxios_get_domaingroup_nj |
---|
[581] | 593 | |
---|
| 594 | FUNCTION cxios_is_defined_domaingroup_nj(domaingroup_hdl) BIND(C) |
---|
[432] | 595 | USE ISO_C_BINDING |
---|
| 596 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj |
---|
| 597 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 598 | END FUNCTION cxios_is_defined_domaingroup_nj |
---|
[581] | 599 | |
---|
| 600 | |
---|
[326] | 601 | SUBROUTINE cxios_set_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C) |
---|
| 602 | USE ISO_C_BINDING |
---|
| 603 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 604 | INTEGER (KIND=C_INT) , VALUE :: nj_glo |
---|
| 605 | END SUBROUTINE cxios_set_domaingroup_nj_glo |
---|
[581] | 606 | |
---|
[326] | 607 | SUBROUTINE cxios_get_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C) |
---|
| 608 | USE ISO_C_BINDING |
---|
| 609 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 610 | INTEGER (KIND=C_INT) :: nj_glo |
---|
| 611 | END SUBROUTINE cxios_get_domaingroup_nj_glo |
---|
[581] | 612 | |
---|
| 613 | FUNCTION cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl) BIND(C) |
---|
[432] | 614 | USE ISO_C_BINDING |
---|
| 615 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj_glo |
---|
| 616 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 617 | END FUNCTION cxios_is_defined_domaingroup_nj_glo |
---|
[581] | 618 | |
---|
| 619 | |
---|
[449] | 620 | SUBROUTINE cxios_set_domaingroup_nvertex(domaingroup_hdl, nvertex) BIND(C) |
---|
| 621 | USE ISO_C_BINDING |
---|
| 622 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 623 | INTEGER (KIND=C_INT) , VALUE :: nvertex |
---|
| 624 | END SUBROUTINE cxios_set_domaingroup_nvertex |
---|
[581] | 625 | |
---|
[449] | 626 | SUBROUTINE cxios_get_domaingroup_nvertex(domaingroup_hdl, nvertex) BIND(C) |
---|
| 627 | USE ISO_C_BINDING |
---|
| 628 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 629 | INTEGER (KIND=C_INT) :: nvertex |
---|
| 630 | END SUBROUTINE cxios_get_domaingroup_nvertex |
---|
[581] | 631 | |
---|
| 632 | FUNCTION cxios_is_defined_domaingroup_nvertex(domaingroup_hdl) BIND(C) |
---|
[449] | 633 | USE ISO_C_BINDING |
---|
| 634 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nvertex |
---|
| 635 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 636 | END FUNCTION cxios_is_defined_domaingroup_nvertex |
---|
[581] | 637 | |
---|
| 638 | |
---|
[1158] | 639 | SUBROUTINE cxios_set_domaingroup_prec(domaingroup_hdl, prec) BIND(C) |
---|
| 640 | USE ISO_C_BINDING |
---|
| 641 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 642 | INTEGER (KIND=C_INT) , VALUE :: prec |
---|
| 643 | END SUBROUTINE cxios_set_domaingroup_prec |
---|
| 644 | |
---|
| 645 | SUBROUTINE cxios_get_domaingroup_prec(domaingroup_hdl, prec) BIND(C) |
---|
| 646 | USE ISO_C_BINDING |
---|
| 647 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 648 | INTEGER (KIND=C_INT) :: prec |
---|
| 649 | END SUBROUTINE cxios_get_domaingroup_prec |
---|
| 650 | |
---|
| 651 | FUNCTION cxios_is_defined_domaingroup_prec(domaingroup_hdl) BIND(C) |
---|
| 652 | USE ISO_C_BINDING |
---|
| 653 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_prec |
---|
| 654 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 655 | END FUNCTION cxios_is_defined_domaingroup_prec |
---|
| 656 | |
---|
| 657 | |
---|
[326] | 658 | SUBROUTINE cxios_set_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C) |
---|
| 659 | USE ISO_C_BINDING |
---|
| 660 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 661 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: standard_name |
---|
| 662 | INTEGER (kind = C_INT) , VALUE :: standard_name_size |
---|
| 663 | END SUBROUTINE cxios_set_domaingroup_standard_name |
---|
[581] | 664 | |
---|
[326] | 665 | SUBROUTINE cxios_get_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C) |
---|
| 666 | USE ISO_C_BINDING |
---|
| 667 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 668 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: standard_name |
---|
| 669 | INTEGER (kind = C_INT) , VALUE :: standard_name_size |
---|
| 670 | END SUBROUTINE cxios_get_domaingroup_standard_name |
---|
[581] | 671 | |
---|
| 672 | FUNCTION cxios_is_defined_domaingroup_standard_name(domaingroup_hdl) BIND(C) |
---|
[432] | 673 | USE ISO_C_BINDING |
---|
| 674 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_standard_name |
---|
| 675 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 676 | END FUNCTION cxios_is_defined_domaingroup_standard_name |
---|
[581] | 677 | |
---|
| 678 | |
---|
[449] | 679 | SUBROUTINE cxios_set_domaingroup_type(domaingroup_hdl, type, type_size) BIND(C) |
---|
| 680 | USE ISO_C_BINDING |
---|
| 681 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 682 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: type |
---|
| 683 | INTEGER (kind = C_INT) , VALUE :: type_size |
---|
| 684 | END SUBROUTINE cxios_set_domaingroup_type |
---|
[581] | 685 | |
---|
[449] | 686 | SUBROUTINE cxios_get_domaingroup_type(domaingroup_hdl, type, type_size) BIND(C) |
---|
| 687 | USE ISO_C_BINDING |
---|
| 688 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 689 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: type |
---|
| 690 | INTEGER (kind = C_INT) , VALUE :: type_size |
---|
| 691 | END SUBROUTINE cxios_get_domaingroup_type |
---|
[581] | 692 | |
---|
| 693 | FUNCTION cxios_is_defined_domaingroup_type(domaingroup_hdl) BIND(C) |
---|
[449] | 694 | USE ISO_C_BINDING |
---|
| 695 | LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_type |
---|
| 696 | INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl |
---|
| 697 | END FUNCTION cxios_is_defined_domaingroup_type |
---|
[581] | 698 | |
---|
| 699 | END INTERFACE |
---|
| 700 | |
---|
[326] | 701 | END MODULE domaingroup_interface_attr |
---|