Context Navigation

source: XIOS/dev/branch_yushan/src/interface/fortran/idata.F90 @ 1037

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

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

Download in other formats: