Context Navigation

source: XIOS/dev/dev_olga/src/interface/fortran/idata.F90 @ 1158

Last change on this file since 1158 was 1158, checked in by oabramkina, 7 years ago
Two server levels: merging with trunk r1137. There are bugs.
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
3	MODULE 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	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, data0d_k8)
659	IMPLICIT NONE
660	CHARACTER(len = *) , INTENT(IN) :: fieldid
661	REAL (kind = 8) , INTENT(OUT):: data0d_k8
662	CALL cxios_read_data_k80(fieldid, len(fieldid), data0d_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) , INTENT(OUT):: data0d_k4
727	CALL cxios_read_data_k40(fieldid, len(fieldid), 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
900	END MODULE IDATA

Note: See TracBrowser for help on using the repository browser.

Download in other formats: