source: XIOS/trunk/src/interface/fortran_attr/igridgroup_attr.F90 @ 674

Last change on this file since 674 was 674, checked in by rlacroix, 6 years ago

Fix Fortran interface generation to avoid generating long lines.

Long lines can cause compilation issues with some compilers.

  • Property copyright set to
    Software name : XIOS (Xml I/O Server)
    http://forge.ipsl.jussieu.fr/ioserver
    Creation date : January 2009
    Licence : CeCCIL version2
    see license file in root directory : Licence_CeCILL_V2-en.txt
    or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
    Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
    CNRS/IPSL (Institut Pierre Simon Laplace)
    Project Manager : Yann Meurdesoif
    yann.meurdesoif@cea.fr
File size: 13.5 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE igridgroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE igrid
9  USE gridgroup_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_gridgroup_attr)  &
14    ( gridgroup_id, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
15
16    IMPLICIT NONE
17      TYPE(txios(gridgroup))  :: gridgroup_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
19      LOGICAL  , OPTIONAL, INTENT(IN) :: axis_domain_order(:)
20      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: axis_domain_order_tmp(:)
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
23      LOGICAL  , OPTIONAL, INTENT(IN) :: mask1(:)
24      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask1_tmp(:)
25      LOGICAL  , OPTIONAL, INTENT(IN) :: mask2(:,:)
26      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask2_tmp(:,:)
27      LOGICAL  , OPTIONAL, INTENT(IN) :: mask3(:,:,:)
28      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3_tmp(:,:,:)
29      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
30
31      CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl)
32      CALL xios(set_gridgroup_attr_hdl_)   &
33      ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
34
35  END SUBROUTINE xios(set_gridgroup_attr)
36
37  SUBROUTINE xios(set_gridgroup_attr_hdl)  &
38    ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
39
40    IMPLICIT NONE
41      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
42      LOGICAL  , OPTIONAL, INTENT(IN) :: axis_domain_order(:)
43      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: axis_domain_order_tmp(:)
44      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
45      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
46      LOGICAL  , OPTIONAL, INTENT(IN) :: mask1(:)
47      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask1_tmp(:)
48      LOGICAL  , OPTIONAL, INTENT(IN) :: mask2(:,:)
49      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask2_tmp(:,:)
50      LOGICAL  , OPTIONAL, INTENT(IN) :: mask3(:,:,:)
51      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3_tmp(:,:,:)
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
53
54      CALL xios(set_gridgroup_attr_hdl_)  &
55      ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
56
57  END SUBROUTINE xios(set_gridgroup_attr_hdl)
58
59  SUBROUTINE xios(set_gridgroup_attr_hdl_)   &
60    ( gridgroup_hdl, axis_domain_order_, description_, group_ref_, mask1_, mask2_, mask3_, name_  &
61     )
62
63    IMPLICIT NONE
64      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
65      LOGICAL  , OPTIONAL, INTENT(IN) :: axis_domain_order_(:)
66      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: axis_domain_order__tmp(:)
67      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
68      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
69      LOGICAL  , OPTIONAL, INTENT(IN) :: mask1_(:)
70      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask1__tmp(:)
71      LOGICAL  , OPTIONAL, INTENT(IN) :: mask2_(:,:)
72      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask2__tmp(:,:)
73      LOGICAL  , OPTIONAL, INTENT(IN) :: mask3_(:,:,:)
74      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3__tmp(:,:,:)
75      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
76
77      IF (PRESENT(axis_domain_order_)) THEN
78        ALLOCATE(axis_domain_order__tmp(SIZE(axis_domain_order_,1)))
79        axis_domain_order__tmp = axis_domain_order_
80        CALL cxios_set_gridgroup_axis_domain_order(gridgroup_hdl%daddr, axis_domain_order__tmp, SHAPE(axis_domain_order_))
81      ENDIF
82
83      IF (PRESENT(description_)) THEN
84        CALL cxios_set_gridgroup_description(gridgroup_hdl%daddr, description_, len(description_))
85      ENDIF
86
87      IF (PRESENT(group_ref_)) THEN
88        CALL cxios_set_gridgroup_group_ref(gridgroup_hdl%daddr, group_ref_, len(group_ref_))
89      ENDIF
90
91      IF (PRESENT(mask1_)) THEN
92        ALLOCATE(mask1__tmp(SIZE(mask1_,1)))
93        mask1__tmp = mask1_
94        CALL cxios_set_gridgroup_mask1(gridgroup_hdl%daddr, mask1__tmp, SHAPE(mask1_))
95      ENDIF
96
97      IF (PRESENT(mask2_)) THEN
98        ALLOCATE(mask2__tmp(SIZE(mask2_,1), SIZE(mask2_,2)))
99        mask2__tmp = mask2_
100        CALL cxios_set_gridgroup_mask2(gridgroup_hdl%daddr, mask2__tmp, SHAPE(mask2_))
101      ENDIF
102
103      IF (PRESENT(mask3_)) THEN
104        ALLOCATE(mask3__tmp(SIZE(mask3_,1), SIZE(mask3_,2), SIZE(mask3_,3)))
105        mask3__tmp = mask3_
106        CALL cxios_set_gridgroup_mask3(gridgroup_hdl%daddr, mask3__tmp, SHAPE(mask3_))
107      ENDIF
108
109      IF (PRESENT(name_)) THEN
110        CALL cxios_set_gridgroup_name(gridgroup_hdl%daddr, name_, len(name_))
111      ENDIF
112
113  END SUBROUTINE xios(set_gridgroup_attr_hdl_)
114
115  SUBROUTINE xios(get_gridgroup_attr)  &
116    ( gridgroup_id, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
117
118    IMPLICIT NONE
119      TYPE(txios(gridgroup))  :: gridgroup_hdl
120      CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
121      LOGICAL  , OPTIONAL, INTENT(OUT) :: axis_domain_order(:)
122      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: axis_domain_order_tmp(:)
123      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
124      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
125      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask1(:)
126      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask1_tmp(:)
127      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask2(:,:)
128      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask2_tmp(:,:)
129      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask3(:,:,:)
130      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3_tmp(:,:,:)
131      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
132
133      CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl)
134      CALL xios(get_gridgroup_attr_hdl_)   &
135      ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
136
137  END SUBROUTINE xios(get_gridgroup_attr)
138
139  SUBROUTINE xios(get_gridgroup_attr_hdl)  &
140    ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
141
142    IMPLICIT NONE
143      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
144      LOGICAL  , OPTIONAL, INTENT(OUT) :: axis_domain_order(:)
145      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: axis_domain_order_tmp(:)
146      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
147      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
148      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask1(:)
149      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask1_tmp(:)
150      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask2(:,:)
151      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask2_tmp(:,:)
152      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask3(:,:,:)
153      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3_tmp(:,:,:)
154      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
155
156      CALL xios(get_gridgroup_attr_hdl_)  &
157      ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
158
159  END SUBROUTINE xios(get_gridgroup_attr_hdl)
160
161  SUBROUTINE xios(get_gridgroup_attr_hdl_)   &
162    ( gridgroup_hdl, axis_domain_order_, description_, group_ref_, mask1_, mask2_, mask3_, name_  &
163     )
164
165    IMPLICIT NONE
166      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
167      LOGICAL  , OPTIONAL, INTENT(OUT) :: axis_domain_order_(:)
168      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: axis_domain_order__tmp(:)
169      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
170      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
171      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask1_(:)
172      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask1__tmp(:)
173      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask2_(:,:)
174      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask2__tmp(:,:)
175      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask3_(:,:,:)
176      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3__tmp(:,:,:)
177      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
178
179      IF (PRESENT(axis_domain_order_)) THEN
180        ALLOCATE(axis_domain_order__tmp(SIZE(axis_domain_order_,1)))
181        CALL cxios_get_gridgroup_axis_domain_order(gridgroup_hdl%daddr, axis_domain_order__tmp, SHAPE(axis_domain_order_))
182        axis_domain_order_ = axis_domain_order__tmp
183      ENDIF
184
185      IF (PRESENT(description_)) THEN
186        CALL cxios_get_gridgroup_description(gridgroup_hdl%daddr, description_, len(description_))
187      ENDIF
188
189      IF (PRESENT(group_ref_)) THEN
190        CALL cxios_get_gridgroup_group_ref(gridgroup_hdl%daddr, group_ref_, len(group_ref_))
191      ENDIF
192
193      IF (PRESENT(mask1_)) THEN
194        ALLOCATE(mask1__tmp(SIZE(mask1_,1)))
195        CALL cxios_get_gridgroup_mask1(gridgroup_hdl%daddr, mask1__tmp, SHAPE(mask1_))
196        mask1_ = mask1__tmp
197      ENDIF
198
199      IF (PRESENT(mask2_)) THEN
200        ALLOCATE(mask2__tmp(SIZE(mask2_,1), SIZE(mask2_,2)))
201        CALL cxios_get_gridgroup_mask2(gridgroup_hdl%daddr, mask2__tmp, SHAPE(mask2_))
202        mask2_ = mask2__tmp
203      ENDIF
204
205      IF (PRESENT(mask3_)) THEN
206        ALLOCATE(mask3__tmp(SIZE(mask3_,1), SIZE(mask3_,2), SIZE(mask3_,3)))
207        CALL cxios_get_gridgroup_mask3(gridgroup_hdl%daddr, mask3__tmp, SHAPE(mask3_))
208        mask3_ = mask3__tmp
209      ENDIF
210
211      IF (PRESENT(name_)) THEN
212        CALL cxios_get_gridgroup_name(gridgroup_hdl%daddr, name_, len(name_))
213      ENDIF
214
215  END SUBROUTINE xios(get_gridgroup_attr_hdl_)
216
217  SUBROUTINE xios(is_defined_gridgroup_attr)  &
218    ( gridgroup_id, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
219
220    IMPLICIT NONE
221      TYPE(txios(gridgroup))  :: gridgroup_hdl
222      CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
223      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_domain_order
224      LOGICAL(KIND=C_BOOL) :: axis_domain_order_tmp
225      LOGICAL, OPTIONAL, INTENT(OUT) :: description
226      LOGICAL(KIND=C_BOOL) :: description_tmp
227      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
228      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
229      LOGICAL, OPTIONAL, INTENT(OUT) :: mask1
230      LOGICAL(KIND=C_BOOL) :: mask1_tmp
231      LOGICAL, OPTIONAL, INTENT(OUT) :: mask2
232      LOGICAL(KIND=C_BOOL) :: mask2_tmp
233      LOGICAL, OPTIONAL, INTENT(OUT) :: mask3
234      LOGICAL(KIND=C_BOOL) :: mask3_tmp
235      LOGICAL, OPTIONAL, INTENT(OUT) :: name
236      LOGICAL(KIND=C_BOOL) :: name_tmp
237
238      CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl)
239      CALL xios(is_defined_gridgroup_attr_hdl_)   &
240      ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
241
242  END SUBROUTINE xios(is_defined_gridgroup_attr)
243
244  SUBROUTINE xios(is_defined_gridgroup_attr_hdl)  &
245    ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
246
247    IMPLICIT NONE
248      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
249      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_domain_order
250      LOGICAL(KIND=C_BOOL) :: axis_domain_order_tmp
251      LOGICAL, OPTIONAL, INTENT(OUT) :: description
252      LOGICAL(KIND=C_BOOL) :: description_tmp
253      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
254      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
255      LOGICAL, OPTIONAL, INTENT(OUT) :: mask1
256      LOGICAL(KIND=C_BOOL) :: mask1_tmp
257      LOGICAL, OPTIONAL, INTENT(OUT) :: mask2
258      LOGICAL(KIND=C_BOOL) :: mask2_tmp
259      LOGICAL, OPTIONAL, INTENT(OUT) :: mask3
260      LOGICAL(KIND=C_BOOL) :: mask3_tmp
261      LOGICAL, OPTIONAL, INTENT(OUT) :: name
262      LOGICAL(KIND=C_BOOL) :: name_tmp
263
264      CALL xios(is_defined_gridgroup_attr_hdl_)  &
265      ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
266
267  END SUBROUTINE xios(is_defined_gridgroup_attr_hdl)
268
269  SUBROUTINE xios(is_defined_gridgroup_attr_hdl_)   &
270    ( gridgroup_hdl, axis_domain_order_, description_, group_ref_, mask1_, mask2_, mask3_, name_  &
271     )
272
273    IMPLICIT NONE
274      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
275      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_domain_order_
276      LOGICAL(KIND=C_BOOL) :: axis_domain_order__tmp
277      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
278      LOGICAL(KIND=C_BOOL) :: description__tmp
279      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
280      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
281      LOGICAL, OPTIONAL, INTENT(OUT) :: mask1_
282      LOGICAL(KIND=C_BOOL) :: mask1__tmp
283      LOGICAL, OPTIONAL, INTENT(OUT) :: mask2_
284      LOGICAL(KIND=C_BOOL) :: mask2__tmp
285      LOGICAL, OPTIONAL, INTENT(OUT) :: mask3_
286      LOGICAL(KIND=C_BOOL) :: mask3__tmp
287      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
288      LOGICAL(KIND=C_BOOL) :: name__tmp
289
290      IF (PRESENT(axis_domain_order_)) THEN
291        axis_domain_order__tmp = cxios_is_defined_gridgroup_axis_domain_order(gridgroup_hdl%daddr)
292        axis_domain_order_ = axis_domain_order__tmp
293      ENDIF
294
295      IF (PRESENT(description_)) THEN
296        description__tmp = cxios_is_defined_gridgroup_description(gridgroup_hdl%daddr)
297        description_ = description__tmp
298      ENDIF
299
300      IF (PRESENT(group_ref_)) THEN
301        group_ref__tmp = cxios_is_defined_gridgroup_group_ref(gridgroup_hdl%daddr)
302        group_ref_ = group_ref__tmp
303      ENDIF
304
305      IF (PRESENT(mask1_)) THEN
306        mask1__tmp = cxios_is_defined_gridgroup_mask1(gridgroup_hdl%daddr)
307        mask1_ = mask1__tmp
308      ENDIF
309
310      IF (PRESENT(mask2_)) THEN
311        mask2__tmp = cxios_is_defined_gridgroup_mask2(gridgroup_hdl%daddr)
312        mask2_ = mask2__tmp
313      ENDIF
314
315      IF (PRESENT(mask3_)) THEN
316        mask3__tmp = cxios_is_defined_gridgroup_mask3(gridgroup_hdl%daddr)
317        mask3_ = mask3__tmp
318      ENDIF
319
320      IF (PRESENT(name_)) THEN
321        name__tmp = cxios_is_defined_gridgroup_name(gridgroup_hdl%daddr)
322        name_ = name__tmp
323      ENDIF
324
325  END SUBROUTINE xios(is_defined_gridgroup_attr_hdl_)
326
327END MODULE igridgroup_attr
Note: See TracBrowser for help on using the repository browser.