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

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

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