source: XIOS/trunk/src/interface/fortran_attr/compute_connectivity_domain_interface_attr.F90 @ 934

Last change on this file since 934 was 934, checked in by mhnguyen, 8 years ago

Adding new transformation: Compute_connectivity_domain

Test
+) On Curie
+) Test passes
File size: 5.1 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "../fortran/xios_fortran_prefix.hpp"
5
6MODULE compute_connectivity_domain_interface_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8
9  INTERFACE
10    ! Do not call directly / interface FORTRAN 2003 <-> C99
11
12    SUBROUTINE cxios_set_compute_connectivity_domain_local_neighbor(compute_connectivity_domain_hdl, local_neighbor, extent) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE       :: compute_connectivity_domain_hdl
15      INTEGER (KIND=C_INT)     , DIMENSION(*) :: local_neighbor
16      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
17    END SUBROUTINE cxios_set_compute_connectivity_domain_local_neighbor
18
19    SUBROUTINE cxios_get_compute_connectivity_domain_local_neighbor(compute_connectivity_domain_hdl, local_neighbor, extent) BIND(C)
20      USE ISO_C_BINDING
21      INTEGER (kind = C_INTPTR_T), VALUE       :: compute_connectivity_domain_hdl
22      INTEGER (KIND=C_INT)     , DIMENSION(*) :: local_neighbor
23      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
24    END SUBROUTINE cxios_get_compute_connectivity_domain_local_neighbor
25
26    FUNCTION cxios_is_defined_compute_connectivity_domain_local_neighbor(compute_connectivity_domain_hdl) BIND(C)
27      USE ISO_C_BINDING
28      LOGICAL(kind=C_BOOL) :: cxios_is_defined_compute_connectivity_domain_local_neighbor
29      INTEGER (kind = C_INTPTR_T), VALUE :: compute_connectivity_domain_hdl
30    END FUNCTION cxios_is_defined_compute_connectivity_domain_local_neighbor
31
32
33    SUBROUTINE cxios_set_compute_connectivity_domain_n_neighbor(compute_connectivity_domain_hdl, n_neighbor, extent) BIND(C)
34      USE ISO_C_BINDING
35      INTEGER (kind = C_INTPTR_T), VALUE       :: compute_connectivity_domain_hdl
36      INTEGER (KIND=C_INT)     , DIMENSION(*) :: n_neighbor
37      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
38    END SUBROUTINE cxios_set_compute_connectivity_domain_n_neighbor
39
40    SUBROUTINE cxios_get_compute_connectivity_domain_n_neighbor(compute_connectivity_domain_hdl, n_neighbor, extent) BIND(C)
41      USE ISO_C_BINDING
42      INTEGER (kind = C_INTPTR_T), VALUE       :: compute_connectivity_domain_hdl
43      INTEGER (KIND=C_INT)     , DIMENSION(*) :: n_neighbor
44      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
45    END SUBROUTINE cxios_get_compute_connectivity_domain_n_neighbor
46
47    FUNCTION cxios_is_defined_compute_connectivity_domain_n_neighbor(compute_connectivity_domain_hdl) BIND(C)
48      USE ISO_C_BINDING
49      LOGICAL(kind=C_BOOL) :: cxios_is_defined_compute_connectivity_domain_n_neighbor
50      INTEGER (kind = C_INTPTR_T), VALUE :: compute_connectivity_domain_hdl
51    END FUNCTION cxios_is_defined_compute_connectivity_domain_n_neighbor
52
53
54    SUBROUTINE cxios_set_compute_connectivity_domain_n_neighbor_max(compute_connectivity_domain_hdl, n_neighbor_max) BIND(C)
55      USE ISO_C_BINDING
56      INTEGER (kind = C_INTPTR_T), VALUE :: compute_connectivity_domain_hdl
57      INTEGER (KIND=C_INT)      , VALUE :: n_neighbor_max
58    END SUBROUTINE cxios_set_compute_connectivity_domain_n_neighbor_max
59
60    SUBROUTINE cxios_get_compute_connectivity_domain_n_neighbor_max(compute_connectivity_domain_hdl, n_neighbor_max) BIND(C)
61      USE ISO_C_BINDING
62      INTEGER (kind = C_INTPTR_T), VALUE :: compute_connectivity_domain_hdl
63      INTEGER (KIND=C_INT)             :: n_neighbor_max
64    END SUBROUTINE cxios_get_compute_connectivity_domain_n_neighbor_max
65
66    FUNCTION cxios_is_defined_compute_connectivity_domain_n_neighbor_max(compute_connectivity_domain_hdl) BIND(C)
67      USE ISO_C_BINDING
68      LOGICAL(kind=C_BOOL) :: cxios_is_defined_compute_connectivity_domain_n_neighbor_max
69      INTEGER (kind = C_INTPTR_T), VALUE :: compute_connectivity_domain_hdl
70    END FUNCTION cxios_is_defined_compute_connectivity_domain_n_neighbor_max
71
72
73    SUBROUTINE cxios_set_compute_connectivity_domain_type(compute_connectivity_domain_hdl, type, type_size) BIND(C)
74      USE ISO_C_BINDING
75      INTEGER (kind = C_INTPTR_T), VALUE :: compute_connectivity_domain_hdl
76      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
77      INTEGER  (kind = C_INT)     , VALUE        :: type_size
78    END SUBROUTINE cxios_set_compute_connectivity_domain_type
79
80    SUBROUTINE cxios_get_compute_connectivity_domain_type(compute_connectivity_domain_hdl, type, type_size) BIND(C)
81      USE ISO_C_BINDING
82      INTEGER (kind = C_INTPTR_T), VALUE :: compute_connectivity_domain_hdl
83      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
84      INTEGER  (kind = C_INT)     , VALUE        :: type_size
85    END SUBROUTINE cxios_get_compute_connectivity_domain_type
86
87    FUNCTION cxios_is_defined_compute_connectivity_domain_type(compute_connectivity_domain_hdl) BIND(C)
88      USE ISO_C_BINDING
89      LOGICAL(kind=C_BOOL) :: cxios_is_defined_compute_connectivity_domain_type
90      INTEGER (kind = C_INTPTR_T), VALUE :: compute_connectivity_domain_hdl
91    END FUNCTION cxios_is_defined_compute_connectivity_domain_type
92
93  END INTERFACE
94
95END MODULE compute_connectivity_domain_interface_attr
Note: See TracBrowser for help on using the repository browser.