NetCDF-Fortran  4.4.3
netcdf4_eightbyte.f90
1 function nf90_put_var_1d_eightbyteint(ncid, varid, values, start, count, stride, map)
2  integer, intent( in) :: ncid, varid
3  integer (kind = EightByteInt), dimension(:), intent( in) :: values
4  integer, dimension(:), optional, intent( in) :: start, count, stride, map
5  integer :: nf90_put_var_1d_eightbyteint
6 
7  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
8  integer :: numdims, counter, format_num
9 
10  ! Set local arguments to default values
11  numdims = size(shape(values))
12  localstart(: ) = 1
13  localcount(:numdims ) = shape(values)
14  localcount(numdims+1:) = 1
15  localstride(: ) = 1
16  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
17 
18  if(present(start)) localstart(:size(start) ) = start(:)
19  if(present(count)) localcount(:size(count) ) = count(:)
20  if(present(stride)) localstride(:size(stride)) = stride(:)
21  nf90_put_var_1d_eightbyteint = nf_inq_format(ncid, format_num)
22  if (nf90_put_var_1d_eightbyteint .eq. nf90_noerr) then
23  if (format_num .eq. nf90_format_netcdf4) then
24  if(present(map)) then
25  localmap(:size(map)) = map(:)
26  nf90_put_var_1d_eightbyteint = &
27  nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
28  else if(present(stride)) then
29  nf90_put_var_1d_eightbyteint = &
30  nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
31  else
32  nf90_put_var_1d_eightbyteint = &
33  nf_put_vara_int64(ncid, varid, localstart, localcount, values)
34  end if
35  else
36  if(present(map)) then
37  localmap(:size(map)) = map(:)
38  nf90_put_var_1d_eightbyteint = &
39  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
40  else if(present(stride)) then
41  nf90_put_var_1d_eightbyteint = &
42  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
43  else
44  nf90_put_var_1d_eightbyteint = &
45  nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
46  end if
47  endif
48  endif
49 end function nf90_put_var_1d_eightbyteint
50 
51 function nf90_put_var_2d_eightbyteint(ncid, varid, values, start, count, stride, map)
52  integer, intent( in) :: ncid, varid
53  integer (kind = EightByteInt), dimension(:, :), &
54  intent( in) :: values
55  integer, dimension(:), optional, intent( in) :: start, count, stride, map
56  integer :: nf90_put_var_2d_eightbyteint
57 
58  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
59  integer :: numdims, counter, format_num
60 
61  ! Set local arguments to default values
62  numdims = size(shape(values))
63  localstart(: ) = 1
64  localcount(:numdims ) = shape(values)
65  localcount(numdims+1:) = 1
66  localstride(: ) = 1
67  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
68 
69  if(present(start)) localstart(:size(start) ) = start(:)
70  if(present(count)) localcount(:size(count) ) = count(:)
71  if(present(stride)) localstride(:size(stride)) = stride(:)
72  nf90_put_var_2d_eightbyteint = nf_inq_format(ncid, format_num)
73  if (nf90_put_var_2d_eightbyteint .eq. nf90_noerr) then
74  if (format_num .eq. nf90_format_netcdf4) then
75  if(present(map)) then
76  localmap(:size(map)) = map(:)
77  nf90_put_var_2d_eightbyteint = &
78  nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
79  else if(present(stride)) then
80  nf90_put_var_2d_eightbyteint = &
81  nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
82  else
83  nf90_put_var_2d_eightbyteint = &
84  nf_put_vara_int64(ncid, varid, localstart, localcount, values)
85  end if
86  else
87  if(present(map)) then
88  localmap(:size(map)) = map(:)
89  nf90_put_var_2d_eightbyteint = &
90  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
91  else if(present(stride)) then
92  nf90_put_var_2d_eightbyteint = &
93  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
94  else
95  nf90_put_var_2d_eightbyteint = &
96  nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
97  end if
98  endif
99  endif
100 
101 end function nf90_put_var_2d_eightbyteint
102 
103 
104 function nf90_put_var_3d_eightbyteint(ncid, varid, values, start, count, stride, map)
105  integer, intent( in) :: ncid, varid
106  integer (kind = EightByteInt), dimension(:, :, :), &
107  intent( in) :: values
108  integer, dimension(:), optional, intent( in) :: start, count, stride, map
109  integer :: nf90_put_var_3d_eightbyteint
110 
111  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
112  integer :: numdims, counter, format_num
113 
114  ! Set local arguments to default values
115  numdims = size(shape(values))
116  localstart(: ) = 1
117  localcount(:numdims ) = shape(values)
118  localcount(numdims+1:) = 1
119  localstride(: ) = 1
120  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
121 
122  if(present(start)) localstart(:size(start) ) = start(:)
123  if(present(count)) localcount(:size(count) ) = count(:)
124  if(present(stride)) localstride(:size(stride)) = stride(:)
125  nf90_put_var_3d_eightbyteint = nf_inq_format(ncid, format_num)
126  if (nf90_put_var_3d_eightbyteint .eq. nf90_noerr) then
127  if (format_num .eq. nf90_format_netcdf4) then
128  if(present(map)) then
129  localmap(:size(map)) = map(:)
130  nf90_put_var_3d_eightbyteint = &
131  nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
132  else if(present(stride)) then
133  nf90_put_var_3d_eightbyteint = &
134  nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
135  else
136  nf90_put_var_3d_eightbyteint = &
137  nf_put_vara_int64(ncid, varid, localstart, localcount, values)
138  end if
139  else
140  if(present(map)) then
141  localmap(:size(map)) = map(:)
142  nf90_put_var_3d_eightbyteint = &
143  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
144  else if(present(stride)) then
145  nf90_put_var_3d_eightbyteint = &
146  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
147  else
148  nf90_put_var_3d_eightbyteint = &
149  nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
150  end if
151  endif
152  endif
153 end function nf90_put_var_3d_eightbyteint
154 
155 
156 function nf90_put_var_4d_eightbyteint(ncid, varid, values, start, count, stride, map)
157  integer, intent( in) :: ncid, varid
158  integer (kind = EightByteInt), dimension(:, :, :, :), &
159  intent( in) :: values
160  integer, dimension(:), optional, intent( in) :: start, count, stride, map
161  integer :: nf90_put_var_4d_eightbyteint
162 
163  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
164  integer :: numdims, counter, format_num
165 
166  ! Set local arguments to default values
167  numdims = size(shape(values))
168  localstart(: ) = 1
169  localcount(:numdims ) = shape(values)
170  localcount(numdims+1:) = 1
171  localstride(: ) = 1
172  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
173 
174  if(present(start)) localstart(:size(start) ) = start(:)
175  if(present(count)) localcount(:size(count) ) = count(:)
176  if(present(stride)) localstride(:size(stride)) = stride(:)
177  nf90_put_var_4d_eightbyteint = nf_inq_format(ncid, format_num)
178  if (nf90_put_var_4d_eightbyteint .eq. nf90_noerr) then
179  if (format_num .eq. nf90_format_netcdf4) then
180  if(present(map)) then
181  localmap(:size(map)) = map(:)
182  nf90_put_var_4d_eightbyteint = &
183  nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
184  else if(present(stride)) then
185  nf90_put_var_4d_eightbyteint = &
186  nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
187  else
188  nf90_put_var_4d_eightbyteint = &
189  nf_put_vara_int64(ncid, varid, localstart, localcount, values)
190  end if
191  else
192  if(present(map)) then
193  localmap(:size(map)) = map(:)
194  nf90_put_var_4d_eightbyteint = &
195  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
196  else if(present(stride)) then
197  nf90_put_var_4d_eightbyteint = &
198  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
199  else
200  nf90_put_var_4d_eightbyteint = &
201  nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
202  end if
203  end if
204  end if
205 end function nf90_put_var_4d_eightbyteint
206 
207 
208 function nf90_put_var_5d_eightbyteint(ncid, varid, values, start, count, stride, map)
209  integer, intent( in) :: ncid, varid
210  integer (kind = EightByteInt), dimension(:, :, :, :, :), &
211  intent( in) :: values
212  integer, dimension(:), optional, intent( in) :: start, count, stride, map
213  integer :: nf90_put_var_5d_eightbyteint
214 
215  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
216  integer :: numdims, counter, format_num
217 
218  ! Set local arguments to default values
219  numdims = size(shape(values))
220  localstart(: ) = 1
221  localcount(:numdims ) = shape(values)
222  localcount(numdims+1:) = 1
223  localstride(: ) = 1
224  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
225 
226  if(present(start)) localstart(:size(start) ) = start(:)
227  if(present(count)) localcount(:size(count) ) = count(:)
228  if(present(stride)) localstride(:size(stride)) = stride(:)
229  nf90_put_var_5d_eightbyteint = nf_inq_format(ncid, format_num)
230  if (nf90_put_var_5d_eightbyteint .eq. nf90_noerr) then
231  if (format_num .eq. nf90_format_netcdf4) then
232  if(present(map)) then
233  localmap(:size(map)) = map(:)
234  nf90_put_var_5d_eightbyteint = &
235  nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
236  else if(present(stride)) then
237  nf90_put_var_5d_eightbyteint = &
238  nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
239  else
240  nf90_put_var_5d_eightbyteint = &
241  nf_put_vara_int64(ncid, varid, localstart, localcount, values)
242  end if
243  else
244  if(present(map)) then
245  localmap(:size(map)) = map(:)
246  nf90_put_var_5d_eightbyteint = &
247  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
248  else if(present(stride)) then
249  nf90_put_var_5d_eightbyteint = &
250  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
251  else
252  nf90_put_var_5d_eightbyteint = &
253  nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
254  end if
255  end if
256  end if
257 end function nf90_put_var_5d_eightbyteint
258 
259 
260 function nf90_put_var_6d_eightbyteint(ncid, varid, values, start, count, stride, map)
261  integer, intent( in) :: ncid, varid
262  integer (kind = EightByteInt), dimension(:, :, :, :, :, :), &
263  intent( in) :: values
264  integer, dimension(:), optional, intent( in) :: start, count, stride, map
265  integer :: nf90_put_var_6d_eightbyteint
266 
267  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
268  integer :: numdims, counter, format_num
269 
270  ! Set local arguments to default values
271  numdims = size(shape(values))
272  localstart(: ) = 1
273  localcount(:numdims ) = shape(values)
274  localcount(numdims+1:) = 1
275  localstride(: ) = 1
276  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
277 
278  if(present(start)) localstart(:size(start) ) = start(:)
279  if(present(count)) localcount(:size(count) ) = count(:)
280  if(present(stride)) localstride(:size(stride)) = stride(:)
281  nf90_put_var_6d_eightbyteint = nf_inq_format(ncid, format_num)
282  if (nf90_put_var_6d_eightbyteint .eq. nf90_noerr) then
283  if (format_num .eq. nf90_format_netcdf4) then
284  if(present(map)) then
285  localmap(:size(map)) = map(:)
286  nf90_put_var_6d_eightbyteint = &
287  nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
288  else if(present(stride)) then
289  nf90_put_var_6d_eightbyteint = &
290  nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
291  else
292  nf90_put_var_6d_eightbyteint = &
293  nf_put_vara_int64(ncid, varid, localstart, localcount, values)
294  end if
295  else
296  if(present(map)) then
297  localmap(:size(map)) = map(:)
298  nf90_put_var_6d_eightbyteint = &
299  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
300  else if(present(stride)) then
301  nf90_put_var_6d_eightbyteint = &
302  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
303  else
304  nf90_put_var_6d_eightbyteint = &
305  nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
306  end if
307  end if
308  end if
309 end function nf90_put_var_6d_eightbyteint
310 
311 
312 function nf90_put_var_7d_eightbyteint(ncid, varid, values, start, count, stride, map)
313  integer, intent( in) :: ncid, varid
314  integer (kind = EightByteInt), dimension(:, :, :, :, :, :, :), &
315  intent( in) :: values
316  integer, dimension(:), optional, intent( in) :: start, count, stride, map
317  integer :: nf90_put_var_7d_eightbyteint
318 
319  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
320  integer :: numdims, counter, format_num
321 
322  ! Set local arguments to default values
323  numdims = size(shape(values))
324  localstart(: ) = 1
325  localcount(:numdims ) = shape(values)
326  localcount(numdims+1:) = 1
327  localstride(: ) = 1
328  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
329 
330  if(present(start)) localstart(:size(start) ) = start(:)
331  if(present(count)) localcount(:size(count) ) = count(:)
332  if(present(stride)) localstride(:size(stride)) = stride(:)
333  nf90_put_var_7d_eightbyteint = nf_inq_format(ncid, format_num)
334  if (nf90_put_var_7d_eightbyteint .eq. nf90_noerr) then
335  if (format_num .eq. nf90_format_netcdf4) then
336  if(present(map)) then
337  localmap(:size(map)) = map(:)
338  nf90_put_var_7d_eightbyteint = &
339  nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
340  else if(present(stride)) then
341  nf90_put_var_7d_eightbyteint = &
342  nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
343  else
344  nf90_put_var_7d_eightbyteint = &
345  nf_put_vara_int64(ncid, varid, localstart, localcount, values)
346  end if
347  else
348  if(present(map)) then
349  localmap(:size(map)) = map(:)
350  nf90_put_var_7d_eightbyteint = &
351  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
352  else if(present(stride)) then
353  nf90_put_var_7d_eightbyteint = &
354  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
355  else
356  nf90_put_var_7d_eightbyteint = &
357  nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
358  end if
359  end if
360  end if
361 end function nf90_put_var_7d_eightbyteint
362 
363 
364 function nf90_get_var_1d_eightbyteint(ncid, varid, values, start, count, stride, map)
365  integer, intent( in) :: ncid, varid
366  integer (kind = EightByteInt), dimension(:), &
367  intent(out) :: values
368  integer, dimension(:), optional, intent( in) :: start, count, stride, map
369  integer :: nf90_get_var_1d_eightbyteint
370 
371  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
372  integer :: numdims, counter, format_num
373  integer, dimension(size(values)) :: defaultintarray
374  integer (kind = EightByteInt), dimension(size(values)) :: defaultint8array
375 
376  ! Set local arguments to default values
377  numdims = size(shape(values))
378  localstart(: ) = 1
379  localcount(:numdims ) = shape(values)
380  localcount(numdims+1:) = 1
381  localstride(: ) = 1
382  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
383 
384  if(present(start)) localstart(:size(start) ) = start(:)
385  if(present(count)) localcount(:size(count) ) = count(:)
386  if(present(stride)) localstride(:size(stride)) = stride(:)
387  nf90_get_var_1d_eightbyteint = nf_inq_format(ncid, format_num)
388  if (nf90_get_var_1d_eightbyteint .eq. nf90_noerr) then
389  if (format_num .eq. nf90_format_netcdf4) then
390  if(present(map)) then
391  localmap(:size(map)) = map(:)
392  nf90_get_var_1d_eightbyteint = &
393  nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
394  else if(present(stride)) then
395  nf90_get_var_1d_eightbyteint = &
396  nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
397  else
398  nf90_get_var_1d_eightbyteint = &
399  nf_get_vara_int64(ncid, varid, localstart, localcount, defaultint8array)
400  end if
401  values(:) = reshape(defaultint8array(:), shape(values))
402  else
403  if(present(map)) then
404  localmap(:size(map)) = map(:)
405  nf90_get_var_1d_eightbyteint = &
406  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
407  else if(present(stride)) then
408  nf90_get_var_1d_eightbyteint = &
409  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
410  else
411  nf90_get_var_1d_eightbyteint = &
412  nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
413  end if
414  values(:) = reshape(defaultintarray(:), shape(values))
415  endif
416  endif
417 end function nf90_get_var_1d_eightbyteint
418 
419 
420 function nf90_get_var_2d_eightbyteint(ncid, varid, values, start, count, stride, map)
421  integer, intent( in) :: ncid, varid
422  integer (kind = EightByteInt), dimension(:, :), &
423  intent(out) :: values
424  integer, dimension(:), optional, intent( in) :: start, count, stride, map
425  integer :: nf90_get_var_2d_eightbyteint
426 
427  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
428  integer :: numdims, counter, format_num
429  integer, dimension(size(values)) :: defaultintarray
430  integer (kind = EightByteInt), dimension(size(values)) :: defaultint8array
431 
432  ! Set local arguments to default values
433  numdims = size(shape(values))
434  localstart(: ) = 1
435  localcount(:numdims ) = shape(values)
436  localcount(numdims+1:) = 1
437  localstride(: ) = 1
438  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
439 
440  if(present(start)) localstart(:size(start) ) = start(:)
441  if(present(count)) localcount(:size(count) ) = count(:)
442  if(present(stride)) localstride(:size(stride)) = stride(:)
443  nf90_get_var_2d_eightbyteint = nf_inq_format(ncid, format_num)
444  if (nf90_get_var_2d_eightbyteint .eq. nf90_noerr) then
445  if (format_num .eq. nf90_format_netcdf4) then
446  if(present(map)) then
447  localmap(:size(map)) = map(:)
448  nf90_get_var_2d_eightbyteint = &
449  nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
450  else if(present(stride)) then
451  nf90_get_var_2d_eightbyteint = &
452  nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
453  else
454  nf90_get_var_2d_eightbyteint = &
455  nf_get_vara_int64(ncid, varid, localstart, localcount, defaultint8array)
456  end if
457  values(:, :) = reshape(defaultint8array(:), shape(values))
458  else
459  if(present(map)) then
460  localmap(:size(map)) = map(:)
461  nf90_get_var_2d_eightbyteint = &
462  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
463  else if(present(stride)) then
464  nf90_get_var_2d_eightbyteint = &
465  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
466  else
467  nf90_get_var_2d_eightbyteint = &
468  nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
469  end if
470  values(:, :) = reshape(defaultintarray(:), shape(values))
471  end if
472  end if
473 end function nf90_get_var_2d_eightbyteint
474 
475 
476 function nf90_get_var_3d_eightbyteint(ncid, varid, values, start, count, stride, map)
477  integer, intent( in) :: ncid, varid
478  integer (kind = EightByteInt), dimension(:, :, :), &
479  intent(out) :: values
480  integer, dimension(:), optional, intent( in) :: start, count, stride, map
481  integer :: nf90_get_var_3d_eightbyteint
482 
483  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
484  integer :: numdims, counter, format_num
485  integer, dimension(size(values)) :: defaultintarray
486  integer (kind = EightByteInt), dimension(size(values)) :: defaultint8array
487 
488  ! Set local arguments to default values
489  numdims = size(shape(values))
490  localstart(: ) = 1
491  localcount(:numdims ) = shape(values)
492  localcount(numdims+1:) = 1
493  localstride(: ) = 1
494  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
495 
496  if(present(start)) localstart(:size(start) ) = start(:)
497  if(present(count)) localcount(:size(count) ) = count(:)
498  if(present(stride)) localstride(:size(stride)) = stride(:)
499  nf90_get_var_3d_eightbyteint = nf_inq_format(ncid, format_num)
500  if (nf90_get_var_3d_eightbyteint .eq. nf90_noerr) then
501  if (format_num .eq. nf90_format_netcdf4) then
502  if(present(map)) then
503  localmap(:size(map)) = map(:)
504  nf90_get_var_3d_eightbyteint = &
505  nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
506  else if(present(stride)) then
507  nf90_get_var_3d_eightbyteint = &
508  nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
509  else
510  nf90_get_var_3d_eightbyteint = &
511  nf_get_vara_int64(ncid, varid, localstart, localcount, defaultint8array)
512  end if
513  values(:, :, :) = reshape(defaultint8array(:), shape(values))
514  else
515  if(present(map)) then
516  localmap(:size(map)) = map(:)
517  nf90_get_var_3d_eightbyteint = &
518  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
519  else if(present(stride)) then
520  nf90_get_var_3d_eightbyteint = &
521  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
522  else
523  nf90_get_var_3d_eightbyteint = &
524  nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
525  end if
526  values(:, :, :) = reshape(defaultintarray(:), shape(values))
527  end if
528  end if
529 end function nf90_get_var_3d_eightbyteint
530 
531 
532 function nf90_get_var_4d_eightbyteint(ncid, varid, values, start, count, stride, map)
533  integer, intent( in) :: ncid, varid
534  integer (kind = EightByteInt), dimension(:, :, :, :), &
535  intent(out) :: values
536  integer, dimension(:), optional, intent( in) :: start, count, stride, map
537  integer :: nf90_get_var_4d_eightbyteint
538 
539  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
540  integer :: numdims, counter, format_num
541  integer, dimension(size(values)) :: defaultintarray
542  integer (kind = EightByteInt), dimension(size(values)) :: defaultint8array
543 
544  ! Set local arguments to default values
545  numdims = size(shape(values))
546  localstart(: ) = 1
547  localcount(:numdims ) = shape(values)
548  localcount(numdims+1:) = 1
549  localstride(: ) = 1
550  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
551 
552  if(present(start)) localstart(:size(start) ) = start(:)
553  if(present(count)) localcount(:size(count) ) = count(:)
554  if(present(stride)) localstride(:size(stride)) = stride(:)
555  nf90_get_var_4d_eightbyteint = nf_inq_format(ncid, format_num)
556  if (nf90_get_var_4d_eightbyteint .eq. nf90_noerr) then
557  if (format_num .eq. nf90_format_netcdf4) then
558  if(present(map)) then
559  localmap(:size(map)) = map(:)
560  nf90_get_var_4d_eightbyteint = &
561  nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
562  else if(present(stride)) then
563  nf90_get_var_4d_eightbyteint = &
564  nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
565  else
566  nf90_get_var_4d_eightbyteint = &
567  nf_get_vara_int64(ncid, varid, localstart, localcount, defaultint8array)
568  end if
569  values(:, :, :, :) = reshape(defaultint8array(:), shape(values))
570  else
571  if(present(map)) then
572  localmap(:size(map)) = map(:)
573  nf90_get_var_4d_eightbyteint = &
574  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
575  else if(present(stride)) then
576  nf90_get_var_4d_eightbyteint = &
577  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
578  else
579  nf90_get_var_4d_eightbyteint = &
580  nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
581  end if
582  values(:, :, :, :) = reshape(defaultintarray(:), shape(values))
583  end if
584  end if
585 end function nf90_get_var_4d_eightbyteint
586 
587 
588 function nf90_get_var_5d_eightbyteint(ncid, varid, values, start, count, stride, map)
589  integer, intent( in) :: ncid, varid
590  integer (kind = EightByteInt), dimension(:, :, :, :, :), &
591  intent(out) :: values
592  integer, dimension(:), optional, intent( in) :: start, count, stride, map
593  integer :: nf90_get_var_5d_eightbyteint
594 
595  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
596  integer :: numdims, counter, format_num
597  integer, dimension(size(values)) :: defaultintarray
598  integer (kind = EightByteInt), dimension(size(values)) :: defaultint8array
599 
600  ! Set local arguments to default values
601  numdims = size(shape(values))
602  localstart(: ) = 1
603  localcount(:numdims ) = shape(values)
604  localcount(numdims+1:) = 1
605  localstride(: ) = 1
606  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
607 
608  if(present(start)) localstart(:size(start) ) = start(:)
609  if(present(count)) localcount(:size(count) ) = count(:)
610  if(present(stride)) localstride(:size(stride)) = stride(:)
611  nf90_get_var_5d_eightbyteint = nf_inq_format(ncid, format_num)
612  if (nf90_get_var_5d_eightbyteint .eq. nf90_noerr) then
613  if (format_num .eq. nf90_format_netcdf4) then
614  if(present(map)) then
615  localmap(:size(map)) = map(:)
616  nf90_get_var_5d_eightbyteint = &
617  nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
618  else if(present(stride)) then
619  nf90_get_var_5d_eightbyteint = &
620  nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
621  else
622  nf90_get_var_5d_eightbyteint = &
623  nf_get_vara_int64(ncid, varid, localstart, localcount, defaultint8array)
624  end if
625  values(:, :, :, :, :) = reshape(defaultint8array(:), shape(values))
626  else
627  if(present(map)) then
628  localmap(:size(map)) = map(:)
629  nf90_get_var_5d_eightbyteint = &
630  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
631  else if(present(stride)) then
632  nf90_get_var_5d_eightbyteint = &
633  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
634  else
635  nf90_get_var_5d_eightbyteint = &
636  nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
637  end if
638  values(:, :, :, :, :) = reshape(defaultintarray(:), shape(values))
639  end if
640  end if
641 end function nf90_get_var_5d_eightbyteint
642 
643 
644 function nf90_get_var_6d_eightbyteint(ncid, varid, values, start, count, stride, map)
645  integer, intent( in) :: ncid, varid
646  integer (kind = EightByteInt), dimension(:, :, :, :, :, :), &
647  intent(out) :: values
648  integer, dimension(:), optional, intent( in) :: start, count, stride, map
649  integer :: nf90_get_var_6d_eightbyteint
650 
651  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
652  integer :: numdims, counter, format_num
653  integer, dimension(size(values)) :: defaultintarray
654  integer (kind = EightByteInt), dimension(size(values)) :: defaultint8array
655 
656  ! Set local arguments to default values
657  numdims = size(shape(values))
658  localstart(: ) = 1
659  localcount(:numdims ) = shape(values)
660  localcount(numdims+1:) = 1
661  localstride(: ) = 1
662  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
663 
664  if(present(start)) localstart(:size(start) ) = start(:)
665  if(present(count)) localcount(:size(count) ) = count(:)
666  if(present(stride)) localstride(:size(stride)) = stride(:)
667  nf90_get_var_6d_eightbyteint = nf_inq_format(ncid, format_num)
668  if (nf90_get_var_6d_eightbyteint .eq. nf90_noerr) then
669  if (format_num .eq. nf90_format_netcdf4) then
670  if(present(map)) then
671  localmap(:size(map)) = map(:)
672  nf90_get_var_6d_eightbyteint = &
673  nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
674  else if(present(stride)) then
675  nf90_get_var_6d_eightbyteint = &
676  nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
677  else
678  nf90_get_var_6d_eightbyteint = &
679  nf_get_vara_int64(ncid, varid, localstart, localcount, defaultint8array)
680  end if
681  values(:, :, :, :, :, :) = reshape(defaultint8array(:), shape(values))
682  else
683  if(present(map)) then
684  localmap(:size(map)) = map(:)
685  nf90_get_var_6d_eightbyteint = &
686  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
687  else if(present(stride)) then
688  nf90_get_var_6d_eightbyteint = &
689  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
690  else
691  nf90_get_var_6d_eightbyteint = &
692  nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
693  end if
694  values(:, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
695  end if
696  end if
697 end function nf90_get_var_6d_eightbyteint
698 
699 
700 function nf90_get_var_7d_eightbyteint(ncid, varid, values, start, count, stride, map)
701  integer, intent( in) :: ncid, varid
702  integer (kind = EightByteInt), dimension(:, :, :, :, :, :, :), &
703  intent(out) :: values
704  integer, dimension(:), optional, intent( in) :: start, count, stride, map
705  integer :: nf90_get_var_7d_eightbyteint
706 
707  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
708  integer :: numdims, counter, format_num
709  integer, dimension(size(values)) :: defaultintarray
710  integer (kind = EightByteInt), dimension(size(values)) :: defaultint8array
711 
712  ! Set local arguments to default values
713  numdims = size(shape(values))
714  localstart(: ) = 1
715  localcount(:numdims ) = shape(values)
716  localcount(numdims+1:) = 1
717  localstride(: ) = 1
718  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
719 
720  if(present(start)) localstart(:size(start) ) = start(:)
721  if(present(count)) localcount(:size(count) ) = count(:)
722  if(present(stride)) localstride(:size(stride)) = stride(:)
723  nf90_get_var_7d_eightbyteint = nf_inq_format(ncid, format_num)
724  if (nf90_get_var_7d_eightbyteint .eq. nf90_noerr) then
725  if (format_num .eq. nf90_format_netcdf4) then
726  if(present(map)) then
727  localmap(:size(map)) = map(:)
728  nf90_get_var_7d_eightbyteint = &
729  nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
730  else if(present(stride)) then
731  nf90_get_var_7d_eightbyteint = &
732  nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
733  else
734  nf90_get_var_7d_eightbyteint = &
735  nf_get_vara_int64(ncid, varid, localstart, localcount, defaultint8array)
736  end if
737  values(:, :, :, :, :, :, :) = reshape(defaultint8array(:), shape(values))
738  else
739  if(present(map)) then
740  localmap(:size(map)) = map(:)
741  nf90_get_var_7d_eightbyteint = &
742  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
743  else if(present(stride)) then
744  nf90_get_var_7d_eightbyteint = &
745  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
746  else
747  nf90_get_var_7d_eightbyteint = &
748  nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
749  end if
750  values(:, :, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
751  end if
752  end if
753 
754 end function nf90_get_var_7d_eightbyteint
755 
756 
757 function nf90_put_var_eightbyteint(ncid, varid, values, start)
758  integer, intent( in) :: ncid, varid
759  integer (kind = EightByteInt), intent( in) :: values
760  integer, dimension(:), optional, intent( in) :: start
761  integer :: nf90_put_var_eightbyteint
762 
763  integer, dimension(nf90_max_var_dims) :: localindex
764  integer :: counter, format_num
765 
766  ! Set local arguments to default values
767  localindex(:) = 1
768  if(present(start)) localindex(:size(start)) = start(:)
769 
770  nf90_put_var_eightbyteint = nf_inq_format(ncid, format_num)
771  if (nf90_put_var_eightbyteint .eq. nf90_noerr) then
772  if (format_num .eq. nf90_format_netcdf4) then
773  nf90_put_var_eightbyteint = nf_put_var1_int64(ncid, varid, localindex, values)
774  else
775  nf90_put_var_eightbyteint = nf_put_var1_int(ncid, varid, localindex, int(values))
776  endif
777  endif
778 end function nf90_put_var_eightbyteint
779 
780 
781 function nf90_get_var_eightbyteint(ncid, varid, values, start)
782  integer, intent( in) :: ncid, varid
783  integer (kind = EightByteInt), intent(out) :: values
784  integer, dimension(:), optional, intent( in) :: start
785  integer :: nf90_get_var_eightbyteint
786 
787  integer, dimension(nf90_max_var_dims) :: localindex
788  integer :: counter, format_num
789  integer :: defaultinteger
790  integer (kind = EightByteInt) :: defaultinteger8
791 
792  ! Set local arguments to default values
793  localindex(:) = 1
794  if(present(start)) localindex(:size(start)) = start(:)
795 
796  nf90_get_var_eightbyteint = nf_inq_format(ncid, format_num)
797  if (nf90_get_var_eightbyteint .eq. nf90_noerr) then
798  if (format_num .eq. nf90_format_netcdf4) then
799  nf90_get_var_eightbyteint = nf_get_var1_int64(ncid, varid, localindex, defaultinteger8)
800  values = defaultinteger8
801  else
802  nf90_get_var_eightbyteint = nf_get_var1_int(ncid, varid, localindex, defaultinteger)
803  values = defaultinteger
804  endif
805  endif
806 end function nf90_get_var_eightbyteint
807 
808 

Return to the Main Unidata NetCDF page.
Generated on Sun Mar 27 2016 13:46:12 for NetCDF-Fortran. NetCDF is a Unidata library.