Context Navigation

source: thirdparty/SZ/sz/src/sz_interface.F90 @ 2c47b73

Revision 2c47b73, 40.9 KB checked in by Hal Finkel <hfinkel@…>, 6 years ago (diff)
more work on adding SZ (latest version)
Property mode set to `100644`

Line
1	! @file sz_interface.F90
2	! @author Sheng Di ([email protected] or [email protected])
3	! @date June, 2016
4	! @ Mathematics and Computer Science (MCS)
5	! @ Argonne National Laboratory, Lemont, USA.
6	! @brief The key Fortran binding file to connect C language and Fortran (Fortran part)
7
8
9	MODULE SZ
10	use :: ISO_C_BINDING
11	INTERFACE SZ_Compress
12	MODULE PROCEDURE SZ_Compress_d1_Fortran_REAL_K4
13	MODULE PROCEDURE SZ_Compress_d2_Fortran_REAL_K4
14	MODULE PROCEDURE SZ_Compress_d3_Fortran_REAL_K4
15	MODULE PROCEDURE SZ_Compress_d4_Fortran_REAL_K4
16	MODULE PROCEDURE SZ_Compress_d5_Fortran_REAL_K4
17	MODULE PROCEDURE SZ_Compress_d1_Fortran_REAL_K4_ARGS
18	MODULE PROCEDURE SZ_Compress_d2_Fortran_REAL_K4_ARGS
19	MODULE PROCEDURE SZ_Compress_d3_Fortran_REAL_K4_ARGS
20	MODULE PROCEDURE SZ_Compress_d4_Fortran_REAL_K4_ARGS
21	MODULE PROCEDURE SZ_Compress_d5_Fortran_REAL_K4_ARGS
22	MODULE PROCEDURE SZ_Compress_d1_Fortran_REAL_K8
23	MODULE PROCEDURE SZ_Compress_d2_Fortran_REAL_K8
24	MODULE PROCEDURE SZ_Compress_d3_Fortran_REAL_K8
25	MODULE PROCEDURE SZ_Compress_d4_Fortran_REAL_K8
26	MODULE PROCEDURE SZ_Compress_d5_Fortran_REAL_K8
27	MODULE PROCEDURE SZ_Compress_d1_Fortran_REAL_K8_ARGS
28	MODULE PROCEDURE SZ_Compress_d2_Fortran_REAL_K8_ARGS
29	MODULE PROCEDURE SZ_Compress_d3_Fortran_REAL_K8_ARGS
30	MODULE PROCEDURE SZ_Compress_d4_Fortran_REAL_K8_ARGS
31	MODULE PROCEDURE SZ_Compress_d5_Fortran_REAL_K8_ARGS
32	MODULE PROCEDURE SZ_Compress_d1_Fortran_REAL_K4_Rev
33	MODULE PROCEDURE SZ_Compress_d2_Fortran_REAL_K4_Rev
34	MODULE PROCEDURE SZ_Compress_d3_Fortran_REAL_K4_Rev
35	MODULE PROCEDURE SZ_Compress_d4_Fortran_REAL_K4_Rev
36	MODULE PROCEDURE SZ_Compress_d5_Fortran_REAL_K4_Rev
37	MODULE PROCEDURE SZ_Compress_d1_Fortran_REAL_K4_ARGS_Rev
38	MODULE PROCEDURE SZ_Compress_d2_Fortran_REAL_K4_ARGS_Rev
39	MODULE PROCEDURE SZ_Compress_d3_Fortran_REAL_K4_ARGS_Rev
40	MODULE PROCEDURE SZ_Compress_d4_Fortran_REAL_K4_ARGS_Rev
41	MODULE PROCEDURE SZ_Compress_d5_Fortran_REAL_K4_ARGS_Rev
42	MODULE PROCEDURE SZ_Compress_d1_Fortran_REAL_K8_Rev
43	MODULE PROCEDURE SZ_Compress_d2_Fortran_REAL_K8_Rev
44	MODULE PROCEDURE SZ_Compress_d3_Fortran_REAL_K8_Rev
45	MODULE PROCEDURE SZ_Compress_d4_Fortran_REAL_K8_Rev
46	MODULE PROCEDURE SZ_Compress_d5_Fortran_REAL_K8_Rev
47	MODULE PROCEDURE SZ_Compress_d1_Fortran_REAL_K8_ARGS_Rev
48	MODULE PROCEDURE SZ_Compress_d2_Fortran_REAL_K8_ARGS_Rev
49	MODULE PROCEDURE SZ_Compress_d3_Fortran_REAL_K8_ARGS_Rev
50	MODULE PROCEDURE SZ_Compress_d4_Fortran_REAL_K8_ARGS_Rev
51	MODULE PROCEDURE SZ_Compress_d5_Fortran_REAL_K8_ARGS_Rev
52	END INTERFACE SZ_Compress
53
54	INTERFACE SZ_Decompress
55	MODULE PROCEDURE SZ_Decompress_d1_Fortran_REAL_K4
56	MODULE PROCEDURE SZ_Decompress_d2_Fortran_REAL_K4
57	MODULE PROCEDURE SZ_Decompress_d3_Fortran_REAL_K4
58	MODULE PROCEDURE SZ_Decompress_d4_Fortran_REAL_K4
59	MODULE PROCEDURE SZ_Decompress_d5_Fortran_REAL_K4
60	MODULE PROCEDURE SZ_Decompress_d1_Fortran_REAL_K8
61	MODULE PROCEDURE SZ_Decompress_d2_Fortran_REAL_K8
62	MODULE PROCEDURE SZ_Decompress_d3_Fortran_REAL_K8
63	MODULE PROCEDURE SZ_Decompress_d4_Fortran_REAL_K8
64	MODULE PROCEDURE SZ_Decompress_d5_Fortran_REAL_K8
65	END INTERFACE SZ_Decompress
66
67	INTERFACE SZ_BatchAddVar
68	MODULE PROCEDURE SZ_BatchAddVar_d1_Fortran_REAL_K4
69	MODULE PROCEDURE SZ_BatchAddVar_d2_Fortran_REAL_K4
70	MODULE PROCEDURE SZ_BatchAddVar_d3_Fortran_REAL_K4
71	MODULE PROCEDURE SZ_BatchAddVar_d4_Fortran_REAL_K4
72	MODULE PROCEDURE SZ_BatchAddVar_d5_Fortran_REAL_K4
73	MODULE PROCEDURE SZ_BatchAddVar_d1_Fortran_REAL_K8
74	MODULE PROCEDURE SZ_BatchAddVar_d2_Fortran_REAL_K8
75	MODULE PROCEDURE SZ_BatchAddVar_d3_Fortran_REAL_K8
76	MODULE PROCEDURE SZ_BatchAddVar_d4_Fortran_REAL_K8
77	MODULE PROCEDURE SZ_BatchAddVar_d5_Fortran_REAL_K8
78	END INTERFACE SZ_BatchAddVar
79
80	INTERFACE SZ_GetVarData
81	MODULE PROCEDURE SZ_GetVarData_d1_Fortran_REAL_K4
82	MODULE PROCEDURE SZ_GetVarData_d2_Fortran_REAL_K4
83	MODULE PROCEDURE SZ_GetVarData_d3_Fortran_REAL_K4
84	MODULE PROCEDURE SZ_GetVarData_d4_Fortran_REAL_K4
85	MODULE PROCEDURE SZ_GetVarData_d5_Fortran_REAL_K4
86	MODULE PROCEDURE SZ_GetVarData_d1_Fortran_REAL_K8
87	MODULE PROCEDURE SZ_GetVarData_d2_Fortran_REAL_K8
88	MODULE PROCEDURE SZ_GetVarData_d3_Fortran_REAL_K8
89	MODULE PROCEDURE SZ_GetVarData_d4_Fortran_REAL_K8
90	MODULE PROCEDURE SZ_GetVarData_d5_Fortran_REAL_K8
91	END INTERFACE SZ_GetVarData
92
93	CONTAINS
94
95	!Init and Finalize
96
97	SUBROUTINE SZ_Init(config_File,ierr)
98	implicit none
99	CHARACTER(len=32) :: config_File
100	INTEGER :: l,ierr
101	CALL SZ_Init_c(config_File,len(trim(config_File)),ierr)
102	END SUBROUTINE SZ_Init
103
104	SUBROUTINE SZ_Finalize()
105	CALL SZ_Finalize_c()
106	END SUBROUTINE SZ_Finalize
107
108	SUBROUTINE SZ_FREE_VARSET(mode)
109	implicit none
110	INTEGER :: mode !0,1,2, or 3
111
112	CALL SZ_Freevarset_c(mode)
113	END SUBROUTINE SZ_FREE_VARSET
114
115	!batch-mode functions
116
117	SUBROUTINE SZ_BatchDelVar(varName, ierr)
118	implicit none
119	CHARACTER(len=*) :: varName
120	INTEGER :: ierr
121	CALL SZ_BatchDelVar_c(varName, len(trim(varName)), ierr)
122	END SUBROUTINE SZ_BatchDelVar
123
124	SUBROUTINE SZ_Batch_Compress(Bytes, OutSize)
125	implicit none
126	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
127	INTEGER(kind=C_SIZE_T) :: OutSize
128	INTEGER(kind=C_SIZE_T) :: alloSize
129
130	CALL compute_total_batch_size_c(alloSize)
131	allocate(Bytes(alloSize)) !allocate the largest possible memory
132
133	CALL SZ_Batch_Compress_c(Bytes, OutSize)
134
135	END SUBROUTINE SZ_Batch_Compress
136
137	SUBROUTINE SZ_Batch_Decompress(Bytes, OutSize, ierr)
138	implicit none
139	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
140	INTEGER(kind=C_SIZE_T) :: OutSize
141	INTEGER :: ierr
142
143	CALL SZ_Batch_Decompress_c(Bytes, OutSize, ierr)
144	END SUBROUTINE SZ_Batch_Decompress
145
146	!Compress functions that extract the dimension sizes and call C translation interface (single-precision)
147
148	SUBROUTINE SZ_Compress_d1_Fortran_REAL_K4(VAR, Bytes, OutSize)
149	implicit none
150	REAL(KIND=4), DIMENSION(:) :: VAR
151	INTEGER(kind=C_SIZE_T) :: OutSize, R1
152	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
153	R1 = SIZE(VAR,1)
154
155	allocate(Bytes(8*R1)) !allocate the largest possible memory
156
157	CALL SZ_Compress_d1_Float(VAR, Bytes, OutSize, R1)
158
159	END SUBROUTINE SZ_Compress_d1_Fortran_REAL_K4
160
161	SUBROUTINE SZ_Compress_d1_Fortran_REAL_K4_ARGS(VAR, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio)
162	implicit none
163	REAL(KIND=4), DIMENSION(:) :: VAR
164	INTEGER(kind=C_SIZE_T) :: OutSize, R1
165	INTEGER(kind=4) :: ErrBoundMode
166	REAL(kind=4) :: AbsErrBound, RelBoundRatio
167	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
168	R1 = SIZE(VAR,1)
169
170	allocate(Bytes(8*R1)) !allocate the largest possible memory
171
172	CALL SZ_Compress_d1_Float_Args(VAR, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio, R1)
173
174	END SUBROUTINE SZ_Compress_d1_Fortran_REAL_K4_ARGS
175
176	SUBROUTINE SZ_Compress_d2_Fortran_REAL_K4(VAR, Bytes, OutSize)
177	implicit none
178	REAL(KIND=4), DIMENSION(:,:) :: VAR
179	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R
180	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
181	R1 = SIZE(VAR,1)
182	R2 = SIZE(VAR,2)
183
184	R = R1*R2
185
186	allocate(Bytes(8*R)) !allocate the largest possible memory
187
188	CALL SZ_Compress_d2_Float(VAR, Bytes, OutSize, R1, R2)
189
190	END SUBROUTINE SZ_Compress_d2_Fortran_REAL_K4
191
192	SUBROUTINE SZ_Compress_d2_Fortran_REAL_K4_ARGS(VAR, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio)
193	implicit none
194	REAL(KIND=4), DIMENSION(:,:) :: VAR
195	INTEGER(kind=4) :: ErrBoundMode
196	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R
197	REAL(kind=4) :: AbsErrBound, RelBoundRatio
198	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
199	R1 = SIZE(VAR,1)
200	R2 = SIZE(VAR,2)
201
202	R = R1*R2
203
204	allocate(Bytes(8*R)) !allocate the largest possible memory
205
206	CALL SZ_Compress_d2_Float_Args(VAR, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2)
207	END SUBROUTINE SZ_Compress_d2_Fortran_REAL_K4_ARGS
208
209	SUBROUTINE SZ_Compress_d3_Fortran_REAL_K4(VAR, Bytes, OutSize)
210	implicit none
211	REAL(KIND=4), DIMENSION(:,:,:) :: VAR
212	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R
213	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
214
215	R1 = SIZE(VAR,1)
216	R2 = SIZE(VAR,2)
217	R3 = SIZE(VAR,3)
218	R = R1R2R3
219	allocate(Bytes(8*R)) !allocate the largest possible memory
220
221	CALL SZ_Compress_d3_Float(VAR, Bytes, OutSize, R1, R2, R3)
222
223	END SUBROUTINE SZ_Compress_d3_Fortran_REAL_K4
224
225	SUBROUTINE SZ_Compress_d3_Fortran_REAL_K4_ARGS(VAR, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio)
226	implicit none
227	REAL(KIND=4), DIMENSION(:,:,:) :: VAR
228	INTEGER(kind=4) :: ErrBoundMode
229	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R
230	REAL(kind=4) :: AbsErrBound, RelBoundRatio
231	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
232
233	R1 = SIZE(VAR,1)
234	R2 = SIZE(VAR,2)
235	R3 = SIZE(VAR,3)
236	R = R1R2R3
237	allocate(Bytes(8*R)) !allocate the largest possible memory
238
239	CALL SZ_Compress_d3_Float_Args(VAR, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2, R3)
240
241	END SUBROUTINE SZ_Compress_d3_Fortran_REAL_K4_ARGS
242
243	SUBROUTINE SZ_Compress_d4_Fortran_REAL_K4(VAR, Bytes, OutSize)
244	implicit none
245	REAL(KIND=4), DIMENSION(:,:,:,:) :: VAR
246	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R4, R
247	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
248
249	R1 = SIZE(VAR,1)
250	R2 = SIZE(VAR,2)
251	R3 = SIZE(VAR,3)
252	R4 = SIZE(VAR,4)
253
254	R = R1R2R3*R4
255	allocate(Bytes(8*R)) !allocate the largest possible memory
256
257	CALL SZ_Compress_d4_Float(VAR, Bytes, OutSize, R1, R2, R3, R4)
258
259	END SUBROUTINE SZ_Compress_d4_Fortran_REAL_K4
260
261	SUBROUTINE SZ_Compress_d4_Fortran_REAL_K4_ARGS(VAR, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio)
262	implicit none
263	REAL(KIND=4), DIMENSION(:,:,:,:) :: VAR
264	INTEGER(kind=4) :: ErrBoundMode
265	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R4, R
266	REAL(kind=4) :: AbsErrBound, RelBoundRatio
267	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
268
269	R1 = SIZE(VAR,1)
270	R2 = SIZE(VAR,2)
271	R3 = SIZE(VAR,3)
272	R4 = SIZE(VAR,4)
273	R = R1R2R3*R4
274	allocate(Bytes(8*R)) !allocate the largest possible memory
275
276	CALL SZ_Compress_d4_Float_Args(VAR, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2, R3, R4)
277
278	END SUBROUTINE SZ_Compress_d4_Fortran_REAL_K4_ARGS
279
280	SUBROUTINE SZ_Compress_d5_Fortran_REAL_K4(VAR, Bytes, OutSize)
281	implicit none
282	REAL(KIND=4), DIMENSION(:,:,:,:,:) :: VAR
283	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R4, R5, R
284	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
285
286	R1 = SIZE(VAR,1)
287	R2 = SIZE(VAR,2)
288	R3 = SIZE(VAR,3)
289	R4 = SIZE(VAR,4)
290	R5 = SIZE(VAR,5)
291	R = R1R2R3R4R5
292	allocate(Bytes(8*R)) !allocate the largest possible memory
293
294	CALL SZ_Compress_d5_Float(VAR, Bytes, OutSize, R1, R2, R3, R4, R5)
295
296	END SUBROUTINE SZ_Compress_d5_Fortran_REAL_K4
297
298	SUBROUTINE SZ_Compress_d5_Fortran_REAL_K4_ARGS(VAR, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio)
299	implicit none
300	REAL(KIND=4), DIMENSION(:,:,:,:,:) :: VAR
301	INTEGER(kind=4) :: ErrBoundMode
302	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R4, R5, R
303	REAL(kind=4) :: AbsErrBound, RelBoundRatio
304	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
305
306	R1 = SIZE(VAR,1)
307	R2 = SIZE(VAR,2)
308	R3 = SIZE(VAR,3)
309	R4 = SIZE(VAR,4)
310	R5 = SIZE(VAR,5)
311	R = R1R2R3R4R5
312	allocate(Bytes(8*R)) !allocate the largest possible memory
313
314	CALL SZ_Compress_d5_Float_Args(VAR, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2, R3, R4, R5)
315
316	END SUBROUTINE SZ_Compress_d5_Fortran_REAL_K4_ARGS
317
318	!Compress functions that extract the dimension sizes and call C translation interfaces （double-precision)
319
320	SUBROUTINE SZ_Compress_d1_Fortran_REAL_K8(VAR, Bytes, OutSize)
321	implicit none
322	REAL(KIND=8), DIMENSION(:) :: VAR
323	INTEGER(kind=C_SIZE_T) :: OutSize, R1
324	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
325	R1 = SIZE(VAR,1)
326
327	allocate(Bytes(8*R1))
328
329	CALL SZ_Compress_d1_Double(VAR, Bytes, OutSize, R1)
330	END SUBROUTINE SZ_Compress_d1_Fortran_REAL_K8
331
332	SUBROUTINE SZ_Compress_d1_Fortran_REAL_K8_ARGS(VAR, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio)
333	implicit none
334	REAL(KIND=8), DIMENSION(:) :: VAR
335	INTEGER(kind=4) :: ErrBoundMode
336	INTEGER(kind=C_SIZE_T) :: OutSize, R1
337	REAL(kind=8) :: AbsErrBound, RelBoundRatio
338	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
339	R1 = SIZE(VAR,1)
340
341	allocate(Bytes(8*R1))
342	CALL SZ_Compress_d1_Double_Args(VAR, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio, R1)
343	END SUBROUTINE SZ_Compress_d1_Fortran_REAL_K8_ARGS
344
345	SUBROUTINE SZ_Compress_d2_Fortran_REAL_K8(VAR, Bytes, OutSize)
346	implicit none
347	REAL(KIND=8), DIMENSION(:,:) :: VAR
348	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R
349	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
350	R1 = SIZE(VAR,1)
351	R2 = SIZE(VAR,2)
352
353	R = R1*R2
354	allocate(Bytes(8*R)) !allocate the largest possible memory
355
356	CALL SZ_Compress_d2_Double(VAR, Bytes, OutSize, R1, R2)
357	END SUBROUTINE SZ_Compress_d2_Fortran_REAL_K8
358
359	SUBROUTINE SZ_Compress_d2_Fortran_REAL_K8_ARGS(VAR, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio)
360	implicit none
361	REAL(KIND=8), DIMENSION(:,:) :: VAR
362	INTEGER(kind=4) :: ErrBoundMode
363	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R
364	REAL(kind=8) :: AbsErrBound, RelBoundRatio
365	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
366	R1 = SIZE(VAR,1)
367	R2 = SIZE(VAR,2)
368
369	R = R1*R2
370	allocate(Bytes(8*R)) !allocate the largest possible memory
371
372	CALL SZ_Compress_d2_Double_Args(VAR, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2)
373	END SUBROUTINE SZ_Compress_d2_Fortran_REAL_K8_ARGS
374
375	SUBROUTINE SZ_Compress_d3_Fortran_REAL_K8(VAR, Bytes, OutSize)
376	implicit none
377	REAL(KIND=8), DIMENSION(:,:,:) :: VAR
378	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R
379	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
380
381	R1 = SIZE(VAR,1)
382	R2 = SIZE(VAR,2)
383	R3 = SIZE(VAR,3)
384	R = R1R2R3
385
386	allocate(Bytes(8*R)) !allocate the largest possible memory
387
388	CALL SZ_Compress_d3_Double(VAR, Bytes, OutSize, R1, R2, R3)
389
390	END SUBROUTINE SZ_Compress_d3_Fortran_REAL_K8
391
392	SUBROUTINE SZ_Compress_d3_Fortran_REAL_K8_ARGS(VAR, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio)
393	implicit none
394	REAL(KIND=8), DIMENSION(:,:,:) :: VAR
395	INTEGER(kind=4) :: ErrBoundMode
396	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R
397	REAL(kind=8) :: AbsErrBound, RelBoundRatio
398	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
399
400	R1 = SIZE(VAR,1)
401	R2 = SIZE(VAR,2)
402	R3 = SIZE(VAR,3)
403	R = R1R2R3
404	allocate(Bytes(8*R)) !allocate the largest possible memory
405
406	CALL SZ_Compress_d3_Double_Args(VAR, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2, R3)
407
408	END SUBROUTINE SZ_Compress_d3_Fortran_REAL_K8_ARGS
409
410	SUBROUTINE SZ_Compress_d4_Fortran_REAL_K8(VAR, Bytes, OutSize)
411	implicit none
412	REAL(KIND=8), DIMENSION(:,:,:,:) :: VAR
413	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R4, R
414	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
415
416	R1 = SIZE(VAR,1)
417	R2 = SIZE(VAR,2)
418	R3 = SIZE(VAR,3)
419	R4 = SIZE(VAR,4)
420
421	R = R1R2R3*R4
422	allocate(Bytes(8*R)) !allocate the largest possible memory
423
424	CALL SZ_Compress_d4_Double(VAR, Bytes, OutSize, R1, R2, R3, R4)
425
426	END SUBROUTINE SZ_Compress_d4_Fortran_REAL_K8
427
428	SUBROUTINE SZ_Compress_d4_Fortran_REAL_K8_ARGS(VAR, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio)
429	implicit none
430	REAL(KIND=8), DIMENSION(:,:,:,:) :: VAR
431	INTEGER(kind=C_SIZE_T) :: ErrBoundMode
432	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R4, R
433	REAL(kind=8) :: AbsErrBound, RelBoundRatio
434	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
435
436	R1 = SIZE(VAR,1)
437	R2 = SIZE(VAR,2)
438	R3 = SIZE(VAR,3)
439	R4 = SIZE(VAR,4)
440	R = R1R2R3*R4
441	allocate(Bytes(8*R)) !allocate the largest possible memory
442
443	CALL SZ_Compress_d4_Double_Args(VAR, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2, R3, R4)
444
445	END SUBROUTINE SZ_Compress_d4_Fortran_REAL_K8_ARGS
446
447	SUBROUTINE SZ_Compress_d5_Fortran_REAL_K8(VAR, Bytes, OutSize)
448	implicit none
449	REAL(KIND=8), DIMENSION(:,:,:,:,:) :: VAR
450	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R4, R5, R
451	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
452
453	R1 = SIZE(VAR,1)
454	R2 = SIZE(VAR,2)
455	R3 = SIZE(VAR,3)
456	R4 = SIZE(VAR,4)
457	R5 = SIZE(VAR,5)
458	R = R1R2R3R4R5
459	allocate(Bytes(8*R)) !allocate the largest possible memory
460
461	CALL SZ_Compress_d5_Double(VAR, Bytes, OutSize, R1, R2, R3, R4, R5)
462
463	END SUBROUTINE SZ_Compress_d5_Fortran_REAL_K8
464
465	SUBROUTINE SZ_Compress_d5_Fortran_REAL_K8_ARGS(VAR, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio)
466	implicit none
467	REAL(KIND=8), DIMENSION(:,:,:,:,:) :: VAR
468	INTEGER(kind=4) :: ErrBoundMode
469	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R4, R5, R
470	REAL(kind=8) :: AbsErrBound, RelBoundRatio
471	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
472
473	R1 = SIZE(VAR,1)
474	R2 = SIZE(VAR,2)
475	R3 = SIZE(VAR,3)
476	R4 = SIZE(VAR,4)
477	R5 = SIZE(VAR,5)
478	R = R1R2R3R4R5
479	allocate(Bytes(8*R)) !allocate the largest possible memory
480
481	CALL SZ_Compress_d5_Double_Args(VAR, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2, R3, R4, R5)
482
483	END SUBROUTINE SZ_Compress_d5_Fortran_REAL_K8_ARGS
484
485	!Comrpession functions with reserved value
486
487	SUBROUTINE SZ_Compress_d1_Fortran_REAL_K4_Rev(VAR, ReValue, Bytes, OutSize)
488	implicit none
489	REAL(KIND=4), DIMENSION(:) :: VAR
490	REAL(KIND=4) :: ReValue
491	INTEGER(kind=C_SIZE_T) :: OutSize, R1
492	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
493	R1 = SIZE(VAR,1)
494
495	allocate(Bytes(8*R1))
496
497	CALL SZ_Compress_d1_Float_Rev(VAR, ReValue, Bytes, OutSize, R1)
498	END SUBROUTINE SZ_Compress_d1_Fortran_REAL_K4_Rev
499
500	SUBROUTINE SZ_Compress_d1_Fortran_REAL_K4_ARGS_Rev(VAR, ReValue, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio)
501	implicit none
502	REAL(KIND=4), DIMENSION(:) :: VAR
503	REAL(KIND=4) :: ReValue
504	INTEGER(kind=4) :: ErrBoundMode
505	INTEGER(kind=C_SIZE_T) :: OutSize, R1
506	REAL(kind=4) :: AbsErrBound, RelBoundRatio
507	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
508	R1 = SIZE(VAR,1)
509
510	allocate(Bytes(8*R1))
511
512	CALL SZ_Compress_d1_Float_Rev_Args(VAR, ReValue, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio, R1)
513	END SUBROUTINE SZ_Compress_d1_Fortran_REAL_K4_ARGS_Rev
514
515	SUBROUTINE SZ_Compress_d2_Fortran_REAL_K4_Rev(VAR, ReValue, Bytes, OutSize)
516	implicit none
517	REAL(KIND=4), DIMENSION(:,:) :: VAR
518	REAL(KIND=4) :: ReValue
519	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R
520	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
521	R1 = SIZE(VAR,1)
522	R2 = SIZE(VAR,2)
523
524	R = R1*R2
525	allocate(Bytes(8*R)) !allocate the largest possible memory
526
527	CALL SZ_Compress_d2_Float_Rev(VAR, ReValue, Bytes, OutSize, R1, R2)
528	END SUBROUTINE SZ_Compress_d2_Fortran_REAL_K4_Rev
529
530	SUBROUTINE SZ_Compress_d2_Fortran_REAL_K4_ARGS_Rev(VAR, ReValue, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio)
531	implicit none
532	REAL(KIND=4), DIMENSION(:,:) :: VAR
533	REAL(KIND=4) :: ReValue
534	INTEGER(kind=4) :: ErrBoundMode
535	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R
536	REAL(kind=4) :: AbsErrBound, RelBoundRatio
537	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
538	R1 = SIZE(VAR,1)
539	R2 = SIZE(VAR,2)
540
541	R = R1*R2
542	allocate(Bytes(8*R)) !allocate the largest possible memory
543
544	CALL SZ_Compress_d2_Float_Rev_Args(VAR, ReValue, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2)
545	END SUBROUTINE SZ_Compress_d2_Fortran_REAL_K4_ARGS_Rev
546
547	SUBROUTINE SZ_Compress_d3_Fortran_REAL_K4_Rev(VAR, ReValue, Bytes, OutSize)
548	implicit none
549	REAL(KIND=4), DIMENSION(:,:,:) :: VAR
550	REAL(KIND=4) :: ReValue
551	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R
552	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
553	INTEGER(kind=1), DIMENSION(:), allocatable :: temp
554
555	R1 = SIZE(VAR,1)
556	R2 = SIZE(VAR,2)
557	R3 = SIZE(VAR,3)
558	R = R1R2R3
559	allocate(Bytes(8*R)) !allocate the largest possible memory
560
561	CALL SZ_Compress_d3_Float_Rev(VAR, ReValue, Bytes, OutSize, R1, R2, R3)
562
563	END SUBROUTINE SZ_Compress_d3_Fortran_REAL_K4_Rev
564
565	SUBROUTINE SZ_Compress_d3_Fortran_REAL_K4_ARGS_Rev(VAR, ReValue, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio)
566	implicit none
567	REAL(KIND=4), DIMENSION(:,:,:) :: VAR
568	REAL(KIND=4) :: ReValue
569	INTEGER(kind=4) :: ErrBoundMode
570	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R
571	REAL(kind=4) :: AbsErrBound, RelBoundRatio
572	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
573
574	R1 = SIZE(VAR,1)
575	R2 = SIZE(VAR,2)
576	R3 = SIZE(VAR,3)
577	R = R1R2R3
578	allocate(Bytes(8*R)) !allocate the largest possible memory
579
580	CALL SZ_Compress_d3_Float_Rev_Args(VAR, ReValue, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2, R3)
581
582	END SUBROUTINE SZ_Compress_d3_Fortran_REAL_K4_ARGS_Rev
583
584	SUBROUTINE SZ_Compress_d4_Fortran_REAL_K4_Rev(VAR, ReValue, Bytes, OutSize)
585	implicit none
586	REAL(KIND=4), DIMENSION(:,:,:,:) :: VAR
587	REAL(KIND=4) :: ReValue
588	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R4, R
589	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
590
591	R1 = SIZE(VAR,1)
592	R2 = SIZE(VAR,2)
593	R3 = SIZE(VAR,3)
594	R4 = SIZE(VAR,4)
595
596	R = R1R2R3*R4
597	allocate(Bytes(8*R)) !allocate the largest possible memory
598
599	CALL SZ_Compress_d4_Float_Rev(VAR, ReValue, Bytes, OutSize, R1, R2, R3, R4)
600
601	END SUBROUTINE SZ_Compress_d4_Fortran_REAL_K4_Rev
602
603	SUBROUTINE SZ_Compress_d4_Fortran_REAL_K4_ARGS_Rev(VAR, ReValue, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio)
604	implicit none
605	REAL(KIND=4), DIMENSION(:,:,:,:) :: VAR
606	REAL(KIND=4) :: ReValue
607	INTEGER(kind=4) :: ErrBoundMode
608	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R4, R
609	REAL(kind=4) :: AbsErrBound, RelBoundRatio
610	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
611
612	R1 = SIZE(VAR,1)
613	R2 = SIZE(VAR,2)
614	R3 = SIZE(VAR,3)
615	R4 = SIZE(VAR,4)
616	R = R1R2R3*R4
617	allocate(Bytes(8*R)) !allocate the largest possible memory
618
619	CALL SZ_Compress_d4_Float_Rev_Args(VAR, ReValue, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2, R3, R4)
620
621	END SUBROUTINE SZ_Compress_d4_Fortran_REAL_K4_ARGS_Rev
622
623	SUBROUTINE SZ_Compress_d5_Fortran_REAL_K4_Rev(VAR, ReValue, Bytes, OutSize)
624	implicit none
625	REAL(KIND=4), DIMENSION(:,:,:,:,:) :: VAR
626	REAL(KIND=4) :: ReValue
627	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R4, R5, R
628	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
629
630	R1 = SIZE(VAR,1)
631	R2 = SIZE(VAR,2)
632	R3 = SIZE(VAR,3)
633	R4 = SIZE(VAR,4)
634	R5 = SIZE(VAR,5)
635	R = R1R2R3R4R5
636	allocate(Bytes(8*R)) !allocate the largest possible memory
637
638	CALL SZ_Compress_d5_Float_Rev(VAR, ReValue, Bytes, OutSize, R1, R2, R3, R4, R5)
639
640	END SUBROUTINE SZ_Compress_d5_Fortran_REAL_K4_Rev
641
642	SUBROUTINE SZ_Compress_d5_Fortran_REAL_K4_ARGS_Rev(VAR, ReValue, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio)
643	implicit none
644	REAL(KIND=4), DIMENSION(:,:,:,:,:) :: VAR
645	REAL(KIND=4) :: ReValue
646	INTEGER(kind=4) :: ErrBoundMode
647	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R4, R5, R
648	REAL(kind=4) :: AbsErrBound, RelBoundRatio
649	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
650
651	R1 = SIZE(VAR,1)
652	R2 = SIZE(VAR,2)
653	R3 = SIZE(VAR,3)
654	R4 = SIZE(VAR,4)
655	R5 = SIZE(VAR,5)
656	R = R1R2R3R4R5
657	allocate(Bytes(8*R)) !allocate the largest possible memory
658
659	CALL SZ_Compress_d5_Float_Rev_Args(VAR, ReValue, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2, R3, R4, R5)
660
661	END SUBROUTINE SZ_Compress_d5_Fortran_REAL_K4_ARGS_Rev
662
663	!Compress functions that extract the dimension sizes and call C translation interfaces （double-precision)
664
665	SUBROUTINE SZ_Compress_d1_Fortran_REAL_K8_Rev(VAR, ReValue, Bytes, OutSize)
666	implicit none
667	REAL(KIND=8), DIMENSION(:) :: VAR
668	REAL(KIND=8) :: ReValue
669	INTEGER(kind=C_SIZE_T) :: OutSize, R1
670	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
671	R1 = SIZE(VAR,1)
672
673	allocate(Bytes(8*R1))
674
675	CALL SZ_Compress_d1_Double_Rev(VAR, ReValue, Bytes, OutSize, R1)
676	END SUBROUTINE SZ_Compress_d1_Fortran_REAL_K8_Rev
677
678	SUBROUTINE SZ_Compress_d1_Fortran_REAL_K8_ARGS_Rev(VAR, ReValue, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio)
679	implicit none
680	REAL(KIND=8), DIMENSION(:) :: VAR
681	REAL(KIND=8) :: ReValue
682	INTEGER(kind=4) :: ErrBoundMode
683	INTEGER(kind=C_SIZE_T) :: OutSize, R1
684	REAL(kind=8) :: AbsErrBound, RelBoundRatio
685	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
686	R1 = SIZE(VAR,1)
687
688	allocate(Bytes(8*R1))
689
690	CALL SZ_Compress_d1_Double_Rev_Args(VAR, ReValue, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio, R1)
691	END SUBROUTINE SZ_Compress_d1_Fortran_REAL_K8_ARGS_Rev
692
693	SUBROUTINE SZ_Compress_d2_Fortran_REAL_K8_Rev(VAR, ReValue, Bytes, OutSize)
694	implicit none
695	REAL(KIND=8), DIMENSION(:,:) :: VAR
696	REAL(KIND=8) :: ReValue
697	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R
698	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
699	R1 = SIZE(VAR,1)
700	R2 = SIZE(VAR,2)
701
702	R = R1*R2
703	allocate(Bytes(8*R)) !allocate the largest possible memory
704
705	CALL SZ_Compress_d2_Double_Rev(VAR, ReValue, Bytes, OutSize, R1, R2)
706	END SUBROUTINE SZ_Compress_d2_Fortran_REAL_K8_Rev
707
708	SUBROUTINE SZ_Compress_d2_Fortran_REAL_K8_ARGS_Rev(VAR, ReValue, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio)
709	implicit none
710	REAL(KIND=8), DIMENSION(:,:) :: VAR
711	REAL(KIND=8) :: ReValue
712	INTEGER(kind=4) :: ErrBoundMode
713	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R
714	REAL(kind=8) :: AbsErrBound, RelBoundRatio
715	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
716	R1 = SIZE(VAR,1)
717	R2 = SIZE(VAR,2)
718	R = R1*R2
719	allocate(Bytes(8*R)) !allocate the largest possible memory
720
721	CALL SZ_Compress_d2_Double_Rev_Args(VAR, ReValue, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2)
722
723	END SUBROUTINE SZ_Compress_d2_Fortran_REAL_K8_ARGS_Rev
724
725	SUBROUTINE SZ_Compress_d3_Fortran_REAL_K8_Rev(VAR, ReValue, Bytes, OutSize)
726	implicit none
727	REAL(KIND=8), DIMENSION(:,:,:) :: VAR
728	REAL(KIND=8) :: ReValue
729	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R
730	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
731
732	R1 = SIZE(VAR,1)
733	R2 = SIZE(VAR,2)
734	R3 = SIZE(VAR,3)
735	R = R1R2R3
736	allocate(Bytes(8*R)) !allocate the largest possible memory
737
738	CALL SZ_Compress_d3_Double_Rev(VAR, ReValue, Bytes, OutSize, R1, R2, R3)
739
740	END SUBROUTINE SZ_Compress_d3_Fortran_REAL_K8_Rev
741
742	SUBROUTINE SZ_Compress_d3_Fortran_REAL_K8_ARGS_Rev(VAR, ReValue, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio)
743	implicit none
744	REAL(KIND=8), DIMENSION(:,:,:) :: VAR
745	REAL(KIND=8) :: ReValue
746	INTEGER(kind=4) :: ErrBoundMode
747	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R
748	REAL(kind=8) :: AbsErrBound, RelBoundRatio
749	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
750
751	R1 = SIZE(VAR,1)
752	R2 = SIZE(VAR,2)
753	R3 = SIZE(VAR,3)
754	R = R1R2R3
755	allocate(Bytes(8*R)) !allocate the largest possible memory
756
757	CALL SZ_Compress_d3_Double_Rev_Args(VAR, ReValue, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2, R3)
758
759	END SUBROUTINE SZ_Compress_d3_Fortran_REAL_K8_ARGS_Rev
760
761	SUBROUTINE SZ_Compress_d4_Fortran_REAL_K8_Rev(VAR, ReValue, Bytes, OutSize)
762	implicit none
763	REAL(KIND=8), DIMENSION(:,:,:,:) :: VAR
764	REAL(KIND=8) :: ReValue
765	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R4, R
766	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
767
768	R1 = SIZE(VAR,1)
769	R2 = SIZE(VAR,2)
770	R3 = SIZE(VAR,3)
771	R4 = SIZE(VAR,4)
772
773	R = R1R2R3*R4
774	allocate(Bytes(8*R)) !allocate the largest possible memory
775
776	CALL SZ_Compress_d4_Double_Rev(VAR, ReValue, Bytes, OutSize, R1, R2, R3, R4)
777
778	END SUBROUTINE SZ_Compress_d4_Fortran_REAL_K8_Rev
779
780	SUBROUTINE SZ_Compress_d4_Fortran_REAL_K8_ARGS_Rev(VAR, ReValue, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio)
781	implicit none
782	REAL(KIND=8), DIMENSION(:,:,:,:) :: VAR
783	REAL(KIND=8) :: ReValue
784	INTEGER(kind=4) :: ErrBoundMode
785	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R4, R
786	REAL(kind=8) :: AbsErrBound, RelBoundRatio
787	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
788
789	R1 = SIZE(VAR,1)
790	R2 = SIZE(VAR,2)
791	R3 = SIZE(VAR,3)
792	R4 = SIZE(VAR,4)
793	R = R1R2R3*R4
794	allocate(Bytes(8*R)) !allocate the largest possible memory
795
796	CALL SZ_Compress_d4_Double_Rev_Args(VAR, ReValue, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2, R3, R4)
797
798	END SUBROUTINE SZ_Compress_d4_Fortran_REAL_K8_ARGS_Rev
799
800	SUBROUTINE SZ_Compress_d5_Fortran_REAL_K8_Rev(VAR, ReValue, Bytes, OutSize)
801	implicit none
802	REAL(KIND=8), DIMENSION(:,:,:,:,:) :: VAR
803	REAL(KIND=8) :: ReValue
804	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R4, R5, R
805	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
806
807	R1 = SIZE(VAR,1)
808	R2 = SIZE(VAR,2)
809	R3 = SIZE(VAR,3)
810	R4 = SIZE(VAR,4)
811	R5 = SIZE(VAR,5)
812	R = R1R2R3R4R5
813	allocate(Bytes(8*R)) !allocate the largest possible memory
814
815	CALL SZ_Compress_d5_Double_Rev(VAR, ReValue, Bytes, OutSize, R1, R2, R3, R4, R5)
816
817	END SUBROUTINE SZ_Compress_d5_Fortran_REAL_K8_Rev
818
819	SUBROUTINE SZ_Compress_d5_Fortran_REAL_K8_ARGS_Rev(VAR, ReValue, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio)
820	implicit none
821	REAL(KIND=8), DIMENSION(:,:,:,:,:) :: VAR
822	REAL(KIND=8) :: ReValue
823	INTEGER(kind=4) :: ErrBoundMode
824	INTEGER(kind=C_SIZE_T) :: OutSize, R1, R2, R3, R4, R5, R
825	REAL(kind=8) :: AbsErrBound, RelBoundRatio
826	INTEGER(kind=1), DIMENSION(:), allocatable :: Bytes
827
828	R1 = SIZE(VAR,1)
829	R2 = SIZE(VAR,2)
830	R3 = SIZE(VAR,3)
831	R4 = SIZE(VAR,4)
832	R5 = SIZE(VAR,5)
833	R = R1R2R3R4R5
834	allocate(Bytes(8*R)) !allocate the largest possible memory
835
836	CALL SZ_Compress_d5_Double_Rev_Args(VAR, ReValue, Bytes, OutSize, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2, R3, R4, R5)
837
838	END SUBROUTINE SZ_Compress_d5_Fortran_REAL_K8_ARGS_Rev
839
840	!Decompress functions
841
842	SUBROUTINE SZ_Decompress_d1_Fortran_REAL_K4(Bytes, VAR, R1)
843	implicit none
844	INTEGER(kind=1), DIMENSION(:) :: Bytes
845	REAL(KIND=4), DIMENSION(:), allocatable :: VAR
846	INTEGER(kind=C_SIZE_T) :: R1, BLength
847	BLength = SIZE(Bytes)
848	allocate(VAR(R1))
849
850	CALL SZ_Decompress_d1_Float(Bytes, BLength, VAR, R1)
851	END SUBROUTINE SZ_Decompress_d1_Fortran_REAL_K4
852
853	SUBROUTINE SZ_Decompress_d2_Fortran_REAL_K4(Bytes, VAR, R1, R2)
854	implicit none
855	INTEGER(kind=1), DIMENSION(:) :: Bytes
856	REAL(KIND=4), DIMENSION(:,:), allocatable :: VAR
857	INTEGER(kind=C_SIZE_T) :: R1, R2, BLength
858	BLength = SIZE(Bytes)
859	allocate(VAR(R1,R2))
860
861	CALL SZ_Decompress_d2_Float(Bytes, BLength, VAR, R1, R2)
862	END SUBROUTINE SZ_Decompress_d2_Fortran_REAL_K4
863
864	SUBROUTINE SZ_Decompress_d3_Fortran_REAL_K4(Bytes, VAR, R1, R2, R3)
865	implicit none
866	INTEGER(kind=1), DIMENSION(:) :: Bytes
867	REAL(KIND=4), DIMENSION(:,:,:), allocatable :: VAR
868	INTEGER(kind=C_SIZE_T) :: R1, R2, R3, BLength
869	BLength = SIZE(Bytes)
870	allocate(VAR(R1,R2,R3))
871
872	CALL SZ_Decompress_d3_Float(Bytes, BLength, VAR, R1, R2, R3)
873	END SUBROUTINE SZ_Decompress_d3_Fortran_REAL_K4
874
875	SUBROUTINE SZ_Decompress_d4_Fortran_REAL_K4(Bytes, VAR, R1, R2, R3, R4)
876	implicit none
877	INTEGER(kind=1), DIMENSION(:) :: Bytes
878	REAL(KIND=4), DIMENSION(:,:,:,:), allocatable :: VAR
879	INTEGER(kind=C_SIZE_T) :: R1, R2, R3, R4, BLength
880	BLength = SIZE(Bytes)
881	allocate(VAR(R1,R2,R3,R4))
882
883	CALL SZ_Decompress_d4_Float(Bytes, BLength, VAR, R1, R2, R3, R4)
884	END SUBROUTINE SZ_Decompress_d4_Fortran_REAL_K4
885
886	SUBROUTINE SZ_Decompress_d5_Fortran_REAL_K4(Bytes, VAR, R1, R2, R3, R4, R5)
887	implicit none
888	INTEGER(kind=1), DIMENSION(:) :: Bytes
889	REAL(KIND=4), DIMENSION(:,:,:,:,:), allocatable :: VAR
890	INTEGER(kind=C_SIZE_T) :: R1, R2, R3, R4, R5, BLength
891	BLength = SIZE(Bytes)
892	allocate(VAR(R1,R2,R3,R4,R5))
893
894	CALL SZ_Decompress_d5_Float(Bytes, BLength, VAR, R1, R2, R3, R4, R5)
895	END SUBROUTINE SZ_Decompress_d5_Fortran_REAL_K4
896
897	SUBROUTINE SZ_Decompress_d1_Fortran_REAL_K8(Bytes, VAR, R1)
898	implicit none
899	INTEGER(kind=1), DIMENSION(:) :: Bytes
900	REAL(KIND=8), DIMENSION(:), allocatable :: VAR
901	INTEGER(kind=C_SIZE_T) :: R1, BLength
902	BLength = SIZE(Bytes)
903	allocate(VAR(R1))
904
905	CALL SZ_Decompress_d1_Double(Bytes, BLength, VAR, R1)
906	END SUBROUTINE SZ_Decompress_d1_Fortran_REAL_K8
907
908	SUBROUTINE SZ_Decompress_d2_Fortran_REAL_K8(Bytes, VAR, R1, R2)
909	implicit none
910	INTEGER(kind=1), DIMENSION(:) :: Bytes
911	REAL(KIND=8), DIMENSION(:,:), allocatable :: VAR
912	INTEGER(kind=C_SIZE_T) :: R1, R2, BLength
913	BLength = SIZE(Bytes)
914	allocate(VAR(R1,R2))
915
916	CALL SZ_Decompress_d2_Double(Bytes, BLength, VAR, R1, R2)
917	END SUBROUTINE SZ_Decompress_d2_Fortran_REAL_K8
918
919	SUBROUTINE SZ_Decompress_d3_Fortran_REAL_K8(Bytes, VAR, R1, R2, R3)
920	implicit none
921	INTEGER(kind=1), DIMENSION(:) :: Bytes
922	REAL(KIND=8), DIMENSION(:,:,:), allocatable :: VAR
923	INTEGER(kind=C_SIZE_T) :: R1, R2, R3, BLength
924	BLength = SIZE(Bytes)
925	allocate(VAR(R1,R2,R3))
926
927	CALL SZ_Decompress_d3_Double(Bytes, BLength, VAR, R1, R2, R3)
928	END SUBROUTINE SZ_Decompress_d3_Fortran_REAL_K8
929
930	SUBROUTINE SZ_Decompress_d4_Fortran_REAL_K8(Bytes, VAR, R1, R2, R3, R4)
931	implicit none
932	INTEGER(kind=1), DIMENSION(:) :: Bytes
933	REAL(KIND=8), DIMENSION(:,:,:,:), allocatable :: VAR
934	INTEGER(kind=C_SIZE_T) :: R1, R2, R3, R4, BLength
935	BLength = SIZE(Bytes)
936	allocate(VAR(R1,R2,R3,R4))
937
938	CALL SZ_Decompress_d4_Double(Bytes, BLength, VAR, R1, R2, R3, R4)
939	END SUBROUTINE SZ_Decompress_d4_Fortran_REAL_K8
940
941	SUBROUTINE SZ_Decompress_d5_Fortran_REAL_K8(Bytes, VAR, R1, R2, R3, R4, R5)
942	implicit none
943	INTEGER(kind=1), DIMENSION(:) :: Bytes
944	REAL(KIND=8), DIMENSION(:,:,:,:,:), allocatable :: VAR
945	INTEGER(kind=C_SIZE_T) :: R1, R2, R3, R4, R5, BLength
946	BLength = SIZE(Bytes, 1)
947	allocate(VAR(R1,R2,R3,R4,R5))
948
949	CALL SZ_Decompress_d5_Double(Bytes, BLength, VAR, R1, R2, R3, R4, R5)
950	END SUBROUTINE SZ_Decompress_d5_Fortran_REAL_K8
951
952	!--------batch add float
953
954	SUBROUTINE SZ_BatchAddVar_d1_Fortran_REAL_K4(varName, VAR, ErrBoundMode, AbsErrBound, RelBoundRatio)
955	implicit none
956	CHARACTER(len=*) :: varName
957	REAL(KIND=4), DIMENSION(:) :: VAR
958	INTEGER(kind=4) :: ErrBoundMode
959	INTEGER(kind=C_SIZE_T) :: R1
960	REAL(kind=4) :: AbsErrBound, RelBoundRatio
961	R1 = SIZE(VAR,1)
962
963	CALL SZ_batchAddVar_d1_Float(varName, len(trim(varName)), VAR, ErrBoundMode, AbsErrBound, RelBoundRatio, R1)
964	END SUBROUTINE SZ_BatchAddVar_d1_Fortran_REAL_K4
965
966	SUBROUTINE SZ_BatchAddVar_d2_Fortran_REAL_K4(varName, VAR, ErrBoundMode, AbsErrBound, RelBoundRatio)
967	implicit none
968	CHARACTER(len=*) :: varName
969	REAL(KIND=4), DIMENSION(:,:) :: VAR
970	INTEGER(kind=4) :: ErrBoundMode
971	INTEGER(kind=C_SIZE_T) :: R1, R2
972	REAL(kind=4) :: AbsErrBound, RelBoundRatio
973	R1 = SIZE(VAR,1)
974	R2 = SIZE(VAR,2)
975
976	CALL SZ_batchAddVar_d2_Float(varName, len(trim(varName)), VAR, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2)
977	END SUBROUTINE SZ_BatchAddVar_d2_Fortran_REAL_K4
978
979	SUBROUTINE SZ_BatchAddVar_d3_Fortran_REAL_K4(varName, VAR, ErrBoundMode, AbsErrBound, RelBoundRatio)
980	implicit none
981	CHARACTER(len=*) :: varName
982	REAL(KIND=4), DIMENSION(:,:,:) :: VAR
983	INTEGER(kind=4) :: ErrBoundMode
984	INTEGER(kind=C_SIZE_T) :: R1, R2, R3
985	REAL(kind=4) :: AbsErrBound, RelBoundRatio
986	R1 = SIZE(VAR,1)
987	R2 = SIZE(VAR,2)
988	R3 = SIZE(VAR,3)
989
990	CALL SZ_batchAddVar_d3_Float(varName, len(trim(varName)), VAR, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2, R3)
991	END SUBROUTINE SZ_BatchAddVar_d3_Fortran_REAL_K4
992
993	SUBROUTINE SZ_BatchAddVar_d4_Fortran_REAL_K4(varName, VAR, ErrBoundMode, AbsErrBound, RelBoundRatio)
994	implicit none
995	CHARACTER(len=*) :: varName
996	REAL(KIND=4), DIMENSION(:,:,:,:) :: VAR
997	INTEGER(kind=4) :: ErrBoundMode
998	INTEGER(kind=C_SIZE_T) :: R1, R2, R3, R4
999	REAL(kind=4) :: AbsErrBound, RelBoundRatio
1000	R1 = SIZE(VAR,1)
1001	R2 = SIZE(VAR,2)
1002	R3 = SIZE(VAR,3)
1003	R4 = SIZE(VAR,4)
1004
1005	CALL SZ_batchAddVar_d4_Float(varName, len(trim(varName)), VAR, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2, R3, R4)
1006	END SUBROUTINE SZ_BatchAddVar_d4_Fortran_REAL_K4
1007
1008	SUBROUTINE SZ_BatchAddVar_d5_Fortran_REAL_K4(varName, VAR, ErrBoundMode, AbsErrBound, RelBoundRatio)
1009	implicit none
1010	CHARACTER(len=*) :: varName
1011	REAL(KIND=4), DIMENSION(:,:,:,:,:) :: VAR
1012	INTEGER(kind=4) :: ErrBoundMode
1013	INTEGER(kind=C_SIZE_T) :: R1, R2, R3, R4, R5
1014	REAL(kind=4) :: AbsErrBound, RelBoundRatio
1015	R1 = SIZE(VAR,1)
1016	R2 = SIZE(VAR,2)
1017	R3 = SIZE(VAR,3)
1018	R4 = SIZE(VAR,4)
1019	R5 = SIZE(VAR,5)
1020
1021	CALL SZ_batchAddVar_d5_Float(varName, len(trim(varName)), VAR, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2, R3, R4, R5)
1022	END SUBROUTINE SZ_BatchAddVar_d5_Fortran_REAL_K4
1023
1024	!------batch add double
1025	SUBROUTINE SZ_BatchAddVar_d1_Fortran_REAL_K8(varName, VAR, ErrBoundMode, AbsErrBound, RelBoundRatio)
1026	implicit none
1027	CHARACTER(len=*) :: varName
1028	REAL(KIND=8), DIMENSION(:) :: VAR
1029	INTEGER(kind=4) :: ErrBoundMode
1030	INTEGER(kind=C_SIZE_T) :: R1
1031	REAL(kind=8) :: AbsErrBound, RelBoundRatio
1032	R1 = SIZE(VAR,1)
1033
1034	CALL SZ_batchAddVar_d1_Double(varName, len(trim(varName)), VAR, ErrBoundMode, AbsErrBound, RelBoundRatio, R1)
1035	END SUBROUTINE SZ_BatchAddVar_d1_Fortran_REAL_K8
1036
1037	SUBROUTINE SZ_BatchAddVar_d2_Fortran_REAL_K8(varName, VAR, ErrBoundMode, AbsErrBound, RelBoundRatio)
1038	implicit none
1039	CHARACTER(len=*) :: varName
1040	REAL(KIND=8), DIMENSION(:,:) :: VAR
1041	INTEGER(kind=4) :: ErrBoundMode
1042	INTEGER(kind=C_SIZE_T) :: R1, R2
1043	REAL(kind=8) :: AbsErrBound, RelBoundRatio
1044	R1 = SIZE(VAR,1)
1045	R2 = SIZE(VAR,2)
1046
1047	CALL SZ_batchAddVar_d2_Double(varName, len(trim(varName)), VAR, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2)
1048	END SUBROUTINE SZ_BatchAddVar_d2_Fortran_REAL_K8
1049
1050	SUBROUTINE SZ_BatchAddVar_d3_Fortran_REAL_K8(varName, VAR, ErrBoundMode, AbsErrBound, RelBoundRatio)
1051	implicit none
1052	CHARACTER(len=*) :: varName
1053	REAL(KIND=8), DIMENSION(:,:,:) :: VAR
1054	INTEGER(kind=4) :: ErrBoundMode
1055	INTEGER(kind=C_SIZE_T) :: R1, R2, R3
1056	REAL(kind=8) :: AbsErrBound, RelBoundRatio
1057	R1 = SIZE(VAR,1)
1058	R2 = SIZE(VAR,2)
1059	R3 = SIZE(VAR,3)
1060
1061	CALL SZ_batchAddVar_d3_Double(varName, len(trim(varName)), VAR, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2, R3)
1062	END SUBROUTINE SZ_BatchAddVar_d3_Fortran_REAL_K8
1063
1064	SUBROUTINE SZ_BatchAddVar_d4_Fortran_REAL_K8(varName, VAR, ErrBoundMode, AbsErrBound, RelBoundRatio)
1065	implicit none
1066	CHARACTER(len=*) :: varName
1067	REAL(KIND=8), DIMENSION(:,:,:,:) :: VAR
1068	INTEGER(kind=4) :: ErrBoundMode
1069	INTEGER(kind=C_SIZE_T) :: R1, R2, R3, R4
1070	REAL(kind=8) :: AbsErrBound, RelBoundRatio
1071	R1 = SIZE(VAR,1)
1072	R2 = SIZE(VAR,2)
1073	R3 = SIZE(VAR,3)
1074	R4 = SIZE(VAR,4)
1075
1076	CALL SZ_batchAddVar_d4_Double(varName, len(trim(varName)), VAR, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2, R3, R4)
1077	END SUBROUTINE SZ_BatchAddVar_d4_Fortran_REAL_K8
1078
1079	SUBROUTINE SZ_BatchAddVar_d5_Fortran_REAL_K8(varName, VAR, ErrBoundMode, AbsErrBound, RelBoundRatio)
1080	implicit none
1081	CHARACTER(len=*) :: varName
1082	REAL(KIND=8), DIMENSION(:,:,:,:,:) :: VAR
1083	INTEGER(kind=4) :: ErrBoundMode
1084	INTEGER(kind=C_SIZE_T) :: R1, R2, R3, R4, R5
1085	REAL(kind=8) :: AbsErrBound, RelBoundRatio
1086	R1 = SIZE(VAR,1)
1087	R2 = SIZE(VAR,2)
1088	R3 = SIZE(VAR,3)
1089	R4 = SIZE(VAR,4)
1090	R5 = SIZE(VAR,5)
1091
1092	CALL SZ_batchAddVar_d5_Double(varName, len(trim(varName)), VAR, ErrBoundMode, AbsErrBound, RelBoundRatio, R1, R2, R3, R4, R5)
1093	END SUBROUTINE SZ_BatchAddVar_d5_Fortran_REAL_K8
1094
1095	SUBROUTINE SZ_GetVarDim(varName, DIMEN, R1, R2, R3, R4, R5)
1096	implicit none
1097	CHARACTER(len=*), INTENT(IN) :: varName
1098	INTEGER(kind=4), INTENT(OUT) :: DIMEN
1099	INTEGER(kind=C_SIZE_T), INTENT(OUT) :: R1, R2, R3, R4, R5
1100
1101	CALL SZ_GetVarDim_c(varName, len(trim(varName)), DIMEN, R1, R2, R3, R4, R5)
1102
1103	END SUBROUTINE SZ_GetVarDim
1104
1105	SUBROUTINE SZ_GetVarData_d1_Fortran_REAL_K4(varName, VAR)
1106	implicit none
1107	CHARACTER(len=*), INTENT(IN) :: varName
1108	REAL(KIND=4), DIMENSION(:), allocatable :: VAR
1109
1110	CALL SZ_getVarData_Float(varName, len(trim(varName)), VAR)
1111
1112	END SUBROUTINE SZ_GetVarData_d1_Fortran_REAL_K4
1113
1114	SUBROUTINE SZ_GetVarData_d2_Fortran_REAL_K4(varName, VAR)
1115	implicit none
1116	CHARACTER(len=*), INTENT(IN) :: varName
1117	REAL(KIND=4), DIMENSION(:,:), allocatable :: VAR
1118
1119	CALL SZ_getVarData_Float(varName, len(trim(varName)), VAR)
1120
1121	END SUBROUTINE SZ_GetVarData_d2_Fortran_REAL_K4
1122
1123	SUBROUTINE SZ_GetVarData_d3_Fortran_REAL_K4(varName, VAR)
1124	implicit none
1125	CHARACTER(len=*), INTENT(IN) :: varName
1126	REAL(KIND=4), DIMENSION(:,:,:), allocatable :: VAR
1127
1128	CALL SZ_getVarData_Float(varName, len(trim(varName)), VAR)
1129
1130	END SUBROUTINE SZ_GetVarData_d3_Fortran_REAL_K4
1131
1132	SUBROUTINE SZ_GetVarData_d4_Fortran_REAL_K4(varName, VAR)
1133	implicit none
1134	CHARACTER(len=*), INTENT(IN) :: varName
1135	REAL(KIND=4), DIMENSION(:,:,:,:), allocatable :: VAR
1136
1137	CALL SZ_getVarData_Float(varName, len(trim(varName)), VAR)
1138
1139	END SUBROUTINE SZ_GetVarData_d4_Fortran_REAL_K4
1140
1141	SUBROUTINE SZ_GetVarData_d5_Fortran_REAL_K4(varName, VAR)
1142	implicit none
1143	CHARACTER(len=*), INTENT(IN) :: varName
1144	REAL(KIND=4), DIMENSION(:,:,:,:,:), allocatable :: VAR
1145
1146	CALL SZ_getVarData_Float(varName, len(trim(varName)), VAR)
1147
1148	END SUBROUTINE SZ_GetVarData_d5_Fortran_REAL_K4
1149
1150	SUBROUTINE SZ_GetVarData_d1_Fortran_REAL_K8(varName, VAR)
1151	implicit none
1152	CHARACTER(len=*), INTENT(IN) :: varName
1153	REAL(KIND=8), DIMENSION(:), allocatable :: VAR
1154
1155	CALL SZ_getVarData_Double(varName, len(trim(varName)), VAR)
1156
1157	END SUBROUTINE SZ_GetVarData_d1_Fortran_REAL_K8
1158
1159	SUBROUTINE SZ_GetVarData_d2_Fortran_REAL_K8(varName, VAR)
1160	implicit none
1161	CHARACTER(len=*), INTENT(IN) :: varName
1162	REAL(KIND=8), DIMENSION(:,:), allocatable :: VAR
1163
1164	CALL SZ_getVarData_Double(varName, len(trim(varName)), VAR)
1165
1166	END SUBROUTINE SZ_GetVarData_d2_Fortran_REAL_K8
1167
1168	SUBROUTINE SZ_GetVarData_d3_Fortran_REAL_K8(varName, VAR)
1169	implicit none
1170	CHARACTER(len=*), INTENT(IN) :: varName
1171	REAL(KIND=8), DIMENSION(:,:,:), allocatable :: VAR
1172
1173	CALL SZ_getVarData_Double(varName, len(trim(varName)), VAR)
1174
1175	END SUBROUTINE SZ_GetVarData_d3_Fortran_REAL_K8
1176
1177	SUBROUTINE SZ_GetVarData_d4_Fortran_REAL_K8(varName, VAR)
1178	implicit none
1179	CHARACTER(len=*), INTENT(IN) :: varName
1180	REAL(KIND=8), DIMENSION(:,:,:,:), allocatable :: VAR
1181
1182	CALL SZ_getVarData_Double(varName, len(trim(varName)), VAR)
1183
1184	END SUBROUTINE SZ_GetVarData_d4_Fortran_REAL_K8
1185
1186	SUBROUTINE SZ_GetVarData_d5_Fortran_REAL_K8(varName, VAR)
1187	implicit none
1188	CHARACTER(len=*), INTENT(IN) :: varName
1189	REAL(KIND=8), DIMENSION(:,:,:,:,:), allocatable :: VAR
1190
1191	CALL SZ_getVarData_Double(varName, len(trim(varName)), VAR)
1192
1193	END SUBROUTINE SZ_GetVarData_d5_Fortran_REAL_K8
1194
1195	END MODULE SZ

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

Download in other formats: