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