source: XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/icontext_attr.F90 @ 2338

Last change on this file since 2338 was 1941, checked in by ymipsl, 4 years ago

XIOS coupling : Update fortran interface
YM
  • 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: 5.7 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, output_dir )
15
16    IMPLICIT NONE
17      TYPE(txios(context))  :: context_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::context_id
19      LOGICAL  , OPTIONAL, INTENT(IN) :: attached_mode
20      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir
22
23      CALL xios(get_context_handle) &
24      (context_id,context_hdl)
25      CALL xios(set_context_attr_hdl_)   &
26      ( context_hdl, attached_mode, output_dir )
27
28  END SUBROUTINE xios(set_context_attr)
29
30  SUBROUTINE xios(set_context_attr_hdl)  &
31    ( context_hdl, attached_mode, output_dir )
32
33    IMPLICIT NONE
34      TYPE(txios(context)) , INTENT(IN) :: context_hdl
35      LOGICAL  , OPTIONAL, INTENT(IN) :: attached_mode
36      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir
38
39      CALL xios(set_context_attr_hdl_)  &
40      ( context_hdl, attached_mode, output_dir )
41
42  END SUBROUTINE xios(set_context_attr_hdl)
43
44  SUBROUTINE xios(set_context_attr_hdl_)   &
45    ( context_hdl, attached_mode_, output_dir_ )
46
47    IMPLICIT NONE
48      TYPE(txios(context)) , INTENT(IN) :: context_hdl
49      LOGICAL  , OPTIONAL, INTENT(IN) :: attached_mode_
50      LOGICAL (KIND=C_BOOL) :: attached_mode__tmp
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir_
52
53      IF (PRESENT(attached_mode_)) THEN
54        attached_mode__tmp = attached_mode_
55        CALL cxios_set_context_attached_mode &
56      (context_hdl%daddr, attached_mode__tmp)
57      ENDIF
58
59      IF (PRESENT(output_dir_)) THEN
60        CALL cxios_set_context_output_dir &
61      (context_hdl%daddr, output_dir_, len(output_dir_))
62      ENDIF
63
64  END SUBROUTINE xios(set_context_attr_hdl_)
65
66  SUBROUTINE xios(get_context_attr)  &
67    ( context_id, attached_mode, output_dir )
68
69    IMPLICIT NONE
70      TYPE(txios(context))  :: context_hdl
71      CHARACTER(LEN=*), INTENT(IN) ::context_id
72      LOGICAL  , OPTIONAL, INTENT(OUT) :: attached_mode
73      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp
74      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir
75
76      CALL xios(get_context_handle) &
77      (context_id,context_hdl)
78      CALL xios(get_context_attr_hdl_)   &
79      ( context_hdl, attached_mode, output_dir )
80
81  END SUBROUTINE xios(get_context_attr)
82
83  SUBROUTINE xios(get_context_attr_hdl)  &
84    ( context_hdl, attached_mode, output_dir )
85
86    IMPLICIT NONE
87      TYPE(txios(context)) , INTENT(IN) :: context_hdl
88      LOGICAL  , OPTIONAL, INTENT(OUT) :: attached_mode
89      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp
90      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir
91
92      CALL xios(get_context_attr_hdl_)  &
93      ( context_hdl, attached_mode, output_dir )
94
95  END SUBROUTINE xios(get_context_attr_hdl)
96
97  SUBROUTINE xios(get_context_attr_hdl_)   &
98    ( context_hdl, attached_mode_, output_dir_ )
99
100    IMPLICIT NONE
101      TYPE(txios(context)) , INTENT(IN) :: context_hdl
102      LOGICAL  , OPTIONAL, INTENT(OUT) :: attached_mode_
103      LOGICAL (KIND=C_BOOL) :: attached_mode__tmp
104      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir_
105
106      IF (PRESENT(attached_mode_)) THEN
107        CALL cxios_get_context_attached_mode &
108      (context_hdl%daddr, attached_mode__tmp)
109        attached_mode_ = attached_mode__tmp
110      ENDIF
111
112      IF (PRESENT(output_dir_)) THEN
113        CALL cxios_get_context_output_dir &
114      (context_hdl%daddr, output_dir_, len(output_dir_))
115      ENDIF
116
117  END SUBROUTINE xios(get_context_attr_hdl_)
118
119  SUBROUTINE xios(is_defined_context_attr)  &
120    ( context_id, attached_mode, output_dir )
121
122    IMPLICIT NONE
123      TYPE(txios(context))  :: context_hdl
124      CHARACTER(LEN=*), INTENT(IN) ::context_id
125      LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode
126      LOGICAL(KIND=C_BOOL) :: attached_mode_tmp
127      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir
128      LOGICAL(KIND=C_BOOL) :: output_dir_tmp
129
130      CALL xios(get_context_handle) &
131      (context_id,context_hdl)
132      CALL xios(is_defined_context_attr_hdl_)   &
133      ( context_hdl, attached_mode, output_dir )
134
135  END SUBROUTINE xios(is_defined_context_attr)
136
137  SUBROUTINE xios(is_defined_context_attr_hdl)  &
138    ( context_hdl, attached_mode, output_dir )
139
140    IMPLICIT NONE
141      TYPE(txios(context)) , INTENT(IN) :: context_hdl
142      LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode
143      LOGICAL(KIND=C_BOOL) :: attached_mode_tmp
144      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir
145      LOGICAL(KIND=C_BOOL) :: output_dir_tmp
146
147      CALL xios(is_defined_context_attr_hdl_)  &
148      ( context_hdl, attached_mode, output_dir )
149
150  END SUBROUTINE xios(is_defined_context_attr_hdl)
151
152  SUBROUTINE xios(is_defined_context_attr_hdl_)   &
153    ( context_hdl, attached_mode_, output_dir_ )
154
155    IMPLICIT NONE
156      TYPE(txios(context)) , INTENT(IN) :: context_hdl
157      LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode_
158      LOGICAL(KIND=C_BOOL) :: attached_mode__tmp
159      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir_
160      LOGICAL(KIND=C_BOOL) :: output_dir__tmp
161
162      IF (PRESENT(attached_mode_)) THEN
163        attached_mode__tmp = cxios_is_defined_context_attached_mode &
164      (context_hdl%daddr)
165        attached_mode_ = attached_mode__tmp
166      ENDIF
167
168      IF (PRESENT(output_dir_)) THEN
169        output_dir__tmp = cxios_is_defined_context_output_dir &
170      (context_hdl%daddr)
171        output_dir_ = output_dir__tmp
172      ENDIF
173
174  END SUBROUTINE xios(is_defined_context_attr_hdl_)
175
176END MODULE icontext_attr
Note: See TracBrowser for help on using the repository browser.