source: XIOS/dev/dev_olga/src/interface/fortran_attr/iinterpolate_domain_attr.F90 @ 1158

Last change on this file since 1158 was 1158, checked in by oabramkina, 7 years ago

Two server levels: merging with trunk r1137.
There are bugs.
File size: 10.7 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE iinterpolate_domain_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iinterpolate_domain
9  USE interpolate_domain_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_interpolate_domain_attr)  &
14    ( interpolate_domain_id, mode, order, renormalize, weight_filename, write_weight )
15
16    IMPLICIT NONE
17      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
20      INTEGER  , OPTIONAL, INTENT(IN) :: order
21      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize
22      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename
24      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight
25      LOGICAL (KIND=C_BOOL) :: write_weight_tmp
26
27      CALL xios(get_interpolate_domain_handle) &
28      (interpolate_domain_id,interpolate_domain_hdl)
29      CALL xios(set_interpolate_domain_attr_hdl_)   &
30      ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )
31
32  END SUBROUTINE xios(set_interpolate_domain_attr)
33
34  SUBROUTINE xios(set_interpolate_domain_attr_hdl)  &
35    ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )
36
37    IMPLICIT NONE
38      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
40      INTEGER  , OPTIONAL, INTENT(IN) :: order
41      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize
42      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
43      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename
44      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight
45      LOGICAL (KIND=C_BOOL) :: write_weight_tmp
46
47      CALL xios(set_interpolate_domain_attr_hdl_)  &
48      ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )
49
50  END SUBROUTINE xios(set_interpolate_domain_attr_hdl)
51
52  SUBROUTINE xios(set_interpolate_domain_attr_hdl_)   &
53    ( interpolate_domain_hdl, mode_, order_, renormalize_, weight_filename_, write_weight_ )
54
55    IMPLICIT NONE
56      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
58      INTEGER  , OPTIONAL, INTENT(IN) :: order_
59      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize_
60      LOGICAL (KIND=C_BOOL) :: renormalize__tmp
61      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename_
62      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight_
63      LOGICAL (KIND=C_BOOL) :: write_weight__tmp
64
65      IF (PRESENT(mode_)) THEN
66        CALL cxios_set_interpolate_domain_mode &
67      (interpolate_domain_hdl%daddr, mode_, len(mode_))
68      ENDIF
69
70      IF (PRESENT(order_)) THEN
71        CALL cxios_set_interpolate_domain_order &
72      (interpolate_domain_hdl%daddr, order_)
73      ENDIF
74
75      IF (PRESENT(renormalize_)) THEN
76        renormalize__tmp = renormalize_
77        CALL cxios_set_interpolate_domain_renormalize &
78      (interpolate_domain_hdl%daddr, renormalize__tmp)
79      ENDIF
80
81      IF (PRESENT(weight_filename_)) THEN
82        CALL cxios_set_interpolate_domain_weight_filename &
83      (interpolate_domain_hdl%daddr, weight_filename_, len(weight_filename_))
84      ENDIF
85
86      IF (PRESENT(write_weight_)) THEN
87        write_weight__tmp = write_weight_
88        CALL cxios_set_interpolate_domain_write_weight &
89      (interpolate_domain_hdl%daddr, write_weight__tmp)
90      ENDIF
91
92  END SUBROUTINE xios(set_interpolate_domain_attr_hdl_)
93
94  SUBROUTINE xios(get_interpolate_domain_attr)  &
95    ( interpolate_domain_id, mode, order, renormalize, weight_filename, write_weight )
96
97    IMPLICIT NONE
98      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
99      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
100      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
101      INTEGER  , OPTIONAL, INTENT(OUT) :: order
102      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize
103      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
104      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename
105      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight
106      LOGICAL (KIND=C_BOOL) :: write_weight_tmp
107
108      CALL xios(get_interpolate_domain_handle) &
109      (interpolate_domain_id,interpolate_domain_hdl)
110      CALL xios(get_interpolate_domain_attr_hdl_)   &
111      ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )
112
113  END SUBROUTINE xios(get_interpolate_domain_attr)
114
115  SUBROUTINE xios(get_interpolate_domain_attr_hdl)  &
116    ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )
117
118    IMPLICIT NONE
119      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
120      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
121      INTEGER  , OPTIONAL, INTENT(OUT) :: order
122      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize
123      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
124      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename
125      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight
126      LOGICAL (KIND=C_BOOL) :: write_weight_tmp
127
128      CALL xios(get_interpolate_domain_attr_hdl_)  &
129      ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )
130
131  END SUBROUTINE xios(get_interpolate_domain_attr_hdl)
132
133  SUBROUTINE xios(get_interpolate_domain_attr_hdl_)   &
134    ( interpolate_domain_hdl, mode_, order_, renormalize_, weight_filename_, write_weight_ )
135
136    IMPLICIT NONE
137      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
138      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
139      INTEGER  , OPTIONAL, INTENT(OUT) :: order_
140      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize_
141      LOGICAL (KIND=C_BOOL) :: renormalize__tmp
142      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename_
143      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight_
144      LOGICAL (KIND=C_BOOL) :: write_weight__tmp
145
146      IF (PRESENT(mode_)) THEN
147        CALL cxios_get_interpolate_domain_mode &
148      (interpolate_domain_hdl%daddr, mode_, len(mode_))
149      ENDIF
150
151      IF (PRESENT(order_)) THEN
152        CALL cxios_get_interpolate_domain_order &
153      (interpolate_domain_hdl%daddr, order_)
154      ENDIF
155
156      IF (PRESENT(renormalize_)) THEN
157        CALL cxios_get_interpolate_domain_renormalize &
158      (interpolate_domain_hdl%daddr, renormalize__tmp)
159        renormalize_ = renormalize__tmp
160      ENDIF
161
162      IF (PRESENT(weight_filename_)) THEN
163        CALL cxios_get_interpolate_domain_weight_filename &
164      (interpolate_domain_hdl%daddr, weight_filename_, len(weight_filename_))
165      ENDIF
166
167      IF (PRESENT(write_weight_)) THEN
168        CALL cxios_get_interpolate_domain_write_weight &
169      (interpolate_domain_hdl%daddr, write_weight__tmp)
170        write_weight_ = write_weight__tmp
171      ENDIF
172
173  END SUBROUTINE xios(get_interpolate_domain_attr_hdl_)
174
175  SUBROUTINE xios(is_defined_interpolate_domain_attr)  &
176    ( interpolate_domain_id, mode, order, renormalize, weight_filename, write_weight )
177
178    IMPLICIT NONE
179      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
180      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
181      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
182      LOGICAL(KIND=C_BOOL) :: mode_tmp
183      LOGICAL, OPTIONAL, INTENT(OUT) :: order
184      LOGICAL(KIND=C_BOOL) :: order_tmp
185      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
186      LOGICAL(KIND=C_BOOL) :: renormalize_tmp
187      LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename
188      LOGICAL(KIND=C_BOOL) :: weight_filename_tmp
189      LOGICAL, OPTIONAL, INTENT(OUT) :: write_weight
190      LOGICAL(KIND=C_BOOL) :: write_weight_tmp
191
192      CALL xios(get_interpolate_domain_handle) &
193      (interpolate_domain_id,interpolate_domain_hdl)
194      CALL xios(is_defined_interpolate_domain_attr_hdl_)   &
195      ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )
196
197  END SUBROUTINE xios(is_defined_interpolate_domain_attr)
198
199  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)  &
200    ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )
201
202    IMPLICIT NONE
203      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
204      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
205      LOGICAL(KIND=C_BOOL) :: mode_tmp
206      LOGICAL, OPTIONAL, INTENT(OUT) :: order
207      LOGICAL(KIND=C_BOOL) :: order_tmp
208      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
209      LOGICAL(KIND=C_BOOL) :: renormalize_tmp
210      LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename
211      LOGICAL(KIND=C_BOOL) :: weight_filename_tmp
212      LOGICAL, OPTIONAL, INTENT(OUT) :: write_weight
213      LOGICAL(KIND=C_BOOL) :: write_weight_tmp
214
215      CALL xios(is_defined_interpolate_domain_attr_hdl_)  &
216      ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )
217
218  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)
219
220  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)   &
221    ( interpolate_domain_hdl, mode_, order_, renormalize_, weight_filename_, write_weight_ )
222
223    IMPLICIT NONE
224      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
225      LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
226      LOGICAL(KIND=C_BOOL) :: mode__tmp
227      LOGICAL, OPTIONAL, INTENT(OUT) :: order_
228      LOGICAL(KIND=C_BOOL) :: order__tmp
229      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize_
230      LOGICAL(KIND=C_BOOL) :: renormalize__tmp
231      LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename_
232      LOGICAL(KIND=C_BOOL) :: weight_filename__tmp
233      LOGICAL, OPTIONAL, INTENT(OUT) :: write_weight_
234      LOGICAL(KIND=C_BOOL) :: write_weight__tmp
235
236      IF (PRESENT(mode_)) THEN
237        mode__tmp = cxios_is_defined_interpolate_domain_mode &
238      (interpolate_domain_hdl%daddr)
239        mode_ = mode__tmp
240      ENDIF
241
242      IF (PRESENT(order_)) THEN
243        order__tmp = cxios_is_defined_interpolate_domain_order &
244      (interpolate_domain_hdl%daddr)
245        order_ = order__tmp
246      ENDIF
247
248      IF (PRESENT(renormalize_)) THEN
249        renormalize__tmp = cxios_is_defined_interpolate_domain_renormalize &
250      (interpolate_domain_hdl%daddr)
251        renormalize_ = renormalize__tmp
252      ENDIF
253
254      IF (PRESENT(weight_filename_)) THEN
255        weight_filename__tmp = cxios_is_defined_interpolate_domain_weight_filename &
256      (interpolate_domain_hdl%daddr)
257        weight_filename_ = weight_filename__tmp
258      ENDIF
259
260      IF (PRESENT(write_weight_)) THEN
261        write_weight__tmp = cxios_is_defined_interpolate_domain_write_weight &
262      (interpolate_domain_hdl%daddr)
263        write_weight_ = write_weight__tmp
264      ENDIF
265
266  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)
267
268END MODULE iinterpolate_domain_attr
Note: See TracBrowser for help on using the repository browser.