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

Last change on this file since 546 was 546, checked in by rlacroix, 10 years ago

Update the Fortran interface after r540.
  • 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: 9.7 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, axisDomOrder, description, group_ref, mask, name )
15   
16    IMPLICIT NONE
17      TYPE(txios(gridgroup))  :: gridgroup_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
19      INTEGER  , OPTIONAL, INTENT(IN) :: axisDomOrder(:)
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
22      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:,:,:)
23      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:,:)
24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
25     
26      CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl)
27      CALL xios(set_gridgroup_attr_hdl_)   &
28      ( gridgroup_hdl, axisDomOrder, description, group_ref, mask, name )
29   
30  END SUBROUTINE xios(set_gridgroup_attr)
31 
32  SUBROUTINE xios(set_gridgroup_attr_hdl)  &
33    ( gridgroup_hdl, axisDomOrder, description, group_ref, mask, name )
34   
35    IMPLICIT NONE
36      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
37      INTEGER  , OPTIONAL, INTENT(IN) :: axisDomOrder(:)
38      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
40      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:,:,:)
41      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:,:)
42      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
43     
44      CALL xios(set_gridgroup_attr_hdl_)  &
45      ( gridgroup_hdl, axisDomOrder, description, group_ref, mask, name )
46   
47  END SUBROUTINE xios(set_gridgroup_attr_hdl)
48 
49  SUBROUTINE xios(set_gridgroup_attr_hdl_)   &
50    ( gridgroup_hdl, axisDomOrder_, description_, group_ref_, mask_, name_ )
51   
52    IMPLICIT NONE
53      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
54      INTEGER  , OPTIONAL, INTENT(IN) :: axisDomOrder_(:)
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
56      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
57      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_(:,:,:)
58      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:,:)
59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
60     
61      IF (PRESENT(axisDomOrder_)) THEN
62        CALL cxios_set_gridgroup_axisDomOrder(gridgroup_hdl%daddr, axisDomOrder_,size(axisDomOrder_,1))
63      ENDIF
64     
65      IF (PRESENT(description_)) THEN
66        CALL cxios_set_gridgroup_description(gridgroup_hdl%daddr, description_, len(description_))
67      ENDIF
68     
69      IF (PRESENT(group_ref_)) THEN
70        CALL cxios_set_gridgroup_group_ref(gridgroup_hdl%daddr, group_ref_, len(group_ref_))
71      ENDIF
72     
73      IF (PRESENT(mask_)) THEN
74        ALLOCATE(mask__tmp(size(mask_,1),size(mask_,2),size(mask_,3)))
75        mask__tmp=mask_
76        CALL cxios_set_gridgroup_mask(gridgroup_hdl%daddr, mask__tmp,size(mask_,1),size(mask_,2),size(mask_,3))
77      ENDIF
78     
79      IF (PRESENT(name_)) THEN
80        CALL cxios_set_gridgroup_name(gridgroup_hdl%daddr, name_, len(name_))
81      ENDIF
82     
83     
84   
85  END SUBROUTINE xios(set_gridgroup_attr_hdl_)
86 
87  SUBROUTINE xios(get_gridgroup_attr)  &
88    ( gridgroup_id, axisDomOrder, description, group_ref, mask, name )
89   
90    IMPLICIT NONE
91      TYPE(txios(gridgroup))  :: gridgroup_hdl
92      CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
93      INTEGER  , OPTIONAL, INTENT(OUT) :: axisDomOrder(:)
94      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
95      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
96      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:,:,:)
97      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:,:)
98      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
99     
100      CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl)
101      CALL xios(get_gridgroup_attr_hdl_)   &
102      ( gridgroup_hdl, axisDomOrder, description, group_ref, mask, name )
103   
104  END SUBROUTINE xios(get_gridgroup_attr)
105 
106  SUBROUTINE xios(get_gridgroup_attr_hdl)  &
107    ( gridgroup_hdl, axisDomOrder, description, group_ref, mask, name )
108   
109    IMPLICIT NONE
110      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
111      INTEGER  , OPTIONAL, INTENT(OUT) :: axisDomOrder(:)
112      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
113      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
114      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:,:,:)
115      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:,:)
116      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
117     
118      CALL xios(get_gridgroup_attr_hdl_)  &
119      ( gridgroup_hdl, axisDomOrder, description, group_ref, mask, name )
120   
121  END SUBROUTINE xios(get_gridgroup_attr_hdl)
122 
123  SUBROUTINE xios(get_gridgroup_attr_hdl_)   &
124    ( gridgroup_hdl, axisDomOrder_, description_, group_ref_, mask_, name_ )
125   
126    IMPLICIT NONE
127      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
128      INTEGER  , OPTIONAL, INTENT(OUT) :: axisDomOrder_(:)
129      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
130      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
131      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:,:,:)
132      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:,:)
133      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
134     
135      IF (PRESENT(axisDomOrder_)) THEN
136        CALL cxios_get_gridgroup_axisDomOrder(gridgroup_hdl%daddr, axisDomOrder_,size(axisDomOrder_,1))
137      ENDIF
138     
139      IF (PRESENT(description_)) THEN
140        CALL cxios_get_gridgroup_description(gridgroup_hdl%daddr, description_, len(description_))
141      ENDIF
142     
143      IF (PRESENT(group_ref_)) THEN
144        CALL cxios_get_gridgroup_group_ref(gridgroup_hdl%daddr, group_ref_, len(group_ref_))
145      ENDIF
146     
147      IF (PRESENT(mask_)) THEN
148        ALLOCATE(mask__tmp(size(mask_,1),size(mask_,2),size(mask_,3)))
149        CALL cxios_get_gridgroup_mask(gridgroup_hdl%daddr, mask__tmp,size(mask_,1),size(mask_,2),size(mask_,3))
150        mask_=mask__tmp
151      ENDIF
152     
153      IF (PRESENT(name_)) THEN
154        CALL cxios_get_gridgroup_name(gridgroup_hdl%daddr, name_, len(name_))
155      ENDIF
156     
157     
158   
159  END SUBROUTINE xios(get_gridgroup_attr_hdl_)
160 
161  SUBROUTINE xios(is_defined_gridgroup_attr)  &
162    ( gridgroup_id, axisDomOrder, description, group_ref, mask, name )
163   
164    IMPLICIT NONE
165      TYPE(txios(gridgroup))  :: gridgroup_hdl
166      CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
167      LOGICAL, OPTIONAL, INTENT(OUT) :: axisDomOrder
168      LOGICAL(KIND=C_BOOL) :: axisDomOrder_tmp
169      LOGICAL, OPTIONAL, INTENT(OUT) :: description
170      LOGICAL(KIND=C_BOOL) :: description_tmp
171      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
172      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
173      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
174      LOGICAL(KIND=C_BOOL) :: mask_tmp
175      LOGICAL, OPTIONAL, INTENT(OUT) :: name
176      LOGICAL(KIND=C_BOOL) :: name_tmp
177     
178      CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl)
179      CALL xios(is_defined_gridgroup_attr_hdl_)   &
180      ( gridgroup_hdl, axisDomOrder, description, group_ref, mask, name )
181   
182  END SUBROUTINE xios(is_defined_gridgroup_attr)
183 
184  SUBROUTINE xios(is_defined_gridgroup_attr_hdl)  &
185    ( gridgroup_hdl, axisDomOrder, description, group_ref, mask, name )
186   
187    IMPLICIT NONE
188      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
189      LOGICAL, OPTIONAL, INTENT(OUT) :: axisDomOrder
190      LOGICAL(KIND=C_BOOL) :: axisDomOrder_tmp
191      LOGICAL, OPTIONAL, INTENT(OUT) :: description
192      LOGICAL(KIND=C_BOOL) :: description_tmp
193      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
194      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
195      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
196      LOGICAL(KIND=C_BOOL) :: mask_tmp
197      LOGICAL, OPTIONAL, INTENT(OUT) :: name
198      LOGICAL(KIND=C_BOOL) :: name_tmp
199     
200      CALL xios(is_defined_gridgroup_attr_hdl_)  &
201      ( gridgroup_hdl, axisDomOrder, description, group_ref, mask, name )
202   
203  END SUBROUTINE xios(is_defined_gridgroup_attr_hdl)
204 
205  SUBROUTINE xios(is_defined_gridgroup_attr_hdl_)   &
206    ( gridgroup_hdl, axisDomOrder_, description_, group_ref_, mask_, name_ )
207   
208    IMPLICIT NONE
209      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
210      LOGICAL, OPTIONAL, INTENT(OUT) :: axisDomOrder_
211      LOGICAL(KIND=C_BOOL) :: axisDomOrder__tmp
212      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
213      LOGICAL(KIND=C_BOOL) :: description__tmp
214      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
215      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
216      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
217      LOGICAL(KIND=C_BOOL) :: mask__tmp
218      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
219      LOGICAL(KIND=C_BOOL) :: name__tmp
220     
221      IF (PRESENT(axisDomOrder_)) THEN
222        axisDomOrder__tmp=cxios_is_defined_gridgroup_axisDomOrder(gridgroup_hdl%daddr)
223        axisDomOrder_=axisDomOrder__tmp
224      ENDIF
225     
226      IF (PRESENT(description_)) THEN
227        description__tmp=cxios_is_defined_gridgroup_description(gridgroup_hdl%daddr)
228        description_=description__tmp
229      ENDIF
230     
231      IF (PRESENT(group_ref_)) THEN
232        group_ref__tmp=cxios_is_defined_gridgroup_group_ref(gridgroup_hdl%daddr)
233        group_ref_=group_ref__tmp
234      ENDIF
235     
236      IF (PRESENT(mask_)) THEN
237        mask__tmp=cxios_is_defined_gridgroup_mask(gridgroup_hdl%daddr)
238        mask_=mask__tmp
239      ENDIF
240     
241      IF (PRESENT(name_)) THEN
242        name__tmp=cxios_is_defined_gridgroup_name(gridgroup_hdl%daddr)
243        name_=name__tmp
244      ENDIF
245     
246     
247   
248  END SUBROUTINE xios(is_defined_gridgroup_attr_hdl_)
249 
250END MODULE igridgroup_attr
Note: See TracBrowser for help on using the repository browser.