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

Last change on this file since 2622 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: 10.5 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "../fortran/xios_fortran_prefix.hpp"
5
6MODULE context_interface_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8
9  INTERFACE
10    ! Do not call directly / interface FORTRAN 2003 <-> C99
11
12    SUBROUTINE cxios_set_context_attached_mode(context_hdl, attached_mode) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
15      LOGICAL (KIND=C_BOOL)      , VALUE :: attached_mode
16    END SUBROUTINE cxios_set_context_attached_mode
17
18    SUBROUTINE cxios_get_context_attached_mode(context_hdl, attached_mode) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
21      LOGICAL (KIND=C_BOOL)             :: attached_mode
22    END SUBROUTINE cxios_get_context_attached_mode
23
24    FUNCTION cxios_is_defined_context_attached_mode(context_hdl) BIND(C)
25      USE ISO_C_BINDING
26      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_attached_mode
27      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
28    END FUNCTION cxios_is_defined_context_attached_mode
29
30
31    SUBROUTINE cxios_set_context_default_gatherer(context_hdl, default_gatherer, default_gatherer_size) BIND(C)
32      USE ISO_C_BINDING
33      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
34      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_gatherer
35      INTEGER  (kind = C_INT)     , VALUE        :: default_gatherer_size
36    END SUBROUTINE cxios_set_context_default_gatherer
37
38    SUBROUTINE cxios_get_context_default_gatherer(context_hdl, default_gatherer, default_gatherer_size) BIND(C)
39      USE ISO_C_BINDING
40      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
41      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_gatherer
42      INTEGER  (kind = C_INT)     , VALUE        :: default_gatherer_size
43    END SUBROUTINE cxios_get_context_default_gatherer
44
45    FUNCTION cxios_is_defined_context_default_gatherer(context_hdl) BIND(C)
46      USE ISO_C_BINDING
47      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_gatherer
48      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
49    END FUNCTION cxios_is_defined_context_default_gatherer
50
51
52    SUBROUTINE cxios_set_context_default_pool(context_hdl, default_pool, default_pool_size) BIND(C)
53      USE ISO_C_BINDING
54      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
55      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool
56      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_size
57    END SUBROUTINE cxios_set_context_default_pool
58
59    SUBROUTINE cxios_get_context_default_pool(context_hdl, default_pool, default_pool_size) BIND(C)
60      USE ISO_C_BINDING
61      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
62      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool
63      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_size
64    END SUBROUTINE cxios_get_context_default_pool
65
66    FUNCTION cxios_is_defined_context_default_pool(context_hdl) BIND(C)
67      USE ISO_C_BINDING
68      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_pool
69      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
70    END FUNCTION cxios_is_defined_context_default_pool
71
72
73    SUBROUTINE cxios_set_context_default_pool_gatherer(context_hdl, default_pool_gatherer, default_pool_gatherer_size) BIND(C)
74      USE ISO_C_BINDING
75      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
76      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool_gatherer
77      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_gatherer_size
78    END SUBROUTINE cxios_set_context_default_pool_gatherer
79
80    SUBROUTINE cxios_get_context_default_pool_gatherer(context_hdl, default_pool_gatherer, default_pool_gatherer_size) BIND(C)
81      USE ISO_C_BINDING
82      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
83      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool_gatherer
84      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_gatherer_size
85    END SUBROUTINE cxios_get_context_default_pool_gatherer
86
87    FUNCTION cxios_is_defined_context_default_pool_gatherer(context_hdl) BIND(C)
88      USE ISO_C_BINDING
89      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_pool_gatherer
90      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
91    END FUNCTION cxios_is_defined_context_default_pool_gatherer
92
93
94    SUBROUTINE cxios_set_context_default_pool_reader(context_hdl, default_pool_reader, default_pool_reader_size) BIND(C)
95      USE ISO_C_BINDING
96      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
97      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool_reader
98      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_reader_size
99    END SUBROUTINE cxios_set_context_default_pool_reader
100
101    SUBROUTINE cxios_get_context_default_pool_reader(context_hdl, default_pool_reader, default_pool_reader_size) BIND(C)
102      USE ISO_C_BINDING
103      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
104      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool_reader
105      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_reader_size
106    END SUBROUTINE cxios_get_context_default_pool_reader
107
108    FUNCTION cxios_is_defined_context_default_pool_reader(context_hdl) BIND(C)
109      USE ISO_C_BINDING
110      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_pool_reader
111      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
112    END FUNCTION cxios_is_defined_context_default_pool_reader
113
114
115    SUBROUTINE cxios_set_context_default_pool_writer(context_hdl, default_pool_writer, default_pool_writer_size) BIND(C)
116      USE ISO_C_BINDING
117      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
118      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool_writer
119      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_writer_size
120    END SUBROUTINE cxios_set_context_default_pool_writer
121
122    SUBROUTINE cxios_get_context_default_pool_writer(context_hdl, default_pool_writer, default_pool_writer_size) BIND(C)
123      USE ISO_C_BINDING
124      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
125      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool_writer
126      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_writer_size
127    END SUBROUTINE cxios_get_context_default_pool_writer
128
129    FUNCTION cxios_is_defined_context_default_pool_writer(context_hdl) BIND(C)
130      USE ISO_C_BINDING
131      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_pool_writer
132      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
133    END FUNCTION cxios_is_defined_context_default_pool_writer
134
135
136    SUBROUTINE cxios_set_context_default_reader(context_hdl, default_reader, default_reader_size) BIND(C)
137      USE ISO_C_BINDING
138      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
139      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_reader
140      INTEGER  (kind = C_INT)     , VALUE        :: default_reader_size
141    END SUBROUTINE cxios_set_context_default_reader
142
143    SUBROUTINE cxios_get_context_default_reader(context_hdl, default_reader, default_reader_size) BIND(C)
144      USE ISO_C_BINDING
145      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
146      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_reader
147      INTEGER  (kind = C_INT)     , VALUE        :: default_reader_size
148    END SUBROUTINE cxios_get_context_default_reader
149
150    FUNCTION cxios_is_defined_context_default_reader(context_hdl) BIND(C)
151      USE ISO_C_BINDING
152      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_reader
153      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
154    END FUNCTION cxios_is_defined_context_default_reader
155
156
157    SUBROUTINE cxios_set_context_default_using_server2(context_hdl, default_using_server2) BIND(C)
158      USE ISO_C_BINDING
159      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
160      LOGICAL (KIND=C_BOOL)      , VALUE :: default_using_server2
161    END SUBROUTINE cxios_set_context_default_using_server2
162
163    SUBROUTINE cxios_get_context_default_using_server2(context_hdl, default_using_server2) BIND(C)
164      USE ISO_C_BINDING
165      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
166      LOGICAL (KIND=C_BOOL)             :: default_using_server2
167    END SUBROUTINE cxios_get_context_default_using_server2
168
169    FUNCTION cxios_is_defined_context_default_using_server2(context_hdl) BIND(C)
170      USE ISO_C_BINDING
171      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_using_server2
172      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
173    END FUNCTION cxios_is_defined_context_default_using_server2
174
175
176    SUBROUTINE cxios_set_context_default_writer(context_hdl, default_writer, default_writer_size) BIND(C)
177      USE ISO_C_BINDING
178      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
179      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_writer
180      INTEGER  (kind = C_INT)     , VALUE        :: default_writer_size
181    END SUBROUTINE cxios_set_context_default_writer
182
183    SUBROUTINE cxios_get_context_default_writer(context_hdl, default_writer, default_writer_size) BIND(C)
184      USE ISO_C_BINDING
185      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
186      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_writer
187      INTEGER  (kind = C_INT)     , VALUE        :: default_writer_size
188    END SUBROUTINE cxios_get_context_default_writer
189
190    FUNCTION cxios_is_defined_context_default_writer(context_hdl) BIND(C)
191      USE ISO_C_BINDING
192      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_writer
193      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
194    END FUNCTION cxios_is_defined_context_default_writer
195
196
197    SUBROUTINE cxios_set_context_output_dir(context_hdl, output_dir, output_dir_size) BIND(C)
198      USE ISO_C_BINDING
199      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
200      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_dir
201      INTEGER  (kind = C_INT)     , VALUE        :: output_dir_size
202    END SUBROUTINE cxios_set_context_output_dir
203
204    SUBROUTINE cxios_get_context_output_dir(context_hdl, output_dir, output_dir_size) BIND(C)
205      USE ISO_C_BINDING
206      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
207      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_dir
208      INTEGER  (kind = C_INT)     , VALUE        :: output_dir_size
209    END SUBROUTINE cxios_get_context_output_dir
210
211    FUNCTION cxios_is_defined_context_output_dir(context_hdl) BIND(C)
212      USE ISO_C_BINDING
213      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_output_dir
214      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
215    END FUNCTION cxios_is_defined_context_output_dir
216
217  END INTERFACE
218
219END MODULE context_interface_attr
Note: See TracBrowser for help on using the repository browser.