NetCDF-Fortran  4.4.4
 All Classes Files Functions Variables Typedefs Macros Pages
netcdf_expanded.f90
Go to the documentation of this file.
1 
2  function nf90_put_var_onebyteint(ncid, varid, values, start)
3  integer, intent( in) :: ncid, varid
4  integer (kind = OneByteInt), intent( in) :: values
5  integer, dimension(:), optional, intent( in) :: start
6  integer :: nf90_put_var_onebyteint
7 
8  integer, dimension(nf90_max_var_dims) :: localindex
9  integer :: counter
10 
11  ! Set local arguments to default values
12  localindex(:) = 1
13  if(present(start)) localindex(:size(start)) = start(:)
14 
15  nf90_put_var_onebyteint = nf_put_var1_int1(ncid, varid, localindex, values)
16  end function nf90_put_var_onebyteint
17 
18 
19  function nf90_put_var_twobyteint(ncid, varid, values, start)
20  integer, intent( in) :: ncid, varid
21  integer (kind = TwoByteInt), intent( in) :: values
22  integer, dimension(:), optional, intent( in) :: start
23  integer :: nf90_put_var_twobyteint
24 
25  integer, dimension(nf90_max_var_dims) :: localindex
26  integer :: counter
27 
28  ! Set local arguments to default values
29  localindex(:) = 1
30  if(present(start)) localindex(:size(start)) = start(:)
31 
32  nf90_put_var_twobyteint = nf_put_var1_int2(ncid, varid, localindex, values)
33  end function nf90_put_var_twobyteint
34 
35 
36  function nf90_put_var_fourbyteint(ncid, varid, values, start)
37  integer, intent( in) :: ncid, varid
38  integer (kind = FourByteInt), intent( in) :: values
39  integer, dimension(:), optional, intent( in) :: start
40  integer :: nf90_put_var_fourbyteint
41 
42  integer, dimension(nf90_max_var_dims) :: localindex
43  integer :: counter
44 
45  ! Set local arguments to default values
46  localindex(:) = 1
47  if(present(start)) localindex(:size(start)) = start(:)
48 
49  nf90_put_var_fourbyteint = nf_put_var1_int(ncid, varid, localindex, int(values))
50  end function nf90_put_var_fourbyteint
51 
52 
53  function nf90_put_var_fourbytereal(ncid, varid, values, start)
54  integer, intent( in) :: ncid, varid
55  real (kind = FourByteReal), intent( in) :: values
56  integer, dimension(:), optional, intent( in) :: start
57  integer :: nf90_put_var_fourbytereal
58 
59  integer, dimension(nf90_max_var_dims) :: localindex
60  integer :: counter
61 
62  ! Set local arguments to default values
63  localindex(:) = 1
64  if(present(start)) localindex(:size(start)) = start(:)
65 
66  nf90_put_var_fourbytereal = nf_put_var1_real(ncid, varid, localindex, values)
67  end function nf90_put_var_fourbytereal
68 
69 
70  function nf90_put_var_eightbytereal(ncid, varid, values, start)
71  integer, intent( in) :: ncid, varid
72  real (kind = EightByteReal), intent( in) :: values
73  integer, dimension(:), optional, intent( in) :: start
75 
76  integer, dimension(nf90_max_var_dims) :: localindex
77  integer :: counter
78 
79  ! Set local arguments to default values
80  localindex(:) = 1
81  if(present(start)) localindex(:size(start)) = start(:)
82 
83  nf90_put_var_eightbytereal = nf_put_var1_double(ncid, varid, localindex, values)
84  end function nf90_put_var_eightbytereal
85 
86 
87  function nf90_get_var_onebyteint(ncid, varid, values, start)
88  integer, intent( in) :: ncid, varid
89  integer (kind = OneByteInt), intent(out) :: values
90  integer, dimension(:), optional, intent( in) :: start
91  integer :: nf90_get_var_onebyteint
92 
93  integer, dimension(nf90_max_var_dims) :: localindex
94  integer :: counter
95 
96  ! Set local arguments to default values
97  localindex(:) = 1
98  if(present(start)) localindex(:size(start)) = start(:)
99 
100  nf90_get_var_onebyteint = nf_get_var1_int1(ncid, varid, localindex, values)
101  end function nf90_get_var_onebyteint
102 
103 
104  function nf90_get_var_twobyteint(ncid, varid, values, start)
105  integer, intent( in) :: ncid, varid
106  integer (kind = TwoByteInt), intent(out) :: values
107  integer, dimension(:), optional, intent( in) :: start
108  integer :: nf90_get_var_twobyteint
109 
110  integer, dimension(nf90_max_var_dims) :: localindex
111  integer :: counter
112 
113  ! Set local arguments to default values
114  localindex(:) = 1
115  if(present(start)) localindex(:size(start)) = start(:)
116 
117  nf90_get_var_twobyteint = nf_get_var1_int2(ncid, varid, localindex, values)
118  end function nf90_get_var_twobyteint
119 
120 
121  function nf90_get_var_fourbyteint(ncid, varid, values, start)
122  integer, intent( in) :: ncid, varid
123  integer (kind = FourByteInt), intent(out) :: values
124  integer, dimension(:), optional, intent( in) :: start
125  integer :: nf90_get_var_fourbyteint
126 
127  integer, dimension(nf90_max_var_dims) :: localindex
128  integer :: counter
129  integer :: defaultinteger
130 
131  ! Set local arguments to default values
132  localindex(:) = 1
133  if(present(start)) localindex(:size(start)) = start(:)
134 
135  nf90_get_var_fourbyteint = nf_get_var1_int(ncid, varid, localindex, defaultinteger)
136  values = defaultinteger
137  end function nf90_get_var_fourbyteint
138 
139 
140  function nf90_get_var_fourbytereal(ncid, varid, values, start)
141  integer, intent( in) :: ncid, varid
142  real (kind = FourByteReal), intent(out) :: values
143  integer, dimension(:), optional, intent( in) :: start
144  integer :: nf90_get_var_fourbytereal
145 
146  integer, dimension(nf90_max_var_dims) :: localindex
147  integer :: counter
148 
149  ! Set local arguments to default values
150  localindex(:) = 1
151  if(present(start)) localindex(:size(start)) = start(:)
152 
153  nf90_get_var_fourbytereal = nf_get_var1_real(ncid, varid, localindex, values)
154  end function nf90_get_var_fourbytereal
155 
156 
157  function nf90_get_var_eightbytereal(ncid, varid, values, start)
158  integer, intent( in) :: ncid, varid
159  real (kind = EightByteReal), intent(out) :: values
160  integer, dimension(:), optional, intent( in) :: start
161  integer :: nf90_get_var_eightbytereal
162 
163  integer, dimension(nf90_max_var_dims) :: localindex
164  integer :: counter
165 
166  ! Set local arguments to default values
167  localindex(:) = 1
168  if(present(start)) localindex(:size(start)) = start(:)
169 
170  nf90_get_var_eightbytereal = nf_get_var1_double(ncid, varid, localindex, values)
171  end function nf90_get_var_eightbytereal
172 
173 
174 
175  function nf90_put_var_1d_onebyteint(ncid, varid, values, start, count, stride, map)
176  integer, intent( in) :: ncid, varid
177  integer (kind = OneByteInt), dimension(:), &
178  intent( in) :: values
179  integer, dimension(:), optional, intent( in) :: start, count, stride, map
180  integer :: nf90_put_var_1d_onebyteint
181 
182  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
183  integer :: numdims, counter
184 
185  ! Set local arguments to default values
186  numdims = size(shape(values))
187  localstart(: ) = 1
188  localcount(:numdims ) = shape(values)
189  localcount(numdims+1:) = 1
190  localstride(: ) = 1
191  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
192 
193  if(present(start)) localstart(:size(start) ) = start(:)
194  if(present(count)) localcount(:size(count) ) = count(:)
195  if(present(stride)) localstride(:size(stride)) = stride(:)
196  if(present(map)) then
197  localmap(:size(map)) = map(:)
199  nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
200  else if(present(stride)) then
202  nf_put_vars_int1(ncid, varid, localstart, localcount, localstride, values)
203  else
205  nf_put_vara_int1(ncid, varid, localstart, localcount, values)
206  end if
207  end function nf90_put_var_1d_onebyteint
208 
209 
210  function nf90_put_var_2d_onebyteint(ncid, varid, values, start, count, stride, map)
211  integer, intent( in) :: ncid, varid
212  integer (kind = OneByteInt), dimension(:, :), &
213  intent( in) :: values
214  integer, dimension(:), optional, intent( in) :: start, count, stride, map
215  integer :: nf90_put_var_2d_onebyteint
216 
217  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
218  integer :: numdims, counter
219 
220  ! Set local arguments to default values
221  numdims = size(shape(values))
222  localstart(: ) = 1
223  localcount(:numdims ) = shape(values)
224  localcount(numdims+1:) = 1
225  localstride(: ) = 1
226  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
227 
228  if(present(start)) localstart(:size(start) ) = start(:)
229  if(present(count)) localcount(:size(count) ) = count(:)
230  if(present(stride)) localstride(:size(stride)) = stride(:)
231  if(present(map)) then
232  localmap(:size(map)) = map(:)
234  nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
235  else if(present(stride)) then
237  nf_put_vars_int1(ncid, varid, localstart, localcount, localstride, values)
238  else
240  nf_put_vara_int1(ncid, varid, localstart, localcount, values)
241  end if
242  end function nf90_put_var_2d_onebyteint
243 
244 
245  function nf90_put_var_3d_onebyteint(ncid, varid, values, start, count, stride, map)
246  integer, intent( in) :: ncid, varid
247  integer (kind = OneByteInt), dimension(:, :, :), &
248  intent( in) :: values
249  integer, dimension(:), optional, intent( in) :: start, count, stride, map
250  integer :: nf90_put_var_3d_onebyteint
251 
252  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
253  integer :: numdims, counter
254 
255  ! Set local arguments to default values
256  numdims = size(shape(values))
257  localstart(: ) = 1
258  localcount(:numdims ) = shape(values)
259  localcount(numdims+1:) = 1
260  localstride(: ) = 1
261  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
262 
263  if(present(start)) localstart(:size(start) ) = start(:)
264  if(present(count)) localcount(:size(count) ) = count(:)
265  if(present(stride)) localstride(:size(stride)) = stride(:)
266  if(present(map)) then
267  localmap(:size(map)) = map(:)
269  nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
270  else if(present(stride)) then
272  nf_put_vars_int1(ncid, varid, localstart, localcount, localstride, values)
273  else
275  nf_put_vara_int1(ncid, varid, localstart, localcount, values)
276  end if
277  end function nf90_put_var_3d_onebyteint
278 
279 
280  function nf90_put_var_4d_onebyteint(ncid, varid, values, start, count, stride, map)
281  integer, intent( in) :: ncid, varid
282  integer (kind = OneByteInt), dimension(:, :, :, :), &
283  intent( in) :: values
284  integer, dimension(:), optional, intent( in) :: start, count, stride, map
285  integer :: nf90_put_var_4d_onebyteint
286 
287  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
288  integer :: numdims, counter
289 
290  ! Set local arguments to default values
291  numdims = size(shape(values))
292  localstart(: ) = 1
293  localcount(:numdims ) = shape(values)
294  localcount(numdims+1:) = 1
295  localstride(: ) = 1
296  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
297 
298  if(present(start)) localstart(:size(start) ) = start(:)
299  if(present(count)) localcount(:size(count) ) = count(:)
300  if(present(stride)) localstride(:size(stride)) = stride(:)
301  if(present(map)) then
302  localmap(:size(map)) = map(:)
304  nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
305  else if(present(stride)) then
307  nf_put_vars_int1(ncid, varid, localstart, localcount, localstride, values)
308  else
310  nf_put_vara_int1(ncid, varid, localstart, localcount, values)
311  end if
312  end function nf90_put_var_4d_onebyteint
313 
314 
315  function nf90_put_var_5d_onebyteint(ncid, varid, values, start, count, stride, map)
316  integer, intent( in) :: ncid, varid
317  integer (kind = OneByteInt), dimension(:, :, :, :, :), &
318  intent( in) :: values
319  integer, dimension(:), optional, intent( in) :: start, count, stride, map
320  integer :: nf90_put_var_5d_onebyteint
321 
322  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
323  integer :: numdims, counter
324 
325  ! Set local arguments to default values
326  numdims = size(shape(values))
327  localstart(: ) = 1
328  localcount(:numdims ) = shape(values)
329  localcount(numdims+1:) = 1
330  localstride(: ) = 1
331  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
332 
333  if(present(start)) localstart(:size(start) ) = start(:)
334  if(present(count)) localcount(:size(count) ) = count(:)
335  if(present(stride)) localstride(:size(stride)) = stride(:)
336  if(present(map)) then
337  localmap(:size(map)) = map(:)
339  nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
340  else if(present(stride)) then
342  nf_put_vars_int1(ncid, varid, localstart, localcount, localstride, values)
343  else
345  nf_put_vara_int1(ncid, varid, localstart, localcount, values)
346  end if
347  end function nf90_put_var_5d_onebyteint
348 
349 
350  function nf90_put_var_6d_onebyteint(ncid, varid, values, start, count, stride, map)
351  integer, intent( in) :: ncid, varid
352  integer (kind = OneByteInt), dimension(:, :, :, :, :, :), &
353  intent( in) :: values
354  integer, dimension(:), optional, intent( in) :: start, count, stride, map
355  integer :: nf90_put_var_6d_onebyteint
356 
357  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
358  integer :: numdims, counter
359 
360  ! Set local arguments to default values
361  numdims = size(shape(values))
362  localstart(: ) = 1
363  localcount(:numdims ) = shape(values)
364  localcount(numdims+1:) = 1
365  localstride(: ) = 1
366  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
367 
368  if(present(start)) localstart(:size(start) ) = start(:)
369  if(present(count)) localcount(:size(count) ) = count(:)
370  if(present(stride)) localstride(:size(stride)) = stride(:)
371  if(present(map)) then
372  localmap(:size(map)) = map(:)
374  nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
375  else if(present(stride)) then
377  nf_put_vars_int1(ncid, varid, localstart, localcount, localstride, values)
378  else
380  nf_put_vara_int1(ncid, varid, localstart, localcount, values)
381  end if
382  end function nf90_put_var_6d_onebyteint
383 
384 
385  function nf90_put_var_7d_onebyteint(ncid, varid, values, start, count, stride, map)
386  integer, intent( in) :: ncid, varid
387  integer (kind = OneByteInt), dimension(:, :, :, :, :, :, :), &
388  intent( in) :: values
389  integer, dimension(:), optional, intent( in) :: start, count, stride, map
390  integer :: nf90_put_var_7d_onebyteint
391 
392  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
393  integer :: numdims, counter
394 
395  ! Set local arguments to default values
396  numdims = size(shape(values))
397  localstart(: ) = 1
398  localcount(:numdims ) = shape(values)
399  localcount(numdims+1:) = 1
400  localstride(: ) = 1
401  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
402 
403  if(present(start)) localstart(:size(start) ) = start(:)
404  if(present(count)) localcount(:size(count) ) = count(:)
405  if(present(stride)) localstride(:size(stride)) = stride(:)
406  if(present(map)) then
407  localmap(:size(map)) = map(:)
409  nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
410  else if(present(stride)) then
412  nf_put_vars_int1(ncid, varid, localstart, localcount, localstride, values)
413  else
415  nf_put_vara_int1(ncid, varid, localstart, localcount, values)
416  end if
417  end function nf90_put_var_7d_onebyteint
418 
419 
420  function nf90_put_var_1d_twobyteint(ncid, varid, values, start, count, stride, map)
421  integer, intent( in) :: ncid, varid
422  integer (kind = TwoByteInt), dimension(:), &
423  intent( in) :: values
424  integer, dimension(:), optional, intent( in) :: start, count, stride, map
425  integer :: nf90_put_var_1d_twobyteint
426 
427  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
428  integer :: numdims, counter
429 
430  ! Set local arguments to default values
431  numdims = size(shape(values))
432  localstart(: ) = 1
433  localcount(:numdims ) = shape(values)
434  localcount(numdims+1:) = 1
435  localstride(: ) = 1
436  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
437 
438  if(present(start)) localstart(:size(start) ) = start(:)
439  if(present(count)) localcount(:size(count) ) = count(:)
440  if(present(stride)) localstride(:size(stride)) = stride(:)
441  if(present(map)) then
442  localmap(:size(map)) = map(:)
444  nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
445  else if(present(stride)) then
447  nf_put_vars_int2(ncid, varid, localstart, localcount, localstride, values)
448  else
450  nf_put_vara_int2(ncid, varid, localstart, localcount, values)
451  end if
452  end function nf90_put_var_1d_twobyteint
453 
454 
455  function nf90_put_var_2d_twobyteint(ncid, varid, values, start, count, stride, map)
456  integer, intent( in) :: ncid, varid
457  integer (kind = TwoByteInt), dimension(:, :), &
458  intent( in) :: values
459  integer, dimension(:), optional, intent( in) :: start, count, stride, map
460  integer :: nf90_put_var_2d_twobyteint
461 
462  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
463  integer :: numdims, counter
464 
465  ! Set local arguments to default values
466  numdims = size(shape(values))
467  localstart(: ) = 1
468  localcount(:numdims ) = shape(values)
469  localcount(numdims+1:) = 1
470  localstride(: ) = 1
471  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
472 
473  if(present(start)) localstart(:size(start) ) = start(:)
474  if(present(count)) localcount(:size(count) ) = count(:)
475  if(present(stride)) localstride(:size(stride)) = stride(:)
476  if(present(map)) then
477  localmap(:size(map)) = map(:)
479  nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
480  else if(present(stride)) then
482  nf_put_vars_int2(ncid, varid, localstart, localcount, localstride, values)
483  else
485  nf_put_vara_int2(ncid, varid, localstart, localcount, values)
486  end if
487  end function nf90_put_var_2d_twobyteint
488 
489 
490  function nf90_put_var_3d_twobyteint(ncid, varid, values, start, count, stride, map)
491  integer, intent( in) :: ncid, varid
492  integer (kind = TwoByteInt), dimension(:, :, :), &
493  intent( in) :: values
494  integer, dimension(:), optional, intent( in) :: start, count, stride, map
495  integer :: nf90_put_var_3d_twobyteint
496 
497  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
498  integer :: numdims, counter
499 
500  ! Set local arguments to default values
501  numdims = size(shape(values))
502  localstart(: ) = 1
503  localcount(:numdims ) = shape(values)
504  localcount(numdims+1:) = 1
505  localstride(: ) = 1
506  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
507 
508  if(present(start)) localstart(:size(start) ) = start(:)
509  if(present(count)) localcount(:size(count) ) = count(:)
510  if(present(stride)) localstride(:size(stride)) = stride(:)
511  if(present(map)) then
512  localmap(:size(map)) = map(:)
514  nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
515  else if(present(stride)) then
517  nf_put_vars_int2(ncid, varid, localstart, localcount, localstride, values)
518  else
520  nf_put_vara_int2(ncid, varid, localstart, localcount, values)
521  end if
522  end function nf90_put_var_3d_twobyteint
523 
524 
525  function nf90_put_var_4d_twobyteint(ncid, varid, values, start, count, stride, map)
526  integer, intent( in) :: ncid, varid
527  integer (kind = TwoByteInt), dimension(:, :, :, :), &
528  intent( in) :: values
529  integer, dimension(:), optional, intent( in) :: start, count, stride, map
530  integer :: nf90_put_var_4d_twobyteint
531 
532  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
533  integer :: numdims, counter
534 
535  ! Set local arguments to default values
536  numdims = size(shape(values))
537  localstart(: ) = 1
538  localcount(:numdims ) = shape(values)
539  localcount(numdims+1:) = 1
540  localstride(: ) = 1
541  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
542 
543  if(present(start)) localstart(:size(start) ) = start(:)
544  if(present(count)) localcount(:size(count) ) = count(:)
545  if(present(stride)) localstride(:size(stride)) = stride(:)
546  if(present(map)) then
547  localmap(:size(map)) = map(:)
549  nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
550  else if(present(stride)) then
552  nf_put_vars_int2(ncid, varid, localstart, localcount, localstride, values)
553  else
555  nf_put_vara_int2(ncid, varid, localstart, localcount, values)
556  end if
557  end function nf90_put_var_4d_twobyteint
558 
559 
560  function nf90_put_var_5d_twobyteint(ncid, varid, values, start, count, stride, map)
561  integer, intent( in) :: ncid, varid
562  integer (kind = TwoByteInt), dimension(:, :, :, :, :), &
563  intent( in) :: values
564  integer, dimension(:), optional, intent( in) :: start, count, stride, map
565  integer :: nf90_put_var_5d_twobyteint
566 
567  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
568  integer :: numdims, counter
569 
570  ! Set local arguments to default values
571  numdims = size(shape(values))
572  localstart(: ) = 1
573  localcount(:numdims ) = shape(values)
574  localcount(numdims+1:) = 1
575  localstride(: ) = 1
576  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
577 
578  if(present(start)) localstart(:size(start) ) = start(:)
579  if(present(count)) localcount(:size(count) ) = count(:)
580  if(present(stride)) localstride(:size(stride)) = stride(:)
581  if(present(map)) then
582  localmap(:size(map)) = map(:)
584  nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
585  else if(present(stride)) then
587  nf_put_vars_int2(ncid, varid, localstart, localcount, localstride, values)
588  else
590  nf_put_vara_int2(ncid, varid, localstart, localcount, values)
591  end if
592  end function nf90_put_var_5d_twobyteint
593 
594 
595  function nf90_put_var_6d_twobyteint(ncid, varid, values, start, count, stride, map)
596  integer, intent( in) :: ncid, varid
597  integer (kind = TwoByteInt), dimension(:, :, :, :, :, :), &
598  intent( in) :: values
599  integer, dimension(:), optional, intent( in) :: start, count, stride, map
600  integer :: nf90_put_var_6d_twobyteint
601 
602  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
603  integer :: numdims, counter
604 
605  ! Set local arguments to default values
606  numdims = size(shape(values))
607  localstart(: ) = 1
608  localcount(:numdims ) = shape(values)
609  localcount(numdims+1:) = 1
610  localstride(: ) = 1
611  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
612 
613  if(present(start)) localstart(:size(start) ) = start(:)
614  if(present(count)) localcount(:size(count) ) = count(:)
615  if(present(stride)) localstride(:size(stride)) = stride(:)
616  if(present(map)) then
617  localmap(:size(map)) = map(:)
619  nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
620  else if(present(stride)) then
622  nf_put_vars_int2(ncid, varid, localstart, localcount, localstride, values)
623  else
625  nf_put_vara_int2(ncid, varid, localstart, localcount, values)
626  end if
627  end function nf90_put_var_6d_twobyteint
628 
629 
630  function nf90_put_var_7d_twobyteint(ncid, varid, values, start, count, stride, map)
631  integer, intent( in) :: ncid, varid
632  integer (kind = TwoByteInt), dimension(:, :, :, :, :, :, :), &
633  intent( in) :: values
634  integer, dimension(:), optional, intent( in) :: start, count, stride, map
635  integer :: nf90_put_var_7d_twobyteint
636 
637  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
638  integer :: numdims, counter
639 
640  ! Set local arguments to default values
641  numdims = size(shape(values))
642  localstart(: ) = 1
643  localcount(:numdims ) = shape(values)
644  localcount(numdims+1:) = 1
645  localstride(: ) = 1
646  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
647 
648  if(present(start)) localstart(:size(start) ) = start(:)
649  if(present(count)) localcount(:size(count) ) = count(:)
650  if(present(stride)) localstride(:size(stride)) = stride(:)
651  if(present(map)) then
652  localmap(:size(map)) = map(:)
654  nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
655  else if(present(stride)) then
657  nf_put_vars_int2(ncid, varid, localstart, localcount, localstride, values)
658  else
660  nf_put_vara_int2(ncid, varid, localstart, localcount, values)
661  end if
662  end function nf90_put_var_7d_twobyteint
663 
664 
665  function nf90_put_var_1d_fourbyteint(ncid, varid, values, start, count, stride, map)
666  integer, intent( in) :: ncid, varid
667  integer (kind = FourByteInt), dimension(:), &
668  intent( in) :: values
669  integer, dimension(:), optional, intent( in) :: start, count, stride, map
670  integer :: nf90_put_var_1d_fourbyteint
671 
672  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
673  integer :: numdims, counter
674 
675  ! Set local arguments to default values
676  numdims = size(shape(values))
677  localstart(: ) = 1
678  localcount(:numdims ) = shape(values)
679  localcount(numdims+1:) = 1
680  localstride(: ) = 1
681  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
682 
683  if(present(start)) localstart(:size(start) ) = start(:)
684  if(present(count)) localcount(:size(count) ) = count(:)
685  if(present(stride)) localstride(:size(stride)) = stride(:)
686  if(present(map)) then
687  localmap(:size(map)) = map(:)
689  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
690  else if(present(stride)) then
692  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
693  else
695  nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
696  end if
697  end function nf90_put_var_1d_fourbyteint
698 
699 
700  function nf90_put_var_2d_fourbyteint(ncid, varid, values, start, count, stride, map)
701  integer, intent( in) :: ncid, varid
702  integer (kind = FourByteInt), dimension(:, :), &
703  intent( in) :: values
704  integer, dimension(:), optional, intent( in) :: start, count, stride, map
705  integer :: nf90_put_var_2d_fourbyteint
706 
707  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
708  integer :: numdims, counter
709 
710  ! Set local arguments to default values
711  numdims = size(shape(values))
712  localstart(: ) = 1
713  localcount(:numdims ) = shape(values)
714  localcount(numdims+1:) = 1
715  localstride(: ) = 1
716  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
717 
718  if(present(start)) localstart(:size(start) ) = start(:)
719  if(present(count)) localcount(:size(count) ) = count(:)
720  if(present(stride)) localstride(:size(stride)) = stride(:)
721  if(present(map)) then
722  localmap(:size(map)) = map(:)
724  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
725  else if(present(stride)) then
727  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
728  else
730  nf_put_vara_int(ncid, varid, localstart, localcount, values)
731  end if
732  end function nf90_put_var_2d_fourbyteint
733 
734 
735  function nf90_put_var_3d_fourbyteint(ncid, varid, values, start, count, stride, map)
736  integer, intent( in) :: ncid, varid
737  integer (kind = FourByteInt), dimension(:, :, :), &
738  intent( in) :: values
739  integer, dimension(:), optional, intent( in) :: start, count, stride, map
740  integer :: nf90_put_var_3d_fourbyteint
741 
742  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
743  integer :: numdims, counter
744 
745  ! Set local arguments to default values
746  numdims = size(shape(values))
747  localstart(: ) = 1
748  localcount(:numdims ) = shape(values)
749  localcount(numdims+1:) = 1
750  localstride(: ) = 1
751  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
752 
753  if(present(start)) localstart(:size(start) ) = start(:)
754  if(present(count)) localcount(:size(count) ) = count(:)
755  if(present(stride)) localstride(:size(stride)) = stride(:)
756  if(present(map)) then
757  localmap(:size(map)) = map(:)
759  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
760  else if(present(stride)) then
762  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
763  else
765  nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
766  end if
767  end function nf90_put_var_3d_fourbyteint
768 
769 
770  function nf90_put_var_4d_fourbyteint(ncid, varid, values, start, count, stride, map)
771  integer, intent( in) :: ncid, varid
772  integer (kind = FourByteInt), dimension(:, :, :, :), &
773  intent( in) :: values
774  integer, dimension(:), optional, intent( in) :: start, count, stride, map
775  integer :: nf90_put_var_4d_fourbyteint
776 
777  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
778  integer :: numdims, counter
779 
780  ! Set local arguments to default values
781  numdims = size(shape(values))
782  localstart(: ) = 1
783  localcount(:numdims ) = shape(values)
784  localcount(numdims+1:) = 1
785  localstride(: ) = 1
786  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
787 
788  if(present(start)) localstart(:size(start) ) = start(:)
789  if(present(count)) localcount(:size(count) ) = count(:)
790  if(present(stride)) localstride(:size(stride)) = stride(:)
791  if(present(map)) then
792  localmap(:size(map)) = map(:)
794  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
795  else if(present(stride)) then
797  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
798  else
800  nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
801  end if
802  end function nf90_put_var_4d_fourbyteint
803 
804 
805  function nf90_put_var_5d_fourbyteint(ncid, varid, values, start, count, stride, map)
806  integer, intent( in) :: ncid, varid
807  integer (kind = FourByteInt), dimension(:, :, :, :, :), &
808  intent( in) :: values
809  integer, dimension(:), optional, intent( in) :: start, count, stride, map
810  integer :: nf90_put_var_5d_fourbyteint
811 
812  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
813  integer :: numdims, counter
814 
815  ! Set local arguments to default values
816  numdims = size(shape(values))
817  localstart(: ) = 1
818  localcount(:numdims ) = shape(values)
819  localcount(numdims+1:) = 1
820  localstride(: ) = 1
821  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
822 
823  if(present(start)) localstart(:size(start) ) = start(:)
824  if(present(count)) localcount(:size(count) ) = count(:)
825  if(present(stride)) localstride(:size(stride)) = stride(:)
826  if(present(map)) then
827  localmap(:size(map)) = map(:)
829  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
830  else if(present(stride)) then
832  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
833  else
835  nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
836  end if
837  end function nf90_put_var_5d_fourbyteint
838 
839 
840  function nf90_put_var_6d_fourbyteint(ncid, varid, values, start, count, stride, map)
841  integer, intent( in) :: ncid, varid
842  integer (kind = FourByteInt), dimension(:, :, :, :, :, :), &
843  intent( in) :: values
844  integer, dimension(:), optional, intent( in) :: start, count, stride, map
845  integer :: nf90_put_var_6d_fourbyteint
846 
847  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
848  integer :: numdims, counter
849 
850  ! Set local arguments to default values
851  numdims = size(shape(values))
852  localstart(: ) = 1
853  localcount(:numdims ) = shape(values)
854  localcount(numdims+1:) = 1
855  localstride(: ) = 1
856  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
857 
858  if(present(start)) localstart(:size(start) ) = start(:)
859  if(present(count)) localcount(:size(count) ) = count(:)
860  if(present(stride)) localstride(:size(stride)) = stride(:)
861  if(present(map)) then
862  localmap(:size(map)) = map(:)
864  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
865  else if(present(stride)) then
867  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
868  else
870  nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
871  end if
872  end function nf90_put_var_6d_fourbyteint
873 
874 
875  function nf90_put_var_7d_fourbyteint(ncid, varid, values, start, count, stride, map)
876  integer, intent( in) :: ncid, varid
877  integer (kind = FourByteInt), dimension(:, :, :, :, :, :, :), &
878  intent( in) :: values
879  integer, dimension(:), optional, intent( in) :: start, count, stride, map
880  integer :: nf90_put_var_7d_fourbyteint
881 
882  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
883  integer :: numdims, counter
884 
885  ! Set local arguments to default values
886  numdims = size(shape(values))
887  localstart(: ) = 1
888  localcount(:numdims ) = shape(values)
889  localcount(numdims+1:) = 1
890  localstride(: ) = 1
891  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
892 
893  if(present(start)) localstart(:size(start) ) = start(:)
894  if(present(count)) localcount(:size(count) ) = count(:)
895  if(present(stride)) localstride(:size(stride)) = stride(:)
896  if(present(map)) then
897  localmap(:size(map)) = map(:)
899  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
900  else if(present(stride)) then
902  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
903  else
905  nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
906  end if
907  end function nf90_put_var_7d_fourbyteint
908 
909 
910  function nf90_put_var_1d_fourbytereal(ncid, varid, values, start, count, stride, map)
911  integer, intent( in) :: ncid, varid
912  real (kind = FourByteReal), dimension(:), &
913  intent( in) :: values
914  integer, dimension(:), optional, intent( in) :: start, count, stride, map
916 
917  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
918  integer :: numdims, counter
919 
920  ! Set local arguments to default values
921  numdims = size(shape(values))
922  localstart(: ) = 1
923  localcount(:numdims ) = shape(values)
924  localcount(numdims+1:) = 1
925  localstride(: ) = 1
926  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
927 
928  if(present(start)) localstart(:size(start) ) = start(:)
929  if(present(count)) localcount(:size(count) ) = count(:)
930  if(present(stride)) localstride(:size(stride)) = stride(:)
931  if(present(map)) then
932  localmap(:size(map)) = map(:)
934  nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
935  else if(present(stride)) then
937  nf_put_vars_real(ncid, varid, localstart, localcount, localstride, values)
938  else
940  nf_put_vara_real(ncid, varid, localstart, localcount, values)
941  end if
942  end function nf90_put_var_1d_fourbytereal
943 
944 
945  function nf90_put_var_2d_fourbytereal(ncid, varid, values, start, count, stride, map)
946  integer, intent( in) :: ncid, varid
947  real (kind = FourByteReal), dimension(:, :), &
948  intent( in) :: values
949  integer, dimension(:), optional, intent( in) :: start, count, stride, map
951 
952  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
953  integer :: numdims, counter
954 
955  ! Set local arguments to default values
956  numdims = size(shape(values))
957  localstart(: ) = 1
958  localcount(:numdims ) = shape(values)
959  localcount(numdims+1:) = 1
960  localstride(: ) = 1
961  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
962 
963  if(present(start)) localstart(:size(start) ) = start(:)
964  if(present(count)) localcount(:size(count) ) = count(:)
965  if(present(stride)) localstride(:size(stride)) = stride(:)
966  if(present(map)) then
967  localmap(:size(map)) = map(:)
969  nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
970  else if(present(stride)) then
972  nf_put_vars_real(ncid, varid, localstart, localcount, localstride, values)
973  else
975  nf_put_vara_real(ncid, varid, localstart, localcount, values)
976  end if
977  end function nf90_put_var_2d_fourbytereal
978 
979 
980  function nf90_put_var_3d_fourbytereal(ncid, varid, values, start, count, stride, map)
981  integer, intent( in) :: ncid, varid
982  real (kind = FourByteReal), dimension(:, :, :), &
983  intent( in) :: values
984  integer, dimension(:), optional, intent( in) :: start, count, stride, map
986 
987  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
988  integer :: numdims, counter
989 
990  ! Set local arguments to default values
991  numdims = size(shape(values))
992  localstart(: ) = 1
993  localcount(:numdims ) = shape(values)
994  localcount(numdims+1:) = 1
995  localstride(: ) = 1
996  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
997 
998  if(present(start)) localstart(:size(start) ) = start(:)
999  if(present(count)) localcount(:size(count) ) = count(:)
1000  if(present(stride)) localstride(:size(stride)) = stride(:)
1001  if(present(map)) then
1002  localmap(:size(map)) = map(:)
1004  nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
1005  else if(present(stride)) then
1007  nf_put_vars_real(ncid, varid, localstart, localcount, localstride, values)
1008  else
1010  nf_put_vara_real(ncid, varid, localstart, localcount, values)
1011  end if
1012  end function nf90_put_var_3d_fourbytereal
1013 
1014 
1015  function nf90_put_var_4d_fourbytereal(ncid, varid, values, start, count, stride, map)
1016  integer, intent( in) :: ncid, varid
1017  real (kind = FourByteReal), dimension(:, :, :, :), &
1018  intent( in) :: values
1019  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1020  integer :: nf90_put_var_4d_fourbytereal
1021 
1022  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1023  integer :: numdims, counter
1024 
1025  ! Set local arguments to default values
1026  numdims = size(shape(values))
1027  localstart(: ) = 1
1028  localcount(:numdims ) = shape(values)
1029  localcount(numdims+1:) = 1
1030  localstride(: ) = 1
1031  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1032 
1033  if(present(start)) localstart(:size(start) ) = start(:)
1034  if(present(count)) localcount(:size(count) ) = count(:)
1035  if(present(stride)) localstride(:size(stride)) = stride(:)
1036  if(present(map)) then
1037  localmap(:size(map)) = map(:)
1039  nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
1040  else if(present(stride)) then
1042  nf_put_vars_real(ncid, varid, localstart, localcount, localstride, values)
1043  else
1045  nf_put_vara_real(ncid, varid, localstart, localcount, values)
1046  end if
1047  end function nf90_put_var_4d_fourbytereal
1048 
1049 
1050  function nf90_put_var_5d_fourbytereal(ncid, varid, values, start, count, stride, map)
1051  integer, intent( in) :: ncid, varid
1052  real (kind = FourByteReal), dimension(:, :, :, :, :), &
1053  intent( in) :: values
1054  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1055  integer :: nf90_put_var_5d_fourbytereal
1056 
1057  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1058  integer :: numdims, counter
1059 
1060  ! Set local arguments to default values
1061  numdims = size(shape(values))
1062  localstart(: ) = 1
1063  localcount(:numdims ) = shape(values)
1064  localcount(numdims+1:) = 1
1065  localstride(: ) = 1
1066  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1067 
1068  if(present(start)) localstart(:size(start) ) = start(:)
1069  if(present(count)) localcount(:size(count) ) = count(:)
1070  if(present(stride)) localstride(:size(stride)) = stride(:)
1071  if(present(map)) then
1072  localmap(:size(map)) = map(:)
1074  nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
1075  else if(present(stride)) then
1077  nf_put_vars_real(ncid, varid, localstart, localcount, localstride, values)
1078  else
1080  nf_put_vara_real(ncid, varid, localstart, localcount, values)
1081  end if
1082  end function nf90_put_var_5d_fourbytereal
1083 
1084 
1085  function nf90_put_var_6d_fourbytereal(ncid, varid, values, start, count, stride, map)
1086  integer, intent( in) :: ncid, varid
1087  real (kind = FourByteReal), dimension(:, :, :, :, :, :), &
1088  intent( in) :: values
1089  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1090  integer :: nf90_put_var_6d_fourbytereal
1091 
1092  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1093  integer :: numdims, counter
1094 
1095  ! Set local arguments to default values
1096  numdims = size(shape(values))
1097  localstart(: ) = 1
1098  localcount(:numdims ) = shape(values)
1099  localcount(numdims+1:) = 1
1100  localstride(: ) = 1
1101  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1102 
1103  if(present(start)) localstart(:size(start) ) = start(:)
1104  if(present(count)) localcount(:size(count) ) = count(:)
1105  if(present(stride)) localstride(:size(stride)) = stride(:)
1106  if(present(map)) then
1107  localmap(:size(map)) = map(:)
1109  nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
1110  else if(present(stride)) then
1112  nf_put_vars_real(ncid, varid, localstart, localcount, localstride, values)
1113  else
1115  nf_put_vara_real(ncid, varid, localstart, localcount, values)
1116  end if
1117  end function nf90_put_var_6d_fourbytereal
1118 
1119 
1120  function nf90_put_var_7d_fourbytereal(ncid, varid, values, start, count, stride, map)
1121  integer, intent( in) :: ncid, varid
1122  real (kind = FourByteReal), dimension(:, :, :, :, :, :, :), &
1123  intent( in) :: values
1124  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1125  integer :: nf90_put_var_7d_fourbytereal
1126 
1127  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1128  integer :: numdims, counter
1129 
1130  ! Set local arguments to default values
1131  numdims = size(shape(values))
1132  localstart(: ) = 1
1133  localcount(:numdims ) = shape(values)
1134  localcount(numdims+1:) = 1
1135  localstride(: ) = 1
1136  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1137 
1138  if(present(start)) localstart(:size(start) ) = start(:)
1139  if(present(count)) localcount(:size(count) ) = count(:)
1140  if(present(stride)) localstride(:size(stride)) = stride(:)
1141  if(present(map)) then
1142  localmap(:size(map)) = map(:)
1144  nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
1145  else if(present(stride)) then
1147  nf_put_vars_real(ncid, varid, localstart, localcount, localstride, values)
1148  else
1150  nf_put_vara_real(ncid, varid, localstart, localcount, values)
1151  end if
1152  end function nf90_put_var_7d_fourbytereal
1153 
1154 
1155  function nf90_put_var_1d_eightbytereal(ncid, varid, values, start, count, stride, map)
1156  integer, intent( in) :: ncid, varid
1157  real (kind = EightByteReal), dimension(:), &
1158  intent( in) :: values
1159  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1161 
1162  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1163  integer :: numdims, counter
1164 
1165  ! Set local arguments to default values
1166  numdims = size(shape(values))
1167  localstart(: ) = 1
1168  localcount(:numdims ) = shape(values)
1169  localcount(numdims+1:) = 1
1170  localstride(: ) = 1
1171  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1172 
1173  if(present(start)) localstart(:size(start) ) = start(:)
1174  if(present(count)) localcount(:size(count) ) = count(:)
1175  if(present(stride)) localstride(:size(stride)) = stride(:)
1176  if(present(map)) then
1177  localmap(:size(map)) = map(:)
1179  nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
1180  else if(present(stride)) then
1182  nf_put_vars_double(ncid, varid, localstart, localcount, localstride, values)
1183  else
1185  nf_put_vara_double(ncid, varid, localstart, localcount, values)
1186  end if
1187  end function nf90_put_var_1d_eightbytereal
1188 
1189 
1190  function nf90_put_var_2d_eightbytereal(ncid, varid, values, start, count, stride, map)
1191  integer, intent( in) :: ncid, varid
1192  real (kind = EightByteReal), dimension(:, :), &
1193  intent( in) :: values
1194  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1196 
1197  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1198  integer :: numdims, counter
1199 
1200  ! Set local arguments to default values
1201  numdims = size(shape(values))
1202  localstart(: ) = 1
1203  localcount(:numdims ) = shape(values)
1204  localcount(numdims+1:) = 1
1205  localstride(: ) = 1
1206  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1207 
1208  if(present(start)) localstart(:size(start) ) = start(:)
1209  if(present(count)) localcount(:size(count) ) = count(:)
1210  if(present(stride)) localstride(:size(stride)) = stride(:)
1211  if(present(map)) then
1212  localmap(:size(map)) = map(:)
1214  nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
1215  else if(present(stride)) then
1217  nf_put_vars_double(ncid, varid, localstart, localcount, localstride, values)
1218  else
1220  nf_put_vara_double(ncid, varid, localstart, localcount, values)
1221  end if
1222  end function nf90_put_var_2d_eightbytereal
1223 
1224 
1225  function nf90_put_var_3d_eightbytereal(ncid, varid, values, start, count, stride, map)
1226  integer, intent( in) :: ncid, varid
1227  real (kind = EightByteReal), dimension(:, :, :), &
1228  intent( in) :: values
1229  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1231 
1232  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1233  integer :: numdims, counter
1234 
1235  ! Set local arguments to default values
1236  numdims = size(shape(values))
1237  localstart(: ) = 1
1238  localcount(:numdims ) = shape(values)
1239  localcount(numdims+1:) = 1
1240  localstride(: ) = 1
1241  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1242 
1243  if(present(start)) localstart(:size(start) ) = start(:)
1244  if(present(count)) localcount(:size(count) ) = count(:)
1245  if(present(stride)) localstride(:size(stride)) = stride(:)
1246  if(present(map)) then
1247  localmap(:size(map)) = map(:)
1249  nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
1250  else if(present(stride)) then
1252  nf_put_vars_double(ncid, varid, localstart, localcount, localstride, values)
1253  else
1255  nf_put_vara_double(ncid, varid, localstart, localcount, values)
1256  end if
1257  end function nf90_put_var_3d_eightbytereal
1258 
1259 
1260  function nf90_put_var_4d_eightbytereal(ncid, varid, values, start, count, stride, map)
1261  integer, intent( in) :: ncid, varid
1262  real (kind = EightByteReal), dimension(:, :, :, :), &
1263  intent( in) :: values
1264  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1266 
1267  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1268  integer :: numdims, counter
1269 
1270  ! Set local arguments to default values
1271  numdims = size(shape(values))
1272  localstart(: ) = 1
1273  localcount(:numdims ) = shape(values)
1274  localcount(numdims+1:) = 1
1275  localstride(: ) = 1
1276  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1277 
1278  if(present(start)) localstart(:size(start) ) = start(:)
1279  if(present(count)) localcount(:size(count) ) = count(:)
1280  if(present(stride)) localstride(:size(stride)) = stride(:)
1281  if(present(map)) then
1282  localmap(:size(map)) = map(:)
1284  nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
1285  else if(present(stride)) then
1287  nf_put_vars_double(ncid, varid, localstart, localcount, localstride, values)
1288  else
1290  nf_put_vara_double(ncid, varid, localstart, localcount, values)
1291  end if
1292  end function nf90_put_var_4d_eightbytereal
1293 
1294 
1295  function nf90_put_var_5d_eightbytereal(ncid, varid, values, start, count, stride, map)
1296  integer, intent( in) :: ncid, varid
1297  real (kind = EightByteReal), dimension(:, :, :, :, :), &
1298  intent( in) :: values
1299  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1301 
1302  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1303  integer :: numdims, counter
1304 
1305  ! Set local arguments to default values
1306  numdims = size(shape(values))
1307  localstart(: ) = 1
1308  localcount(:numdims ) = shape(values)
1309  localcount(numdims+1:) = 1
1310  localstride(: ) = 1
1311  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1312 
1313  if(present(start)) localstart(:size(start) ) = start(:)
1314  if(present(count)) localcount(:size(count) ) = count(:)
1315  if(present(stride)) localstride(:size(stride)) = stride(:)
1316  if(present(map)) then
1317  localmap(:size(map)) = map(:)
1319  nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
1320  else if(present(stride)) then
1322  nf_put_vars_double(ncid, varid, localstart, localcount, localstride, values)
1323  else
1325  nf_put_vara_double(ncid, varid, localstart, localcount, values)
1326  end if
1327  end function nf90_put_var_5d_eightbytereal
1328 
1329 
1330  function nf90_put_var_6d_eightbytereal(ncid, varid, values, start, count, stride, map)
1331  integer, intent( in) :: ncid, varid
1332  real (kind = EightByteReal), dimension(:, :, :, :, :, :), &
1333  intent( in) :: values
1334  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1336 
1337  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1338  integer :: numdims, counter
1339 
1340  ! Set local arguments to default values
1341  numdims = size(shape(values))
1342  localstart(: ) = 1
1343  localcount(:numdims ) = shape(values)
1344  localcount(numdims+1:) = 1
1345  localstride(: ) = 1
1346  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1347 
1348  if(present(start)) localstart(:size(start) ) = start(:)
1349  if(present(count)) localcount(:size(count) ) = count(:)
1350  if(present(stride)) localstride(:size(stride)) = stride(:)
1351  if(present(map)) then
1352  localmap(:size(map)) = map(:)
1354  nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
1355  else if(present(stride)) then
1357  nf_put_vars_double(ncid, varid, localstart, localcount, localstride, values)
1358  else
1360  nf_put_vara_double(ncid, varid, localstart, localcount, values)
1361  end if
1362  end function nf90_put_var_6d_eightbytereal
1363 
1364 
1365  function nf90_put_var_7d_eightbytereal(ncid, varid, values, start, count, stride, map)
1366  integer, intent( in) :: ncid, varid
1367  real (kind = EightByteReal), dimension(:, :, :, :, :, :, :), &
1368  intent( in) :: values
1369  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1371 
1372  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1373  integer :: numdims, counter
1374 
1375  ! Set local arguments to default values
1376  numdims = size(shape(values))
1377  localstart(: ) = 1
1378  localcount(:numdims ) = shape(values)
1379  localcount(numdims+1:) = 1
1380  localstride(: ) = 1
1381  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1382 
1383  if(present(start)) localstart(:size(start) ) = start(:)
1384  if(present(count)) localcount(:size(count) ) = count(:)
1385  if(present(stride)) localstride(:size(stride)) = stride(:)
1386  if(present(map)) then
1387  localmap(:size(map)) = map(:)
1389  nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
1390  else if(present(stride)) then
1392  nf_put_vars_double(ncid, varid, localstart, localcount, localstride, values)
1393  else
1395  nf_put_vara_double(ncid, varid, localstart, localcount, values)
1396  end if
1397  end function nf90_put_var_7d_eightbytereal
1398 
1399 
1400  function nf90_get_var_1d_onebyteint(ncid, varid, values, start, count, stride, map)
1401  integer, intent( in) :: ncid, varid
1402  integer (kind = OneByteInt), dimension(:), &
1403  intent(out) :: values
1404  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1405  integer :: nf90_get_var_1d_onebyteint
1406 
1407  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1408  integer :: numdims, counter
1409 
1410  ! Set local arguments to default values
1411  numdims = size(shape(values))
1412  localstart(: ) = 1
1413  localcount(:numdims ) = shape(values)
1414  localcount(numdims+1:) = 1
1415  localstride(: ) = 1
1416  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1417 
1418  if(present(start)) localstart(:size(start) ) = start(:)
1419  if(present(count)) localcount(:size(count) ) = count(:)
1420  if(present(stride)) localstride(:size(stride)) = stride(:)
1421  if(present(map)) then
1422  localmap(:size(map)) = map(:)
1424  nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
1425  else if(present(stride)) then
1427  nf_get_vars_int1(ncid, varid, localstart, localcount, localstride, values)
1428  else
1430  nf_get_vara_int1(ncid, varid, localstart, localcount, values)
1431  end if
1432  end function nf90_get_var_1d_onebyteint
1433 
1434 
1435  function nf90_get_var_2d_onebyteint(ncid, varid, values, start, count, stride, map)
1436  integer, intent( in) :: ncid, varid
1437  integer (kind = OneByteInt), dimension(:, :), &
1438  intent(out) :: values
1439  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1440  integer :: nf90_get_var_2d_onebyteint
1441 
1442  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1443  integer :: numdims, counter
1444 
1445  ! Set local arguments to default values
1446  numdims = size(shape(values))
1447  localstart(: ) = 1
1448  localcount(:numdims ) = shape(values)
1449  localcount(numdims+1:) = 1
1450  localstride(: ) = 1
1451  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1452 
1453  if(present(start)) localstart(:size(start) ) = start(:)
1454  if(present(count)) localcount(:size(count) ) = count(:)
1455  if(present(stride)) localstride(:size(stride)) = stride(:)
1456  if(present(map)) then
1457  localmap(:size(map)) = map(:)
1459  nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
1460  else if(present(stride)) then
1462  nf_get_vars_int1(ncid, varid, localstart, localcount, localstride, values)
1463  else
1465  nf_get_vara_int1(ncid, varid, localstart, localcount, values)
1466  end if
1467  end function nf90_get_var_2d_onebyteint
1468 
1469 
1470  function nf90_get_var_3d_onebyteint(ncid, varid, values, start, count, stride, map)
1471  integer, intent( in) :: ncid, varid
1472  integer (kind = OneByteInt), dimension(:, :, :), &
1473  intent(out) :: values
1474  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1475  integer :: nf90_get_var_3d_onebyteint
1476 
1477  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1478  integer :: numdims, counter
1479 
1480  ! Set local arguments to default values
1481  numdims = size(shape(values))
1482  localstart(: ) = 1
1483  localcount(:numdims ) = shape(values)
1484  localcount(numdims+1:) = 1
1485  localstride(: ) = 1
1486  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1487 
1488  if(present(start)) localstart(:size(start) ) = start(:)
1489  if(present(count)) localcount(:size(count) ) = count(:)
1490  if(present(stride)) localstride(:size(stride)) = stride(:)
1491  if(present(map)) then
1492  localmap(:size(map)) = map(:)
1494  nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
1495  else if(present(stride)) then
1497  nf_get_vars_int1(ncid, varid, localstart, localcount, localstride, values)
1498  else
1500  nf_get_vara_int1(ncid, varid, localstart, localcount, values)
1501  end if
1502  end function nf90_get_var_3d_onebyteint
1503 
1504 
1505  function nf90_get_var_4d_onebyteint(ncid, varid, values, start, count, stride, map)
1506  integer, intent( in) :: ncid, varid
1507  integer (kind = OneByteInt), dimension(:, :, :, :), &
1508  intent(out) :: values
1509  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1510  integer :: nf90_get_var_4d_onebyteint
1511 
1512  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1513  integer :: numdims, counter
1514 
1515  ! Set local arguments to default values
1516  numdims = size(shape(values))
1517  localstart(: ) = 1
1518  localcount(:numdims ) = shape(values)
1519  localcount(numdims+1:) = 1
1520  localstride(: ) = 1
1521  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1522 
1523  if(present(start)) localstart(:size(start) ) = start(:)
1524  if(present(count)) localcount(:size(count) ) = count(:)
1525  if(present(stride)) localstride(:size(stride)) = stride(:)
1526  if(present(map)) then
1527  localmap(:size(map)) = map(:)
1529  nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
1530  else if(present(stride)) then
1532  nf_get_vars_int1(ncid, varid, localstart, localcount, localstride, values)
1533  else
1535  nf_get_vara_int1(ncid, varid, localstart, localcount, values)
1536  end if
1537  end function nf90_get_var_4d_onebyteint
1538 
1539 
1540  function nf90_get_var_5d_onebyteint(ncid, varid, values, start, count, stride, map)
1541  integer, intent( in) :: ncid, varid
1542  integer (kind = OneByteInt), dimension(:, :, :, :, :), &
1543  intent(out) :: values
1544  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1545  integer :: nf90_get_var_5d_onebyteint
1546 
1547  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1548  integer :: numdims, counter
1549 
1550  ! Set local arguments to default values
1551  numdims = size(shape(values))
1552  localstart(: ) = 1
1553  localcount(:numdims ) = shape(values)
1554  localcount(numdims+1:) = 1
1555  localstride(: ) = 1
1556  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1557 
1558  if(present(start)) localstart(:size(start) ) = start(:)
1559  if(present(count)) localcount(:size(count) ) = count(:)
1560  if(present(stride)) localstride(:size(stride)) = stride(:)
1561  if(present(map)) then
1562  localmap(:size(map)) = map(:)
1564  nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
1565  else if(present(stride)) then
1567  nf_get_vars_int1(ncid, varid, localstart, localcount, localstride, values)
1568  else
1570  nf_get_vara_int1(ncid, varid, localstart, localcount, values)
1571  end if
1572  end function nf90_get_var_5d_onebyteint
1573 
1574 
1575  function nf90_get_var_6d_onebyteint(ncid, varid, values, start, count, stride, map)
1576  integer, intent( in) :: ncid, varid
1577  integer (kind = OneByteInt), dimension(:, :, :, :, :, :), &
1578  intent(out) :: values
1579  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1580  integer :: nf90_get_var_6d_onebyteint
1581 
1582  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1583  integer :: numdims, counter
1584 
1585  ! Set local arguments to default values
1586  numdims = size(shape(values))
1587  localstart(: ) = 1
1588  localcount(:numdims ) = shape(values)
1589  localcount(numdims+1:) = 1
1590  localstride(: ) = 1
1591  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1592 
1593  if(present(start)) localstart(:size(start) ) = start(:)
1594  if(present(count)) localcount(:size(count) ) = count(:)
1595  if(present(stride)) localstride(:size(stride)) = stride(:)
1596  if(present(map)) then
1597  localmap(:size(map)) = map(:)
1599  nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
1600  else if(present(stride)) then
1602  nf_get_vars_int1(ncid, varid, localstart, localcount, localstride, values)
1603  else
1605  nf_get_vara_int1(ncid, varid, localstart, localcount, values)
1606  end if
1607  end function nf90_get_var_6d_onebyteint
1608 
1609 
1610  function nf90_get_var_7d_onebyteint(ncid, varid, values, start, count, stride, map)
1611  integer, intent( in) :: ncid, varid
1612  integer (kind = OneByteInt), dimension(:, :, :, :, :, :, :), &
1613  intent(out) :: values
1614  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1615  integer :: nf90_get_var_7d_onebyteint
1616 
1617  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1618  integer :: numdims, counter
1619 
1620  ! Set local arguments to default values
1621  numdims = size(shape(values))
1622  localstart(: ) = 1
1623  localcount(:numdims ) = shape(values)
1624  localcount(numdims+1:) = 1
1625  localstride(: ) = 1
1626  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1627 
1628  if(present(start)) localstart(:size(start) ) = start(:)
1629  if(present(count)) localcount(:size(count) ) = count(:)
1630  if(present(stride)) localstride(:size(stride)) = stride(:)
1631  if(present(map)) then
1632  localmap(:size(map)) = map(:)
1634  nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
1635  else if(present(stride)) then
1637  nf_get_vars_int1(ncid, varid, localstart, localcount, localstride, values)
1638  else
1640  nf_get_vara_int1(ncid, varid, localstart, localcount, values)
1641  end if
1642  end function nf90_get_var_7d_onebyteint
1643 
1644 
1645  function nf90_get_var_1d_twobyteint(ncid, varid, values, start, count, stride, map)
1646  integer, intent( in) :: ncid, varid
1647  integer (kind = TwoByteInt), dimension(:), &
1648  intent(out) :: values
1649  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1650  integer :: nf90_get_var_1d_twobyteint
1651 
1652  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1653  integer :: numdims, counter
1654 
1655  ! Set local arguments to default values
1656  numdims = size(shape(values))
1657  localstart(: ) = 1
1658  localcount(:numdims ) = shape(values)
1659  localcount(numdims+1:) = 1
1660  localstride(: ) = 1
1661  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1662 
1663  if(present(start)) localstart(:size(start) ) = start(:)
1664  if(present(count)) localcount(:size(count) ) = count(:)
1665  if(present(stride)) localstride(:size(stride)) = stride(:)
1666  if(present(map)) then
1667  localmap(:size(map)) = map(:)
1669  nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
1670  else if(present(stride)) then
1672  nf_get_vars_int2(ncid, varid, localstart, localcount, localstride, values)
1673  else
1675  nf_get_vara_int2(ncid, varid, localstart, localcount, values)
1676  end if
1677  end function nf90_get_var_1d_twobyteint
1678 
1679 
1680  function nf90_get_var_2d_twobyteint(ncid, varid, values, start, count, stride, map)
1681  integer, intent( in) :: ncid, varid
1682  integer (kind = TwoByteInt), dimension(:, :), &
1683  intent(out) :: values
1684  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1685  integer :: nf90_get_var_2d_twobyteint
1686 
1687  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1688  integer :: numdims, counter
1689 
1690  ! Set local arguments to default values
1691  numdims = size(shape(values))
1692  localstart(: ) = 1
1693  localcount(:numdims ) = shape(values)
1694  localcount(numdims+1:) = 1
1695  localstride(: ) = 1
1696  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1697 
1698  if(present(start)) localstart(:size(start) ) = start(:)
1699  if(present(count)) localcount(:size(count) ) = count(:)
1700  if(present(stride)) localstride(:size(stride)) = stride(:)
1701  if(present(map)) then
1702  localmap(:size(map)) = map(:)
1704  nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
1705  else if(present(stride)) then
1707  nf_get_vars_int2(ncid, varid, localstart, localcount, localstride, values)
1708  else
1710  nf_get_vara_int2(ncid, varid, localstart, localcount, values)
1711  end if
1712  end function nf90_get_var_2d_twobyteint
1713 
1714 
1715  function nf90_get_var_3d_twobyteint(ncid, varid, values, start, count, stride, map)
1716  integer, intent( in) :: ncid, varid
1717  integer (kind = TwoByteInt), dimension(:, :, :), &
1718  intent(out) :: values
1719  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1720  integer :: nf90_get_var_3d_twobyteint
1721 
1722  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1723  integer :: numdims, counter
1724 
1725  ! Set local arguments to default values
1726  numdims = size(shape(values))
1727  localstart(: ) = 1
1728  localcount(:numdims ) = shape(values)
1729  localcount(numdims+1:) = 1
1730  localstride(: ) = 1
1731  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1732 
1733  if(present(start)) localstart(:size(start) ) = start(:)
1734  if(present(count)) localcount(:size(count) ) = count(:)
1735  if(present(stride)) localstride(:size(stride)) = stride(:)
1736  if(present(map)) then
1737  localmap(:size(map)) = map(:)
1739  nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
1740  else if(present(stride)) then
1742  nf_get_vars_int2(ncid, varid, localstart, localcount, localstride, values)
1743  else
1745  nf_get_vara_int2(ncid, varid, localstart, localcount, values)
1746  end if
1747  end function nf90_get_var_3d_twobyteint
1748 
1749 
1750  function nf90_get_var_4d_twobyteint(ncid, varid, values, start, count, stride, map)
1751  integer, intent( in) :: ncid, varid
1752  integer (kind = TwoByteInt), dimension(:, :, :, :), &
1753  intent(out) :: values
1754  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1755  integer :: nf90_get_var_4d_twobyteint
1756 
1757  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1758  integer :: numdims, counter
1759 
1760  ! Set local arguments to default values
1761  numdims = size(shape(values))
1762  localstart(: ) = 1
1763  localcount(:numdims ) = shape(values)
1764  localcount(numdims+1:) = 1
1765  localstride(: ) = 1
1766  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1767 
1768  if(present(start)) localstart(:size(start) ) = start(:)
1769  if(present(count)) localcount(:size(count) ) = count(:)
1770  if(present(stride)) localstride(:size(stride)) = stride(:)
1771  if(present(map)) then
1772  localmap(:size(map)) = map(:)
1774  nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
1775  else if(present(stride)) then
1777  nf_get_vars_int2(ncid, varid, localstart, localcount, localstride, values)
1778  else
1780  nf_get_vara_int2(ncid, varid, localstart, localcount, values)
1781  end if
1782  end function nf90_get_var_4d_twobyteint
1783 
1784 
1785  function nf90_get_var_5d_twobyteint(ncid, varid, values, start, count, stride, map)
1786  integer, intent( in) :: ncid, varid
1787  integer (kind = TwoByteInt), dimension(:, :, :, :, :), &
1788  intent(out) :: values
1789  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1790  integer :: nf90_get_var_5d_twobyteint
1791 
1792  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1793  integer :: numdims, counter
1794 
1795  ! Set local arguments to default values
1796  numdims = size(shape(values))
1797  localstart(: ) = 1
1798  localcount(:numdims ) = shape(values)
1799  localcount(numdims+1:) = 1
1800  localstride(: ) = 1
1801  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1802 
1803  if(present(start)) localstart(:size(start) ) = start(:)
1804  if(present(count)) localcount(:size(count) ) = count(:)
1805  if(present(stride)) localstride(:size(stride)) = stride(:)
1806  if(present(map)) then
1807  localmap(:size(map)) = map(:)
1809  nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
1810  else if(present(stride)) then
1812  nf_get_vars_int2(ncid, varid, localstart, localcount, localstride, values)
1813  else
1815  nf_get_vara_int2(ncid, varid, localstart, localcount, values)
1816  end if
1817  end function nf90_get_var_5d_twobyteint
1818 
1819 
1820  function nf90_get_var_6d_twobyteint(ncid, varid, values, start, count, stride, map)
1821  integer, intent( in) :: ncid, varid
1822  integer (kind = TwoByteInt), dimension(:, :, :, :, :, :), &
1823  intent(out) :: values
1824  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1825  integer :: nf90_get_var_6d_twobyteint
1826 
1827  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1828  integer :: numdims, counter
1829 
1830  ! Set local arguments to default values
1831  numdims = size(shape(values))
1832  localstart(: ) = 1
1833  localcount(:numdims ) = shape(values)
1834  localcount(numdims+1:) = 1
1835  localstride(: ) = 1
1836  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1837 
1838  if(present(start)) localstart(:size(start) ) = start(:)
1839  if(present(count)) localcount(:size(count) ) = count(:)
1840  if(present(stride)) localstride(:size(stride)) = stride(:)
1841  if(present(map)) then
1842  localmap(:size(map)) = map(:)
1844  nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
1845  else if(present(stride)) then
1847  nf_get_vars_int2(ncid, varid, localstart, localcount, localstride, values)
1848  else
1850  nf_get_vara_int2(ncid, varid, localstart, localcount, values)
1851  end if
1852  end function nf90_get_var_6d_twobyteint
1853 
1854 
1855  function nf90_get_var_7d_twobyteint(ncid, varid, values, start, count, stride, map)
1856  integer, intent( in) :: ncid, varid
1857  integer (kind = TwoByteInt), dimension(:, :, :, :, :, :, :), &
1858  intent(out) :: values
1859  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1860  integer :: nf90_get_var_7d_twobyteint
1861 
1862  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1863  integer :: numdims, counter
1864 
1865  ! Set local arguments to default values
1866  numdims = size(shape(values))
1867  localstart(: ) = 1
1868  localcount(:numdims ) = shape(values)
1869  localcount(numdims+1:) = 1
1870  localstride(: ) = 1
1871  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1872 
1873  if(present(start)) localstart(:size(start) ) = start(:)
1874  if(present(count)) localcount(:size(count) ) = count(:)
1875  if(present(stride)) localstride(:size(stride)) = stride(:)
1876  if(present(map)) then
1877  localmap(:size(map)) = map(:)
1879  nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
1880  else if(present(stride)) then
1882  nf_get_vars_int2(ncid, varid, localstart, localcount, localstride, values)
1883  else
1885  nf_get_vara_int2(ncid, varid, localstart, localcount, values)
1886  end if
1887  end function nf90_get_var_7d_twobyteint
1888 
1889 
1890  function nf90_get_var_1d_fourbyteint(ncid, varid, values, start, count, stride, map)
1891  integer, intent( in) :: ncid, varid
1892  integer (kind = FourByteInt), dimension(:), &
1893  intent(out) :: values
1894  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1895  integer :: nf90_get_var_1d_fourbyteint
1896 
1897  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1898  integer :: numdims, counter
1899  integer, dimension(size(values)) :: defaultintarray
1900 
1901  ! Set local arguments to default values
1902  numdims = size(shape(values))
1903  localstart(: ) = 1
1904  localcount(:numdims ) = shape(values)
1905  localcount(numdims+1:) = 1
1906  localstride(: ) = 1
1907  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1908 
1909  if(present(start)) localstart(:size(start) ) = start(:)
1910  if(present(count)) localcount(:size(count) ) = count(:)
1911  if(present(stride)) localstride(:size(stride)) = stride(:)
1912  if(present(map)) then
1913  localmap(:size(map)) = map(:)
1915  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
1916  else if(present(stride)) then
1918  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
1919  else
1921  nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
1922  end if
1923  values(:) = reshape(defaultintarray(:), shape(values))
1924  end function nf90_get_var_1d_fourbyteint
1925 
1926 
1927  function nf90_get_var_2d_fourbyteint(ncid, varid, values, start, count, stride, map)
1928  integer, intent( in) :: ncid, varid
1929  integer (kind = FourByteInt), dimension(:, :), &
1930  intent(out) :: values
1931  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1932  integer :: nf90_get_var_2d_fourbyteint
1933 
1934  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1935  integer :: numdims, counter
1936  integer, dimension(size(values)) :: defaultintarray
1937 
1938  ! Set local arguments to default values
1939  numdims = size(shape(values))
1940  localstart(: ) = 1
1941  localcount(:numdims ) = shape(values)
1942  localcount(numdims+1:) = 1
1943  localstride(: ) = 1
1944  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1945 
1946  if(present(start)) localstart(:size(start) ) = start(:)
1947  if(present(count)) localcount(:size(count) ) = count(:)
1948  if(present(stride)) localstride(:size(stride)) = stride(:)
1949  if(present(map)) then
1950  localmap(:size(map)) = map(:)
1952  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
1953  else if(present(stride)) then
1955  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
1956  else
1958  nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
1959  end if
1960  values(:, :) = reshape(defaultintarray(:), shape(values))
1961  end function nf90_get_var_2d_fourbyteint
1962 
1963 
1964  function nf90_get_var_3d_fourbyteint(ncid, varid, values, start, count, stride, map)
1965  integer, intent( in) :: ncid, varid
1966  integer (kind = FourByteInt), dimension(:, :, :), &
1967  intent(out) :: values
1968  integer, dimension(:), optional, intent( in) :: start, count, stride, map
1969  integer :: nf90_get_var_3d_fourbyteint
1970 
1971  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
1972  integer :: numdims, counter
1973  integer, dimension(size(values)) :: defaultintarray
1974 
1975  ! Set local arguments to default values
1976  numdims = size(shape(values))
1977  localstart(: ) = 1
1978  localcount(:numdims ) = shape(values)
1979  localcount(numdims+1:) = 1
1980  localstride(: ) = 1
1981  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1982 
1983  if(present(start)) localstart(:size(start) ) = start(:)
1984  if(present(count)) localcount(:size(count) ) = count(:)
1985  if(present(stride)) localstride(:size(stride)) = stride(:)
1986  if(present(map)) then
1987  localmap(:size(map)) = map(:)
1989  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
1990  else if(present(stride)) then
1992  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
1993  else
1995  nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
1996  end if
1997  values(:, :, :) = reshape(defaultintarray(:), shape(values))
1998  end function nf90_get_var_3d_fourbyteint
1999 
2000 
2001  function nf90_get_var_4d_fourbyteint(ncid, varid, values, start, count, stride, map)
2002  integer, intent( in) :: ncid, varid
2003  integer (kind = FourByteInt), dimension(:, :, :, :), &
2004  intent(out) :: values
2005  integer, dimension(:), optional, intent( in) :: start, count, stride, map
2006  integer :: nf90_get_var_4d_fourbyteint
2007 
2008  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
2009  integer :: numdims, counter
2010  integer, dimension(size(values)) :: defaultintarray
2011 
2012  ! Set local arguments to default values
2013  numdims = size(shape(values))
2014  localstart(: ) = 1
2015  localcount(:numdims ) = shape(values)
2016  localcount(numdims+1:) = 1
2017  localstride(: ) = 1
2018  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2019 
2020  if(present(start)) localstart(:size(start) ) = start(:)
2021  if(present(count)) localcount(:size(count) ) = count(:)
2022  if(present(stride)) localstride(:size(stride)) = stride(:)
2023  if(present(map)) then
2024  localmap(:size(map)) = map(:)
2026  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
2027  else if(present(stride)) then
2029  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
2030  else
2032  nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
2033  end if
2034  values(:, :, :, :) = reshape(defaultintarray(:), shape(values))
2035  end function nf90_get_var_4d_fourbyteint
2036 
2037 
2038  function nf90_get_var_5d_fourbyteint(ncid, varid, values, start, count, stride, map)
2039  integer, intent( in) :: ncid, varid
2040  integer (kind = FourByteInt), dimension(:, :, :, :, :), &
2041  intent(out) :: values
2042  integer, dimension(:), optional, intent( in) :: start, count, stride, map
2043  integer :: nf90_get_var_5d_fourbyteint
2044 
2045  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
2046  integer :: numdims, counter
2047  integer, dimension(size(values)) :: defaultintarray
2048 
2049  ! Set local arguments to default values
2050  numdims = size(shape(values))
2051  localstart(: ) = 1
2052  localcount(:numdims ) = shape(values)
2053  localcount(numdims+1:) = 1
2054  localstride(: ) = 1
2055  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2056 
2057  if(present(start)) localstart(:size(start) ) = start(:)
2058  if(present(count)) localcount(:size(count) ) = count(:)
2059  if(present(stride)) localstride(:size(stride)) = stride(:)
2060  if(present(map)) then
2061  localmap(:size(map)) = map(:)
2063  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
2064  else if(present(stride)) then
2066  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
2067  else
2069  nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
2070  end if
2071  values(:, :, :, :, :) = reshape(defaultintarray(:), shape(values))
2072  end function nf90_get_var_5d_fourbyteint
2073 
2074 
2075  function nf90_get_var_6d_fourbyteint(ncid, varid, values, start, count, stride, map)
2076  integer, intent( in) :: ncid, varid
2077  integer (kind = FourByteInt), dimension(:, :, :, :, :, :), &
2078  intent(out) :: values
2079  integer, dimension(:), optional, intent( in) :: start, count, stride, map
2080  integer :: nf90_get_var_6d_fourbyteint
2081 
2082  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
2083  integer :: numdims, counter
2084  integer, dimension(size(values)) :: defaultintarray
2085 
2086  ! Set local arguments to default values
2087  numdims = size(shape(values))
2088  localstart(: ) = 1
2089  localcount(:numdims ) = shape(values)
2090  localcount(numdims+1:) = 1
2091  localstride(: ) = 1
2092  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2093 
2094  if(present(start)) localstart(:size(start) ) = start(:)
2095  if(present(count)) localcount(:size(count) ) = count(:)
2096  if(present(stride)) localstride(:size(stride)) = stride(:)
2097  if(present(map)) then
2098  localmap(:size(map)) = map(:)
2100  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
2101  else if(present(stride)) then
2103  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
2104  else
2106  nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
2107  end if
2108  values(:, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
2109  end function nf90_get_var_6d_fourbyteint
2110 
2111 
2112  function nf90_get_var_7d_fourbyteint(ncid, varid, values, start, count, stride, map)
2113  integer, intent( in) :: ncid, varid
2114  integer (kind = FourByteInt), dimension(:, :, :, :, :, :, :), &
2115  intent(out) :: values
2116  integer, dimension(:), optional, intent( in) :: start, count, stride, map
2117  integer :: nf90_get_var_7d_fourbyteint
2118 
2119  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
2120  integer :: numdims, counter
2121  integer, dimension(size(values)) :: defaultintarray
2122 
2123  ! Set local arguments to default values
2124  numdims = size(shape(values))
2125  localstart(: ) = 1
2126  localcount(:numdims ) = shape(values)
2127  localcount(numdims+1:) = 1
2128  localstride(: ) = 1
2129  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2130 
2131  if(present(start)) localstart(:size(start) ) = start(:)
2132  if(present(count)) localcount(:size(count) ) = count(:)
2133  if(present(stride)) localstride(:size(stride)) = stride(:)
2134  if(present(map)) then
2135  localmap(:size(map)) = map(:)
2137  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
2138  else if(present(stride)) then
2140  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
2141  else
2143  nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
2144  end if
2145  values(:, :, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
2146  end function nf90_get_var_7d_fourbyteint
2147 
2148 
2149  function nf90_get_var_1d_fourbytereal(ncid, varid, values, start, count, stride, map)
2150  integer, intent( in) :: ncid, varid
2151  real (kind = FourByteReal), dimension(:), &
2152  intent(out) :: values
2153  integer, dimension(:), optional, intent( in) :: start, count, stride, map
2154  integer :: nf90_get_var_1d_fourbytereal
2155 
2156  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
2157  integer :: numdims, counter
2158 
2159  ! Set local arguments to default values
2160  numdims = size(shape(values))
2161  localstart(: ) = 1
2162  localcount(:numdims ) = shape(values)
2163  localcount(numdims+1:) = 1
2164  localstride(: ) = 1
2165  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2166 
2167  if(present(start)) localstart(:size(start) ) = start(:)
2168  if(present(count)) localcount(:size(count) ) = count(:)
2169  if(present(stride)) localstride(:size(stride)) = stride(:)
2170  if(present(map)) then
2171  localmap(:size(map)) = map(:)
2173  nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
2174  else if(present(stride)) then
2176  nf_get_vars_real(ncid, varid, localstart, localcount, localstride, values)
2177  else
2179  nf_get_vara_real(ncid, varid, localstart, localcount, values)
2180  end if
2181  end function nf90_get_var_1d_fourbytereal
2182 
2183 
2184  function nf90_get_var_2d_fourbytereal(ncid, varid, values, start, count, stride, map)
2185  integer, intent( in) :: ncid, varid
2186  real (kind = FourByteReal), dimension(:, :), &
2187  intent(out) :: values
2188  integer, dimension(:), optional, intent( in) :: start, count, stride, map
2189  integer :: nf90_get_var_2d_fourbytereal
2190 
2191  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
2192  integer :: numdims, counter
2193 
2194  ! Set local arguments to default values
2195  numdims = size(shape(values))
2196  localstart(: ) = 1
2197  localcount(:numdims ) = shape(values)
2198  localcount(numdims+1:) = 1
2199  localstride(: ) = 1
2200  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2201 
2202  if(present(start)) localstart(:size(start) ) = start(:)
2203  if(present(count)) localcount(:size(count) ) = count(:)
2204  if(present(stride)) localstride(:size(stride)) = stride(:)
2205  if(present(map)) then
2206  localmap(:size(map)) = map(:)
2208  nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
2209  else if(present(stride)) then
2211  nf_get_vars_real(ncid, varid, localstart, localcount, localstride, values)
2212  else
2214  nf_get_vara_real(ncid, varid, localstart, localcount, values)
2215  end if
2216  end function nf90_get_var_2d_fourbytereal
2217 
2218 
2219  function nf90_get_var_3d_fourbytereal(ncid, varid, values, start, count, stride, map)
2220  integer, intent( in) :: ncid, varid
2221  real (kind = FourByteReal), dimension(:, :, :), &
2222  intent(out) :: values
2223  integer, dimension(:), optional, intent( in) :: start, count, stride, map
2224  integer :: nf90_get_var_3d_fourbytereal
2225 
2226  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
2227  integer :: numdims, counter
2228 
2229  ! Set local arguments to default values
2230  numdims = size(shape(values))
2231  localstart(: ) = 1
2232  localcount(:numdims ) = shape(values)
2233  localcount(numdims+1:) = 1
2234  localstride(: ) = 1
2235  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2236 
2237  if(present(start)) localstart(:size(start) ) = start(:)
2238  if(present(count)) localcount(:size(count) ) = count(:)
2239  if(present(stride)) localstride(:size(stride)) = stride(:)
2240  if(present(map)) then
2241  localmap(:size(map)) = map(:)
2243  nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
2244  else if(present(stride)) then
2246  nf_get_vars_real(ncid, varid, localstart, localcount, localstride, values)
2247  else
2249  nf_get_vara_real(ncid, varid, localstart, localcount, values)
2250  end if
2251  end function nf90_get_var_3d_fourbytereal
2252 
2253 
2254  function nf90_get_var_4d_fourbytereal(ncid, varid, values, start, count, stride, map)
2255  integer, intent( in) :: ncid, varid
2256  real (kind = FourByteReal), dimension(:, :, :, :), &
2257  intent(out) :: values
2258  integer, dimension(:), optional, intent( in) :: start, count, stride, map
2259  integer :: nf90_get_var_4d_fourbytereal
2260 
2261  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
2262  integer :: numdims, counter
2263 
2264  ! Set local arguments to default values
2265  numdims = size(shape(values))
2266  localstart(: ) = 1
2267  localcount(:numdims ) = shape(values)
2268  localcount(numdims+1:) = 1
2269  localstride(: ) = 1
2270  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2271 
2272  if(present(start)) localstart(:size(start) ) = start(:)
2273  if(present(count)) localcount(:size(count) ) = count(:)
2274  if(present(stride)) localstride(:size(stride)) = stride(:)
2275  if(present(map)) then
2276  localmap(:size(map)) = map(:)
2278  nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
2279  else if(present(stride)) then
2281  nf_get_vars_real(ncid, varid, localstart, localcount, localstride, values)
2282  else
2284  nf_get_vara_real(ncid, varid, localstart, localcount, values)
2285  end if
2286  end function nf90_get_var_4d_fourbytereal
2287 
2288 
2289  function nf90_get_var_5d_fourbytereal(ncid, varid, values, start, count, stride, map)
2290  integer, intent( in) :: ncid, varid
2291  real (kind = FourByteReal), dimension(:, :, :, :, :), &
2292  intent(out) :: values
2293  integer, dimension(:), optional, intent( in) :: start, count, stride, map
2294  integer :: nf90_get_var_5d_fourbytereal
2295 
2296  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
2297  integer :: numdims, counter
2298 
2299  ! Set local arguments to default values
2300  numdims = size(shape(values))
2301  localstart(: ) = 1
2302  localcount(:numdims ) = shape(values)
2303  localcount(numdims+1:) = 1
2304  localstride(: ) = 1
2305  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2306 
2307  if(present(start)) localstart(:size(start) ) = start(:)
2308  if(present(count)) localcount(:size(count) ) = count(:)
2309  if(present(stride)) localstride(:size(stride)) = stride(:)
2310  if(present(map)) then
2311  localmap(:size(map)) = map(:)
2313  nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
2314  else if(present(stride)) then
2316  nf_get_vars_real(ncid, varid, localstart, localcount, localstride, values)
2317  else
2319  nf_get_vara_real(ncid, varid, localstart, localcount, values)
2320  end if
2321  end function nf90_get_var_5d_fourbytereal
2322 
2323 
2324  function nf90_get_var_6d_fourbytereal(ncid, varid, values, start, count, stride, map)
2325  integer, intent( in) :: ncid, varid
2326  real (kind = FourByteReal), dimension(:, :, :, :, :, :), &
2327  intent(out) :: values
2328  integer, dimension(:), optional, intent( in) :: start, count, stride, map
2329  integer :: nf90_get_var_6d_fourbytereal
2330 
2331  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
2332  integer :: numdims, counter
2333 
2334  ! Set local arguments to default values
2335  numdims = size(shape(values))
2336  localstart(: ) = 1
2337  localcount(:numdims ) = shape(values)
2338  localcount(numdims+1:) = 1
2339  localstride(: ) = 1
2340  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2341 
2342  if(present(start)) localstart(:size(start) ) = start(:)
2343  if(present(count)) localcount(:size(count) ) = count(:)
2344  if(present(stride)) localstride(:size(stride)) = stride(:)
2345  if(present(map)) then
2346  localmap(:size(map)) = map(:)
2348  nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
2349  else if(present(stride)) then
2351  nf_get_vars_real(ncid, varid, localstart, localcount, localstride, values)
2352  else
2354  nf_get_vara_real(ncid, varid, localstart, localcount, values)
2355  end if
2356  end function nf90_get_var_6d_fourbytereal
2357 
2358 
2359  function nf90_get_var_7d_fourbytereal(ncid, varid, values, start, count, stride, map)
2360  integer, intent( in) :: ncid, varid
2361  real (kind = FourByteReal), dimension(:, :, :, :, :, :, :), &
2362  intent(out) :: values
2363  integer, dimension(:), optional, intent( in) :: start, count, stride, map
2364  integer :: nf90_get_var_7d_fourbytereal
2365 
2366  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
2367  integer :: numdims, counter
2368 
2369  ! Set local arguments to default values
2370  numdims = size(shape(values))
2371  localstart(: ) = 1
2372  localcount(:numdims ) = shape(values)
2373  localcount(numdims+1:) = 1
2374  localstride(: ) = 1
2375  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2376 
2377  if(present(start)) localstart(:size(start) ) = start(:)
2378  if(present(count)) localcount(:size(count) ) = count(:)
2379  if(present(stride)) localstride(:size(stride)) = stride(:)
2380  if(present(map)) then
2381  localmap(:size(map)) = map(:)
2383  nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
2384  else if(present(stride)) then
2386  nf_get_vars_real(ncid, varid, localstart, localcount, localstride, values)
2387  else
2389  nf_get_vara_real(ncid, varid, localstart, localcount, values)
2390  end if
2391  end function nf90_get_var_7d_fourbytereal
2392 
2393 
2394  function nf90_get_var_1d_eightbytereal(ncid, varid, values, start, count, stride, map)
2395  integer, intent( in) :: ncid, varid
2396  real (kind = EightByteReal), dimension(:), &
2397  intent(out) :: values
2398  integer, dimension(:), optional, intent( in) :: start, count, stride, map
2400 
2401  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
2402  integer :: numdims, counter
2403 
2404  ! Set local arguments to default values
2405  numdims = size(shape(values))
2406  localstart(: ) = 1
2407  localcount(:numdims ) = shape(values)
2408  localcount(numdims+1:) = 1
2409  localstride(: ) = 1
2410  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2411 
2412  if(present(start)) localstart(:size(start) ) = start(:)
2413  if(present(count)) localcount(:size(count) ) = count(:)
2414  if(present(stride)) localstride(:size(stride)) = stride(:)
2415  if(present(map)) then
2416  localmap(:size(map)) = map(:)
2418  nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
2419  else if(present(stride)) then
2421  nf_get_vars_double(ncid, varid, localstart, localcount, localstride, values)
2422  else
2424  nf_get_vara_double(ncid, varid, localstart, localcount, values)
2425  end if
2426  end function nf90_get_var_1d_eightbytereal
2427 
2428 
2429  function nf90_get_var_2d_eightbytereal(ncid, varid, values, start, count, stride, map)
2430  integer, intent( in) :: ncid, varid
2431  real (kind = EightByteReal), dimension(:, :), &
2432  intent(out) :: values
2433  integer, dimension(:), optional, intent( in) :: start, count, stride, map
2435 
2436  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
2437  integer :: numdims, counter
2438 
2439  ! Set local arguments to default values
2440  numdims = size(shape(values))
2441  localstart(: ) = 1
2442  localcount(:numdims ) = shape(values)
2443  localcount(numdims+1:) = 1
2444  localstride(: ) = 1
2445  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2446 
2447  if(present(start)) localstart(:size(start) ) = start(:)
2448  if(present(count)) localcount(:size(count) ) = count(:)
2449  if(present(stride)) localstride(:size(stride)) = stride(:)
2450  if(present(map)) then
2451  localmap(:size(map)) = map(:)
2453  nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
2454  else if(present(stride)) then
2456  nf_get_vars_double(ncid, varid, localstart, localcount, localstride, values)
2457  else
2459  nf_get_vara_double(ncid, varid, localstart, localcount, values)
2460  end if
2461  end function nf90_get_var_2d_eightbytereal
2462 
2463 
2464  function nf90_get_var_3d_eightbytereal(ncid, varid, values, start, count, stride, map)
2465  integer, intent( in) :: ncid, varid
2466  real (kind = EightByteReal), dimension(:, :, :), &
2467  intent(out) :: values
2468  integer, dimension(:), optional, intent( in) :: start, count, stride, map
2470 
2471  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
2472  integer :: numdims, counter
2473 
2474  ! Set local arguments to default values
2475  numdims = size(shape(values))
2476  localstart(: ) = 1
2477  localcount(:numdims ) = shape(values)
2478  localcount(numdims+1:) = 1
2479  localstride(: ) = 1
2480  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2481 
2482  if(present(start)) localstart(:size(start) ) = start(:)
2483  if(present(count)) localcount(:size(count) ) = count(:)
2484  if(present(stride)) localstride(:size(stride)) = stride(:)
2485  if(present(map)) then
2486  localmap(:size(map)) = map(:)
2488  nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
2489  else if(present(stride)) then
2491  nf_get_vars_double(ncid, varid, localstart, localcount, localstride, values)
2492  else
2494  nf_get_vara_double(ncid, varid, localstart, localcount, values)
2495  end if
2496  end function nf90_get_var_3d_eightbytereal
2497 
2498 
2499  function nf90_get_var_4d_eightbytereal(ncid, varid, values, start, count, stride, map)
2500  integer, intent( in) :: ncid, varid
2501  real (kind = EightByteReal), dimension(:, :, :, :), &
2502  intent(out) :: values
2503  integer, dimension(:), optional, intent( in) :: start, count, stride, map
2505 
2506  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
2507  integer :: numdims, counter
2508 
2509  ! Set local arguments to default values
2510  numdims = size(shape(values))
2511  localstart(: ) = 1
2512  localcount(:numdims ) = shape(values)
2513  localcount(numdims+1:) = 1
2514  localstride(: ) = 1
2515  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2516 
2517  if(present(start)) localstart(:size(start) ) = start(:)
2518  if(present(count)) localcount(:size(count) ) = count(:)
2519  if(present(stride)) localstride(:size(stride)) = stride(:)
2520  if(present(map)) then
2521  localmap(:size(map)) = map(:)
2523  nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
2524  else if(present(stride)) then
2526  nf_get_vars_double(ncid, varid, localstart, localcount, localstride, values)
2527  else
2529  nf_get_vara_double(ncid, varid, localstart, localcount, values)
2530  end if
2531  end function nf90_get_var_4d_eightbytereal
2532 
2533 
2534  function nf90_get_var_5d_eightbytereal(ncid, varid, values, start, count, stride, map)
2535  integer, intent( in) :: ncid, varid
2536  real (kind = EightByteReal), dimension(:, :, :, :, :), &
2537  intent(out) :: values
2538  integer, dimension(:), optional, intent( in) :: start, count, stride, map
2540 
2541  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
2542  integer :: numdims, counter
2543 
2544  ! Set local arguments to default values
2545  numdims = size(shape(values))
2546  localstart(: ) = 1
2547  localcount(:numdims ) = shape(values)
2548  localcount(numdims+1:) = 1
2549  localstride(: ) = 1
2550  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2551 
2552  if(present(start)) localstart(:size(start) ) = start(:)
2553  if(present(count)) localcount(:size(count) ) = count(:)
2554  if(present(stride)) localstride(:size(stride)) = stride(:)
2555  if(present(map)) then
2556  localmap(:size(map)) = map(:)
2558  nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
2559  else if(present(stride)) then
2561  nf_get_vars_double(ncid, varid, localstart, localcount, localstride, values)
2562  else
2564  nf_get_vara_double(ncid, varid, localstart, localcount, values)
2565  end if
2566  end function nf90_get_var_5d_eightbytereal
2567 
2568 
2569  function nf90_get_var_6d_eightbytereal(ncid, varid, values, start, count, stride, map)
2570  integer, intent( in) :: ncid, varid
2571  real (kind = EightByteReal), dimension(:, :, :, :, :, :), &
2572  intent(out) :: values
2573  integer, dimension(:), optional, intent( in) :: start, count, stride, map
2575 
2576  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
2577  integer :: numdims, counter
2578 
2579  ! Set local arguments to default values
2580  numdims = size(shape(values))
2581  localstart(: ) = 1
2582  localcount(:numdims ) = shape(values)
2583  localcount(numdims+1:) = 1
2584  localstride(: ) = 1
2585  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2586 
2587  if(present(start)) localstart(:size(start) ) = start(:)
2588  if(present(count)) localcount(:size(count) ) = count(:)
2589  if(present(stride)) localstride(:size(stride)) = stride(:)
2590  if(present(map)) then
2591  localmap(:size(map)) = map(:)
2593  nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
2594  else if(present(stride)) then
2596  nf_get_vars_double(ncid, varid, localstart, localcount, localstride, values)
2597  else
2599  nf_get_vara_double(ncid, varid, localstart, localcount, values)
2600  end if
2601  end function nf90_get_var_6d_eightbytereal
2602 
2603 
2604  function nf90_get_var_7d_eightbytereal(ncid, varid, values, start, count, stride, map)
2605  integer, intent( in) :: ncid, varid
2606  real (kind = EightByteReal), dimension(:, :, :, :, :, :, :), &
2607  intent(out) :: values
2608  integer, dimension(:), optional, intent( in) :: start, count, stride, map
2610 
2611  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
2612  integer :: numdims, counter
2613 
2614  ! Set local arguments to default values
2615  numdims = size(shape(values))
2616  localstart(: ) = 1
2617  localcount(:numdims ) = shape(values)
2618  localcount(numdims+1:) = 1
2619  localstride(: ) = 1
2620  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2621 
2622  if(present(start)) localstart(:size(start) ) = start(:)
2623  if(present(count)) localcount(:size(count) ) = count(:)
2624  if(present(stride)) localstride(:size(stride)) = stride(:)
2625  if(present(map)) then
2626  localmap(:size(map)) = map(:)
2628  nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
2629  else if(present(stride)) then
2631  nf_get_vars_double(ncid, varid, localstart, localcount, localstride, values)
2632  else
2634  nf_get_vara_double(ncid, varid, localstart, localcount, values)
2635  end if
2636  end function nf90_get_var_7d_eightbytereal
2637 
2638 
integer function nf90_put_var_twobyteint(ncid, varid, values, start)
integer function nf90_get_var_5d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_3d_fourbyteint(ncid, varid, values, start, count, stride, map)
function nf_put_vars_double(ncid, varid, start, counts, strides, dvals)
Definition: nf_varsio.F90:431
integer function nf90_get_var_4d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_4d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_3d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_7d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf_get_var1_double(ncid, varid, ndex, dval)
Definition: nf_var1io.F90:685
integer function nf90_get_var_fourbytereal(ncid, varid, values, start)
function nf_get_vars_int1(ncid, varid, start, counts, strides, i1vals)
Definition: nf_varsio.F90:683
integer function nf_put_varm_int2(ncid, varid, start, counts, strides, maps, i2vals)
Definition: nf_varmio.F90:258
integer function nf90_get_var_7d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_6d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_6d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_2d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_3d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_5d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_7d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_6d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_6d_fourbyteint(ncid, varid, values, start, count, stride, map)
function nf_get_vars_real(ncid, varid, start, counts, strides, rvals)
Definition: nf_varsio.F90:903
integer function nf90_get_var_6d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf_get_varm_int1(ncid, varid, start, counts, strides, maps, i1vals)
Definition: nf_varmio.F90:690
integer function nf_put_var1_int2(ncid, varid, ndex, ival)
Definition: nf_var1io.F90:144
integer function nf90_get_var_onebyteint(ncid, varid, values, start)
integer function nf_put_var1_double(ncid, varid, ndex, dval)
Definition: nf_var1io.F90:308
integer function nf_put_vara_int2(ncid, varid, start, counts, i2vals)
Definition: nf_varaio.F90:208
integer function nf90_put_var_2d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf_get_varm_real(ncid, varid, start, counts, strides, maps, rvals)
Definition: nf_varmio.F90:928
function nf_put_vars_int(ncid, varid, start, counts, strides, ivals)
Definition: nf_varsio.F90:297
integer function nf90_put_var_4d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_4d_fourbytereal(ncid, varid, values, start, count, stride, map)
function nf_put_vars_real(ncid, varid, start, counts, strides, rvals)
Definition: nf_varsio.F90:364
integer function nf90_put_var_1d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_3d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf_put_varm_int1(ncid, varid, start, counts, strides, maps, i1vals)
Definition: nf_varmio.F90:174
integer function nf90_put_var_7d_eightbytereal(ncid, varid, values, start, count, stride, map)
function nf_get_vars_double(ncid, varid, start, counts, strides, dvals)
Definition: nf_varsio.F90:970
integer function nf90_get_var_7d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_fourbyteint(ncid, varid, values, start)
integer function nf_put_vara_int(ncid, varid, start, counts, ivals)
Definition: nf_varaio.F90:272
integer function nf90_get_var_5d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf_put_var1_int1(ncid, varid, ndex, ival)
Definition: nf_var1io.F90:82
function nf_put_vars_int2(ncid, varid, start, counts, strides, i2vals)
Definition: nf_varsio.F90:222
integer function nf90_get_var_1d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_7d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_4d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_2d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_onebyteint(ncid, varid, values, start)
integer function nf90_put_var_7d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_6d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_3d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_1d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_1d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_3d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_6d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_1d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_1d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf_put_vara_int1(ncid, varid, start, counts, i1vals)
Definition: nf_varaio.F90:142
integer function nf90_put_var_6d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_2d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_twobyteint(ncid, varid, values, start)
integer function nf_get_var1_int(ncid, varid, ndex, ival)
Definition: nf_var1io.F90:581
function nf_get_vara_double(ncid, varid, start, counts, dvals)
Definition: nf_varaio.F90:848
integer function nf90_put_var_2d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf_put_var1_int(ncid, varid, ndex, ival)
Definition: nf_var1io.F90:204
integer function nf90_put_var_eightbytereal(ncid, varid, values, start)
integer function nf_get_vara_int1(ncid, varid, start, counts, i1vals)
Definition: nf_varaio.F90:604
integer function nf_get_vara_int2(ncid, varid, start, counts, i2vals)
Definition: nf_varaio.F90:670
integer function nf90_put_var_2d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_4d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_5d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_1d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_fourbyteint(ncid, varid, values, start)
integer function nf90_put_var_5d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf_put_var1_real(ncid, varid, ndex, rval)
Definition: nf_var1io.F90:257
integer function nf_get_var1_int2(ncid, varid, ndex, ival)
Definition: nf_var1io.F90:521
integer function nf90_get_var_5d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_1d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_5d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_6d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_4d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_5d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_7d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_7d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_2d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf_get_varm_int(ncid, varid, start, counts, strides, maps, ivals)
Definition: nf_varmio.F90:855
integer function nf90_get_var_eightbytereal(ncid, varid, values, start)
integer function nf90_put_var_1d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_2d_twobyteint(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 nf_put_varm_double(ncid, varid, start, counts, strides, maps, dvals)
Definition: nf_varmio.F90:485
integer function nf_get_var1_int1(ncid, varid, ndex, ival)
Definition: nf_var1io.F90:459
integer function nf_get_var1_real(ncid, varid, ndex, rval)
Definition: nf_var1io.F90:634
integer function nf90_get_var_4d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_3d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_6d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_5d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_1d_eightbytereal(ncid, varid, values, start, count, stride, map)
function nf_put_vara_double(ncid, varid, start, counts, dvals)
Definition: nf_varaio.F90:386
integer function nf90_get_var_7d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf_get_vara_real(ncid, varid, start, counts, rvals)
Definition: nf_varaio.F90:791
integer function nf_put_vara_real(ncid, varid, start, counts, rvals)
Definition: nf_varaio.F90:329
integer function nf90_put_var_4d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf_get_varm_int2(ncid, varid, start, counts, strides, maps, i2vals)
Definition: nf_varmio.F90:774
integer function nf_put_varm_real(ncid, varid, start, counts, strides, maps, rvals)
Definition: nf_varmio.F90:412
integer function nf90_put_var_fourbytereal(ncid, varid, values, start)
integer function nf90_get_var_2d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_3d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_3d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_5d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_3d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_4d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf_get_vara_int(ncid, varid, start, counts, ivals)
Definition: nf_varaio.F90:734
function nf_get_vars_int2(ncid, varid, start, counts, strides, i2vals)
Definition: nf_varsio.F90:761
integer function nf90_get_var_2d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf_put_varm_int(ncid, varid, start, counts, strides, maps, ivals)
Definition: nf_varmio.F90:339
function nf_put_vars_int1(ncid, varid, start, counts, strides, i1vals)
Definition: nf_varsio.F90:144
integer function nf_get_varm_double(ncid, varid, start, counts, strides, maps, dvals)
Definition: nf_varmio.F90:1001

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