source: XIOS3/trunk/src/interface/fortran_attr/icontext_attr.F90 @ 2622

Last change on this file since 2622 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.
  • 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.1 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE icontext_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE icontext
9  USE context_interface_attr
10  USE LOGICAL_BOOL_CONVERSION
11
12CONTAINS
13
14  SUBROUTINE xios(set_context_attr)  &
15    ( context_id, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  &
16    , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir )
17
18    IMPLICIT NONE
19      TYPE(txios(context))  :: context_hdl
20      CHARACTER(LEN=*), INTENT(IN) ::context_id
21      LOGICAL  , OPTIONAL, INTENT(IN) :: attached_mode
22      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_gatherer
24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool
25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_gatherer
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_reader
27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_writer
28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_reader
29      LOGICAL  , OPTIONAL, INTENT(IN) :: default_using_server2
30      LOGICAL (KIND=C_BOOL) :: default_using_server2_tmp
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_writer
32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir
33
34      CALL xios(get_context_handle) &
35      (context_id,context_hdl)
36      CALL xios(set_context_attr_hdl_)   &
37      ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  &
38      , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir )
39
40  END SUBROUTINE xios(set_context_attr)
41
42  SUBROUTINE xios(set_context_attr_hdl)  &
43    ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  &
44    , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir )
45
46    IMPLICIT NONE
47      TYPE(txios(context)) , INTENT(IN) :: context_hdl
48      LOGICAL  , OPTIONAL, INTENT(IN) :: attached_mode
49      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_gatherer
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_gatherer
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_reader
54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_writer
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_reader
56      LOGICAL  , OPTIONAL, INTENT(IN) :: default_using_server2
57      LOGICAL (KIND=C_BOOL) :: default_using_server2_tmp
58      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_writer
59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir
60
61      CALL xios(set_context_attr_hdl_)  &
62      ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  &
63      , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir )
64
65  END SUBROUTINE xios(set_context_attr_hdl)
66
67  SUBROUTINE xios(set_context_attr_hdl_)   &
68    ( context_hdl, attached_mode_, default_gatherer_, default_pool_, default_pool_gatherer_, default_pool_reader_  &
69    , default_pool_writer_, default_reader_, default_using_server2_, default_writer_, output_dir_  &
70     )
71
72    IMPLICIT NONE
73      TYPE(txios(context)) , INTENT(IN) :: context_hdl
74      LOGICAL  , OPTIONAL, INTENT(IN) :: attached_mode_
75      LOGICAL (KIND=C_BOOL) :: attached_mode__tmp
76      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_gatherer_
77      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_
78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_gatherer_
79      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_reader_
80      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_writer_
81      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_reader_
82      LOGICAL  , OPTIONAL, INTENT(IN) :: default_using_server2_
83      LOGICAL (KIND=C_BOOL) :: default_using_server2__tmp
84      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_writer_
85      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir_
86
87      IF (PRESENT(attached_mode_)) THEN
88        attached_mode__tmp = attached_mode_
89        CALL xios_logical_to_bool_0d(attached_mode__tmp)
90        CALL cxios_set_context_attached_mode &
91      (context_hdl%daddr, attached_mode__tmp)
92      ENDIF
93
94      IF (PRESENT(default_gatherer_)) THEN
95        CALL cxios_set_context_default_gatherer &
96      (context_hdl%daddr, default_gatherer_, len(default_gatherer_))
97      ENDIF
98
99      IF (PRESENT(default_pool_)) THEN
100        CALL cxios_set_context_default_pool &
101      (context_hdl%daddr, default_pool_, len(default_pool_))
102      ENDIF
103
104      IF (PRESENT(default_pool_gatherer_)) THEN
105        CALL cxios_set_context_default_pool_gatherer &
106      (context_hdl%daddr, default_pool_gatherer_, len(default_pool_gatherer_))
107      ENDIF
108
109      IF (PRESENT(default_pool_reader_)) THEN
110        CALL cxios_set_context_default_pool_reader &
111      (context_hdl%daddr, default_pool_reader_, len(default_pool_reader_))
112      ENDIF
113
114      IF (PRESENT(default_pool_writer_)) THEN
115        CALL cxios_set_context_default_pool_writer &
116      (context_hdl%daddr, default_pool_writer_, len(default_pool_writer_))
117      ENDIF
118
119      IF (PRESENT(default_reader_)) THEN
120        CALL cxios_set_context_default_reader &
121      (context_hdl%daddr, default_reader_, len(default_reader_))
122      ENDIF
123
124      IF (PRESENT(default_using_server2_)) THEN
125        default_using_server2__tmp = default_using_server2_
126        CALL xios_logical_to_bool_0d(default_using_server2__tmp)
127        CALL cxios_set_context_default_using_server2 &
128      (context_hdl%daddr, default_using_server2__tmp)
129      ENDIF
130
131      IF (PRESENT(default_writer_)) THEN
132        CALL cxios_set_context_default_writer &
133      (context_hdl%daddr, default_writer_, len(default_writer_))
134      ENDIF
135
136      IF (PRESENT(output_dir_)) THEN
137        CALL cxios_set_context_output_dir &
138      (context_hdl%daddr, output_dir_, len(output_dir_))
139      ENDIF
140
141  END SUBROUTINE xios(set_context_attr_hdl_)
142
143  SUBROUTINE xios(get_context_attr)  &
144    ( context_id, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  &
145    , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir )
146
147    IMPLICIT NONE
148      TYPE(txios(context))  :: context_hdl
149      CHARACTER(LEN=*), INTENT(IN) ::context_id
150      LOGICAL  , OPTIONAL, INTENT(OUT) :: attached_mode
151      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp
152      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_gatherer
153      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool
154      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_gatherer
155      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_reader
156      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_writer
157      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_reader
158      LOGICAL  , OPTIONAL, INTENT(OUT) :: default_using_server2
159      LOGICAL (KIND=C_BOOL) :: default_using_server2_tmp
160      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_writer
161      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir
162
163      CALL xios(get_context_handle) &
164      (context_id,context_hdl)
165      CALL xios(get_context_attr_hdl_)   &
166      ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  &
167      , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir )
168
169  END SUBROUTINE xios(get_context_attr)
170
171  SUBROUTINE xios(get_context_attr_hdl)  &
172    ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  &
173    , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir )
174
175    IMPLICIT NONE
176      TYPE(txios(context)) , INTENT(IN) :: context_hdl
177      LOGICAL  , OPTIONAL, INTENT(OUT) :: attached_mode
178      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp
179      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_gatherer
180      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool
181      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_gatherer
182      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_reader
183      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_writer
184      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_reader
185      LOGICAL  , OPTIONAL, INTENT(OUT) :: default_using_server2
186      LOGICAL (KIND=C_BOOL) :: default_using_server2_tmp
187      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_writer
188      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir
189
190      CALL xios(get_context_attr_hdl_)  &
191      ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  &
192      , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir )
193
194  END SUBROUTINE xios(get_context_attr_hdl)
195
196  SUBROUTINE xios(get_context_attr_hdl_)   &
197    ( context_hdl, attached_mode_, default_gatherer_, default_pool_, default_pool_gatherer_, default_pool_reader_  &
198    , default_pool_writer_, default_reader_, default_using_server2_, default_writer_, output_dir_  &
199     )
200
201    IMPLICIT NONE
202      TYPE(txios(context)) , INTENT(IN) :: context_hdl
203      LOGICAL  , OPTIONAL, INTENT(OUT) :: attached_mode_
204      LOGICAL (KIND=C_BOOL) :: attached_mode__tmp
205      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_gatherer_
206      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_
207      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_gatherer_
208      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_reader_
209      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_writer_
210      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_reader_
211      LOGICAL  , OPTIONAL, INTENT(OUT) :: default_using_server2_
212      LOGICAL (KIND=C_BOOL) :: default_using_server2__tmp
213      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_writer_
214      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir_
215
216      IF (PRESENT(attached_mode_)) THEN
217        CALL cxios_get_context_attached_mode &
218      (context_hdl%daddr, attached_mode__tmp)
219        CALL xios_bool_to_logical_0d(attached_mode__tmp)
220        attached_mode_ = attached_mode__tmp
221      ENDIF
222
223      IF (PRESENT(default_gatherer_)) THEN
224        CALL cxios_get_context_default_gatherer &
225      (context_hdl%daddr, default_gatherer_, len(default_gatherer_))
226      ENDIF
227
228      IF (PRESENT(default_pool_)) THEN
229        CALL cxios_get_context_default_pool &
230      (context_hdl%daddr, default_pool_, len(default_pool_))
231      ENDIF
232
233      IF (PRESENT(default_pool_gatherer_)) THEN
234        CALL cxios_get_context_default_pool_gatherer &
235      (context_hdl%daddr, default_pool_gatherer_, len(default_pool_gatherer_))
236      ENDIF
237
238      IF (PRESENT(default_pool_reader_)) THEN
239        CALL cxios_get_context_default_pool_reader &
240      (context_hdl%daddr, default_pool_reader_, len(default_pool_reader_))
241      ENDIF
242
243      IF (PRESENT(default_pool_writer_)) THEN
244        CALL cxios_get_context_default_pool_writer &
245      (context_hdl%daddr, default_pool_writer_, len(default_pool_writer_))
246      ENDIF
247
248      IF (PRESENT(default_reader_)) THEN
249        CALL cxios_get_context_default_reader &
250      (context_hdl%daddr, default_reader_, len(default_reader_))
251      ENDIF
252
253      IF (PRESENT(default_using_server2_)) THEN
254        CALL cxios_get_context_default_using_server2 &
255      (context_hdl%daddr, default_using_server2__tmp)
256        CALL xios_bool_to_logical_0d(default_using_server2__tmp)
257        default_using_server2_ = default_using_server2__tmp
258      ENDIF
259
260      IF (PRESENT(default_writer_)) THEN
261        CALL cxios_get_context_default_writer &
262      (context_hdl%daddr, default_writer_, len(default_writer_))
263      ENDIF
264
265      IF (PRESENT(output_dir_)) THEN
266        CALL cxios_get_context_output_dir &
267      (context_hdl%daddr, output_dir_, len(output_dir_))
268      ENDIF
269
270  END SUBROUTINE xios(get_context_attr_hdl_)
271
272  SUBROUTINE xios(is_defined_context_attr)  &
273    ( context_id, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  &
274    , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir )
275
276    IMPLICIT NONE
277      TYPE(txios(context))  :: context_hdl
278      CHARACTER(LEN=*), INTENT(IN) ::context_id
279      LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode
280      LOGICAL(KIND=C_BOOL) :: attached_mode_tmp
281      LOGICAL, OPTIONAL, INTENT(OUT) :: default_gatherer
282      LOGICAL(KIND=C_BOOL) :: default_gatherer_tmp
283      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool
284      LOGICAL(KIND=C_BOOL) :: default_pool_tmp
285      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_gatherer
286      LOGICAL(KIND=C_BOOL) :: default_pool_gatherer_tmp
287      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_reader
288      LOGICAL(KIND=C_BOOL) :: default_pool_reader_tmp
289      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_writer
290      LOGICAL(KIND=C_BOOL) :: default_pool_writer_tmp
291      LOGICAL, OPTIONAL, INTENT(OUT) :: default_reader
292      LOGICAL(KIND=C_BOOL) :: default_reader_tmp
293      LOGICAL, OPTIONAL, INTENT(OUT) :: default_using_server2
294      LOGICAL(KIND=C_BOOL) :: default_using_server2_tmp
295      LOGICAL, OPTIONAL, INTENT(OUT) :: default_writer
296      LOGICAL(KIND=C_BOOL) :: default_writer_tmp
297      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir
298      LOGICAL(KIND=C_BOOL) :: output_dir_tmp
299
300      CALL xios(get_context_handle) &
301      (context_id,context_hdl)
302      CALL xios(is_defined_context_attr_hdl_)   &
303      ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  &
304      , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir )
305
306  END SUBROUTINE xios(is_defined_context_attr)
307
308  SUBROUTINE xios(is_defined_context_attr_hdl)  &
309    ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  &
310    , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir )
311
312    IMPLICIT NONE
313      TYPE(txios(context)) , INTENT(IN) :: context_hdl
314      LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode
315      LOGICAL(KIND=C_BOOL) :: attached_mode_tmp
316      LOGICAL, OPTIONAL, INTENT(OUT) :: default_gatherer
317      LOGICAL(KIND=C_BOOL) :: default_gatherer_tmp
318      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool
319      LOGICAL(KIND=C_BOOL) :: default_pool_tmp
320      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_gatherer
321      LOGICAL(KIND=C_BOOL) :: default_pool_gatherer_tmp
322      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_reader
323      LOGICAL(KIND=C_BOOL) :: default_pool_reader_tmp
324      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_writer
325      LOGICAL(KIND=C_BOOL) :: default_pool_writer_tmp
326      LOGICAL, OPTIONAL, INTENT(OUT) :: default_reader
327      LOGICAL(KIND=C_BOOL) :: default_reader_tmp
328      LOGICAL, OPTIONAL, INTENT(OUT) :: default_using_server2
329      LOGICAL(KIND=C_BOOL) :: default_using_server2_tmp
330      LOGICAL, OPTIONAL, INTENT(OUT) :: default_writer
331      LOGICAL(KIND=C_BOOL) :: default_writer_tmp
332      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir
333      LOGICAL(KIND=C_BOOL) :: output_dir_tmp
334
335      CALL xios(is_defined_context_attr_hdl_)  &
336      ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  &
337      , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir )
338
339  END SUBROUTINE xios(is_defined_context_attr_hdl)
340
341  SUBROUTINE xios(is_defined_context_attr_hdl_)   &
342    ( context_hdl, attached_mode_, default_gatherer_, default_pool_, default_pool_gatherer_, default_pool_reader_  &
343    , default_pool_writer_, default_reader_, default_using_server2_, default_writer_, output_dir_  &
344     )
345
346    IMPLICIT NONE
347      TYPE(txios(context)) , INTENT(IN) :: context_hdl
348      LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode_
349      LOGICAL(KIND=C_BOOL) :: attached_mode__tmp
350      LOGICAL, OPTIONAL, INTENT(OUT) :: default_gatherer_
351      LOGICAL(KIND=C_BOOL) :: default_gatherer__tmp
352      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_
353      LOGICAL(KIND=C_BOOL) :: default_pool__tmp
354      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_gatherer_
355      LOGICAL(KIND=C_BOOL) :: default_pool_gatherer__tmp
356      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_reader_
357      LOGICAL(KIND=C_BOOL) :: default_pool_reader__tmp
358      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_writer_
359      LOGICAL(KIND=C_BOOL) :: default_pool_writer__tmp
360      LOGICAL, OPTIONAL, INTENT(OUT) :: default_reader_
361      LOGICAL(KIND=C_BOOL) :: default_reader__tmp
362      LOGICAL, OPTIONAL, INTENT(OUT) :: default_using_server2_
363      LOGICAL(KIND=C_BOOL) :: default_using_server2__tmp
364      LOGICAL, OPTIONAL, INTENT(OUT) :: default_writer_
365      LOGICAL(KIND=C_BOOL) :: default_writer__tmp
366      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir_
367      LOGICAL(KIND=C_BOOL) :: output_dir__tmp
368
369      IF (PRESENT(attached_mode_)) THEN
370        attached_mode__tmp = cxios_is_defined_context_attached_mode &
371      (context_hdl%daddr)
372        attached_mode_ = attached_mode__tmp
373      ENDIF
374
375      IF (PRESENT(default_gatherer_)) THEN
376        default_gatherer__tmp = cxios_is_defined_context_default_gatherer &
377      (context_hdl%daddr)
378        default_gatherer_ = default_gatherer__tmp
379      ENDIF
380
381      IF (PRESENT(default_pool_)) THEN
382        default_pool__tmp = cxios_is_defined_context_default_pool &
383      (context_hdl%daddr)
384        default_pool_ = default_pool__tmp
385      ENDIF
386
387      IF (PRESENT(default_pool_gatherer_)) THEN
388        default_pool_gatherer__tmp = cxios_is_defined_context_default_pool_gatherer &
389      (context_hdl%daddr)
390        default_pool_gatherer_ = default_pool_gatherer__tmp
391      ENDIF
392
393      IF (PRESENT(default_pool_reader_)) THEN
394        default_pool_reader__tmp = cxios_is_defined_context_default_pool_reader &
395      (context_hdl%daddr)
396        default_pool_reader_ = default_pool_reader__tmp
397      ENDIF
398
399      IF (PRESENT(default_pool_writer_)) THEN
400        default_pool_writer__tmp = cxios_is_defined_context_default_pool_writer &
401      (context_hdl%daddr)
402        default_pool_writer_ = default_pool_writer__tmp
403      ENDIF
404
405      IF (PRESENT(default_reader_)) THEN
406        default_reader__tmp = cxios_is_defined_context_default_reader &
407      (context_hdl%daddr)
408        default_reader_ = default_reader__tmp
409      ENDIF
410
411      IF (PRESENT(default_using_server2_)) THEN
412        default_using_server2__tmp = cxios_is_defined_context_default_using_server2 &
413      (context_hdl%daddr)
414        default_using_server2_ = default_using_server2__tmp
415      ENDIF
416
417      IF (PRESENT(default_writer_)) THEN
418        default_writer__tmp = cxios_is_defined_context_default_writer &
419      (context_hdl%daddr)
420        default_writer_ = default_writer__tmp
421      ENDIF
422
423      IF (PRESENT(output_dir_)) THEN
424        output_dir__tmp = cxios_is_defined_context_output_dir &
425      (context_hdl%daddr)
426        output_dir_ = output_dir__tmp
427      ENDIF
428
429  END SUBROUTINE xios(is_defined_context_attr_hdl_)
430
431END MODULE icontext_attr
Note: See TracBrowser for help on using the repository browser.