source: XIOS/dev/dev_olga/src/ppsrc/interface/fortran_attr/icompute_connectivity_domain_attr.f90 @ 1022

Last change on this file since 1022 was 1022, checked in by mhnguyen, 7 years ago
File size: 9.6 KB
Line 
1! * ************************************************************************** *
2! * Interface auto generated - do not modify *
3! * ************************************************************************** *
4
5
6MODULE icompute_connectivity_domain_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE icompute_connectivity_domain
9  USE compute_connectivity_domain_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios_set_compute_connectivity_domain_attr &
14    ( compute_connectivity_domain_id, local_neighbor, n_neighbor, n_neighbor_max, type )
15
16    IMPLICIT NONE
17      TYPE(xios_compute_connectivity_domain) :: compute_connectivity_domain_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::compute_connectivity_domain_id
19      INTEGER , OPTIONAL, INTENT(IN) :: local_neighbor(:,:)
20      INTEGER , OPTIONAL, INTENT(IN) :: n_neighbor(:)
21      INTEGER , OPTIONAL, INTENT(IN) :: n_neighbor_max
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
23
24      CALL xios_get_compute_connectivity_domain_handle &
25      (compute_connectivity_domain_id,compute_connectivity_domain_hdl)
26      CALL xios_set_compute_connectivity_domain_attr_hdl_ &
27      ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type )
28
29  END SUBROUTINE xios_set_compute_connectivity_domain_attr
30
31  SUBROUTINE xios_set_compute_connectivity_domain_attr_hdl &
32    ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type )
33
34    IMPLICIT NONE
35      TYPE(xios_compute_connectivity_domain) , INTENT(IN) :: compute_connectivity_domain_hdl
36      INTEGER , OPTIONAL, INTENT(IN) :: local_neighbor(:,:)
37      INTEGER , OPTIONAL, INTENT(IN) :: n_neighbor(:)
38      INTEGER , OPTIONAL, INTENT(IN) :: n_neighbor_max
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
40
41      CALL xios_set_compute_connectivity_domain_attr_hdl_ &
42      ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type )
43
44  END SUBROUTINE xios_set_compute_connectivity_domain_attr_hdl
45
46  SUBROUTINE xios_set_compute_connectivity_domain_attr_hdl_ &
47    ( compute_connectivity_domain_hdl, local_neighbor_, n_neighbor_, n_neighbor_max_, type_ )
48
49    IMPLICIT NONE
50      TYPE(xios_compute_connectivity_domain) , INTENT(IN) :: compute_connectivity_domain_hdl
51      INTEGER , OPTIONAL, INTENT(IN) :: local_neighbor_(:,:)
52      INTEGER , OPTIONAL, INTENT(IN) :: n_neighbor_(:)
53      INTEGER , OPTIONAL, INTENT(IN) :: n_neighbor_max_
54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
55
56      IF (PRESENT(local_neighbor_)) THEN
57        CALL cxios_set_compute_connectivity_domain_local_neighbor &
58      (compute_connectivity_domain_hdl%daddr, local_neighbor_, SHAPE(local_neighbor_))
59      ENDIF
60
61      IF (PRESENT(n_neighbor_)) THEN
62        CALL cxios_set_compute_connectivity_domain_n_neighbor &
63      (compute_connectivity_domain_hdl%daddr, n_neighbor_, SHAPE(n_neighbor_))
64      ENDIF
65
66      IF (PRESENT(n_neighbor_max_)) THEN
67        CALL cxios_set_compute_connectivity_domain_n_neighbor_max &
68      (compute_connectivity_domain_hdl%daddr, n_neighbor_max_)
69      ENDIF
70
71      IF (PRESENT(type_)) THEN
72        CALL cxios_set_compute_connectivity_domain_type &
73      (compute_connectivity_domain_hdl%daddr, type_, len(type_))
74      ENDIF
75
76  END SUBROUTINE xios_set_compute_connectivity_domain_attr_hdl_
77
78  SUBROUTINE xios_get_compute_connectivity_domain_attr &
79    ( compute_connectivity_domain_id, local_neighbor, n_neighbor, n_neighbor_max, type )
80
81    IMPLICIT NONE
82      TYPE(xios_compute_connectivity_domain) :: compute_connectivity_domain_hdl
83      CHARACTER(LEN=*), INTENT(IN) ::compute_connectivity_domain_id
84      INTEGER , OPTIONAL, INTENT(OUT) :: local_neighbor(:,:)
85      INTEGER , OPTIONAL, INTENT(OUT) :: n_neighbor(:)
86      INTEGER , OPTIONAL, INTENT(OUT) :: n_neighbor_max
87      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
88
89      CALL xios_get_compute_connectivity_domain_handle &
90      (compute_connectivity_domain_id,compute_connectivity_domain_hdl)
91      CALL xios_get_compute_connectivity_domain_attr_hdl_ &
92      ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type )
93
94  END SUBROUTINE xios_get_compute_connectivity_domain_attr
95
96  SUBROUTINE xios_get_compute_connectivity_domain_attr_hdl &
97    ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type )
98
99    IMPLICIT NONE
100      TYPE(xios_compute_connectivity_domain) , INTENT(IN) :: compute_connectivity_domain_hdl
101      INTEGER , OPTIONAL, INTENT(OUT) :: local_neighbor(:,:)
102      INTEGER , OPTIONAL, INTENT(OUT) :: n_neighbor(:)
103      INTEGER , OPTIONAL, INTENT(OUT) :: n_neighbor_max
104      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
105
106      CALL xios_get_compute_connectivity_domain_attr_hdl_ &
107      ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type )
108
109  END SUBROUTINE xios_get_compute_connectivity_domain_attr_hdl
110
111  SUBROUTINE xios_get_compute_connectivity_domain_attr_hdl_ &
112    ( compute_connectivity_domain_hdl, local_neighbor_, n_neighbor_, n_neighbor_max_, type_ )
113
114    IMPLICIT NONE
115      TYPE(xios_compute_connectivity_domain) , INTENT(IN) :: compute_connectivity_domain_hdl
116      INTEGER , OPTIONAL, INTENT(OUT) :: local_neighbor_(:,:)
117      INTEGER , OPTIONAL, INTENT(OUT) :: n_neighbor_(:)
118      INTEGER , OPTIONAL, INTENT(OUT) :: n_neighbor_max_
119      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
120
121      IF (PRESENT(local_neighbor_)) THEN
122        CALL cxios_get_compute_connectivity_domain_local_neighbor &
123      (compute_connectivity_domain_hdl%daddr, local_neighbor_, SHAPE(local_neighbor_))
124      ENDIF
125
126      IF (PRESENT(n_neighbor_)) THEN
127        CALL cxios_get_compute_connectivity_domain_n_neighbor &
128      (compute_connectivity_domain_hdl%daddr, n_neighbor_, SHAPE(n_neighbor_))
129      ENDIF
130
131      IF (PRESENT(n_neighbor_max_)) THEN
132        CALL cxios_get_compute_connectivity_domain_n_neighbor_max &
133      (compute_connectivity_domain_hdl%daddr, n_neighbor_max_)
134      ENDIF
135
136      IF (PRESENT(type_)) THEN
137        CALL cxios_get_compute_connectivity_domain_type &
138      (compute_connectivity_domain_hdl%daddr, type_, len(type_))
139      ENDIF
140
141  END SUBROUTINE xios_get_compute_connectivity_domain_attr_hdl_
142
143  SUBROUTINE xios_is_defined_compute_connectivity_domain_attr &
144    ( compute_connectivity_domain_id, local_neighbor, n_neighbor, n_neighbor_max, type )
145
146    IMPLICIT NONE
147      TYPE(xios_compute_connectivity_domain) :: compute_connectivity_domain_hdl
148      CHARACTER(LEN=*), INTENT(IN) ::compute_connectivity_domain_id
149      LOGICAL, OPTIONAL, INTENT(OUT) :: local_neighbor
150      LOGICAL(KIND=C_BOOL) :: local_neighbor_tmp
151      LOGICAL, OPTIONAL, INTENT(OUT) :: n_neighbor
152      LOGICAL(KIND=C_BOOL) :: n_neighbor_tmp
153      LOGICAL, OPTIONAL, INTENT(OUT) :: n_neighbor_max
154      LOGICAL(KIND=C_BOOL) :: n_neighbor_max_tmp
155      LOGICAL, OPTIONAL, INTENT(OUT) :: type
156      LOGICAL(KIND=C_BOOL) :: type_tmp
157
158      CALL xios_get_compute_connectivity_domain_handle &
159      (compute_connectivity_domain_id,compute_connectivity_domain_hdl)
160      CALL xios_is_defined_compute_connectivity_domain_attr_hdl_ &
161      ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type )
162
163  END SUBROUTINE xios_is_defined_compute_connectivity_domain_attr
164
165  SUBROUTINE xios_is_defined_compute_connectivity_domain_attr_hdl &
166    ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type )
167
168    IMPLICIT NONE
169      TYPE(xios_compute_connectivity_domain) , INTENT(IN) :: compute_connectivity_domain_hdl
170      LOGICAL, OPTIONAL, INTENT(OUT) :: local_neighbor
171      LOGICAL(KIND=C_BOOL) :: local_neighbor_tmp
172      LOGICAL, OPTIONAL, INTENT(OUT) :: n_neighbor
173      LOGICAL(KIND=C_BOOL) :: n_neighbor_tmp
174      LOGICAL, OPTIONAL, INTENT(OUT) :: n_neighbor_max
175      LOGICAL(KIND=C_BOOL) :: n_neighbor_max_tmp
176      LOGICAL, OPTIONAL, INTENT(OUT) :: type
177      LOGICAL(KIND=C_BOOL) :: type_tmp
178
179      CALL xios_is_defined_compute_connectivity_domain_attr_hdl_ &
180      ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type )
181
182  END SUBROUTINE xios_is_defined_compute_connectivity_domain_attr_hdl
183
184  SUBROUTINE xios_is_defined_compute_connectivity_domain_attr_hdl_ &
185    ( compute_connectivity_domain_hdl, local_neighbor_, n_neighbor_, n_neighbor_max_, type_ )
186
187    IMPLICIT NONE
188      TYPE(xios_compute_connectivity_domain) , INTENT(IN) :: compute_connectivity_domain_hdl
189      LOGICAL, OPTIONAL, INTENT(OUT) :: local_neighbor_
190      LOGICAL(KIND=C_BOOL) :: local_neighbor__tmp
191      LOGICAL, OPTIONAL, INTENT(OUT) :: n_neighbor_
192      LOGICAL(KIND=C_BOOL) :: n_neighbor__tmp
193      LOGICAL, OPTIONAL, INTENT(OUT) :: n_neighbor_max_
194      LOGICAL(KIND=C_BOOL) :: n_neighbor_max__tmp
195      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
196      LOGICAL(KIND=C_BOOL) :: type__tmp
197
198      IF (PRESENT(local_neighbor_)) THEN
199        local_neighbor__tmp = cxios_is_defined_compute_connectivity_domain_local_neighbor &
200      (compute_connectivity_domain_hdl%daddr)
201        local_neighbor_ = local_neighbor__tmp
202      ENDIF
203
204      IF (PRESENT(n_neighbor_)) THEN
205        n_neighbor__tmp = cxios_is_defined_compute_connectivity_domain_n_neighbor &
206      (compute_connectivity_domain_hdl%daddr)
207        n_neighbor_ = n_neighbor__tmp
208      ENDIF
209
210      IF (PRESENT(n_neighbor_max_)) THEN
211        n_neighbor_max__tmp = cxios_is_defined_compute_connectivity_domain_n_neighbor_max &
212      (compute_connectivity_domain_hdl%daddr)
213        n_neighbor_max_ = n_neighbor_max__tmp
214      ENDIF
215
216      IF (PRESENT(type_)) THEN
217        type__tmp = cxios_is_defined_compute_connectivity_domain_type &
218      (compute_connectivity_domain_hdl%daddr)
219        type_ = type__tmp
220      ENDIF
221
222  END SUBROUTINE xios_is_defined_compute_connectivity_domain_attr_hdl_
223
224END MODULE icompute_connectivity_domain_attr
Note: See TracBrowser for help on using the repository browser.