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
RevLine 
[326]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
[2620]10  USE LOGICAL_BOOL_CONVERSION
[581]11
[326]12CONTAINS
[581]13
[326]14  SUBROUTINE xios(set_context_attr)  &
[2616]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 )
[581]17
[326]18    IMPLICIT NONE
19      TYPE(txios(context))  :: context_hdl
20      CHARACTER(LEN=*), INTENT(IN) ::context_id
[1941]21      LOGICAL  , OPTIONAL, INTENT(IN) :: attached_mode
22      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp
[2616]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
[326]32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir
[581]33
[966]34      CALL xios(get_context_handle) &
35      (context_id,context_hdl)
[326]36      CALL xios(set_context_attr_hdl_)   &
[2616]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 )
[581]39
[326]40  END SUBROUTINE xios(set_context_attr)
[581]41
[326]42  SUBROUTINE xios(set_context_attr_hdl)  &
[2616]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 )
[581]45
[326]46    IMPLICIT NONE
47      TYPE(txios(context)) , INTENT(IN) :: context_hdl
[1941]48      LOGICAL  , OPTIONAL, INTENT(IN) :: attached_mode
49      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp
[2616]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
[326]59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir
[581]60
[326]61      CALL xios(set_context_attr_hdl_)  &
[2616]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 )
[581]64
[326]65  END SUBROUTINE xios(set_context_attr_hdl)
[581]66
[326]67  SUBROUTINE xios(set_context_attr_hdl_)   &
[2616]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     )
[581]71
[326]72    IMPLICIT NONE
73      TYPE(txios(context)) , INTENT(IN) :: context_hdl
[1941]74      LOGICAL  , OPTIONAL, INTENT(IN) :: attached_mode_
75      LOGICAL (KIND=C_BOOL) :: attached_mode__tmp
[2616]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_
[326]85      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir_
[581]86
[1941]87      IF (PRESENT(attached_mode_)) THEN
88        attached_mode__tmp = attached_mode_
[2620]89        CALL xios_logical_to_bool_0d(attached_mode__tmp)
[1941]90        CALL cxios_set_context_attached_mode &
91      (context_hdl%daddr, attached_mode__tmp)
92      ENDIF
93
[2616]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_
[2620]126        CALL xios_logical_to_bool_0d(default_using_server2__tmp)
[2616]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
[326]136      IF (PRESENT(output_dir_)) THEN
[966]137        CALL cxios_set_context_output_dir &
138      (context_hdl%daddr, output_dir_, len(output_dir_))
[326]139      ENDIF
[581]140
[326]141  END SUBROUTINE xios(set_context_attr_hdl_)
[581]142
[326]143  SUBROUTINE xios(get_context_attr)  &
[2616]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 )
[581]146
[326]147    IMPLICIT NONE
148      TYPE(txios(context))  :: context_hdl
149      CHARACTER(LEN=*), INTENT(IN) ::context_id
[1941]150      LOGICAL  , OPTIONAL, INTENT(OUT) :: attached_mode
151      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp
[2616]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
[326]161      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir
[581]162
[966]163      CALL xios(get_context_handle) &
164      (context_id,context_hdl)
[326]165      CALL xios(get_context_attr_hdl_)   &
[2616]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 )
[581]168
[326]169  END SUBROUTINE xios(get_context_attr)
[581]170
[326]171  SUBROUTINE xios(get_context_attr_hdl)  &
[2616]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 )
[581]174
[326]175    IMPLICIT NONE
176      TYPE(txios(context)) , INTENT(IN) :: context_hdl
[1941]177      LOGICAL  , OPTIONAL, INTENT(OUT) :: attached_mode
178      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp
[2616]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
[326]188      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir
[581]189
[326]190      CALL xios(get_context_attr_hdl_)  &
[2616]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 )
[581]193
[326]194  END SUBROUTINE xios(get_context_attr_hdl)
[581]195
[326]196  SUBROUTINE xios(get_context_attr_hdl_)   &
[2616]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     )
[581]200
[326]201    IMPLICIT NONE
202      TYPE(txios(context)) , INTENT(IN) :: context_hdl
[1941]203      LOGICAL  , OPTIONAL, INTENT(OUT) :: attached_mode_
204      LOGICAL (KIND=C_BOOL) :: attached_mode__tmp
[2616]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_
[326]214      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir_
[581]215
[1941]216      IF (PRESENT(attached_mode_)) THEN
217        CALL cxios_get_context_attached_mode &
218      (context_hdl%daddr, attached_mode__tmp)
[2620]219        CALL xios_bool_to_logical_0d(attached_mode__tmp)
[1941]220        attached_mode_ = attached_mode__tmp
221      ENDIF
222
[2616]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)
[2620]256        CALL xios_bool_to_logical_0d(default_using_server2__tmp)
[2616]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
[326]265      IF (PRESENT(output_dir_)) THEN
[966]266        CALL cxios_get_context_output_dir &
267      (context_hdl%daddr, output_dir_, len(output_dir_))
[326]268      ENDIF
[581]269
[326]270  END SUBROUTINE xios(get_context_attr_hdl_)
[581]271
[432]272  SUBROUTINE xios(is_defined_context_attr)  &
[2616]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 )
[581]275
[432]276    IMPLICIT NONE
277      TYPE(txios(context))  :: context_hdl
278      CHARACTER(LEN=*), INTENT(IN) ::context_id
[1941]279      LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode
280      LOGICAL(KIND=C_BOOL) :: attached_mode_tmp
[2616]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
[432]297      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir
298      LOGICAL(KIND=C_BOOL) :: output_dir_tmp
[581]299
[966]300      CALL xios(get_context_handle) &
301      (context_id,context_hdl)
[432]302      CALL xios(is_defined_context_attr_hdl_)   &
[2616]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 )
[581]305
[432]306  END SUBROUTINE xios(is_defined_context_attr)
[581]307
[432]308  SUBROUTINE xios(is_defined_context_attr_hdl)  &
[2616]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 )
[581]311
[432]312    IMPLICIT NONE
313      TYPE(txios(context)) , INTENT(IN) :: context_hdl
[1941]314      LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode
315      LOGICAL(KIND=C_BOOL) :: attached_mode_tmp
[2616]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
[432]332      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir
333      LOGICAL(KIND=C_BOOL) :: output_dir_tmp
[581]334
[432]335      CALL xios(is_defined_context_attr_hdl_)  &
[2616]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 )
[581]338
[432]339  END SUBROUTINE xios(is_defined_context_attr_hdl)
[581]340
[432]341  SUBROUTINE xios(is_defined_context_attr_hdl_)   &
[2616]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     )
[581]345
[432]346    IMPLICIT NONE
347      TYPE(txios(context)) , INTENT(IN) :: context_hdl
[1941]348      LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode_
349      LOGICAL(KIND=C_BOOL) :: attached_mode__tmp
[2616]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
[432]366      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir_
367      LOGICAL(KIND=C_BOOL) :: output_dir__tmp
[581]368
[1941]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
[2616]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
[432]423      IF (PRESENT(output_dir_)) THEN
[966]424        output_dir__tmp = cxios_is_defined_context_output_dir &
425      (context_hdl%daddr)
[581]426        output_dir_ = output_dir__tmp
[432]427      ENDIF
[581]428
[432]429  END SUBROUTINE xios(is_defined_context_attr_hdl_)
[581]430
[326]431END MODULE icontext_attr
Note: See TracBrowser for help on using the repository browser.