source: XIOS/trunk/src/interface/fortran_attr/igridgroup_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
  • 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: 19.8 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, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
15    , mask_7d, name )
16
17    IMPLICIT NONE
18      TYPE(txios(gridgroup))  :: gridgroup_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
22      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
23      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
24      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
25      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
26      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_3d(:,:,:)
27      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
28      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_4d(:,:,:,:)
29      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
30      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_5d(:,:,:,:,:)
31      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
32      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_6d(:,:,:,:,:,:)
33      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
34      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_7d(:,:,:,:,:,:,:)
35      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
37
38      CALL xios(get_gridgroup_handle) &
39      (gridgroup_id,gridgroup_hdl)
40      CALL xios(set_gridgroup_attr_hdl_)   &
41      ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
42      , mask_7d, name )
43
44  END SUBROUTINE xios(set_gridgroup_attr)
45
46  SUBROUTINE xios(set_gridgroup_attr_hdl)  &
47    ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
48    , mask_7d, name )
49
50    IMPLICIT NONE
51      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
54      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
55      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
56      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
57      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
58      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_3d(:,:,:)
59      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
60      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_4d(:,:,:,:)
61      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
62      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_5d(:,:,:,:,:)
63      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
64      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_6d(:,:,:,:,:,:)
65      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
66      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_7d(:,:,:,:,:,:,:)
67      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
68      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
69
70      CALL xios(set_gridgroup_attr_hdl_)  &
71      ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
72      , mask_7d, name )
73
74  END SUBROUTINE xios(set_gridgroup_attr_hdl)
75
76  SUBROUTINE xios(set_gridgroup_attr_hdl_)   &
77    ( gridgroup_hdl, description_, group_ref_, mask_1d_, mask_2d_, mask_3d_, mask_4d_, mask_5d_  &
78    , mask_6d_, mask_7d_, name_ )
79
80    IMPLICIT NONE
81      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
82      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
83      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
84      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d_(:)
85      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
86      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d_(:,:)
87      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
88      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_3d_(:,:,:)
89      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d__tmp(:,:,:)
90      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_4d_(:,:,:,:)
91      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d__tmp(:,:,:,:)
92      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_5d_(:,:,:,:,:)
93      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d__tmp(:,:,:,:,:)
94      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_6d_(:,:,:,:,:,:)
95      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d__tmp(:,:,:,:,:,:)
96      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_7d_(:,:,:,:,:,:,:)
97      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d__tmp(:,:,:,:,:,:,:)
98      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
99
100      IF (PRESENT(description_)) THEN
101        CALL cxios_set_gridgroup_description &
102      (gridgroup_hdl%daddr, description_, len(description_))
103      ENDIF
104
105      IF (PRESENT(group_ref_)) THEN
106        CALL cxios_set_gridgroup_group_ref &
107      (gridgroup_hdl%daddr, group_ref_, len(group_ref_))
108      ENDIF
109
110      IF (PRESENT(mask_1d_)) THEN
111        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
112        mask_1d__tmp = mask_1d_
113        CALL cxios_set_gridgroup_mask_1d &
114      (gridgroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
115      ENDIF
116
117      IF (PRESENT(mask_2d_)) THEN
118        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
119        mask_2d__tmp = mask_2d_
120        CALL cxios_set_gridgroup_mask_2d &
121      (gridgroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
122      ENDIF
123
124      IF (PRESENT(mask_3d_)) THEN
125        ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3)))
126        mask_3d__tmp = mask_3d_
127        CALL cxios_set_gridgroup_mask_3d &
128      (gridgroup_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_))
129      ENDIF
130
131      IF (PRESENT(mask_4d_)) THEN
132        ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), &
133       SIZE(mask_4d_,4)))
134        mask_4d__tmp = mask_4d_
135        CALL cxios_set_gridgroup_mask_4d &
136      (gridgroup_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_))
137      ENDIF
138
139      IF (PRESENT(mask_5d_)) THEN
140        ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), &
141       SIZE(mask_5d_,4), SIZE(mask_5d_,5)))
142        mask_5d__tmp = mask_5d_
143        CALL cxios_set_gridgroup_mask_5d &
144      (gridgroup_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_))
145      ENDIF
146
147      IF (PRESENT(mask_6d_)) THEN
148        ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), &
149       SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6)))
150        mask_6d__tmp = mask_6d_
151        CALL cxios_set_gridgroup_mask_6d &
152      (gridgroup_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_))
153      ENDIF
154
155      IF (PRESENT(mask_7d_)) THEN
156        ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), &
157       SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), &
158       SIZE(mask_7d_,7)))
159        mask_7d__tmp = mask_7d_
160        CALL cxios_set_gridgroup_mask_7d &
161      (gridgroup_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_))
162      ENDIF
163
164      IF (PRESENT(name_)) THEN
165        CALL cxios_set_gridgroup_name &
166      (gridgroup_hdl%daddr, name_, len(name_))
167      ENDIF
168
169  END SUBROUTINE xios(set_gridgroup_attr_hdl_)
170
171  SUBROUTINE xios(get_gridgroup_attr)  &
172    ( gridgroup_id, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
173    , mask_7d, name )
174
175    IMPLICIT NONE
176      TYPE(txios(gridgroup))  :: gridgroup_hdl
177      CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
178      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
179      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
180      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
181      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
182      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
183      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
184      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_3d(:,:,:)
185      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
186      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_4d(:,:,:,:)
187      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
188      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_5d(:,:,:,:,:)
189      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
190      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_6d(:,:,:,:,:,:)
191      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
192      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_7d(:,:,:,:,:,:,:)
193      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
194      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
195
196      CALL xios(get_gridgroup_handle) &
197      (gridgroup_id,gridgroup_hdl)
198      CALL xios(get_gridgroup_attr_hdl_)   &
199      ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
200      , mask_7d, name )
201
202  END SUBROUTINE xios(get_gridgroup_attr)
203
204  SUBROUTINE xios(get_gridgroup_attr_hdl)  &
205    ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
206    , mask_7d, name )
207
208    IMPLICIT NONE
209      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
210      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
211      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
212      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
213      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
214      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
215      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
216      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_3d(:,:,:)
217      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
218      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_4d(:,:,:,:)
219      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
220      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_5d(:,:,:,:,:)
221      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
222      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_6d(:,:,:,:,:,:)
223      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
224      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_7d(:,:,:,:,:,:,:)
225      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
226      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
227
228      CALL xios(get_gridgroup_attr_hdl_)  &
229      ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
230      , mask_7d, name )
231
232  END SUBROUTINE xios(get_gridgroup_attr_hdl)
233
234  SUBROUTINE xios(get_gridgroup_attr_hdl_)   &
235    ( gridgroup_hdl, description_, group_ref_, mask_1d_, mask_2d_, mask_3d_, mask_4d_, mask_5d_  &
236    , mask_6d_, mask_7d_, name_ )
237
238    IMPLICIT NONE
239      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
240      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
241      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
242      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d_(:)
243      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
244      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:)
245      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
246      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_3d_(:,:,:)
247      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d__tmp(:,:,:)
248      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_4d_(:,:,:,:)
249      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d__tmp(:,:,:,:)
250      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_5d_(:,:,:,:,:)
251      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d__tmp(:,:,:,:,:)
252      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_6d_(:,:,:,:,:,:)
253      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d__tmp(:,:,:,:,:,:)
254      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_7d_(:,:,:,:,:,:,:)
255      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d__tmp(:,:,:,:,:,:,:)
256      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
257
258      IF (PRESENT(description_)) THEN
259        CALL cxios_get_gridgroup_description &
260      (gridgroup_hdl%daddr, description_, len(description_))
261      ENDIF
262
263      IF (PRESENT(group_ref_)) THEN
264        CALL cxios_get_gridgroup_group_ref &
265      (gridgroup_hdl%daddr, group_ref_, len(group_ref_))
266      ENDIF
267
268      IF (PRESENT(mask_1d_)) THEN
269        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
270        CALL cxios_get_gridgroup_mask_1d &
271      (gridgroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
272        mask_1d_ = mask_1d__tmp
273      ENDIF
274
275      IF (PRESENT(mask_2d_)) THEN
276        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
277        CALL cxios_get_gridgroup_mask_2d &
278      (gridgroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
279        mask_2d_ = mask_2d__tmp
280      ENDIF
281
282      IF (PRESENT(mask_3d_)) THEN
283        ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3)))
284        CALL cxios_get_gridgroup_mask_3d &
285      (gridgroup_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_))
286        mask_3d_ = mask_3d__tmp
287      ENDIF
288
289      IF (PRESENT(mask_4d_)) THEN
290        ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), &
291       SIZE(mask_4d_,4)))
292        CALL cxios_get_gridgroup_mask_4d &
293      (gridgroup_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_))
294        mask_4d_ = mask_4d__tmp
295      ENDIF
296
297      IF (PRESENT(mask_5d_)) THEN
298        ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), &
299       SIZE(mask_5d_,4), SIZE(mask_5d_,5)))
300        CALL cxios_get_gridgroup_mask_5d &
301      (gridgroup_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_))
302        mask_5d_ = mask_5d__tmp
303      ENDIF
304
305      IF (PRESENT(mask_6d_)) THEN
306        ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), &
307       SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6)))
308        CALL cxios_get_gridgroup_mask_6d &
309      (gridgroup_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_))
310        mask_6d_ = mask_6d__tmp
311      ENDIF
312
313      IF (PRESENT(mask_7d_)) THEN
314        ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), &
315       SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), &
316       SIZE(mask_7d_,7)))
317        CALL cxios_get_gridgroup_mask_7d &
318      (gridgroup_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_))
319        mask_7d_ = mask_7d__tmp
320      ENDIF
321
322      IF (PRESENT(name_)) THEN
323        CALL cxios_get_gridgroup_name &
324      (gridgroup_hdl%daddr, name_, len(name_))
325      ENDIF
326
327  END SUBROUTINE xios(get_gridgroup_attr_hdl_)
328
329  SUBROUTINE xios(is_defined_gridgroup_attr)  &
330    ( gridgroup_id, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
331    , mask_7d, name )
332
333    IMPLICIT NONE
334      TYPE(txios(gridgroup))  :: gridgroup_hdl
335      CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
336      LOGICAL, OPTIONAL, INTENT(OUT) :: description
337      LOGICAL(KIND=C_BOOL) :: description_tmp
338      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
339      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
340      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
341      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
342      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
343      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
344      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_3d
345      LOGICAL(KIND=C_BOOL) :: mask_3d_tmp
346      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_4d
347      LOGICAL(KIND=C_BOOL) :: mask_4d_tmp
348      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_5d
349      LOGICAL(KIND=C_BOOL) :: mask_5d_tmp
350      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_6d
351      LOGICAL(KIND=C_BOOL) :: mask_6d_tmp
352      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_7d
353      LOGICAL(KIND=C_BOOL) :: mask_7d_tmp
354      LOGICAL, OPTIONAL, INTENT(OUT) :: name
355      LOGICAL(KIND=C_BOOL) :: name_tmp
356
357      CALL xios(get_gridgroup_handle) &
358      (gridgroup_id,gridgroup_hdl)
359      CALL xios(is_defined_gridgroup_attr_hdl_)   &
360      ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
361      , mask_7d, name )
362
363  END SUBROUTINE xios(is_defined_gridgroup_attr)
364
365  SUBROUTINE xios(is_defined_gridgroup_attr_hdl)  &
366    ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
367    , mask_7d, name )
368
369    IMPLICIT NONE
370      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
371      LOGICAL, OPTIONAL, INTENT(OUT) :: description
372      LOGICAL(KIND=C_BOOL) :: description_tmp
373      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
374      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
375      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
376      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
377      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
378      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
379      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_3d
380      LOGICAL(KIND=C_BOOL) :: mask_3d_tmp
381      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_4d
382      LOGICAL(KIND=C_BOOL) :: mask_4d_tmp
383      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_5d
384      LOGICAL(KIND=C_BOOL) :: mask_5d_tmp
385      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_6d
386      LOGICAL(KIND=C_BOOL) :: mask_6d_tmp
387      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_7d
388      LOGICAL(KIND=C_BOOL) :: mask_7d_tmp
389      LOGICAL, OPTIONAL, INTENT(OUT) :: name
390      LOGICAL(KIND=C_BOOL) :: name_tmp
391
392      CALL xios(is_defined_gridgroup_attr_hdl_)  &
393      ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
394      , mask_7d, name )
395
396  END SUBROUTINE xios(is_defined_gridgroup_attr_hdl)
397
398  SUBROUTINE xios(is_defined_gridgroup_attr_hdl_)   &
399    ( gridgroup_hdl, description_, group_ref_, mask_1d_, mask_2d_, mask_3d_, mask_4d_, mask_5d_  &
400    , mask_6d_, mask_7d_, name_ )
401
402    IMPLICIT NONE
403      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
404      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
405      LOGICAL(KIND=C_BOOL) :: description__tmp
406      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
407      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
408      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_
409      LOGICAL(KIND=C_BOOL) :: mask_1d__tmp
410      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d_
411      LOGICAL(KIND=C_BOOL) :: mask_2d__tmp
412      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_3d_
413      LOGICAL(KIND=C_BOOL) :: mask_3d__tmp
414      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_4d_
415      LOGICAL(KIND=C_BOOL) :: mask_4d__tmp
416      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_5d_
417      LOGICAL(KIND=C_BOOL) :: mask_5d__tmp
418      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_6d_
419      LOGICAL(KIND=C_BOOL) :: mask_6d__tmp
420      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_7d_
421      LOGICAL(KIND=C_BOOL) :: mask_7d__tmp
422      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
423      LOGICAL(KIND=C_BOOL) :: name__tmp
424
425      IF (PRESENT(description_)) THEN
426        description__tmp = cxios_is_defined_gridgroup_description &
427      (gridgroup_hdl%daddr)
428        description_ = description__tmp
429      ENDIF
430
431      IF (PRESENT(group_ref_)) THEN
432        group_ref__tmp = cxios_is_defined_gridgroup_group_ref &
433      (gridgroup_hdl%daddr)
434        group_ref_ = group_ref__tmp
435      ENDIF
436
437      IF (PRESENT(mask_1d_)) THEN
438        mask_1d__tmp = cxios_is_defined_gridgroup_mask_1d &
439      (gridgroup_hdl%daddr)
440        mask_1d_ = mask_1d__tmp
441      ENDIF
442
443      IF (PRESENT(mask_2d_)) THEN
444        mask_2d__tmp = cxios_is_defined_gridgroup_mask_2d &
445      (gridgroup_hdl%daddr)
446        mask_2d_ = mask_2d__tmp
447      ENDIF
448
449      IF (PRESENT(mask_3d_)) THEN
450        mask_3d__tmp = cxios_is_defined_gridgroup_mask_3d &
451      (gridgroup_hdl%daddr)
452        mask_3d_ = mask_3d__tmp
453      ENDIF
454
455      IF (PRESENT(mask_4d_)) THEN
456        mask_4d__tmp = cxios_is_defined_gridgroup_mask_4d &
457      (gridgroup_hdl%daddr)
458        mask_4d_ = mask_4d__tmp
459      ENDIF
460
461      IF (PRESENT(mask_5d_)) THEN
462        mask_5d__tmp = cxios_is_defined_gridgroup_mask_5d &
463      (gridgroup_hdl%daddr)
464        mask_5d_ = mask_5d__tmp
465      ENDIF
466
467      IF (PRESENT(mask_6d_)) THEN
468        mask_6d__tmp = cxios_is_defined_gridgroup_mask_6d &
469      (gridgroup_hdl%daddr)
470        mask_6d_ = mask_6d__tmp
471      ENDIF
472
473      IF (PRESENT(mask_7d_)) THEN
474        mask_7d__tmp = cxios_is_defined_gridgroup_mask_7d &
475      (gridgroup_hdl%daddr)
476        mask_7d_ = mask_7d__tmp
477      ENDIF
478
479      IF (PRESENT(name_)) THEN
480        name__tmp = cxios_is_defined_gridgroup_name &
481      (gridgroup_hdl%daddr)
482        name_ = name__tmp
483      ENDIF
484
485  END SUBROUTINE xios(is_defined_gridgroup_attr_hdl_)
486
487END MODULE igridgroup_attr
Note: See TracBrowser for help on using the repository browser.