source: XIOS/dev/branch_yushan_merged/src/interface/fortran/idata.F90 @ 1134

Last change on this file since 1134 was 1134, checked in by yushan, 7 years ago

branch merged with trunk r1130

  • 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.8 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)               :: 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)                :: 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
468      IF (PRESENT(local_comm)) THEN
469        f_local_comm=local_comm
470      ELSE
471        f_local_comm = MPI_COMM_NULL
472      ENDIF
473
474      CALL cxios_init_client(client_id,LEN(client_id),f_local_comm,f_return_comm)
475
476      IF (PRESENT(return_comm)) return_comm=f_return_comm
477
478   END SUBROUTINE  xios(initialize)
479
480
481   SUBROUTINE  xios(context_initialize)(context_id,comm)
482   IMPLICIT NONE
483   CHARACTER(LEN=*),INTENT(IN)  :: context_id
484   INTEGER, INTENT(IN)          :: comm
485
486      CALL cxios_context_initialize(context_id,LEN(context_id),comm)
487
488    END SUBROUTINE  xios(context_initialize)
489
490
491   LOGICAL FUNCTION  xios(context_is_initialized)(context_id)
492   USE ISO_C_BINDING
493   IMPLICIT NONE
494   CHARACTER(LEN=*),INTENT(IN)  :: context_id
495   LOGICAL(KIND=C_BOOL) :: is_init
496
497      CALL cxios_context_is_initialized(context_id, LEN(context_id), is_init)
498      xios(context_is_initialized) = is_init
499
500    END FUNCTION xios(context_is_initialized)
501
502
503   SUBROUTINE  xios(finalize)
504   IMPLICIT NONE
505
506      CALL cxios_finalize
507
508    END SUBROUTINE  xios(finalize)
509
510
511   SUBROUTINE xios(close_context_definition)()
512   IMPLICIT NONE
513      CALL cxios_context_close_definition()
514   END SUBROUTINE xios(close_context_definition)
515
516
517   SUBROUTINE xios(context_finalize)()
518   IMPLICIT NONE
519      CALL cxios_context_finalize()
520   END SUBROUTINE xios(context_finalize)
521
522   SUBROUTINE xios(solve_inheritance)()
523   IMPLICIT NONE
524      CALL cxios_solve_inheritance()
525   END SUBROUTINE xios(solve_inheritance)
526
527   ! Send field functions
528   SUBROUTINE xios(send_field_r8_0d)(fieldid, data_k8)
529   IMPLICIT NONE
530      CHARACTER(len = *) , INTENT(IN) :: fieldid
531      REAL     (kind = 8), INTENT(IN) :: data_k8
532      CALL cxios_write_data_k80(fieldid, len(fieldid), data_k8, 1)
533   END SUBROUTINE xios(send_field_r8_0d)
534
535   SUBROUTINE xios(send_field_r8_1d)(fieldid, data1d_k8)
536   IMPLICIT NONE
537      CHARACTER(len = *)               , INTENT(IN) :: fieldid
538      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data1d_k8(:)
539      CALL cxios_write_data_k81(fieldid, len(fieldid), data1d_k8, size(data1d_k8, 1))
540   END SUBROUTINE xios(send_field_r8_1d)
541
542   SUBROUTINE  xios(send_field_r8_2d)(fieldid, data2d_k8)
543   IMPLICIT NONE
544      CHARACTER(len = *)               , INTENT(IN) :: fieldid
545      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data2d_k8(:,:)
546      CALL cxios_write_data_k82(fieldid, len(fieldid), data2d_k8, size(data2d_k8, 1), size(data2d_k8, 2))
547   END SUBROUTINE  xios(send_field_r8_2d)
548
549   SUBROUTINE  xios(send_field_r8_3d)(fieldid, data3d_k8)
550   IMPLICIT NONE
551      CHARACTER(len = *)               , INTENT(IN) :: fieldid
552      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data3d_k8(:,:,:)
553      CALL cxios_write_data_k83(fieldid, len(fieldid), data3d_k8, size(data3d_k8, 1), size(data3d_k8, 2), size(data3d_k8, 3))
554   END SUBROUTINE  xios(send_field_r8_3d)
555
556   SUBROUTINE  xios(send_field_r8_4d)(fieldid, data4d_k8)
557   IMPLICIT NONE
558      CHARACTER(len = *)               , INTENT(IN) :: fieldid
559      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data4d_k8(:,:,:,:)
560      CALL cxios_write_data_k84(fieldid, len(fieldid), data4d_k8, &
561                                size(data4d_k8, 1), size(data4d_k8, 2), size(data4d_k8, 3), &
562                                size(data4d_k8, 4))
563   END SUBROUTINE  xios(send_field_r8_4d)
564
565   SUBROUTINE  xios(send_field_r8_5d)(fieldid, data5d_k8)
566   IMPLICIT NONE
567      CHARACTER(len = *)               , INTENT(IN) :: fieldid
568      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data5d_k8(:,:,:,:,:)
569      CALL cxios_write_data_k85(fieldid, len(fieldid), data5d_k8, &
570                                size(data5d_k8, 1), size(data5d_k8, 2), size(data5d_k8, 3), &
571                                size(data5d_k8, 4), size(data5d_k8, 5))
572   END SUBROUTINE  xios(send_field_r8_5d)
573
574   SUBROUTINE  xios(send_field_r8_6d)(fieldid, data6d_k8)
575   IMPLICIT NONE
576      CHARACTER(len = *)               , INTENT(IN) :: fieldid
577      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data6d_k8(:,:,:,:,:,:)
578      CALL cxios_write_data_k86(fieldid, len(fieldid), data6d_k8, &
579                                size(data6d_k8, 1), size(data6d_k8, 2), size(data6d_k8, 3), &
580                                size(data6d_k8, 4), size(data6d_k8, 5), size(data6d_k8, 6))
581   END SUBROUTINE  xios(send_field_r8_6d)
582
583   SUBROUTINE  xios(send_field_r8_7d)(fieldid, data7d_k8)
584   IMPLICIT NONE
585      CHARACTER(len = *)               , INTENT(IN) :: fieldid
586      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data7d_k8(:,:,:,:,:,:,:)
587      CALL cxios_write_data_k87(fieldid, len(fieldid), data7d_k8, &
588                                size(data7d_k8, 1), size(data7d_k8, 2), size(data7d_k8, 3), &
589                                size(data7d_k8, 4), size(data7d_k8, 5), size(data7d_k8, 6), &
590                                size(data7d_k8, 7))
591   END SUBROUTINE  xios(send_field_r8_7d)
592
593   SUBROUTINE xios(send_field_r4_0d)(fieldid, data_k4)
594   IMPLICIT NONE
595      CHARACTER(len = *) , INTENT(IN) :: fieldid
596      REAL     (kind = 4), INTENT(IN) :: data_k4
597      CALL cxios_write_data_k40(fieldid, len(fieldid), data_k4, 1)
598   END SUBROUTINE xios(send_field_r4_0d)
599
600   SUBROUTINE xios(send_field_r4_1d)(fieldid, data1d_k4)
601   IMPLICIT NONE
602      CHARACTER(len = *)               , INTENT(IN) :: fieldid
603      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data1d_k4(:)
604      CALL cxios_write_data_k41(fieldid, len(fieldid), data1d_k4, size(data1d_k4, 1))
605   END SUBROUTINE xios(send_field_r4_1d)
606
607   SUBROUTINE xios(send_field_r4_2d)(fieldid, data2d_k4)
608   IMPLICIT NONE
609      CHARACTER(len = *)               , INTENT(IN) :: fieldid
610      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data2d_k4(:,:)
611      CALL cxios_write_data_k42(fieldid, len(fieldid), data2d_k4, size(data2d_k4, 1), size(data2d_k4, 2))
612   END SUBROUTINE xios(send_field_r4_2d)
613
614   SUBROUTINE xios(send_field_r4_3d)(fieldid, data3d_k4)
615   IMPLICIT NONE
616      CHARACTER(len = *)               , INTENT(IN) :: fieldid
617      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data3d_k4(:,:,:)
618      CALL cxios_write_data_k43(fieldid, len(fieldid), data3d_k4, size(data3d_k4, 1), size(data3d_k4, 2), size(data3d_k4, 3))
619   END SUBROUTINE xios(send_field_r4_3d)
620
621   SUBROUTINE  xios(send_field_r4_4d)(fieldid, data4d_k4)
622   IMPLICIT NONE
623      CHARACTER(len = *)               , INTENT(IN) :: fieldid
624      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data4d_k4(:,:,:,:)
625      CALL cxios_write_data_k44(fieldid, len(fieldid), data4d_k4, &
626                                size(data4d_k4, 1), size(data4d_k4, 2), size(data4d_k4, 3), &
627                                size(data4d_k4, 4))
628   END SUBROUTINE  xios(send_field_r4_4d)
629
630   SUBROUTINE  xios(send_field_r4_5d)(fieldid, data5d_k4)
631   IMPLICIT NONE
632      CHARACTER(len = *)               , INTENT(IN) :: fieldid
633      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data5d_k4(:,:,:,:,:)
634      CALL cxios_write_data_k45(fieldid, len(fieldid), data5d_k4, &
635                                size(data5d_k4, 1), size(data5d_k4, 2), size(data5d_k4, 3), &
636                                size(data5d_k4, 4), size(data5d_k4, 5))
637   END SUBROUTINE  xios(send_field_r4_5d)
638
639   SUBROUTINE  xios(send_field_r4_6d)(fieldid, data6d_k4)
640   IMPLICIT NONE
641      CHARACTER(len = *)               , INTENT(IN) :: fieldid
642      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data6d_k4(:,:,:,:,:,:)
643      CALL cxios_write_data_k46(fieldid, len(fieldid), data6d_k4, &
644                                size(data6d_k4, 1), size(data6d_k4, 2), size(data6d_k4, 3), &
645                                size(data6d_k4, 4), size(data6d_k4, 5), size(data6d_k4, 6))
646   END SUBROUTINE  xios(send_field_r4_6d)
647
648   SUBROUTINE  xios(send_field_r4_7d)(fieldid, data7d_k4)
649   IMPLICIT NONE
650      CHARACTER(len = *)               , INTENT(IN) :: fieldid
651      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data7d_k4(:,:,:,:,:,:,:)
652      CALL cxios_write_data_k47(fieldid, len(fieldid), data7d_k4, &
653                                size(data7d_k4, 1), size(data7d_k4, 2), size(data7d_k4, 3), &
654                                size(data7d_k4, 4), size(data7d_k4, 5), size(data7d_k4, 6), &
655                                size(data7d_k4, 7))
656   END SUBROUTINE  xios(send_field_r4_7d)
657
658   ! Receive field functions
659   SUBROUTINE xios(recv_field_r8_0d)(fieldid, data0d_k8)
660   IMPLICIT NONE
661      CHARACTER(len = *)               , INTENT(IN) :: fieldid
662      REAL     (kind = 8)              , INTENT(OUT):: data0d_k8
663      CALL cxios_read_data_k80(fieldid, len(fieldid), data0d_k8, 1)
664   END SUBROUTINE xios(recv_field_r8_0d)
665
666   SUBROUTINE xios(recv_field_r8_1d)(fieldid, data1d_k8)
667   IMPLICIT NONE
668      CHARACTER(len = *)               , INTENT(IN) :: fieldid
669      REAL     (kind = 8), DIMENSION(*), INTENT(OUT) :: data1d_k8(:)
670      CALL cxios_read_data_k81(fieldid, len(fieldid), data1d_k8, size(data1d_k8, 1))
671   END SUBROUTINE xios(recv_field_r8_1d)
672
673   SUBROUTINE  xios(recv_field_r8_2d)(fieldid, data2d_k8)
674   IMPLICIT NONE
675      CHARACTER(len = *)               , INTENT(IN) :: fieldid
676      REAL     (kind = 8), DIMENSION(*), INTENT(OUT) :: data2d_k8(:,:)
677      CALL cxios_read_data_k82(fieldid, len(fieldid), data2d_k8, size(data2d_k8, 1), size(data2d_k8, 2))
678   END SUBROUTINE  xios(recv_field_r8_2d)
679
680   SUBROUTINE  xios(recv_field_r8_3d)(fieldid, data3d_k8)
681   IMPLICIT NONE
682      CHARACTER(len = *)               , INTENT(IN) :: fieldid
683      REAL     (kind = 8), DIMENSION(*), INTENT(OUT) :: data3d_k8(:,:,:)
684      CALL cxios_read_data_k83(fieldid, len(fieldid), data3d_k8, size(data3d_k8, 1), size(data3d_k8, 2), size(data3d_k8, 3))
685   END SUBROUTINE  xios(recv_field_r8_3d)
686
687   SUBROUTINE  xios(recv_field_r8_4d)(fieldid, data4d_k8)
688   IMPLICIT NONE
689      CHARACTER(len = *)               , INTENT(IN) :: fieldid
690      REAL     (kind = 8), DIMENSION(*), INTENT(OUT) :: data4d_k8(:,:,:,:)
691      CALL cxios_read_data_k84(fieldid, len(fieldid), data4d_k8, &
692                                size(data4d_k8, 1), size(data4d_k8, 2), size(data4d_k8, 3), &
693                                size(data4d_k8, 4))
694   END SUBROUTINE  xios(recv_field_r8_4d)
695
696   SUBROUTINE  xios(recv_field_r8_5d)(fieldid, data5d_k8)
697   IMPLICIT NONE
698      CHARACTER(len = *)               , INTENT(IN) :: fieldid
699      REAL     (kind = 8), DIMENSION(*), INTENT(OUT) :: data5d_k8(:,:,:,:,:)
700      CALL cxios_read_data_k85(fieldid, len(fieldid), data5d_k8, &
701                                size(data5d_k8, 1), size(data5d_k8, 2), size(data5d_k8, 3), &
702                                size(data5d_k8, 4), size(data5d_k8, 5))
703   END SUBROUTINE  xios(recv_field_r8_5d)
704
705   SUBROUTINE  xios(recv_field_r8_6d)(fieldid, data6d_k8)
706   IMPLICIT NONE
707      CHARACTER(len = *)               , INTENT(IN) :: fieldid
708      REAL     (kind = 8), DIMENSION(*), INTENT(OUT) :: data6d_k8(:,:,:,:,:,:)
709      CALL cxios_read_data_k86(fieldid, len(fieldid), data6d_k8, &
710                                size(data6d_k8, 1), size(data6d_k8, 2), size(data6d_k8, 3), &
711                                size(data6d_k8, 4), size(data6d_k8, 5), size(data6d_k8, 6))
712   END SUBROUTINE  xios(recv_field_r8_6d)
713
714   SUBROUTINE  xios(recv_field_r8_7d)(fieldid, data7d_k8)
715   IMPLICIT NONE
716      CHARACTER(len = *)               , INTENT(IN) :: fieldid
717      REAL     (kind = 8), DIMENSION(*), INTENT(OUT) :: data7d_k8(:,:,:,:,:,:,:)
718      CALL cxios_read_data_k87(fieldid, len(fieldid), data7d_k8, &
719                                size(data7d_k8, 1), size(data7d_k8, 2), size(data7d_k8, 3), &
720                                size(data7d_k8, 4), size(data7d_k8, 5), size(data7d_k8, 6), &
721                                size(data7d_k8, 7))
722   END SUBROUTINE  xios(recv_field_r8_7d)
723
724   SUBROUTINE xios(recv_field_r4_0d)(fieldid, data0d_k4)
725   IMPLICIT NONE
726      CHARACTER(len = *)               , INTENT(IN) :: fieldid
727      REAL     (kind = 4)              , INTENT(OUT):: data0d_k4
728      CALL cxios_read_data_k40(fieldid, len(fieldid), data0d_k4, 1)
729   END SUBROUTINE xios(recv_field_r4_0d)
730
731   SUBROUTINE xios(recv_field_r4_1d)(fieldid, data1d_k4)
732   IMPLICIT NONE
733      CHARACTER(len = *)               , INTENT(IN) :: fieldid
734      REAL     (kind = 4), DIMENSION(*), INTENT(OUT) :: data1d_k4(:)
735      CALL cxios_read_data_k41(fieldid, len(fieldid), data1d_k4, size(data1d_k4, 1))
736   END SUBROUTINE xios(recv_field_r4_1d)
737
738   SUBROUTINE xios(recv_field_r4_2d)(fieldid, data2d_k4)
739   IMPLICIT NONE
740      CHARACTER(len = *)               , INTENT(IN) :: fieldid
741      REAL     (kind = 4), DIMENSION(*), INTENT(OUT) :: data2d_k4(:,:)
742      CALL cxios_read_data_k42(fieldid, len(fieldid), data2d_k4, size(data2d_k4, 1), size(data2d_k4, 2))
743   END SUBROUTINE xios(recv_field_r4_2d)
744
745   SUBROUTINE xios(recv_field_r4_3d)(fieldid, data3d_k4)
746   IMPLICIT NONE
747      CHARACTER(len = *)               , INTENT(IN) :: fieldid
748      REAL     (kind = 4), DIMENSION(*), INTENT(OUT) :: data3d_k4(:,:,:)
749      CALL cxios_read_data_k43(fieldid, len(fieldid), data3d_k4, size(data3d_k4, 1), size(data3d_k4, 2), size(data3d_k4, 3))
750   END SUBROUTINE xios(recv_field_r4_3d)
751
752   SUBROUTINE  xios(recv_field_r4_4d)(fieldid, data4d_k4)
753   IMPLICIT NONE
754      CHARACTER(len = *)               , INTENT(IN) :: fieldid
755      REAL     (kind = 4), DIMENSION(*), INTENT(OUT) :: data4d_k4(:,:,:,:)
756      CALL cxios_read_data_k44(fieldid, len(fieldid), data4d_k4, &
757                                size(data4d_k4, 1), size(data4d_k4, 2), size(data4d_k4, 3), &
758                                size(data4d_k4, 4))
759   END SUBROUTINE  xios(recv_field_r4_4d)
760
761   SUBROUTINE  xios(recv_field_r4_5d)(fieldid, data5d_k4)
762   IMPLICIT NONE
763      CHARACTER(len = *)               , INTENT(IN) :: fieldid
764      REAL     (kind = 4), DIMENSION(*), INTENT(OUT) :: data5d_k4(:,:,:,:,:)
765      CALL cxios_read_data_k45(fieldid, len(fieldid), data5d_k4, &
766                                size(data5d_k4, 1), size(data5d_k4, 2), size(data5d_k4, 3), &
767                                size(data5d_k4, 4), size(data5d_k4, 5))
768   END SUBROUTINE  xios(recv_field_r4_5d)
769
770   SUBROUTINE  xios(recv_field_r4_6d)(fieldid, data6d_k4)
771   IMPLICIT NONE
772      CHARACTER(len = *)               , INTENT(IN) :: fieldid
773      REAL     (kind = 4), DIMENSION(*), INTENT(OUT) :: data6d_k4(:,:,:,:,:,:)
774      CALL cxios_read_data_k46(fieldid, len(fieldid), data6d_k4, &
775                                size(data6d_k4, 1), size(data6d_k4, 2), size(data6d_k4, 3), &
776                                size(data6d_k4, 4), size(data6d_k4, 5), size(data6d_k4, 6))
777   END SUBROUTINE  xios(recv_field_r4_6d)
778
779   SUBROUTINE  xios(recv_field_r4_7d)(fieldid, data7d_k4)
780   IMPLICIT NONE
781      CHARACTER(len = *)               , INTENT(IN) :: fieldid
782      REAL     (kind = 4), DIMENSION(*), INTENT(OUT) :: data7d_k4(:,:,:,:,:,:,:)
783      CALL cxios_read_data_k47(fieldid, len(fieldid), data7d_k4, &
784                                size(data7d_k4, 1), size(data7d_k4, 2), size(data7d_k4, 3), &
785                                size(data7d_k4, 4), size(data7d_k4, 5), size(data7d_k4, 6), &
786                                size(data7d_k4, 7))
787   END SUBROUTINE  xios(recv_field_r4_7d)
788
789   ! Get variable functions
790   LOGICAL FUNCTION xios(getVar_k8)(varId, data_k8)
791   IMPLICIT NONE
792      LOGICAL  (kind = 1)                           :: val
793      CHARACTER(len = *)               , INTENT(IN) :: varId
794      REAL     (kind = 8)              , INTENT(OUT):: data_k8
795
796      CALL cxios_get_variable_data_k8(varId, len(varId), data_k8, val)
797
798      xios(getVar_k8) = val
799   END FUNCTION xios(getVar_k8)
800
801   LOGICAL FUNCTION xios(getVar_k4)(varId, data_k4)
802   IMPLICIT NONE
803      LOGICAL  (kind = 1)                           :: val
804      CHARACTER(len = *)               , INTENT(IN) :: varId
805      REAL     (kind = 4)              , INTENT(OUT):: data_k4
806
807      CALL cxios_get_variable_data_k4(varId, len(varId), data_k4, val)
808
809      xios(getVar_k4) = val
810   END FUNCTION xios(getVar_k4)
811
812   LOGICAL FUNCTION xios(getVar_int)(varId, data_int)
813   IMPLICIT NONE
814      LOGICAL  (kind = 1)                           :: val
815      CHARACTER(len = *)               , INTENT(IN) :: varId
816      INTEGER                          , INTENT(OUT):: data_int
817
818      CALL cxios_get_variable_data_int(varId, len(varId), data_int, val)
819
820      xios(getVar_int) = val
821   END FUNCTION xios(getVar_int)
822
823   LOGICAL FUNCTION xios(getVar_logic)(varId, data_logic)
824   IMPLICIT NONE
825      LOGICAL  (kind = 1)                           :: val
826      CHARACTER(len  = *)              , INTENT(IN) :: varId
827      LOGICAL  (kind = 4)              , INTENT(OUT):: data_logic
828
829      CALL cxios_get_variable_data_logic(varId, len(varId), data_logic, val)
830
831      xios(getVar_logic) = val
832   END FUNCTION xios(getVar_logic)
833
834   LOGICAL FUNCTION xios(getVar_char)(varId, data_char)
835   IMPLICIT NONE
836      LOGICAL  (kind = 1)                           :: val
837      CHARACTER(len  = *)              , INTENT(IN) :: varId
838      CHARACTER(len  = *)              , INTENT(OUT):: data_char
839
840      CALL cxios_get_variable_data_char(varId, len(varId), data_char, len(data_char), val)
841
842      xios(getVar_char) = val
843   END FUNCTION xios(getVar_char)
844
845   ! Set variable functions
846   LOGICAL FUNCTION xios(setVar_k8)(varId, data_k8)
847   IMPLICIT NONE
848      LOGICAL  (kind = 1)                           :: val
849      CHARACTER(len = *)               , INTENT(IN) :: varId
850      REAL     (kind = 8)              , INTENT(IN) :: data_k8
851
852      CALL cxios_set_variable_data_k8(varId, len(varId), data_k8, val)
853
854      xios(setVar_k8) = val
855   END FUNCTION xios(setVar_k8)
856
857   LOGICAL FUNCTION xios(setVar_k4)(varId, data_k4)
858   IMPLICIT NONE
859      LOGICAL  (kind = 1)                           :: val
860      CHARACTER(len = *)               , INTENT(IN) :: varId
861      REAL     (kind = 4)              , INTENT(IN) :: data_k4
862
863      CALL cxios_set_variable_data_k4(varId, len(varId), data_k4, val)
864
865      xios(setVar_k4) = val
866   END FUNCTION xios(setVar_k4)
867
868   LOGICAL FUNCTION xios(setVar_int)(varId, data_int)
869   IMPLICIT NONE
870      LOGICAL  (kind = 1)                           :: val
871      CHARACTER(len = *)               , INTENT(IN) :: varId
872      INTEGER                          , INTENT(IN) :: data_int
873
874      CALL cxios_set_variable_data_int(varId, len(varId), data_int, val)
875
876      xios(setVar_int) = val
877   END FUNCTION xios(setVar_int)
878
879   LOGICAL FUNCTION xios(setVar_logic)(varId, data_logic)
880   IMPLICIT NONE
881      LOGICAL  (kind = 1)                           :: val
882      CHARACTER(len  = *)              , INTENT(IN) :: varId
883      LOGICAL  (kind = 4)              , INTENT(IN) :: data_logic
884
885      CALL cxios_set_variable_data_logic(varId, len(varId), data_logic, val)
886
887      xios(setVar_logic) = val
888   END FUNCTION xios(setVar_logic)
889
890   LOGICAL FUNCTION xios(setVar_char)(varId, data_char)
891   IMPLICIT NONE
892      LOGICAL  (kind = 1)                           :: val
893      CHARACTER(len  = *)              , INTENT(IN) :: varId
894      CHARACTER(len  = *)              , INTENT(IN) :: data_char
895
896      CALL cxios_set_variable_data_char(varId, len(varId), data_char, len(data_char), val)
897
898      xios(setVar_char) = val
899   END FUNCTION xios(setVar_char)
900
901END MODULE IDATA
Note: See TracBrowser for help on using the repository browser.