4 subroutine ezspline_2netcdf_array3_r8(n1, n2, n3, x1, x2, x3, f, filename, ier)
8 integer,
intent(in) :: n1, n2, n3
9 real(ezspline_r8),
intent(in) :: x1(:), x2(:), x3(:), f(:, :, :)
10 character*(*),
intent(in) :: filename
11 integer,
intent(out) :: ier
14 integer dimlens(3), ncid
17 call cdfopn(ncid, filename,
'w')
22 dimlens = (/ 1, 1, 1 /)
23 call cdfdefvar(ncid,
'n1', dimlens,
'INT', ifail)
24 call cdfdefvar(ncid,
'n2', dimlens,
'INT', ifail)
25 call cdfdefvar(ncid,
'n3', dimlens,
'INT', ifail)
26 dimlens = (/ n1, 1, 1 /)
27 call cdfdefvar(ncid,
'x1', dimlens,
'R8', ifail)
28 dimlens = (/ n2, 1, 1 /)
29 call cdfdefvar(ncid,
'x2', dimlens,
'R8', ifail)
30 dimlens = (/ n3, 1, 1 /)
31 call cdfdefvar(ncid,
'x3', dimlens,
'R8', ifail)
32 dimlens = (/ n1, n2, n3 /)
33 call cdfdefvar(ncid,
'f', dimlens,
'R8', ifail)
38 call cdfputvar(ncid,
'n1', n1, ifail)
39 call cdfputvar(ncid,
'n2', n2, ifail)
40 call cdfputvar(ncid,
'n3', n3, ifail)
41 call cdfputvar(ncid,
'x1', x1, ifail)
42 call cdfputvar(ncid,
'x2', x2, ifail)
43 call cdfputvar(ncid,
'x3', x3, ifail)
44 call cdfputvar(ncid,
'f', f, ifail)
52 end subroutine ezspline_2netcdf_array3_r8
54 subroutine ezspline_2netcdf_array2_r8(n1, n2, x1, x2, f, filename, ier)
58 integer,
intent(in) :: n1, n2
59 real(ezspline_r8),
intent(in) :: x1(:), x2(:), f(:,:)
60 character*(*),
intent(in) :: filename
61 integer,
intent(out) :: ier
64 integer dimlens(3), ncid
67 call cdfopn(ncid, filename,
'w')
72 dimlens = (/ 1, 1, 1 /)
73 call cdfdefvar(ncid,
'n1', dimlens,
'INT', ifail)
74 call cdfdefvar(ncid,
'n2', dimlens,
'INT', ifail)
75 dimlens = (/ n1, 1, 1 /)
76 call cdfdefvar(ncid,
'x1', dimlens,
'R8', ifail)
77 dimlens = (/ n2, 1, 1 /)
78 call cdfdefvar(ncid,
'x2', dimlens,
'R8', ifail)
79 dimlens = (/ n1, n2, 1 /)
80 call cdfdefvar(ncid,
'f', dimlens,
'R8', ifail)
86 call cdfputvar(ncid,
'n1', n1, ifail)
87 call cdfputvar(ncid,
'n2', n2, ifail)
88 call cdfputvar(ncid,
'x1', x1, ifail)
89 call cdfputvar(ncid,
'x2', x2, ifail)
90 call cdfputvar(ncid,
'f', f, ifail)
98 end subroutine ezspline_2netcdf_array2_r8
100 subroutine ezspline_2netcdf1_r8(n1, x1, f, filename, ier)
104 integer,
intent(in) :: n1
105 real(ezspline_r8),
intent(in) :: x1(:), f(:)
106 character*(*),
intent(in) :: filename
107 integer,
intent(out) :: ier
110 integer dimlens(3), ncid
113 call cdfopn(ncid, filename,
'w')
118 dimlens = (/ 1, 1, 1 /)
119 call cdfdefvar(ncid,
'n1', dimlens,
'INT', ifail)
120 dimlens = (/ n1, 1, 1 /)
121 call cdfdefvar(ncid,
'x1', dimlens,
'R8', ifail)
122 dimlens = (/ n1, 1, 1 /)
123 call cdfdefvar(ncid,
'f', dimlens,
'R8', ifail)
129 call cdfputvar(ncid,
'n1', n1, ifail)
130 call cdfputvar(ncid,
'x1', x1, ifail)
131 call cdfputvar(ncid,
'f', f, ifail)
139 end subroutine ezspline_2netcdf1_r8
141 subroutine ezspline_2netcdf_cloud3_r8(n, x1, x2, x3, f, filename, ier)
145 integer,
intent(in) :: n
146 real(ezspline_r8),
intent(in) :: x1(:), x2(:), x3(:), f(:)
147 character*(*),
intent(in) :: filename
148 integer,
intent(out) :: ier
151 integer dimlens(3), ncid
154 call cdfopn(ncid, filename,
'w')
159 dimlens = (/ 1, 1, 1 /)
160 call cdfdefvar(ncid,
'n', dimlens,
'INT', ifail)
161 dimlens = (/ n, 1, 1 /)
162 call cdfdefvar(ncid,
'x1', dimlens,
'R8', ifail)
163 dimlens = (/ n, 1, 1 /)
164 call cdfdefvar(ncid,
'x2', dimlens,
'R8', ifail)
165 dimlens = (/ n, 1, 1 /)
166 call cdfdefvar(ncid,
'x3', dimlens,
'R8', ifail)
167 dimlens = (/ n, 1, 1 /)
168 call cdfdefvar(ncid,
'f', dimlens,
'R8', ifail)
174 call cdfputvar(ncid,
'n', n, ifail)
175 call cdfputvar(ncid,
'x1', x1, ifail)
176 call cdfputvar(ncid,
'x2', x2, ifail)
177 call cdfputvar(ncid,
'x3', x3, ifail)
178 call cdfputvar(ncid,
'f', f, ifail)
186 end subroutine ezspline_2netcdf_cloud3_r8
188 subroutine ezspline_2netcdf_cloud2_r8(n, x1, x2, f, filename, ier)
192 integer,
intent(in) :: n
193 real(ezspline_r8),
intent(in) :: x1(:), x2(:), f(:)
194 character*(*),
intent(in) :: filename
195 integer,
intent(out) :: ier
198 integer dimlens(3), ncid
201 call cdfopn(ncid, filename,
'w')
206 dimlens = (/ 1, 1, 1 /)
207 call cdfdefvar(ncid,
'n', dimlens,
'INT', ifail)
208 dimlens = (/ n, 1, 1 /)
209 call cdfdefvar(ncid,
'x1', dimlens,
'R8', ifail)
210 dimlens = (/ n, 1, 1 /)
211 call cdfdefvar(ncid,
'x2', dimlens,
'R8', ifail)
212 dimlens = (/ n, 1, 1 /)
213 call cdfdefvar(ncid,
'f', dimlens,
'R8', ifail)
219 call cdfputvar(ncid,
'n', n, ifail)
220 call cdfputvar(ncid,
'x1', x1, ifail)
221 call cdfputvar(ncid,
'x2', x2, ifail)
222 call cdfputvar(ncid,
'f', f, ifail)
230 end subroutine ezspline_2netcdf_cloud2_r8
234 subroutine ezspline_2netcdf_array3_r4(n1, n2, n3, x1, x2, x3, f, filename, ier)
238 integer,
intent(in) :: n1, n2, n3
239 real(ezspline_r4),
intent(in) :: x1(:), x2(:), x3(:), f(:, :, :)
240 character*(*),
intent(in) :: filename
241 integer,
intent(out) :: ier
244 integer dimlens(3), ncid
247 call cdfopn(ncid, filename,
'w')
252 dimlens = (/ 1, 1, 1 /)
253 call cdfdefvar(ncid,
'n1', dimlens,
'INT', ifail)
254 call cdfdefvar(ncid,
'n2', dimlens,
'INT', ifail)
255 call cdfdefvar(ncid,
'n3', dimlens,
'INT', ifail)
256 dimlens = (/ n1, 1, 1 /)
257 call cdfdefvar(ncid,
'x1', dimlens,
'R4', ifail)
258 dimlens = (/ n2, 1, 1 /)
259 call cdfdefvar(ncid,
'x2', dimlens,
'R4', ifail)
260 dimlens = (/ n3, 1, 1 /)
261 call cdfdefvar(ncid,
'x3', dimlens,
'R4', ifail)
262 dimlens = (/ n1, n2, n3 /)
263 call cdfdefvar(ncid,
'f', dimlens,
'R4', ifail)
268 call cdfputvar(ncid,
'n1', n1, ifail)
269 call cdfputvar(ncid,
'n2', n2, ifail)
270 call cdfputvar(ncid,
'n3', n3, ifail)
271 call cdfputvar(ncid,
'x1', x1, ifail)
272 call cdfputvar(ncid,
'x2', x2, ifail)
273 call cdfputvar(ncid,
'x3', x3, ifail)
274 call cdfputvar(ncid,
'f', f, ifail)
282 end subroutine ezspline_2netcdf_array3_r4
284 subroutine ezspline_2netcdf_array2_r4(n1, n2, x1, x2, f, filename, ier)
288 integer,
intent(in) :: n1, n2
289 real(ezspline_r4),
intent(in) :: x1(:), x2(:), f(:,:)
290 character*(*),
intent(in) :: filename
291 integer,
intent(out) :: ier
294 integer dimlens(3), ncid
297 call cdfopn(ncid, filename,
'w')
302 dimlens = (/ 1, 1, 1 /)
303 call cdfdefvar(ncid,
'n1', dimlens,
'INT', ifail)
304 call cdfdefvar(ncid,
'n2', dimlens,
'INT', ifail)
305 dimlens = (/ n1, 1, 1 /)
306 call cdfdefvar(ncid,
'x1', dimlens,
'R4', ifail)
307 dimlens = (/ n2, 1, 1 /)
308 call cdfdefvar(ncid,
'x2', dimlens,
'R4', ifail)
309 dimlens = (/ n1, n2, 1 /)
310 call cdfdefvar(ncid,
'f', dimlens,
'R4', ifail)
316 call cdfputvar(ncid,
'n1', n1, ifail)
317 call cdfputvar(ncid,
'n2', n2, ifail)
318 call cdfputvar(ncid,
'x1', x1, ifail)
319 call cdfputvar(ncid,
'x2', x2, ifail)
320 call cdfputvar(ncid,
'f', f, ifail)
328 end subroutine ezspline_2netcdf_array2_r4
330 subroutine ezspline_2netcdf1_r4(n1, x1, f, filename, ier)
334 integer,
intent(in) :: n1
335 real(ezspline_r4),
intent(in) :: x1(:), f(:)
336 character*(*),
intent(in) :: filename
337 integer,
intent(out) :: ier
340 integer dimlens(3), ncid
343 call cdfopn(ncid, filename,
'w')
348 dimlens = (/ 1, 1, 1 /)
349 call cdfdefvar(ncid,
'n1', dimlens,
'INT', ifail)
350 dimlens = (/ n1, 1, 1 /)
351 call cdfdefvar(ncid,
'x1', dimlens,
'R4', ifail)
352 dimlens = (/ n1, 1, 1 /)
353 call cdfdefvar(ncid,
'f', dimlens,
'R4', ifail)
359 call cdfputvar(ncid,
'n1', n1, ifail)
360 call cdfputvar(ncid,
'x1', x1, ifail)
361 call cdfputvar(ncid,
'f', f, ifail)
369 end subroutine ezspline_2netcdf1_r4
371 subroutine ezspline_2netcdf_cloud3_r4(n, x1, x2, x3, f, filename, ier)
375 integer,
intent(in) :: n
376 real(ezspline_r4),
intent(in) :: x1(:), x2(:), x3(:), f(:)
377 character*(*),
intent(in) :: filename
378 integer,
intent(out) :: ier
381 integer dimlens(3), ncid
384 call cdfopn(ncid, filename,
'w')
389 dimlens = (/ 1, 1, 1 /)
390 call cdfdefvar(ncid,
'n', dimlens,
'INT', ifail)
391 dimlens = (/ n, 1, 1 /)
392 call cdfdefvar(ncid,
'x1', dimlens,
'R4', ifail)
393 dimlens = (/ n, 1, 1 /)
394 call cdfdefvar(ncid,
'x2', dimlens,
'R4', ifail)
395 dimlens = (/ n, 1, 1 /)
396 call cdfdefvar(ncid,
'x3', dimlens,
'R4', ifail)
397 dimlens = (/ n, 1, 1 /)
398 call cdfdefvar(ncid,
'f', dimlens,
'R4', ifail)
404 call cdfputvar(ncid,
'n', n, ifail)
405 call cdfputvar(ncid,
'x1', x1, ifail)
406 call cdfputvar(ncid,
'x2', x2, ifail)
407 call cdfputvar(ncid,
'x3', x3, ifail)
408 call cdfputvar(ncid,
'f', f, ifail)
416 end subroutine ezspline_2netcdf_cloud3_r4
418 subroutine ezspline_2netcdf_cloud2_r4(n, x1, x2, f, filename, ier)
422 integer,
intent(in) :: n
423 real(ezspline_r4),
intent(in) :: x1(:), x2(:), f(:)
424 character*(*),
intent(in) :: filename
425 integer,
intent(out) :: ier
428 integer dimlens(3), ncid
431 call cdfopn(ncid, filename,
'w')
436 dimlens = (/ 1, 1, 1 /)
437 call cdfdefvar(ncid,
'n', dimlens,
'INT', ifail)
438 dimlens = (/ n, 1, 1 /)
439 call cdfdefvar(ncid,
'x1', dimlens,
'R4', ifail)
440 dimlens = (/ n, 1, 1 /)
441 call cdfdefvar(ncid,
'x2', dimlens,
'R4', ifail)
442 dimlens = (/ n, 1, 1 /)
443 call cdfdefvar(ncid,
'f', dimlens,
'R4', ifail)
449 call cdfputvar(ncid,
'n', n, ifail)
450 call cdfputvar(ncid,
'x1', x1, ifail)
451 call cdfputvar(ncid,
'x2', x2, ifail)
452 call cdfputvar(ncid,
'f', f, ifail)
460 end subroutine ezspline_2netcdf_cloud2_r4