source: XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/icompute_connectivity_domain_attr.F90 @ 1205

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

Reducing length of line of auto-generate Fortran interface

+) Break line into smaller ones to make sure each line is not longer than 132 character

Test
+) Local with gcc4.8
+) Compilation passed
File size: 9.7 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
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(txios(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(txios(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(txios(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(txios(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(txios(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(txios(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(txios(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(txios(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(txios(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.