NetCDF-Fortran  4.4.4
 All Classes Files Functions Variables Typedefs Macros Pages
netcdf4_eightbyte.f90
Go to the documentation of this file.
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
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(:)
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(:)
27  nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
28  else if(present(stride)) then
30  nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
31  else
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(:)
39  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
40  else if(present(stride)) then
42  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
43  else
45  nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
46  end if
47  endif
48  endif
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
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(:)
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(:)
78  nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
79  else if(present(stride)) then
81  nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
82  else
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(:)
90  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
91  else if(present(stride)) then
93  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
94  else
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
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(:)
131  nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
132  else if(present(stride)) then
134  nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
135  else
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(:)
143  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
144  else if(present(stride)) then
146  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
147  else
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
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(:)
183  nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
184  else if(present(stride)) then
186  nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
187  else
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(:)
195  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
196  else if(present(stride)) then
198  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
199  else
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
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(:)
235  nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
236  else if(present(stride)) then
238  nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
239  else
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(:)
247  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
248  else if(present(stride)) then
250  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
251  else
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
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(:)
287  nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
288  else if(present(stride)) then
290  nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
291  else
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(:)
299  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
300  else if(present(stride)) then
302  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
303  else
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
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(:)
339  nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
340  else if(present(stride)) then
342  nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
343  else
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(:)
351  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
352  else if(present(stride)) then
354  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
355  else
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
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(:)
393  nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
394  else if(present(stride)) then
396  nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
397  else
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(:)
406  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
407  else if(present(stride)) then
409  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
410  else
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
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(:)
449  nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
450  else if(present(stride)) then
452  nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
453  else
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(:)
462  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
463  else if(present(stride)) then
465  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
466  else
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
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(:)
505  nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
506  else if(present(stride)) then
508  nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
509  else
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(:)
518  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
519  else if(present(stride)) then
521  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
522  else
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
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(:)
561  nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
562  else if(present(stride)) then
564  nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
565  else
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(:)
574  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
575  else if(present(stride)) then
577  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
578  else
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
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(:)
617  nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
618  else if(present(stride)) then
620  nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
621  else
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(:)
630  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
631  else if(present(stride)) then
633  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
634  else
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
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(:)
673  nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
674  else if(present(stride)) then
676  nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
677  else
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(:)
686  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
687  else if(present(stride)) then
689  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
690  else
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
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(:)
729  nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
730  else if(present(stride)) then
732  nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
733  else
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(:)
742  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
743  else if(present(stride)) then
745  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
746  else
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 
integer function nf_put_var1_int64(ncid, varid, ndex, ival)
Definition: nf_nc4.f90:2082
integer function nf90_get_var_4d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf_get_varm_int64(ncid, varid, start, counts, strides, maps, ivals)
Definition: nf_nc4.f90:2507
integer function nf90_put_var_2d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf_get_var1_int64(ncid, varid, ndex, ival)
Definition: nf_nc4.f90:2343
integer function nf90_get_var_2d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_5d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_4d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_3d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_eightbyteint(ncid, varid, values, start)
integer function nf90_get_var_7d_eightbyteint(ncid, varid, values, start, count, stride, map)
function nf_put_vars_int(ncid, varid, start, counts, strides, ivals)
Definition: nf_varsio.F90:297
integer function nf90_get_var_3d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf_put_vara_int(ncid, varid, start, counts, ivals)
Definition: nf_varaio.F90:272
integer function nf90_get_var_5d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf_put_vara_int64(ncid, varid, start, counts, ivals)
Definition: nf_nc4.f90:2135
integer function nf_get_var1_int(ncid, varid, ndex, ival)
Definition: nf_var1io.F90:581
integer function nf_put_var1_int(ncid, varid, ndex, ival)
Definition: nf_var1io.F90:204
integer function nf_put_vars_int64(ncid, varid, start, counts, strides, ivals)
Definition: nf_nc4.f90:2188
integer function nf_get_vars_int64(ncid, varid, start, counts, strides, ivals)
Definition: nf_nc4.f90:2446
integer function nf_put_varm_int64(ncid, varid, start, counts, strides, maps, ivals)
Definition: nf_nc4.f90:2251
integer function nf_get_vara_int64(ncid, varid, start, counts, ivals)
Definition: nf_nc4.f90:2392
integer function nf_get_varm_int(ncid, varid, start, counts, strides, maps, ivals)
Definition: nf_varmio.F90:855
integer function nf_inq_format(ncid, format_type)
Definition: nf_geninq.f90:181
integer function nf90_put_var_7d_eightbyteint(ncid, varid, values, start, count, stride, map)
function nf_get_vars_int(ncid, varid, start, counts, strides, ivals)
Definition: nf_varsio.F90:836
integer function nf90_put_var_1d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_eightbyteint(ncid, varid, values, start)
integer function nf90_get_var_1d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf_get_vara_int(ncid, varid, start, counts, ivals)
Definition: nf_varaio.F90:734
integer function nf_put_varm_int(ncid, varid, start, counts, strides, maps, ivals)
Definition: nf_varmio.F90:339
integer function nf90_get_var_6d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_6d_eightbyteint(ncid, varid, values, start, count, stride, map)

Return to the Main Unidata NetCDF page.
Generated on Mon Dec 19 2016 16:43:42 for NetCDF-Fortran. NetCDF is a Unidata library.