source: XIOS3/trunk/src/interface/fortran_attr/iinterpolate_domain_attr.F90

Last change on this file was 2620, checked in by jderouillat, 4 months ago

Modify fortran-C interfaces to manage logical-bool conversion, the optimizations of OneAPI could produce bugs regarding the logical-bool encodings.
File size: 18.3 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  USE LOGICAL_BOOL_CONVERSION
11
12CONTAINS
13
14  SUBROUTINE xios(set_interpolate_domain_attr)  &
15    ( interpolate_domain_id, detect_missing_value, mode, order, quantity, read_write_convention  &
16    , renormalize, use_area, weight_filename, write_weight )
17
18    IMPLICIT NONE
19      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
20      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
21      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
22      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
24      INTEGER  , OPTIONAL, INTENT(IN) :: order
25      LOGICAL  , OPTIONAL, INTENT(IN) :: quantity
26      LOGICAL (KIND=C_BOOL) :: quantity_tmp
27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: read_write_convention
28      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize
29      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
30      LOGICAL  , OPTIONAL, INTENT(IN) :: use_area
31      LOGICAL (KIND=C_BOOL) :: use_area_tmp
32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename
33      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight
34      LOGICAL (KIND=C_BOOL) :: write_weight_tmp
35
36      CALL xios(get_interpolate_domain_handle) &
37      (interpolate_domain_id,interpolate_domain_hdl)
38      CALL xios(set_interpolate_domain_attr_hdl_)   &
39      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
40      , renormalize, use_area, weight_filename, write_weight )
41
42  END SUBROUTINE xios(set_interpolate_domain_attr)
43
44  SUBROUTINE xios(set_interpolate_domain_attr_hdl)  &
45    ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
46    , renormalize, use_area, weight_filename, write_weight )
47
48    IMPLICIT NONE
49      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
50      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
51      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
53      INTEGER  , OPTIONAL, INTENT(IN) :: order
54      LOGICAL  , OPTIONAL, INTENT(IN) :: quantity
55      LOGICAL (KIND=C_BOOL) :: quantity_tmp
56      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: read_write_convention
57      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize
58      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
59      LOGICAL  , OPTIONAL, INTENT(IN) :: use_area
60      LOGICAL (KIND=C_BOOL) :: use_area_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      CALL xios(set_interpolate_domain_attr_hdl_)  &
66      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
67      , renormalize, use_area, weight_filename, write_weight )
68
69  END SUBROUTINE xios(set_interpolate_domain_attr_hdl)
70
71  SUBROUTINE xios(set_interpolate_domain_attr_hdl_)   &
72    ( interpolate_domain_hdl, detect_missing_value_, mode_, order_, quantity_, read_write_convention_  &
73    , renormalize_, use_area_, weight_filename_, write_weight_ )
74
75    IMPLICIT NONE
76      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
77      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value_
78      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
79      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
80      INTEGER  , OPTIONAL, INTENT(IN) :: order_
81      LOGICAL  , OPTIONAL, INTENT(IN) :: quantity_
82      LOGICAL (KIND=C_BOOL) :: quantity__tmp
83      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: read_write_convention_
84      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize_
85      LOGICAL (KIND=C_BOOL) :: renormalize__tmp
86      LOGICAL  , OPTIONAL, INTENT(IN) :: use_area_
87      LOGICAL (KIND=C_BOOL) :: use_area__tmp
88      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename_
89      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight_
90      LOGICAL (KIND=C_BOOL) :: write_weight__tmp
91
92      IF (PRESENT(detect_missing_value_)) THEN
93        detect_missing_value__tmp = detect_missing_value_
94        CALL xios_logical_to_bool_0d(detect_missing_value__tmp)
95        CALL cxios_set_interpolate_domain_detect_missing_value &
96      (interpolate_domain_hdl%daddr, detect_missing_value__tmp)
97      ENDIF
98
99      IF (PRESENT(mode_)) THEN
100        CALL cxios_set_interpolate_domain_mode &
101      (interpolate_domain_hdl%daddr, mode_, len(mode_))
102      ENDIF
103
104      IF (PRESENT(order_)) THEN
105        CALL cxios_set_interpolate_domain_order &
106      (interpolate_domain_hdl%daddr, order_)
107      ENDIF
108
109      IF (PRESENT(quantity_)) THEN
110        quantity__tmp = quantity_
111        CALL xios_logical_to_bool_0d(quantity__tmp)
112        CALL cxios_set_interpolate_domain_quantity &
113      (interpolate_domain_hdl%daddr, quantity__tmp)
114      ENDIF
115
116      IF (PRESENT(read_write_convention_)) THEN
117        CALL cxios_set_interpolate_domain_read_write_convention &
118      (interpolate_domain_hdl%daddr, read_write_convention_, len(read_write_convention_))
119      ENDIF
120
121      IF (PRESENT(renormalize_)) THEN
122        renormalize__tmp = renormalize_
123        CALL xios_logical_to_bool_0d(renormalize__tmp)
124        CALL cxios_set_interpolate_domain_renormalize &
125      (interpolate_domain_hdl%daddr, renormalize__tmp)
126      ENDIF
127
128      IF (PRESENT(use_area_)) THEN
129        use_area__tmp = use_area_
130        CALL xios_logical_to_bool_0d(use_area__tmp)
131        CALL cxios_set_interpolate_domain_use_area &
132      (interpolate_domain_hdl%daddr, use_area__tmp)
133      ENDIF
134
135      IF (PRESENT(weight_filename_)) THEN
136        CALL cxios_set_interpolate_domain_weight_filename &
137      (interpolate_domain_hdl%daddr, weight_filename_, len(weight_filename_))
138      ENDIF
139
140      IF (PRESENT(write_weight_)) THEN
141        write_weight__tmp = write_weight_
142        CALL xios_logical_to_bool_0d(write_weight__tmp)
143        CALL cxios_set_interpolate_domain_write_weight &
144      (interpolate_domain_hdl%daddr, write_weight__tmp)
145      ENDIF
146
147  END SUBROUTINE xios(set_interpolate_domain_attr_hdl_)
148
149  SUBROUTINE xios(get_interpolate_domain_attr)  &
150    ( interpolate_domain_id, detect_missing_value, mode, order, quantity, read_write_convention  &
151    , renormalize, use_area, weight_filename, write_weight )
152
153    IMPLICIT NONE
154      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
155      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
156      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
157      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
158      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
159      INTEGER  , OPTIONAL, INTENT(OUT) :: order
160      LOGICAL  , OPTIONAL, INTENT(OUT) :: quantity
161      LOGICAL (KIND=C_BOOL) :: quantity_tmp
162      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: read_write_convention
163      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize
164      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
165      LOGICAL  , OPTIONAL, INTENT(OUT) :: use_area
166      LOGICAL (KIND=C_BOOL) :: use_area_tmp
167      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename
168      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight
169      LOGICAL (KIND=C_BOOL) :: write_weight_tmp
170
171      CALL xios(get_interpolate_domain_handle) &
172      (interpolate_domain_id,interpolate_domain_hdl)
173      CALL xios(get_interpolate_domain_attr_hdl_)   &
174      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
175      , renormalize, use_area, weight_filename, write_weight )
176
177  END SUBROUTINE xios(get_interpolate_domain_attr)
178
179  SUBROUTINE xios(get_interpolate_domain_attr_hdl)  &
180    ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
181    , renormalize, use_area, weight_filename, write_weight )
182
183    IMPLICIT NONE
184      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
185      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
186      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
187      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
188      INTEGER  , OPTIONAL, INTENT(OUT) :: order
189      LOGICAL  , OPTIONAL, INTENT(OUT) :: quantity
190      LOGICAL (KIND=C_BOOL) :: quantity_tmp
191      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: read_write_convention
192      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize
193      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
194      LOGICAL  , OPTIONAL, INTENT(OUT) :: use_area
195      LOGICAL (KIND=C_BOOL) :: use_area_tmp
196      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename
197      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight
198      LOGICAL (KIND=C_BOOL) :: write_weight_tmp
199
200      CALL xios(get_interpolate_domain_attr_hdl_)  &
201      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
202      , renormalize, use_area, weight_filename, write_weight )
203
204  END SUBROUTINE xios(get_interpolate_domain_attr_hdl)
205
206  SUBROUTINE xios(get_interpolate_domain_attr_hdl_)   &
207    ( interpolate_domain_hdl, detect_missing_value_, mode_, order_, quantity_, read_write_convention_  &
208    , renormalize_, use_area_, weight_filename_, write_weight_ )
209
210    IMPLICIT NONE
211      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
212      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value_
213      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
214      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
215      INTEGER  , OPTIONAL, INTENT(OUT) :: order_
216      LOGICAL  , OPTIONAL, INTENT(OUT) :: quantity_
217      LOGICAL (KIND=C_BOOL) :: quantity__tmp
218      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: read_write_convention_
219      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize_
220      LOGICAL (KIND=C_BOOL) :: renormalize__tmp
221      LOGICAL  , OPTIONAL, INTENT(OUT) :: use_area_
222      LOGICAL (KIND=C_BOOL) :: use_area__tmp
223      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename_
224      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight_
225      LOGICAL (KIND=C_BOOL) :: write_weight__tmp
226
227      IF (PRESENT(detect_missing_value_)) THEN
228        CALL cxios_get_interpolate_domain_detect_missing_value &
229      (interpolate_domain_hdl%daddr, detect_missing_value__tmp)
230        CALL xios_bool_to_logical_0d(detect_missing_value__tmp)
231        detect_missing_value_ = detect_missing_value__tmp
232      ENDIF
233
234      IF (PRESENT(mode_)) THEN
235        CALL cxios_get_interpolate_domain_mode &
236      (interpolate_domain_hdl%daddr, mode_, len(mode_))
237      ENDIF
238
239      IF (PRESENT(order_)) THEN
240        CALL cxios_get_interpolate_domain_order &
241      (interpolate_domain_hdl%daddr, order_)
242      ENDIF
243
244      IF (PRESENT(quantity_)) THEN
245        CALL cxios_get_interpolate_domain_quantity &
246      (interpolate_domain_hdl%daddr, quantity__tmp)
247        CALL xios_bool_to_logical_0d(quantity__tmp)
248        quantity_ = quantity__tmp
249      ENDIF
250
251      IF (PRESENT(read_write_convention_)) THEN
252        CALL cxios_get_interpolate_domain_read_write_convention &
253      (interpolate_domain_hdl%daddr, read_write_convention_, len(read_write_convention_))
254      ENDIF
255
256      IF (PRESENT(renormalize_)) THEN
257        CALL cxios_get_interpolate_domain_renormalize &
258      (interpolate_domain_hdl%daddr, renormalize__tmp)
259        CALL xios_bool_to_logical_0d(renormalize__tmp)
260        renormalize_ = renormalize__tmp
261      ENDIF
262
263      IF (PRESENT(use_area_)) THEN
264        CALL cxios_get_interpolate_domain_use_area &
265      (interpolate_domain_hdl%daddr, use_area__tmp)
266        CALL xios_bool_to_logical_0d(use_area__tmp)
267        use_area_ = use_area__tmp
268      ENDIF
269
270      IF (PRESENT(weight_filename_)) THEN
271        CALL cxios_get_interpolate_domain_weight_filename &
272      (interpolate_domain_hdl%daddr, weight_filename_, len(weight_filename_))
273      ENDIF
274
275      IF (PRESENT(write_weight_)) THEN
276        CALL cxios_get_interpolate_domain_write_weight &
277      (interpolate_domain_hdl%daddr, write_weight__tmp)
278        CALL xios_bool_to_logical_0d(write_weight__tmp)
279        write_weight_ = write_weight__tmp
280      ENDIF
281
282  END SUBROUTINE xios(get_interpolate_domain_attr_hdl_)
283
284  SUBROUTINE xios(is_defined_interpolate_domain_attr)  &
285    ( interpolate_domain_id, detect_missing_value, mode, order, quantity, read_write_convention  &
286    , renormalize, use_area, weight_filename, write_weight )
287
288    IMPLICIT NONE
289      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
290      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
291      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
292      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
293      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
294      LOGICAL(KIND=C_BOOL) :: mode_tmp
295      LOGICAL, OPTIONAL, INTENT(OUT) :: order
296      LOGICAL(KIND=C_BOOL) :: order_tmp
297      LOGICAL, OPTIONAL, INTENT(OUT) :: quantity
298      LOGICAL(KIND=C_BOOL) :: quantity_tmp
299      LOGICAL, OPTIONAL, INTENT(OUT) :: read_write_convention
300      LOGICAL(KIND=C_BOOL) :: read_write_convention_tmp
301      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
302      LOGICAL(KIND=C_BOOL) :: renormalize_tmp
303      LOGICAL, OPTIONAL, INTENT(OUT) :: use_area
304      LOGICAL(KIND=C_BOOL) :: use_area_tmp
305      LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename
306      LOGICAL(KIND=C_BOOL) :: weight_filename_tmp
307      LOGICAL, OPTIONAL, INTENT(OUT) :: write_weight
308      LOGICAL(KIND=C_BOOL) :: write_weight_tmp
309
310      CALL xios(get_interpolate_domain_handle) &
311      (interpolate_domain_id,interpolate_domain_hdl)
312      CALL xios(is_defined_interpolate_domain_attr_hdl_)   &
313      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
314      , renormalize, use_area, weight_filename, write_weight )
315
316  END SUBROUTINE xios(is_defined_interpolate_domain_attr)
317
318  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)  &
319    ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
320    , renormalize, use_area, weight_filename, write_weight )
321
322    IMPLICIT NONE
323      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
324      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
325      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
326      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
327      LOGICAL(KIND=C_BOOL) :: mode_tmp
328      LOGICAL, OPTIONAL, INTENT(OUT) :: order
329      LOGICAL(KIND=C_BOOL) :: order_tmp
330      LOGICAL, OPTIONAL, INTENT(OUT) :: quantity
331      LOGICAL(KIND=C_BOOL) :: quantity_tmp
332      LOGICAL, OPTIONAL, INTENT(OUT) :: read_write_convention
333      LOGICAL(KIND=C_BOOL) :: read_write_convention_tmp
334      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
335      LOGICAL(KIND=C_BOOL) :: renormalize_tmp
336      LOGICAL, OPTIONAL, INTENT(OUT) :: use_area
337      LOGICAL(KIND=C_BOOL) :: use_area_tmp
338      LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename
339      LOGICAL(KIND=C_BOOL) :: weight_filename_tmp
340      LOGICAL, OPTIONAL, INTENT(OUT) :: write_weight
341      LOGICAL(KIND=C_BOOL) :: write_weight_tmp
342
343      CALL xios(is_defined_interpolate_domain_attr_hdl_)  &
344      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
345      , renormalize, use_area, weight_filename, write_weight )
346
347  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)
348
349  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)   &
350    ( interpolate_domain_hdl, detect_missing_value_, mode_, order_, quantity_, read_write_convention_  &
351    , renormalize_, use_area_, weight_filename_, write_weight_ )
352
353    IMPLICIT NONE
354      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
355      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value_
356      LOGICAL(KIND=C_BOOL) :: detect_missing_value__tmp
357      LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
358      LOGICAL(KIND=C_BOOL) :: mode__tmp
359      LOGICAL, OPTIONAL, INTENT(OUT) :: order_
360      LOGICAL(KIND=C_BOOL) :: order__tmp
361      LOGICAL, OPTIONAL, INTENT(OUT) :: quantity_
362      LOGICAL(KIND=C_BOOL) :: quantity__tmp
363      LOGICAL, OPTIONAL, INTENT(OUT) :: read_write_convention_
364      LOGICAL(KIND=C_BOOL) :: read_write_convention__tmp
365      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize_
366      LOGICAL(KIND=C_BOOL) :: renormalize__tmp
367      LOGICAL, OPTIONAL, INTENT(OUT) :: use_area_
368      LOGICAL(KIND=C_BOOL) :: use_area__tmp
369      LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename_
370      LOGICAL(KIND=C_BOOL) :: weight_filename__tmp
371      LOGICAL, OPTIONAL, INTENT(OUT) :: write_weight_
372      LOGICAL(KIND=C_BOOL) :: write_weight__tmp
373
374      IF (PRESENT(detect_missing_value_)) THEN
375        detect_missing_value__tmp = cxios_is_defined_interpolate_domain_detect_missing_value &
376      (interpolate_domain_hdl%daddr)
377        detect_missing_value_ = detect_missing_value__tmp
378      ENDIF
379
380      IF (PRESENT(mode_)) THEN
381        mode__tmp = cxios_is_defined_interpolate_domain_mode &
382      (interpolate_domain_hdl%daddr)
383        mode_ = mode__tmp
384      ENDIF
385
386      IF (PRESENT(order_)) THEN
387        order__tmp = cxios_is_defined_interpolate_domain_order &
388      (interpolate_domain_hdl%daddr)
389        order_ = order__tmp
390      ENDIF
391
392      IF (PRESENT(quantity_)) THEN
393        quantity__tmp = cxios_is_defined_interpolate_domain_quantity &
394      (interpolate_domain_hdl%daddr)
395        quantity_ = quantity__tmp
396      ENDIF
397
398      IF (PRESENT(read_write_convention_)) THEN
399        read_write_convention__tmp = cxios_is_defined_interpolate_domain_read_write_convention &
400      (interpolate_domain_hdl%daddr)
401        read_write_convention_ = read_write_convention__tmp
402      ENDIF
403
404      IF (PRESENT(renormalize_)) THEN
405        renormalize__tmp = cxios_is_defined_interpolate_domain_renormalize &
406      (interpolate_domain_hdl%daddr)
407        renormalize_ = renormalize__tmp
408      ENDIF
409
410      IF (PRESENT(use_area_)) THEN
411        use_area__tmp = cxios_is_defined_interpolate_domain_use_area &
412      (interpolate_domain_hdl%daddr)
413        use_area_ = use_area__tmp
414      ENDIF
415
416      IF (PRESENT(weight_filename_)) THEN
417        weight_filename__tmp = cxios_is_defined_interpolate_domain_weight_filename &
418      (interpolate_domain_hdl%daddr)
419        weight_filename_ = weight_filename__tmp
420      ENDIF
421
422      IF (PRESENT(write_weight_)) THEN
423        write_weight__tmp = cxios_is_defined_interpolate_domain_write_weight &
424      (interpolate_domain_hdl%daddr)
425        write_weight_ = write_weight__tmp
426      ENDIF
427
428  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)
429
430END MODULE iinterpolate_domain_attr
Note: See TracBrowser for help on using the repository browser.