source: XIOS/trunk/src/interface/fortran/idata.F90 @ 961

Last change on this file since 961 was 961, checked in by mhnguyen, 5 years ago

Fortran interface: Receiving scalar value

  • 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: 42.9 KB
Line 
1#include "xios_fortran_prefix.hpp"
2
3MODULE IDATA
4   USE, INTRINSIC :: ISO_C_BINDING
5   USE ICONTEXT
6
7   INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99
8
9      SUBROUTINE  cxios_init_server() BIND(C)
10      END SUBROUTINE cxios_init_server
11
12     SUBROUTINE cxios_init_client(client_id, len_client_id, f_local_comm, f_return_comm) BIND(C)
13         USE ISO_C_BINDING
14         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: client_id
15         INTEGER  (kind = C_INT)     , VALUE        :: len_client_id
16         INTEGER  (kind = C_INT)                    :: f_local_comm
17         INTEGER  (kind = C_INT)                    :: f_return_comm
18      END SUBROUTINE cxios_init_client
19
20      SUBROUTINE  cxios_context_initialize(context_id,len_context_id,f_comm) BIND(C)
21         USE ISO_C_BINDING
22         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: context_id
23         INTEGER  (kind = C_INT)     , VALUE        :: len_context_id
24         INTEGER  (kind = C_INT)                    :: f_comm
25      END SUBROUTINE cxios_context_initialize
26
27      SUBROUTINE cxios_context_is_initialized(context_id,len_context_id,initialized) BIND(C)
28         USE ISO_C_BINDING
29         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: context_id
30         INTEGER  (kind = C_INT)     , VALUE        :: len_context_id
31         LOGICAL  (kind = C_BOOL)                   :: initialized
32      END SUBROUTINE cxios_context_is_initialized
33
34
35       SUBROUTINE  cxios_context_close_definition() BIND(C)
36         USE ISO_C_BINDING
37      END SUBROUTINE cxios_context_close_definition
38
39
40       SUBROUTINE  cxios_context_finalize() BIND(C)
41         USE ISO_C_BINDING
42      END SUBROUTINE cxios_context_finalize
43
44
45      SUBROUTINE  cxios_finalize() BIND(C)
46      END SUBROUTINE cxios_finalize
47
48      SUBROUTINE  cxios_solve_inheritance() BIND(C)
49      END SUBROUTINE cxios_solve_inheritance
50
51      SUBROUTINE cxios_write_data_k80(fieldid, fieldid_size, data_k8, data_Xsize) BIND(C)
52         USE ISO_C_BINDING
53         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
54         REAL     (kind = C_DOUBLE)               :: data_k8
55         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
56         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize
57      END SUBROUTINE cxios_write_data_k80
58
59      SUBROUTINE cxios_write_data_k81(fieldid, fieldid_size, data_k8, data_Xsize) BIND(C)
60         USE ISO_C_BINDING
61         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
62         REAL     (kind = C_DOUBLE), DIMENSION(*) :: data_k8
63         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
64         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize
65      END SUBROUTINE cxios_write_data_k81
66
67      SUBROUTINE cxios_write_data_k82(fieldid, fieldid_size, data_k8, data_Xsize, data_Ysize) BIND(C)
68         USE ISO_C_BINDING
69         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
70         REAL     (kind = C_DOUBLE), DIMENSION(*) :: data_k8
71         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
72         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize, data_Ysize
73      END SUBROUTINE cxios_write_data_k82
74
75      SUBROUTINE cxios_write_data_k83(fieldid, fieldid_size, data_k8, data_Xsize, data_Ysize, data_Zsize) BIND(C)
76         USE ISO_C_BINDING
77         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
78         REAL     (kind = C_DOUBLE), DIMENSION(*) :: data_k8
79         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
80         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize, data_Ysize, data_Zsize
81      END SUBROUTINE cxios_write_data_k83
82
83      SUBROUTINE cxios_write_data_k84(fieldid, fieldid_size, data_k8, &
84                                      data_0size, data_1size, data_2size, &
85                                      data_3size) BIND(C)
86         USE ISO_C_BINDING
87         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
88         REAL     (kind = C_DOUBLE), DIMENSION(*) :: data_k8
89         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
90         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size
91         INTEGER  (kind = C_INT)   , VALUE        :: data_3size
92      END SUBROUTINE cxios_write_data_k84
93
94      SUBROUTINE cxios_write_data_k85(fieldid, fieldid_size, data_k8, &
95                                      data_0size, data_1size, data_2size, &
96                                      data_3size, data_4size) BIND(C)
97         USE ISO_C_BINDING
98         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
99         REAL     (kind = C_DOUBLE), DIMENSION(*) :: data_k8
100         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
101         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size
102         INTEGER  (kind = C_INT)   , VALUE        :: data_3size, data_4size
103      END SUBROUTINE cxios_write_data_k85
104
105      SUBROUTINE cxios_write_data_k86(fieldid, fieldid_size, data_k8, &
106                                      data_0size, data_1size, data_2size, &
107                                      data_3size, data_4size, data_5size) BIND(C)
108         USE ISO_C_BINDING
109         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
110         REAL     (kind = C_DOUBLE), DIMENSION(*) :: data_k8
111         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
112         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size
113         INTEGER  (kind = C_INT)   , VALUE        :: data_3size, data_4size, data_5size
114      END SUBROUTINE cxios_write_data_k86
115
116      SUBROUTINE cxios_write_data_k87(fieldid, fieldid_size, data_k8, &
117                                      data_0size, data_1size, data_2size, &
118                                      data_3size, data_4size, data_5size, &
119                                      data_6size) BIND(C)
120         USE ISO_C_BINDING
121         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
122         REAL     (kind = C_DOUBLE), DIMENSION(*) :: data_k8
123         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
124         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size
125         INTEGER  (kind = C_INT)   , VALUE        :: data_3size, data_4size, data_5size
126         INTEGER  (kind = C_INT)   , VALUE        :: data_6size
127      END SUBROUTINE cxios_write_data_k87
128
129      SUBROUTINE cxios_write_data_k40(fieldid, fieldid_size, data_k4, data_Xsize) BIND(C)
130         USE ISO_C_BINDING
131         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
132         REAL     (kind = C_FLOAT)                :: data_k4
133         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
134         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize
135      END SUBROUTINE cxios_write_data_k40
136
137      SUBROUTINE cxios_write_data_k41(fieldid, fieldid_size, data_k4, data_Xsize) BIND(C)
138         USE ISO_C_BINDING
139         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
140         REAL     (kind = C_FLOAT) , DIMENSION(*) :: data_k4
141         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
142         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize
143      END SUBROUTINE cxios_write_data_k41
144
145      SUBROUTINE cxios_write_data_k42(fieldid, fieldid_size, data_k4, data_Xsize, data_Ysize) BIND(C)
146         USE ISO_C_BINDING
147         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
148         REAL     (kind = C_FLOAT) , DIMENSION(*) :: data_k4
149         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
150         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize, data_Ysize
151      END SUBROUTINE cxios_write_data_k42
152
153      SUBROUTINE cxios_write_data_k43(fieldid, fieldid_size, data_k4, data_Xsize, data_Ysize, data_Zsize) BIND(C)
154         USE ISO_C_BINDING
155         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
156         REAL     (kind = C_FLOAT) , DIMENSION(*) :: data_k4
157         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
158         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize, data_Ysize, data_Zsize
159      END SUBROUTINE cxios_write_data_k43
160
161      SUBROUTINE cxios_write_data_k44(fieldid, fieldid_size, data_k4, &
162                                      data_0size, data_1size, data_2size, &
163                                      data_3size) BIND(C)
164         USE ISO_C_BINDING
165         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
166         REAL     (kind = C_FLOAT) , DIMENSION(*) :: data_k4
167         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
168         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size
169         INTEGER  (kind = C_INT)   , VALUE        :: data_3size
170      END SUBROUTINE cxios_write_data_k44
171
172      SUBROUTINE cxios_write_data_k45(fieldid, fieldid_size, data_k4, &
173                                      data_0size, data_1size, data_2size, &
174                                      data_3size, data_4size) BIND(C)
175         USE ISO_C_BINDING
176         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
177         REAL     (kind = C_FLOAT) , DIMENSION(*) :: data_k4
178         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
179         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size
180         INTEGER  (kind = C_INT)   , VALUE        :: data_3size, data_4size
181      END SUBROUTINE cxios_write_data_k45
182
183      SUBROUTINE cxios_write_data_k46(fieldid, fieldid_size, data_k4, &
184                                      data_0size, data_1size, data_2size, &
185                                      data_3size, data_4size, data_5size) BIND(C)
186         USE ISO_C_BINDING
187         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
188         REAL     (kind = C_FLOAT) , DIMENSION(*) :: data_k4
189         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
190         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size
191         INTEGER  (kind = C_INT)   , VALUE        :: data_3size, data_4size, data_5size
192      END SUBROUTINE cxios_write_data_k46
193
194      SUBROUTINE cxios_write_data_k47(fieldid, fieldid_size, data_k4, &
195                                      data_0size, data_1size, data_2size, &
196                                      data_3size, data_4size, data_5size, &
197                                      data_6size) BIND(C)
198         USE ISO_C_BINDING
199         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
200         REAL     (kind = C_FLOAT) , DIMENSION(*) :: data_k4
201         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
202         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size
203         INTEGER  (kind = C_INT)   , VALUE        :: data_3size, data_4size, data_5size
204         INTEGER  (kind = C_INT)   , VALUE        :: data_6size
205      END SUBROUTINE cxios_write_data_k47
206
207      ! Read data
208      SUBROUTINE cxios_read_data_k80(fieldid, fieldid_size, data_k8, data_Xsize) BIND(C)
209         USE ISO_C_BINDING
210         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
211         REAL     (kind = C_DOUBLE), DIMENSION(*) :: data_k8
212         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
213         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize
214      END SUBROUTINE cxios_read_data_k80
215
216      SUBROUTINE cxios_read_data_k81(fieldid, fieldid_size, data_k8, data_Xsize) BIND(C)
217         USE ISO_C_BINDING
218         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
219         REAL     (kind = C_DOUBLE), DIMENSION(*) :: data_k8
220         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
221         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize
222      END SUBROUTINE cxios_read_data_k81
223
224      SUBROUTINE cxios_read_data_k82(fieldid, fieldid_size, data_k8, data_Xsize, data_Ysize) BIND(C)
225         USE ISO_C_BINDING
226         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
227         REAL     (kind = C_DOUBLE), DIMENSION(*) :: data_k8
228         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
229         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize, data_Ysize
230      END SUBROUTINE cxios_read_data_k82
231
232      SUBROUTINE cxios_read_data_k83(fieldid, fieldid_size, data_k8, data_Xsize, data_Ysize, data_Zsize) BIND(C)
233         USE ISO_C_BINDING
234         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
235         REAL     (kind = C_DOUBLE), DIMENSION(*) :: data_k8
236         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
237         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize, data_Ysize, data_Zsize
238      END SUBROUTINE cxios_read_data_k83
239
240      SUBROUTINE cxios_read_data_k84(fieldid, fieldid_size, data_k8, &
241                                      data_0size, data_1size, data_2size, &
242                                      data_3size) BIND(C)
243         USE ISO_C_BINDING
244         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
245         REAL     (kind = C_DOUBLE), DIMENSION(*) :: data_k8
246         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
247         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size
248         INTEGER  (kind = C_INT)   , VALUE        :: data_3size
249      END SUBROUTINE cxios_read_data_k84
250
251      SUBROUTINE cxios_read_data_k85(fieldid, fieldid_size, data_k8, &
252                                      data_0size, data_1size, data_2size, &
253                                      data_3size, data_4size) BIND(C)
254         USE ISO_C_BINDING
255         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
256         REAL     (kind = C_DOUBLE), DIMENSION(*) :: data_k8
257         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
258         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size
259         INTEGER  (kind = C_INT)   , VALUE        :: data_3size, data_4size
260      END SUBROUTINE cxios_read_data_k85
261
262      SUBROUTINE cxios_read_data_k86(fieldid, fieldid_size, data_k8, &
263                                      data_0size, data_1size, data_2size, &
264                                      data_3size, data_4size, data_5size) BIND(C)
265         USE ISO_C_BINDING
266         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
267         REAL     (kind = C_DOUBLE), DIMENSION(*) :: data_k8
268         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
269         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size
270         INTEGER  (kind = C_INT)   , VALUE        :: data_3size, data_4size, data_5size
271      END SUBROUTINE cxios_read_data_k86
272
273      SUBROUTINE cxios_read_data_k87(fieldid, fieldid_size, data_k8, &
274                                      data_0size, data_1size, data_2size, &
275                                      data_3size, data_4size, data_5size, &
276                                      data_6size) BIND(C)
277         USE ISO_C_BINDING
278         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
279         REAL     (kind = C_DOUBLE), DIMENSION(*) :: data_k8
280         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
281         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size
282         INTEGER  (kind = C_INT)   , VALUE        :: data_3size, data_4size, data_5size
283         INTEGER  (kind = C_INT)   , VALUE        :: data_6size
284      END SUBROUTINE cxios_read_data_k87
285
286      SUBROUTINE cxios_read_data_k40(fieldid, fieldid_size, data_k4, data_Xsize) BIND(C)
287         USE ISO_C_BINDING
288         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
289         REAL     (kind = C_FLOAT) , DIMENSION(*) :: data_k4
290         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
291         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize
292      END SUBROUTINE cxios_read_data_k40
293
294      SUBROUTINE cxios_read_data_k41(fieldid, fieldid_size, data_k4, data_Xsize) BIND(C)
295         USE ISO_C_BINDING
296         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
297         REAL     (kind = C_FLOAT) , DIMENSION(*) :: data_k4
298         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
299         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize
300      END SUBROUTINE cxios_read_data_k41
301
302      SUBROUTINE cxios_read_data_k42(fieldid, fieldid_size, data_k4, data_Xsize, data_Ysize) BIND(C)
303         USE ISO_C_BINDING
304         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
305         REAL     (kind = C_FLOAT) , DIMENSION(*) :: data_k4
306         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
307         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize, data_Ysize
308      END SUBROUTINE cxios_read_data_k42
309
310      SUBROUTINE cxios_read_data_k43(fieldid, fieldid_size, data_k4, data_Xsize, data_Ysize, data_Zsize) BIND(C)
311         USE ISO_C_BINDING
312         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
313         REAL     (kind = C_FLOAT) , DIMENSION(*) :: data_k4
314         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
315         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize, data_Ysize, data_Zsize
316      END SUBROUTINE cxios_read_data_k43
317
318      SUBROUTINE cxios_read_data_k44(fieldid, fieldid_size, data_k4, &
319                                      data_0size, data_1size, data_2size, &
320                                      data_3size) BIND(C)
321         USE ISO_C_BINDING
322         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
323         REAL     (kind = C_FLOAT) , DIMENSION(*) :: data_k4
324         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
325         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size
326         INTEGER  (kind = C_INT)   , VALUE        :: data_3size
327      END SUBROUTINE cxios_read_data_k44
328
329      SUBROUTINE cxios_read_data_k45(fieldid, fieldid_size, data_k4, &
330                                      data_0size, data_1size, data_2size, &
331                                      data_3size, data_4size) BIND(C)
332         USE ISO_C_BINDING
333         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
334         REAL     (kind = C_FLOAT) , DIMENSION(*) :: data_k4
335         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
336         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size
337         INTEGER  (kind = C_INT)   , VALUE        :: data_3size, data_4size
338      END SUBROUTINE cxios_read_data_k45
339
340      SUBROUTINE cxios_read_data_k46(fieldid, fieldid_size, data_k4, &
341                                      data_0size, data_1size, data_2size, &
342                                      data_3size, data_4size, data_5size) BIND(C)
343         USE ISO_C_BINDING
344         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
345         REAL     (kind = C_FLOAT) , DIMENSION(*) :: data_k4
346         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
347         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size
348         INTEGER  (kind = C_INT)   , VALUE        :: data_3size, data_4size, data_5size
349      END SUBROUTINE cxios_read_data_k46
350
351      SUBROUTINE cxios_read_data_k47(fieldid, fieldid_size, data_k4, &
352                                      data_0size, data_1size, data_2size, &
353                                      data_3size, data_4size, data_5size, &
354                                      data_6size) BIND(C)
355         USE ISO_C_BINDING
356         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid
357         REAL     (kind = C_FLOAT) , DIMENSION(*) :: data_k4
358         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size
359         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size
360         INTEGER  (kind = C_INT)   , VALUE        :: data_3size, data_4size, data_5size
361         INTEGER  (kind = C_INT)   , VALUE        :: data_6size
362      END SUBROUTINE cxios_read_data_k47
363
364      ! Binding C and Fortran interface of get_variable (icdata.cpp)
365      SUBROUTINE cxios_get_variable_data_k8(vardid, varid_size, data_k8, is_var_existed) BIND(C)
366         USE ISO_C_BINDING
367         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: vardid
368         INTEGER  (kind = C_INT)   , VALUE        :: varid_size
369         REAL     (kind = C_DOUBLE)               :: data_k8
370         LOGICAL  (kind = C_BOOL)                 :: is_var_existed
371      END SUBROUTINE cxios_get_variable_data_k8
372
373      SUBROUTINE cxios_get_variable_data_k4(vardid, varid_size, data_k4, is_var_existed) BIND(C)
374         USE ISO_C_BINDING
375         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: vardid
376         INTEGER  (kind = C_INT)   , VALUE        :: varid_size
377         REAL     (kind = C_FLOAT)                :: data_k4
378         LOGICAL  (kind = C_BOOL)                 :: is_var_existed
379      END SUBROUTINE cxios_get_variable_data_k4
380
381      SUBROUTINE cxios_get_variable_data_int(vardid, varid_size, data_int, is_var_existed) BIND(C)
382         USE ISO_C_BINDING
383         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: vardid
384         INTEGER  (kind = C_INT)   , VALUE        :: varid_size
385         INTEGER  (kind = C_INT)                  :: data_int
386         LOGICAL  (kind = C_BOOL)                 :: is_var_existed
387      END SUBROUTINE cxios_get_variable_data_int
388
389      SUBROUTINE cxios_get_variable_data_logic(vardid, varid_size, data_logic, is_var_existed) BIND(C)
390         USE ISO_C_BINDING
391         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: vardid
392         INTEGER  (kind = C_INT)   , VALUE        :: varid_size
393         LOGICAL  (kind = 4)                      :: data_logic
394         LOGICAL  (kind = C_BOOL)                 :: is_var_existed
395      END SUBROUTINE cxios_get_variable_data_logic
396
397      SUBROUTINE cxios_get_variable_data_char(vardid, varid_size, data_char, data_size_in, is_var_existed) BIND(C)
398         USE ISO_C_BINDING
399         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: vardid
400         INTEGER  (kind = C_INT)   , VALUE        :: varid_size
401         INTEGER  (kind = C_INT)   , VALUE        :: data_size_in
402         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: data_char
403         LOGICAL  (kind = C_BOOL)                 :: is_var_existed
404      END SUBROUTINE cxios_get_variable_data_char
405
406      ! Binding C and Fortran interface of set_variable (icdata.cpp)
407      SUBROUTINE cxios_set_variable_data_k8(vardid, varid_size, data_k8, is_var_existed) BIND(C)
408         USE ISO_C_BINDING
409         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: vardid
410         INTEGER  (kind = C_INT)   , VALUE        :: varid_size
411         REAL     (kind = C_DOUBLE), VALUE        :: data_k8
412         LOGICAL  (kind = C_BOOL)                 :: is_var_existed
413      END SUBROUTINE cxios_set_variable_data_k8
414
415      SUBROUTINE cxios_set_variable_data_k4(vardid, varid_size, data_k4, is_var_existed) BIND(C)
416         USE ISO_C_BINDING
417         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: vardid
418         INTEGER  (kind = C_INT)   , VALUE        :: varid_size
419         REAL     (kind = C_FLOAT) , VALUE        :: data_k4
420         LOGICAL  (kind = C_BOOL)                 :: is_var_existed
421      END SUBROUTINE cxios_set_variable_data_k4
422
423      SUBROUTINE cxios_set_variable_data_int(vardid, varid_size, data_int, is_var_existed) BIND(C)
424         USE ISO_C_BINDING
425         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: vardid
426         INTEGER  (kind = C_INT)   , VALUE        :: varid_size
427         INTEGER  (kind = C_INT)   , VALUE        :: data_int
428         LOGICAL  (kind = C_BOOL)                 :: is_var_existed
429      END SUBROUTINE cxios_set_variable_data_int
430
431      SUBROUTINE cxios_set_variable_data_logic(vardid, varid_size, data_logic, is_var_existed) BIND(C)
432         USE ISO_C_BINDING
433         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: vardid
434         INTEGER  (kind = C_INT)   , VALUE        :: varid_size
435         LOGICAL  (kind = 4)       , VALUE        :: data_logic
436         LOGICAL  (kind = C_BOOL)                 :: is_var_existed
437      END SUBROUTINE cxios_set_variable_data_logic
438
439      SUBROUTINE cxios_set_variable_data_char(vardid, varid_size, data_char, data_size_in, is_var_existed) BIND(C)
440         USE ISO_C_BINDING
441         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: vardid
442         INTEGER  (kind = C_INT)   , VALUE        :: varid_size
443         INTEGER  (kind = C_INT)   , VALUE        :: data_size_in
444         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: data_char
445         LOGICAL  (kind = C_BOOL)                 :: is_var_existed
446      END SUBROUTINE cxios_set_variable_data_char
447
448   END INTERFACE
449
450
451   CONTAINS ! Fonctions disponibles pour les utilisateurs.
452
453   SUBROUTINE  xios(init_server)()
454   IMPLICIT NONE
455     CALL cxios_init_server()
456   END SUBROUTINE xios(init_server)
457
458   SUBROUTINE  xios(initialize)(client_id, local_comm, return_comm)
459   IMPLICIT NONE
460   INCLUDE 'mpif.h'
461   CHARACTER(LEN=*),INTENT(IN) :: client_id
462   INTEGER,INTENT(IN),OPTIONAL         :: local_comm
463   INTEGER,INTENT(OUT),OPTIONAL        :: return_comm
464   INTEGER :: f_local_comm
465   INTEGER :: f_return_comm
466
467      IF (PRESENT(local_comm)) THEN
468        f_local_comm=local_comm
469      ELSE
470        f_local_comm = MPI_COMM_NULL
471      ENDIF
472
473      CALL cxios_init_client(client_id,LEN(client_id),f_local_comm,f_return_comm)
474
475      IF (PRESENT(return_comm)) return_comm=f_return_comm
476
477   END SUBROUTINE  xios(initialize)
478
479
480   SUBROUTINE  xios(context_initialize)(context_id,comm)
481   IMPLICIT NONE
482   CHARACTER(LEN=*),INTENT(IN)  :: context_id
483   INTEGER, INTENT(IN)          :: comm
484
485      CALL cxios_context_initialize(context_id,LEN(context_id),comm)
486
487    END SUBROUTINE  xios(context_initialize)
488
489
490   LOGICAL FUNCTION  xios(context_is_initialized)(context_id)
491   USE ISO_C_BINDING
492   IMPLICIT NONE
493   CHARACTER(LEN=*),INTENT(IN)  :: context_id
494   LOGICAL(KIND=C_BOOL) :: is_init
495
496      CALL cxios_context_is_initialized(context_id, LEN(context_id), is_init)
497      xios(context_is_initialized) = is_init
498
499    END FUNCTION xios(context_is_initialized)
500
501
502   SUBROUTINE  xios(finalize)
503   IMPLICIT NONE
504
505      CALL cxios_finalize
506
507    END SUBROUTINE  xios(finalize)
508
509
510   SUBROUTINE xios(close_context_definition)()
511   IMPLICIT NONE
512      CALL cxios_context_close_definition()
513   END SUBROUTINE xios(close_context_definition)
514
515
516   SUBROUTINE xios(context_finalize)()
517   IMPLICIT NONE
518      CALL cxios_context_finalize()
519   END SUBROUTINE xios(context_finalize)
520
521   SUBROUTINE xios(solve_inheritance)()
522   IMPLICIT NONE
523      CALL cxios_solve_inheritance()
524   END SUBROUTINE xios(solve_inheritance)
525
526   ! Send field functions
527   SUBROUTINE xios(send_field_r8_0d)(fieldid, data_k8)
528   IMPLICIT NONE
529      CHARACTER(len = *) , INTENT(IN) :: fieldid
530      REAL     (kind = 8), INTENT(IN) :: data_k8
531      CALL cxios_write_data_k80(fieldid, len(fieldid), data_k8, 1)
532   END SUBROUTINE xios(send_field_r8_0d)
533
534   SUBROUTINE xios(send_field_r8_1d)(fieldid, data1d_k8)
535   IMPLICIT NONE
536      CHARACTER(len = *)               , INTENT(IN) :: fieldid
537      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data1d_k8(:)
538      CALL cxios_write_data_k81(fieldid, len(fieldid), data1d_k8, size(data1d_k8, 1))
539   END SUBROUTINE xios(send_field_r8_1d)
540
541   SUBROUTINE  xios(send_field_r8_2d)(fieldid, data2d_k8)
542   IMPLICIT NONE
543      CHARACTER(len = *)               , INTENT(IN) :: fieldid
544      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data2d_k8(:,:)
545      CALL cxios_write_data_k82(fieldid, len(fieldid), data2d_k8, size(data2d_k8, 1), size(data2d_k8, 2))
546   END SUBROUTINE  xios(send_field_r8_2d)
547
548   SUBROUTINE  xios(send_field_r8_3d)(fieldid, data3d_k8)
549   IMPLICIT NONE
550      CHARACTER(len = *)               , INTENT(IN) :: fieldid
551      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data3d_k8(:,:,:)
552      CALL cxios_write_data_k83(fieldid, len(fieldid), data3d_k8, size(data3d_k8, 1), size(data3d_k8, 2), size(data3d_k8, 3))
553   END SUBROUTINE  xios(send_field_r8_3d)
554
555   SUBROUTINE  xios(send_field_r8_4d)(fieldid, data4d_k8)
556   IMPLICIT NONE
557      CHARACTER(len = *)               , INTENT(IN) :: fieldid
558      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data4d_k8(:,:,:,:)
559      CALL cxios_write_data_k84(fieldid, len(fieldid), data4d_k8, &
560                                size(data4d_k8, 1), size(data4d_k8, 2), size(data4d_k8, 3), &
561                                size(data4d_k8, 4))
562   END SUBROUTINE  xios(send_field_r8_4d)
563
564   SUBROUTINE  xios(send_field_r8_5d)(fieldid, data5d_k8)
565   IMPLICIT NONE
566      CHARACTER(len = *)               , INTENT(IN) :: fieldid
567      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data5d_k8(:,:,:,:,:)
568      CALL cxios_write_data_k85(fieldid, len(fieldid), data5d_k8, &
569                                size(data5d_k8, 1), size(data5d_k8, 2), size(data5d_k8, 3), &
570                                size(data5d_k8, 4), size(data5d_k8, 5))
571   END SUBROUTINE  xios(send_field_r8_5d)
572
573   SUBROUTINE  xios(send_field_r8_6d)(fieldid, data6d_k8)
574   IMPLICIT NONE
575      CHARACTER(len = *)               , INTENT(IN) :: fieldid
576      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data6d_k8(:,:,:,:,:,:)
577      CALL cxios_write_data_k86(fieldid, len(fieldid), data6d_k8, &
578                                size(data6d_k8, 1), size(data6d_k8, 2), size(data6d_k8, 3), &
579                                size(data6d_k8, 4), size(data6d_k8, 5), size(data6d_k8, 6))
580   END SUBROUTINE  xios(send_field_r8_6d)
581
582   SUBROUTINE  xios(send_field_r8_7d)(fieldid, data7d_k8)
583   IMPLICIT NONE
584      CHARACTER(len = *)               , INTENT(IN) :: fieldid
585      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data7d_k8(:,:,:,:,:,:,:)
586      CALL cxios_write_data_k87(fieldid, len(fieldid), data7d_k8, &
587                                size(data7d_k8, 1), size(data7d_k8, 2), size(data7d_k8, 3), &
588                                size(data7d_k8, 4), size(data7d_k8, 5), size(data7d_k8, 6), &
589                                size(data7d_k8, 7))
590   END SUBROUTINE  xios(send_field_r8_7d)
591
592   SUBROUTINE xios(send_field_r4_0d)(fieldid, data_k4)
593   IMPLICIT NONE
594      CHARACTER(len = *) , INTENT(IN) :: fieldid
595      REAL     (kind = 4), INTENT(IN) :: data_k4
596      CALL cxios_write_data_k40(fieldid, len(fieldid), data_k4, 1)
597   END SUBROUTINE xios(send_field_r4_0d)
598
599   SUBROUTINE xios(send_field_r4_1d)(fieldid, data1d_k4)
600   IMPLICIT NONE
601      CHARACTER(len = *)               , INTENT(IN) :: fieldid
602      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data1d_k4(:)
603      CALL cxios_write_data_k41(fieldid, len(fieldid), data1d_k4, size(data1d_k4, 1))
604   END SUBROUTINE xios(send_field_r4_1d)
605
606   SUBROUTINE xios(send_field_r4_2d)(fieldid, data2d_k4)
607   IMPLICIT NONE
608      CHARACTER(len = *)               , INTENT(IN) :: fieldid
609      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data2d_k4(:,:)
610      CALL cxios_write_data_k42(fieldid, len(fieldid), data2d_k4, size(data2d_k4, 1), size(data2d_k4, 2))
611   END SUBROUTINE xios(send_field_r4_2d)
612
613   SUBROUTINE xios(send_field_r4_3d)(fieldid, data3d_k4)
614   IMPLICIT NONE
615      CHARACTER(len = *)               , INTENT(IN) :: fieldid
616      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data3d_k4(:,:,:)
617      CALL cxios_write_data_k43(fieldid, len(fieldid), data3d_k4, size(data3d_k4, 1), size(data3d_k4, 2), size(data3d_k4, 3))
618   END SUBROUTINE xios(send_field_r4_3d)
619
620   SUBROUTINE  xios(send_field_r4_4d)(fieldid, data4d_k4)
621   IMPLICIT NONE
622      CHARACTER(len = *)               , INTENT(IN) :: fieldid
623      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data4d_k4(:,:,:,:)
624      CALL cxios_write_data_k44(fieldid, len(fieldid), data4d_k4, &
625                                size(data4d_k4, 1), size(data4d_k4, 2), size(data4d_k4, 3), &
626                                size(data4d_k4, 4))
627   END SUBROUTINE  xios(send_field_r4_4d)
628
629   SUBROUTINE  xios(send_field_r4_5d)(fieldid, data5d_k4)
630   IMPLICIT NONE
631      CHARACTER(len = *)               , INTENT(IN) :: fieldid
632      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data5d_k4(:,:,:,:,:)
633      CALL cxios_write_data_k45(fieldid, len(fieldid), data5d_k4, &
634                                size(data5d_k4, 1), size(data5d_k4, 2), size(data5d_k4, 3), &
635                                size(data5d_k4, 4), size(data5d_k4, 5))
636   END SUBROUTINE  xios(send_field_r4_5d)
637
638   SUBROUTINE  xios(send_field_r4_6d)(fieldid, data6d_k4)
639   IMPLICIT NONE
640      CHARACTER(len = *)               , INTENT(IN) :: fieldid
641      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data6d_k4(:,:,:,:,:,:)
642      CALL cxios_write_data_k46(fieldid, len(fieldid), data6d_k4, &
643                                size(data6d_k4, 1), size(data6d_k4, 2), size(data6d_k4, 3), &
644                                size(data6d_k4, 4), size(data6d_k4, 5), size(data6d_k4, 6))
645   END SUBROUTINE  xios(send_field_r4_6d)
646
647   SUBROUTINE  xios(send_field_r4_7d)(fieldid, data7d_k4)
648   IMPLICIT NONE
649      CHARACTER(len = *)               , INTENT(IN) :: fieldid
650      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data7d_k4(:,:,:,:,:,:,:)
651      CALL cxios_write_data_k47(fieldid, len(fieldid), data7d_k4, &
652                                size(data7d_k4, 1), size(data7d_k4, 2), size(data7d_k4, 3), &
653                                size(data7d_k4, 4), size(data7d_k4, 5), size(data7d_k4, 6), &
654                                size(data7d_k4, 7))
655   END SUBROUTINE  xios(send_field_r4_7d)
656
657   ! Receive field functions
658   SUBROUTINE xios(recv_field_r8_0d)(fieldid, data1d_k8)
659   IMPLICIT NONE
660      CHARACTER(len = *)               , INTENT(IN) :: fieldid
661      REAL     (kind = 8), DIMENSION(*), INTENT(OUT) :: data1d_k8(:)
662      CALL cxios_read_data_k80(fieldid, len(fieldid), data1d_k8, size(data1d_k8, 1))
663   END SUBROUTINE xios(recv_field_r8_0d)
664
665   SUBROUTINE xios(recv_field_r8_1d)(fieldid, data1d_k8)
666   IMPLICIT NONE
667      CHARACTER(len = *)               , INTENT(IN) :: fieldid
668      REAL     (kind = 8), DIMENSION(*), INTENT(OUT) :: data1d_k8(:)
669      CALL cxios_read_data_k81(fieldid, len(fieldid), data1d_k8, size(data1d_k8, 1))
670   END SUBROUTINE xios(recv_field_r8_1d)
671
672   SUBROUTINE  xios(recv_field_r8_2d)(fieldid, data2d_k8)
673   IMPLICIT NONE
674      CHARACTER(len = *)               , INTENT(IN) :: fieldid
675      REAL     (kind = 8), DIMENSION(*), INTENT(OUT) :: data2d_k8(:,:)
676      CALL cxios_read_data_k82(fieldid, len(fieldid), data2d_k8, size(data2d_k8, 1), size(data2d_k8, 2))
677   END SUBROUTINE  xios(recv_field_r8_2d)
678
679   SUBROUTINE  xios(recv_field_r8_3d)(fieldid, data3d_k8)
680   IMPLICIT NONE
681      CHARACTER(len = *)               , INTENT(IN) :: fieldid
682      REAL     (kind = 8), DIMENSION(*), INTENT(OUT) :: data3d_k8(:,:,:)
683      CALL cxios_read_data_k83(fieldid, len(fieldid), data3d_k8, size(data3d_k8, 1), size(data3d_k8, 2), size(data3d_k8, 3))
684   END SUBROUTINE  xios(recv_field_r8_3d)
685
686   SUBROUTINE  xios(recv_field_r8_4d)(fieldid, data4d_k8)
687   IMPLICIT NONE
688      CHARACTER(len = *)               , INTENT(IN) :: fieldid
689      REAL     (kind = 8), DIMENSION(*), INTENT(OUT) :: data4d_k8(:,:,:,:)
690      CALL cxios_read_data_k84(fieldid, len(fieldid), data4d_k8, &
691                                size(data4d_k8, 1), size(data4d_k8, 2), size(data4d_k8, 3), &
692                                size(data4d_k8, 4))
693   END SUBROUTINE  xios(recv_field_r8_4d)
694
695   SUBROUTINE  xios(recv_field_r8_5d)(fieldid, data5d_k8)
696   IMPLICIT NONE
697      CHARACTER(len = *)               , INTENT(IN) :: fieldid
698      REAL     (kind = 8), DIMENSION(*), INTENT(OUT) :: data5d_k8(:,:,:,:,:)
699      CALL cxios_read_data_k85(fieldid, len(fieldid), data5d_k8, &
700                                size(data5d_k8, 1), size(data5d_k8, 2), size(data5d_k8, 3), &
701                                size(data5d_k8, 4), size(data5d_k8, 5))
702   END SUBROUTINE  xios(recv_field_r8_5d)
703
704   SUBROUTINE  xios(recv_field_r8_6d)(fieldid, data6d_k8)
705   IMPLICIT NONE
706      CHARACTER(len = *)               , INTENT(IN) :: fieldid
707      REAL     (kind = 8), DIMENSION(*), INTENT(OUT) :: data6d_k8(:,:,:,:,:,:)
708      CALL cxios_read_data_k86(fieldid, len(fieldid), data6d_k8, &
709                                size(data6d_k8, 1), size(data6d_k8, 2), size(data6d_k8, 3), &
710                                size(data6d_k8, 4), size(data6d_k8, 5), size(data6d_k8, 6))
711   END SUBROUTINE  xios(recv_field_r8_6d)
712
713   SUBROUTINE  xios(recv_field_r8_7d)(fieldid, data7d_k8)
714   IMPLICIT NONE
715      CHARACTER(len = *)               , INTENT(IN) :: fieldid
716      REAL     (kind = 8), DIMENSION(*), INTENT(OUT) :: data7d_k8(:,:,:,:,:,:,:)
717      CALL cxios_read_data_k87(fieldid, len(fieldid), data7d_k8, &
718                                size(data7d_k8, 1), size(data7d_k8, 2), size(data7d_k8, 3), &
719                                size(data7d_k8, 4), size(data7d_k8, 5), size(data7d_k8, 6), &
720                                size(data7d_k8, 7))
721   END SUBROUTINE  xios(recv_field_r8_7d)
722
723   SUBROUTINE xios(recv_field_r4_0d)(fieldid, data0d_k4)
724   IMPLICIT NONE
725      CHARACTER(len = *)               , INTENT(IN) :: fieldid
726      REAL     (kind = 4), DIMENSION(*), INTENT(OUT) :: data0d_k4(:)
727      CALL cxios_read_data_k40(fieldid, len(fieldid), data0d_k4, size(data0d_k4, 1))
728   END SUBROUTINE xios(recv_field_r4_0d)
729
730   SUBROUTINE xios(recv_field_r4_1d)(fieldid, data1d_k4)
731   IMPLICIT NONE
732      CHARACTER(len = *)               , INTENT(IN) :: fieldid
733      REAL     (kind = 4), DIMENSION(*), INTENT(OUT) :: data1d_k4(:)
734      CALL cxios_read_data_k41(fieldid, len(fieldid), data1d_k4, size(data1d_k4, 1))
735   END SUBROUTINE xios(recv_field_r4_1d)
736
737   SUBROUTINE xios(recv_field_r4_2d)(fieldid, data2d_k4)
738   IMPLICIT NONE
739      CHARACTER(len = *)               , INTENT(IN) :: fieldid
740      REAL     (kind = 4), DIMENSION(*), INTENT(OUT) :: data2d_k4(:,:)
741      CALL cxios_read_data_k42(fieldid, len(fieldid), data2d_k4, size(data2d_k4, 1), size(data2d_k4, 2))
742   END SUBROUTINE xios(recv_field_r4_2d)
743
744   SUBROUTINE xios(recv_field_r4_3d)(fieldid, data3d_k4)
745   IMPLICIT NONE
746      CHARACTER(len = *)               , INTENT(IN) :: fieldid
747      REAL     (kind = 4), DIMENSION(*), INTENT(OUT) :: data3d_k4(:,:,:)
748      CALL cxios_read_data_k43(fieldid, len(fieldid), data3d_k4, size(data3d_k4, 1), size(data3d_k4, 2), size(data3d_k4, 3))
749   END SUBROUTINE xios(recv_field_r4_3d)
750
751   SUBROUTINE  xios(recv_field_r4_4d)(fieldid, data4d_k4)
752   IMPLICIT NONE
753      CHARACTER(len = *)               , INTENT(IN) :: fieldid
754      REAL     (kind = 4), DIMENSION(*), INTENT(OUT) :: data4d_k4(:,:,:,:)
755      CALL cxios_read_data_k44(fieldid, len(fieldid), data4d_k4, &
756                                size(data4d_k4, 1), size(data4d_k4, 2), size(data4d_k4, 3), &
757                                size(data4d_k4, 4))
758   END SUBROUTINE  xios(recv_field_r4_4d)
759
760   SUBROUTINE  xios(recv_field_r4_5d)(fieldid, data5d_k4)
761   IMPLICIT NONE
762      CHARACTER(len = *)               , INTENT(IN) :: fieldid
763      REAL     (kind = 4), DIMENSION(*), INTENT(OUT) :: data5d_k4(:,:,:,:,:)
764      CALL cxios_read_data_k45(fieldid, len(fieldid), data5d_k4, &
765                                size(data5d_k4, 1), size(data5d_k4, 2), size(data5d_k4, 3), &
766                                size(data5d_k4, 4), size(data5d_k4, 5))
767   END SUBROUTINE  xios(recv_field_r4_5d)
768
769   SUBROUTINE  xios(recv_field_r4_6d)(fieldid, data6d_k4)
770   IMPLICIT NONE
771      CHARACTER(len = *)               , INTENT(IN) :: fieldid
772      REAL     (kind = 4), DIMENSION(*), INTENT(OUT) :: data6d_k4(:,:,:,:,:,:)
773      CALL cxios_read_data_k46(fieldid, len(fieldid), data6d_k4, &
774                                size(data6d_k4, 1), size(data6d_k4, 2), size(data6d_k4, 3), &
775                                size(data6d_k4, 4), size(data6d_k4, 5), size(data6d_k4, 6))
776   END SUBROUTINE  xios(recv_field_r4_6d)
777
778   SUBROUTINE  xios(recv_field_r4_7d)(fieldid, data7d_k4)
779   IMPLICIT NONE
780      CHARACTER(len = *)               , INTENT(IN) :: fieldid
781      REAL     (kind = 4), DIMENSION(*), INTENT(OUT) :: data7d_k4(:,:,:,:,:,:,:)
782      CALL cxios_read_data_k47(fieldid, len(fieldid), data7d_k4, &
783                                size(data7d_k4, 1), size(data7d_k4, 2), size(data7d_k4, 3), &
784                                size(data7d_k4, 4), size(data7d_k4, 5), size(data7d_k4, 6), &
785                                size(data7d_k4, 7))
786   END SUBROUTINE  xios(recv_field_r4_7d)
787
788   ! Get variable functions
789   LOGICAL FUNCTION xios(getVar_k8)(varId, data_k8)
790   IMPLICIT NONE
791      LOGICAL  (kind = 1)                           :: val
792      CHARACTER(len = *)               , INTENT(IN) :: varId
793      REAL     (kind = 8)              , INTENT(OUT):: data_k8
794
795      CALL cxios_get_variable_data_k8(varId, len(varId), data_k8, val)
796
797      xios(getVar_k8) = val
798   END FUNCTION xios(getVar_k8)
799
800   LOGICAL FUNCTION xios(getVar_k4)(varId, data_k4)
801   IMPLICIT NONE
802      LOGICAL  (kind = 1)                           :: val
803      CHARACTER(len = *)               , INTENT(IN) :: varId
804      REAL     (kind = 4)              , INTENT(OUT):: data_k4
805
806      CALL cxios_get_variable_data_k4(varId, len(varId), data_k4, val)
807
808      xios(getVar_k4) = val
809   END FUNCTION xios(getVar_k4)
810
811   LOGICAL FUNCTION xios(getVar_int)(varId, data_int)
812   IMPLICIT NONE
813      LOGICAL  (kind = 1)                           :: val
814      CHARACTER(len = *)               , INTENT(IN) :: varId
815      INTEGER                          , INTENT(OUT):: data_int
816
817      CALL cxios_get_variable_data_int(varId, len(varId), data_int, val)
818
819      xios(getVar_int) = val
820   END FUNCTION xios(getVar_int)
821
822   LOGICAL FUNCTION xios(getVar_logic)(varId, data_logic)
823   IMPLICIT NONE
824      LOGICAL  (kind = 1)                           :: val
825      CHARACTER(len  = *)              , INTENT(IN) :: varId
826      LOGICAL  (kind = 4)              , INTENT(OUT):: data_logic
827
828      CALL cxios_get_variable_data_logic(varId, len(varId), data_logic, val)
829
830      xios(getVar_logic) = val
831   END FUNCTION xios(getVar_logic)
832
833   LOGICAL FUNCTION xios(getVar_char)(varId, data_char)
834   IMPLICIT NONE
835      LOGICAL  (kind = 1)                           :: val
836      CHARACTER(len  = *)              , INTENT(IN) :: varId
837      CHARACTER(len  = *)              , INTENT(OUT):: data_char
838
839      CALL cxios_get_variable_data_char(varId, len(varId), data_char, len(data_char), val)
840
841      xios(getVar_char) = val
842   END FUNCTION xios(getVar_char)
843
844   ! Set variable functions
845   LOGICAL FUNCTION xios(setVar_k8)(varId, data_k8)
846   IMPLICIT NONE
847      LOGICAL  (kind = 1)                           :: val
848      CHARACTER(len = *)               , INTENT(IN) :: varId
849      REAL     (kind = 8)              , INTENT(IN) :: data_k8
850
851      CALL cxios_set_variable_data_k8(varId, len(varId), data_k8, val)
852
853      xios(setVar_k8) = val
854   END FUNCTION xios(setVar_k8)
855
856   LOGICAL FUNCTION xios(setVar_k4)(varId, data_k4)
857   IMPLICIT NONE
858      LOGICAL  (kind = 1)                           :: val
859      CHARACTER(len = *)               , INTENT(IN) :: varId
860      REAL     (kind = 4)              , INTENT(IN) :: data_k4
861
862      CALL cxios_set_variable_data_k4(varId, len(varId), data_k4, val)
863
864      xios(setVar_k4) = val
865   END FUNCTION xios(setVar_k4)
866
867   LOGICAL FUNCTION xios(setVar_int)(varId, data_int)
868   IMPLICIT NONE
869      LOGICAL  (kind = 1)                           :: val
870      CHARACTER(len = *)               , INTENT(IN) :: varId
871      INTEGER                          , INTENT(IN) :: data_int
872
873      CALL cxios_set_variable_data_int(varId, len(varId), data_int, val)
874
875      xios(setVar_int) = val
876   END FUNCTION xios(setVar_int)
877
878   LOGICAL FUNCTION xios(setVar_logic)(varId, data_logic)
879   IMPLICIT NONE
880      LOGICAL  (kind = 1)                           :: val
881      CHARACTER(len  = *)              , INTENT(IN) :: varId
882      LOGICAL  (kind = 4)              , INTENT(IN) :: data_logic
883
884      CALL cxios_set_variable_data_logic(varId, len(varId), data_logic, val)
885
886      xios(setVar_logic) = val
887   END FUNCTION xios(setVar_logic)
888
889   LOGICAL FUNCTION xios(setVar_char)(varId, data_char)
890   IMPLICIT NONE
891      LOGICAL  (kind = 1)                           :: val
892      CHARACTER(len  = *)              , INTENT(IN) :: varId
893      CHARACTER(len  = *)              , INTENT(IN) :: data_char
894
895      CALL cxios_set_variable_data_char(varId, len(varId), data_char, len(data_char), val)
896
897      xios(setVar_char) = val
898   END FUNCTION xios(setVar_char)
899
900END MODULE IDATA
Note: See TracBrowser for help on using the repository browser.