- Timestamp:
- 03/24/15 11:21:45 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/domain_interface_attr.F90
r546 r581 6 6 MODULE domain_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_domain_bounds_lat(domain_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_domain_bounds_lat 19 19 20 20 SUBROUTINE cxios_get_domain_bounds_lat(domain_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_domain_bounds_lat 27 28 FUNCTION cxios_is_defined_domain_bounds_lat(domain_hdl 27 28 FUNCTION cxios_is_defined_domain_bounds_lat(domain_hdl) BIND(C) 29 29 USE ISO_C_BINDING 30 30 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lat 31 31 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 32 32 END FUNCTION cxios_is_defined_domain_bounds_lat 33 34 33 34 35 35 SUBROUTINE cxios_set_domain_bounds_lon(domain_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_domain_bounds_lon 42 42 43 43 SUBROUTINE cxios_get_domain_bounds_lon(domain_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_domain_bounds_lon 50 51 FUNCTION cxios_is_defined_domain_bounds_lon(domain_hdl 50 51 FUNCTION cxios_is_defined_domain_bounds_lon(domain_hdl) BIND(C) 52 52 USE ISO_C_BINDING 53 53 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lon 54 54 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 55 55 END FUNCTION cxios_is_defined_domain_bounds_lon 56 57 56 57 58 58 SUBROUTINE cxios_set_domain_data_dim(domain_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_domain_data_dim 63 63 64 64 SUBROUTINE cxios_get_domain_data_dim(domain_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_domain_data_dim 69 70 FUNCTION cxios_is_defined_domain_data_dim(domain_hdl 69 70 FUNCTION cxios_is_defined_domain_data_dim(domain_hdl) BIND(C) 71 71 USE ISO_C_BINDING 72 72 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_dim 73 73 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 74 74 END FUNCTION cxios_is_defined_domain_data_dim 75 76 75 76 77 77 SUBROUTINE cxios_set_domain_data_i_index(domain_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_domain_data_i_index 83 83 84 84 SUBROUTINE cxios_get_domain_data_i_index(domain_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_domain_data_i_index 90 91 FUNCTION cxios_is_defined_domain_data_i_index(domain_hdl 90 91 FUNCTION cxios_is_defined_domain_data_i_index(domain_hdl) BIND(C) 92 92 USE ISO_C_BINDING 93 93 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_i_index 94 94 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 95 95 END FUNCTION cxios_is_defined_domain_data_i_index 96 97 96 97 98 98 SUBROUTINE cxios_set_domain_data_ibegin(domain_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_domain_data_ibegin 103 103 104 104 SUBROUTINE cxios_get_domain_data_ibegin(domain_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_domain_data_ibegin 109 110 FUNCTION cxios_is_defined_domain_data_ibegin(domain_hdl 109 110 FUNCTION cxios_is_defined_domain_data_ibegin(domain_hdl) BIND(C) 111 111 USE ISO_C_BINDING 112 112 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ibegin 113 113 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 114 114 END FUNCTION cxios_is_defined_domain_data_ibegin 115 116 115 116 117 117 SUBROUTINE cxios_set_domain_data_j_index(domain_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_domain_data_j_index 123 123 124 124 SUBROUTINE cxios_get_domain_data_j_index(domain_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_domain_data_j_index 130 131 FUNCTION cxios_is_defined_domain_data_j_index(domain_hdl 130 131 FUNCTION cxios_is_defined_domain_data_j_index(domain_hdl) BIND(C) 132 132 USE ISO_C_BINDING 133 133 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_j_index 134 134 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 135 135 END FUNCTION cxios_is_defined_domain_data_j_index 136 137 136 137 138 138 SUBROUTINE cxios_set_domain_data_jbegin(domain_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_domain_data_jbegin 143 143 144 144 SUBROUTINE cxios_get_domain_data_jbegin(domain_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_domain_data_jbegin 149 150 FUNCTION cxios_is_defined_domain_data_jbegin(domain_hdl 149 150 FUNCTION cxios_is_defined_domain_data_jbegin(domain_hdl) BIND(C) 151 151 USE ISO_C_BINDING 152 152 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_jbegin 153 153 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 154 154 END FUNCTION cxios_is_defined_domain_data_jbegin 155 156 155 156 157 157 SUBROUTINE cxios_set_domain_data_n_index(domain_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_domain_data_n_index 162 162 163 163 SUBROUTINE cxios_get_domain_data_n_index(domain_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_domain_data_n_index 168 169 FUNCTION cxios_is_defined_domain_data_n_index(domain_hdl 168 169 FUNCTION cxios_is_defined_domain_data_n_index(domain_hdl) BIND(C) 170 170 USE ISO_C_BINDING 171 171 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_n_index 172 172 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 173 173 END FUNCTION cxios_is_defined_domain_data_n_index 174 175 174 175 176 176 SUBROUTINE cxios_set_domain_data_ni(domain_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_domain_data_ni 181 181 182 182 SUBROUTINE cxios_get_domain_data_ni(domain_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_domain_data_ni 187 188 FUNCTION cxios_is_defined_domain_data_ni(domain_hdl 187 188 FUNCTION cxios_is_defined_domain_data_ni(domain_hdl) BIND(C) 189 189 USE ISO_C_BINDING 190 190 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ni 191 191 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 192 192 END FUNCTION cxios_is_defined_domain_data_ni 193 194 193 194 195 195 SUBROUTINE cxios_set_domain_data_nj(domain_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_domain_data_nj 200 200 201 201 SUBROUTINE cxios_get_domain_data_nj(domain_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_domain_data_nj 206 207 FUNCTION cxios_is_defined_domain_data_nj(domain_hdl 206 207 FUNCTION cxios_is_defined_domain_data_nj(domain_hdl) BIND(C) 208 208 USE ISO_C_BINDING 209 209 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_nj 210 210 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 211 211 END FUNCTION cxios_is_defined_domain_data_nj 212 213 212 213 214 214 SUBROUTINE cxios_set_domain_domain_group_ref(domain_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_domain_domain_group_ref 220 220 221 221 SUBROUTINE cxios_get_domain_domain_group_ref(domain_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_domain_domain_group_ref 227 228 FUNCTION cxios_is_defined_domain_domain_group_ref(domain_hdl 227 228 FUNCTION cxios_is_defined_domain_domain_group_ref(domain_hdl) BIND(C) 229 229 USE ISO_C_BINDING 230 230 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_group_ref 231 231 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 232 232 END FUNCTION cxios_is_defined_domain_domain_group_ref 233 234 233 234 235 235 SUBROUTINE cxios_set_domain_domain_ref(domain_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_domain_domain_ref 241 241 242 242 SUBROUTINE cxios_get_domain_domain_ref(domain_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_domain_domain_ref 248 249 FUNCTION cxios_is_defined_domain_domain_ref(domain_hdl 248 249 FUNCTION cxios_is_defined_domain_domain_ref(domain_hdl) BIND(C) 250 250 USE ISO_C_BINDING 251 251 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_ref 252 252 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 253 253 END FUNCTION cxios_is_defined_domain_domain_ref 254 255 254 255 256 256 SUBROUTINE cxios_set_domain_i_index(domain_hdl, i_index, extent1, extent2) BIND(C) 257 257 USE ISO_C_BINDING … … 261 261 INTEGER (kind = C_INT), VALUE :: extent2 262 262 END SUBROUTINE cxios_set_domain_i_index 263 263 264 264 SUBROUTINE cxios_get_domain_i_index(domain_hdl, i_index, extent1, extent2) BIND(C) 265 265 USE ISO_C_BINDING … … 269 269 INTEGER (kind = C_INT), VALUE :: extent2 270 270 END SUBROUTINE cxios_get_domain_i_index 271 272 FUNCTION cxios_is_defined_domain_i_index(domain_hdl 271 272 FUNCTION cxios_is_defined_domain_i_index(domain_hdl) BIND(C) 273 273 USE ISO_C_BINDING 274 274 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_i_index 275 275 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 276 276 END FUNCTION cxios_is_defined_domain_i_index 277 278 277 278 279 279 SUBROUTINE cxios_set_domain_ibegin(domain_hdl, ibegin) BIND(C) 280 280 USE ISO_C_BINDING … … 282 282 INTEGER (KIND=C_INT) , VALUE :: ibegin 283 283 END SUBROUTINE cxios_set_domain_ibegin 284 284 285 285 SUBROUTINE cxios_get_domain_ibegin(domain_hdl, ibegin) BIND(C) 286 286 USE ISO_C_BINDING … … 288 288 INTEGER (KIND=C_INT) :: ibegin 289 289 END SUBROUTINE cxios_get_domain_ibegin 290 291 FUNCTION cxios_is_defined_domain_ibegin(domain_hdl 290 291 FUNCTION cxios_is_defined_domain_ibegin(domain_hdl) BIND(C) 292 292 USE ISO_C_BINDING 293 293 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ibegin 294 294 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 295 295 END FUNCTION cxios_is_defined_domain_ibegin 296 297 296 297 298 298 SUBROUTINE cxios_set_domain_iend(domain_hdl, iend) BIND(C) 299 299 USE ISO_C_BINDING … … 301 301 INTEGER (KIND=C_INT) , VALUE :: iend 302 302 END SUBROUTINE cxios_set_domain_iend 303 303 304 304 SUBROUTINE cxios_get_domain_iend(domain_hdl, iend) BIND(C) 305 305 USE ISO_C_BINDING … … 307 307 INTEGER (KIND=C_INT) :: iend 308 308 END SUBROUTINE cxios_get_domain_iend 309 310 FUNCTION cxios_is_defined_domain_iend(domain_hdl 309 310 FUNCTION cxios_is_defined_domain_iend(domain_hdl) BIND(C) 311 311 USE ISO_C_BINDING 312 312 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_iend 313 313 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 314 314 END FUNCTION cxios_is_defined_domain_iend 315 316 315 316 317 317 SUBROUTINE cxios_set_domain_j_index(domain_hdl, j_index, extent1, extent2) BIND(C) 318 318 USE ISO_C_BINDING … … 322 322 INTEGER (kind = C_INT), VALUE :: extent2 323 323 END SUBROUTINE cxios_set_domain_j_index 324 324 325 325 SUBROUTINE cxios_get_domain_j_index(domain_hdl, j_index, extent1, extent2) BIND(C) 326 326 USE ISO_C_BINDING … … 330 330 INTEGER (kind = C_INT), VALUE :: extent2 331 331 END SUBROUTINE cxios_get_domain_j_index 332 333 FUNCTION cxios_is_defined_domain_j_index(domain_hdl 332 333 FUNCTION cxios_is_defined_domain_j_index(domain_hdl) BIND(C) 334 334 USE ISO_C_BINDING 335 335 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_j_index 336 336 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 337 337 END FUNCTION cxios_is_defined_domain_j_index 338 339 338 339 340 340 SUBROUTINE cxios_set_domain_jbegin(domain_hdl, jbegin) BIND(C) 341 341 USE ISO_C_BINDING … … 343 343 INTEGER (KIND=C_INT) , VALUE :: jbegin 344 344 END SUBROUTINE cxios_set_domain_jbegin 345 345 346 346 SUBROUTINE cxios_get_domain_jbegin(domain_hdl, jbegin) BIND(C) 347 347 USE ISO_C_BINDING … … 349 349 INTEGER (KIND=C_INT) :: jbegin 350 350 END SUBROUTINE cxios_get_domain_jbegin 351 352 FUNCTION cxios_is_defined_domain_jbegin(domain_hdl 351 352 FUNCTION cxios_is_defined_domain_jbegin(domain_hdl) BIND(C) 353 353 USE ISO_C_BINDING 354 354 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jbegin 355 355 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 356 356 END FUNCTION cxios_is_defined_domain_jbegin 357 358 357 358 359 359 SUBROUTINE cxios_set_domain_jend(domain_hdl, jend) BIND(C) 360 360 USE ISO_C_BINDING … … 362 362 INTEGER (KIND=C_INT) , VALUE :: jend 363 363 END SUBROUTINE cxios_set_domain_jend 364 364 365 365 SUBROUTINE cxios_get_domain_jend(domain_hdl, jend) BIND(C) 366 366 USE ISO_C_BINDING … … 368 368 INTEGER (KIND=C_INT) :: jend 369 369 END SUBROUTINE cxios_get_domain_jend 370 371 FUNCTION cxios_is_defined_domain_jend(domain_hdl 370 371 FUNCTION cxios_is_defined_domain_jend(domain_hdl) BIND(C) 372 372 USE ISO_C_BINDING 373 373 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jend 374 374 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 375 375 END FUNCTION cxios_is_defined_domain_jend 376 377 376 377 378 378 SUBROUTINE cxios_set_domain_latvalue(domain_hdl, latvalue, extent1) BIND(C) 379 379 USE ISO_C_BINDING … … 382 382 INTEGER (kind = C_INT), VALUE :: extent1 383 383 END SUBROUTINE cxios_set_domain_latvalue 384 384 385 385 SUBROUTINE cxios_get_domain_latvalue(domain_hdl, latvalue, extent1) BIND(C) 386 386 USE ISO_C_BINDING … … 389 389 INTEGER (kind = C_INT), VALUE :: extent1 390 390 END SUBROUTINE cxios_get_domain_latvalue 391 392 FUNCTION cxios_is_defined_domain_latvalue(domain_hdl 391 392 FUNCTION cxios_is_defined_domain_latvalue(domain_hdl) BIND(C) 393 393 USE ISO_C_BINDING 394 394 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue 395 395 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 396 396 END FUNCTION cxios_is_defined_domain_latvalue 397 398 397 398 399 399 SUBROUTINE cxios_set_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C) 400 400 USE ISO_C_BINDING … … 403 403 INTEGER (kind = C_INT) , VALUE :: long_name_size 404 404 END SUBROUTINE cxios_set_domain_long_name 405 405 406 406 SUBROUTINE cxios_get_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C) 407 407 USE ISO_C_BINDING … … 410 410 INTEGER (kind = C_INT) , VALUE :: long_name_size 411 411 END SUBROUTINE cxios_get_domain_long_name 412 413 FUNCTION cxios_is_defined_domain_long_name(domain_hdl 412 413 FUNCTION cxios_is_defined_domain_long_name(domain_hdl) BIND(C) 414 414 USE ISO_C_BINDING 415 415 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_long_name 416 416 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 417 417 END FUNCTION cxios_is_defined_domain_long_name 418 419 418 419 420 420 SUBROUTINE cxios_set_domain_lonvalue(domain_hdl, lonvalue, extent1) BIND(C) 421 421 USE ISO_C_BINDING … … 424 424 INTEGER (kind = C_INT), VALUE :: extent1 425 425 END SUBROUTINE cxios_set_domain_lonvalue 426 426 427 427 SUBROUTINE cxios_get_domain_lonvalue(domain_hdl, lonvalue, extent1) BIND(C) 428 428 USE ISO_C_BINDING … … 431 431 INTEGER (kind = C_INT), VALUE :: extent1 432 432 END SUBROUTINE cxios_get_domain_lonvalue 433 434 FUNCTION cxios_is_defined_domain_lonvalue(domain_hdl 433 434 FUNCTION cxios_is_defined_domain_lonvalue(domain_hdl) BIND(C) 435 435 USE ISO_C_BINDING 436 436 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue 437 437 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 438 438 END FUNCTION cxios_is_defined_domain_lonvalue 439 440 439 440 441 441 SUBROUTINE cxios_set_domain_mask(domain_hdl, mask, extent1, extent2) BIND(C) 442 442 USE ISO_C_BINDING … … 446 446 INTEGER (kind = C_INT), VALUE :: extent2 447 447 END SUBROUTINE cxios_set_domain_mask 448 448 449 449 SUBROUTINE cxios_get_domain_mask(domain_hdl, mask, extent1, extent2) BIND(C) 450 450 USE ISO_C_BINDING … … 454 454 INTEGER (kind = C_INT), VALUE :: extent2 455 455 END SUBROUTINE cxios_get_domain_mask 456 457 FUNCTION cxios_is_defined_domain_mask(domain_hdl 456 457 FUNCTION cxios_is_defined_domain_mask(domain_hdl) BIND(C) 458 458 USE ISO_C_BINDING 459 459 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask 460 460 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 461 461 END FUNCTION cxios_is_defined_domain_mask 462 463 462 463 464 464 SUBROUTINE cxios_set_domain_name(domain_hdl, name, name_size) BIND(C) 465 465 USE ISO_C_BINDING … … 468 468 INTEGER (kind = C_INT) , VALUE :: name_size 469 469 END SUBROUTINE cxios_set_domain_name 470 470 471 471 SUBROUTINE cxios_get_domain_name(domain_hdl, name, name_size) BIND(C) 472 472 USE ISO_C_BINDING … … 475 475 INTEGER (kind = C_INT) , VALUE :: name_size 476 476 END SUBROUTINE cxios_get_domain_name 477 478 FUNCTION cxios_is_defined_domain_name(domain_hdl 477 478 FUNCTION cxios_is_defined_domain_name(domain_hdl) BIND(C) 479 479 USE ISO_C_BINDING 480 480 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_name 481 481 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 482 482 END FUNCTION cxios_is_defined_domain_name 483 484 483 484 485 485 SUBROUTINE cxios_set_domain_ni(domain_hdl, ni) BIND(C) 486 486 USE ISO_C_BINDING … … 488 488 INTEGER (KIND=C_INT) , VALUE :: ni 489 489 END SUBROUTINE cxios_set_domain_ni 490 490 491 491 SUBROUTINE cxios_get_domain_ni(domain_hdl, ni) BIND(C) 492 492 USE ISO_C_BINDING … … 494 494 INTEGER (KIND=C_INT) :: ni 495 495 END SUBROUTINE cxios_get_domain_ni 496 497 FUNCTION cxios_is_defined_domain_ni(domain_hdl 496 497 FUNCTION cxios_is_defined_domain_ni(domain_hdl) BIND(C) 498 498 USE ISO_C_BINDING 499 499 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni 500 500 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 501 501 END FUNCTION cxios_is_defined_domain_ni 502 503 502 503 504 504 SUBROUTINE cxios_set_domain_ni_glo(domain_hdl, ni_glo) BIND(C) 505 505 USE ISO_C_BINDING … … 507 507 INTEGER (KIND=C_INT) , VALUE :: ni_glo 508 508 END SUBROUTINE cxios_set_domain_ni_glo 509 509 510 510 SUBROUTINE cxios_get_domain_ni_glo(domain_hdl, ni_glo) BIND(C) 511 511 USE ISO_C_BINDING … … 513 513 INTEGER (KIND=C_INT) :: ni_glo 514 514 END SUBROUTINE cxios_get_domain_ni_glo 515 516 FUNCTION cxios_is_defined_domain_ni_glo(domain_hdl 515 516 FUNCTION cxios_is_defined_domain_ni_glo(domain_hdl) BIND(C) 517 517 USE ISO_C_BINDING 518 518 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni_glo 519 519 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 520 520 END FUNCTION cxios_is_defined_domain_ni_glo 521 522 521 522 523 523 SUBROUTINE cxios_set_domain_nj(domain_hdl, nj) BIND(C) 524 524 USE ISO_C_BINDING … … 526 526 INTEGER (KIND=C_INT) , VALUE :: nj 527 527 END SUBROUTINE cxios_set_domain_nj 528 528 529 529 SUBROUTINE cxios_get_domain_nj(domain_hdl, nj) BIND(C) 530 530 USE ISO_C_BINDING … … 532 532 INTEGER (KIND=C_INT) :: nj 533 533 END SUBROUTINE cxios_get_domain_nj 534 535 FUNCTION cxios_is_defined_domain_nj(domain_hdl 534 535 FUNCTION cxios_is_defined_domain_nj(domain_hdl) BIND(C) 536 536 USE ISO_C_BINDING 537 537 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj 538 538 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 539 539 END FUNCTION cxios_is_defined_domain_nj 540 541 540 541 542 542 SUBROUTINE cxios_set_domain_nj_glo(domain_hdl, nj_glo) BIND(C) 543 543 USE ISO_C_BINDING … … 545 545 INTEGER (KIND=C_INT) , VALUE :: nj_glo 546 546 END SUBROUTINE cxios_set_domain_nj_glo 547 547 548 548 SUBROUTINE cxios_get_domain_nj_glo(domain_hdl, nj_glo) BIND(C) 549 549 USE ISO_C_BINDING … … 551 551 INTEGER (KIND=C_INT) :: nj_glo 552 552 END SUBROUTINE cxios_get_domain_nj_glo 553 554 FUNCTION cxios_is_defined_domain_nj_glo(domain_hdl 553 554 FUNCTION cxios_is_defined_domain_nj_glo(domain_hdl) BIND(C) 555 555 USE ISO_C_BINDING 556 556 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj_glo 557 557 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 558 558 END FUNCTION cxios_is_defined_domain_nj_glo 559 560 559 560 561 561 SUBROUTINE cxios_set_domain_nvertex(domain_hdl, nvertex) BIND(C) 562 562 USE ISO_C_BINDING … … 564 564 INTEGER (KIND=C_INT) , VALUE :: nvertex 565 565 END SUBROUTINE cxios_set_domain_nvertex 566 566 567 567 SUBROUTINE cxios_get_domain_nvertex(domain_hdl, nvertex) BIND(C) 568 568 USE ISO_C_BINDING … … 570 570 INTEGER (KIND=C_INT) :: nvertex 571 571 END SUBROUTINE cxios_get_domain_nvertex 572 573 FUNCTION cxios_is_defined_domain_nvertex(domain_hdl 572 573 FUNCTION cxios_is_defined_domain_nvertex(domain_hdl) BIND(C) 574 574 USE ISO_C_BINDING 575 575 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nvertex 576 576 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 577 577 END FUNCTION cxios_is_defined_domain_nvertex 578 579 578 579 580 580 SUBROUTINE cxios_set_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C) 581 581 USE ISO_C_BINDING … … 584 584 INTEGER (kind = C_INT) , VALUE :: standard_name_size 585 585 END SUBROUTINE cxios_set_domain_standard_name 586 586 587 587 SUBROUTINE cxios_get_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C) 588 588 USE ISO_C_BINDING … … 591 591 INTEGER (kind = C_INT) , VALUE :: standard_name_size 592 592 END SUBROUTINE cxios_get_domain_standard_name 593 594 FUNCTION cxios_is_defined_domain_standard_name(domain_hdl 593 594 FUNCTION cxios_is_defined_domain_standard_name(domain_hdl) BIND(C) 595 595 USE ISO_C_BINDING 596 596 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_standard_name 597 597 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 598 598 END FUNCTION cxios_is_defined_domain_standard_name 599 600 599 600 601 601 SUBROUTINE cxios_set_domain_type(domain_hdl, type, type_size) BIND(C) 602 602 USE ISO_C_BINDING … … 605 605 INTEGER (kind = C_INT) , VALUE :: type_size 606 606 END SUBROUTINE cxios_set_domain_type 607 607 608 608 SUBROUTINE cxios_get_domain_type(domain_hdl, type, type_size) BIND(C) 609 609 USE ISO_C_BINDING … … 612 612 INTEGER (kind = C_INT) , VALUE :: type_size 613 613 END SUBROUTINE cxios_get_domain_type 614 615 FUNCTION cxios_is_defined_domain_type(domain_hdl 614 615 FUNCTION cxios_is_defined_domain_type(domain_hdl) BIND(C) 616 616 USE ISO_C_BINDING 617 617 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_type 618 618 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 619 619 END FUNCTION cxios_is_defined_domain_type 620 621 620 621 622 622 SUBROUTINE cxios_set_domain_zoom_ibegin(domain_hdl, zoom_ibegin) BIND(C) 623 623 USE ISO_C_BINDING … … 625 625 INTEGER (KIND=C_INT) , VALUE :: zoom_ibegin 626 626 END SUBROUTINE cxios_set_domain_zoom_ibegin 627 627 628 628 SUBROUTINE cxios_get_domain_zoom_ibegin(domain_hdl, zoom_ibegin) BIND(C) 629 629 USE ISO_C_BINDING … … 631 631 INTEGER (KIND=C_INT) :: zoom_ibegin 632 632 END SUBROUTINE cxios_get_domain_zoom_ibegin 633 634 FUNCTION cxios_is_defined_domain_zoom_ibegin(domain_hdl 633 634 FUNCTION cxios_is_defined_domain_zoom_ibegin(domain_hdl) BIND(C) 635 635 USE ISO_C_BINDING 636 636 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ibegin 637 637 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 638 638 END FUNCTION cxios_is_defined_domain_zoom_ibegin 639 640 639 640 641 641 SUBROUTINE cxios_set_domain_zoom_ibegin_loc(domain_hdl, zoom_ibegin_loc) BIND(C) 642 642 USE ISO_C_BINDING … … 644 644 INTEGER (KIND=C_INT) , VALUE :: zoom_ibegin_loc 645 645 END SUBROUTINE cxios_set_domain_zoom_ibegin_loc 646 646 647 647 SUBROUTINE cxios_get_domain_zoom_ibegin_loc(domain_hdl, zoom_ibegin_loc) BIND(C) 648 648 USE ISO_C_BINDING … … 650 650 INTEGER (KIND=C_INT) :: zoom_ibegin_loc 651 651 END SUBROUTINE cxios_get_domain_zoom_ibegin_loc 652 653 FUNCTION cxios_is_defined_domain_zoom_ibegin_loc(domain_hdl 652 653 FUNCTION cxios_is_defined_domain_zoom_ibegin_loc(domain_hdl) BIND(C) 654 654 USE ISO_C_BINDING 655 655 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ibegin_loc 656 656 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 657 657 END FUNCTION cxios_is_defined_domain_zoom_ibegin_loc 658 659 658 659 660 660 SUBROUTINE cxios_set_domain_zoom_jbegin(domain_hdl, zoom_jbegin) BIND(C) 661 661 USE ISO_C_BINDING … … 663 663 INTEGER (KIND=C_INT) , VALUE :: zoom_jbegin 664 664 END SUBROUTINE cxios_set_domain_zoom_jbegin 665 665 666 666 SUBROUTINE cxios_get_domain_zoom_jbegin(domain_hdl, zoom_jbegin) BIND(C) 667 667 USE ISO_C_BINDING … … 669 669 INTEGER (KIND=C_INT) :: zoom_jbegin 670 670 END SUBROUTINE cxios_get_domain_zoom_jbegin 671 672 FUNCTION cxios_is_defined_domain_zoom_jbegin(domain_hdl 671 672 FUNCTION cxios_is_defined_domain_zoom_jbegin(domain_hdl) BIND(C) 673 673 USE ISO_C_BINDING 674 674 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_jbegin 675 675 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 676 676 END FUNCTION cxios_is_defined_domain_zoom_jbegin 677 678 677 678 679 679 SUBROUTINE cxios_set_domain_zoom_jbegin_loc(domain_hdl, zoom_jbegin_loc) BIND(C) 680 680 USE ISO_C_BINDING … … 682 682 INTEGER (KIND=C_INT) , VALUE :: zoom_jbegin_loc 683 683 END SUBROUTINE cxios_set_domain_zoom_jbegin_loc 684 684 685 685 SUBROUTINE cxios_get_domain_zoom_jbegin_loc(domain_hdl, zoom_jbegin_loc) BIND(C) 686 686 USE ISO_C_BINDING … … 688 688 INTEGER (KIND=C_INT) :: zoom_jbegin_loc 689 689 END SUBROUTINE cxios_get_domain_zoom_jbegin_loc 690 691 FUNCTION cxios_is_defined_domain_zoom_jbegin_loc(domain_hdl 690 691 FUNCTION cxios_is_defined_domain_zoom_jbegin_loc(domain_hdl) BIND(C) 692 692 USE ISO_C_BINDING 693 693 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_jbegin_loc 694 694 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 695 695 END FUNCTION cxios_is_defined_domain_zoom_jbegin_loc 696 697 696 697 698 698 SUBROUTINE cxios_set_domain_zoom_ni(domain_hdl, zoom_ni) BIND(C) 699 699 USE ISO_C_BINDING … … 701 701 INTEGER (KIND=C_INT) , VALUE :: zoom_ni 702 702 END SUBROUTINE cxios_set_domain_zoom_ni 703 703 704 704 SUBROUTINE cxios_get_domain_zoom_ni(domain_hdl, zoom_ni) BIND(C) 705 705 USE ISO_C_BINDING … … 707 707 INTEGER (KIND=C_INT) :: zoom_ni 708 708 END SUBROUTINE cxios_get_domain_zoom_ni 709 710 FUNCTION cxios_is_defined_domain_zoom_ni(domain_hdl 709 710 FUNCTION cxios_is_defined_domain_zoom_ni(domain_hdl) BIND(C) 711 711 USE ISO_C_BINDING 712 712 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ni 713 713 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 714 714 END FUNCTION cxios_is_defined_domain_zoom_ni 715 716 715 716 717 717 SUBROUTINE cxios_set_domain_zoom_ni_loc(domain_hdl, zoom_ni_loc) BIND(C) 718 718 USE ISO_C_BINDING … … 720 720 INTEGER (KIND=C_INT) , VALUE :: zoom_ni_loc 721 721 END SUBROUTINE cxios_set_domain_zoom_ni_loc 722 722 723 723 SUBROUTINE cxios_get_domain_zoom_ni_loc(domain_hdl, zoom_ni_loc) BIND(C) 724 724 USE ISO_C_BINDING … … 726 726 INTEGER (KIND=C_INT) :: zoom_ni_loc 727 727 END SUBROUTINE cxios_get_domain_zoom_ni_loc 728 729 FUNCTION cxios_is_defined_domain_zoom_ni_loc(domain_hdl 728 729 FUNCTION cxios_is_defined_domain_zoom_ni_loc(domain_hdl) BIND(C) 730 730 USE ISO_C_BINDING 731 731 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ni_loc 732 732 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 733 733 END FUNCTION cxios_is_defined_domain_zoom_ni_loc 734 735 734 735 736 736 SUBROUTINE cxios_set_domain_zoom_nj(domain_hdl, zoom_nj) BIND(C) 737 737 USE ISO_C_BINDING … … 739 739 INTEGER (KIND=C_INT) , VALUE :: zoom_nj 740 740 END SUBROUTINE cxios_set_domain_zoom_nj 741 741 742 742 SUBROUTINE cxios_get_domain_zoom_nj(domain_hdl, zoom_nj) BIND(C) 743 743 USE ISO_C_BINDING … … 745 745 INTEGER (KIND=C_INT) :: zoom_nj 746 746 END SUBROUTINE cxios_get_domain_zoom_nj 747 748 FUNCTION cxios_is_defined_domain_zoom_nj(domain_hdl 747 748 FUNCTION cxios_is_defined_domain_zoom_nj(domain_hdl) BIND(C) 749 749 USE ISO_C_BINDING 750 750 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_nj 751 751 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 752 752 END FUNCTION cxios_is_defined_domain_zoom_nj 753 754 753 754 755 755 SUBROUTINE cxios_set_domain_zoom_nj_loc(domain_hdl, zoom_nj_loc) BIND(C) 756 756 USE ISO_C_BINDING … … 758 758 INTEGER (KIND=C_INT) , VALUE :: zoom_nj_loc 759 759 END SUBROUTINE cxios_set_domain_zoom_nj_loc 760 760 761 761 SUBROUTINE cxios_get_domain_zoom_nj_loc(domain_hdl, zoom_nj_loc) BIND(C) 762 762 USE ISO_C_BINDING … … 764 764 INTEGER (KIND=C_INT) :: zoom_nj_loc 765 765 END SUBROUTINE cxios_get_domain_zoom_nj_loc 766 767 FUNCTION cxios_is_defined_domain_zoom_nj_loc(domain_hdl 766 767 FUNCTION cxios_is_defined_domain_zoom_nj_loc(domain_hdl) BIND(C) 768 768 USE ISO_C_BINDING 769 769 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_nj_loc 770 770 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 771 771 END FUNCTION cxios_is_defined_domain_zoom_nj_loc 772 773 774 END INTERFACE 775 772 773 END INTERFACE 774 776 775 END MODULE domain_interface_attr
Note: See TracChangeset
for help on using the changeset viewer.