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

Last change on this file since 555 was 555, checked in by mhnguyen, 9 years ago

Updating some Fortran interface files

+) Update some Fortran interface files generated by generate_fortran_interface.exe

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