NetCDF-Fortran  4.4.3
netcdf_eightbyte.f90
1  function nf90_put_var_1d_eightbyteint(ncid, varid, values, start, count, stride, map)
2  integer, intent( in) :: ncid, varid
3  integer (kind = EightByteInt), dimension(:), &
4  intent( in) :: values
5  integer, dimension(:), optional, intent( in) :: start, count, stride, map
6  integer :: nf90_put_var_1d_eightbyteint
7 
8  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
9  integer :: numdims, counter
10 
11  ! Set local arguments to default values
12  numdims = size(shape(values))
13  localstart(: ) = 1
14  localcount(:numdims ) = shape(values)
15  localcount(numdims+1:) = 1
16  localstride(: ) = 1
17  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
18 
19  if(present(start)) localstart(:size(start) ) = start(:)
20  if(present(count)) localcount(:size(count) ) = count(:)
21  if(present(stride)) localstride(:size(stride)) = stride(:)
22  if(present(map)) then
23  localmap(:size(map)) = map(:)
24  nf90_put_var_1d_eightbyteint = &
25  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
26  else if(present(stride)) then
27  nf90_put_var_1d_eightbyteint = &
28  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
29  else
30  nf90_put_var_1d_eightbyteint = &
31  nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
32  end if
33  end function nf90_put_var_1d_eightbyteint
34 
35 
36  function nf90_put_var_2d_eightbyteint(ncid, varid, values, start, count, stride, map)
37  integer, intent( in) :: ncid, varid
38  integer (kind = EightByteInt), dimension(:, :), &
39  intent( in) :: values
40  integer, dimension(:), optional, intent( in) :: start, count, stride, map
41  integer :: nf90_put_var_2d_eightbyteint
42 
43  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
44  integer :: numdims, counter
45 
46  ! Set local arguments to default values
47  numdims = size(shape(values))
48  localstart(: ) = 1
49  localcount(:numdims ) = shape(values)
50  localcount(numdims+1:) = 1
51  localstride(: ) = 1
52  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
53 
54  if(present(start)) localstart(:size(start) ) = start(:)
55  if(present(count)) localcount(:size(count) ) = count(:)
56  if(present(stride)) localstride(:size(stride)) = stride(:)
57  if(present(map)) then
58  localmap(:size(map)) = map(:)
59  nf90_put_var_2d_eightbyteint = &
60  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
61  else if(present(stride)) then
62  nf90_put_var_2d_eightbyteint = &
63  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
64  else
65  nf90_put_var_2d_eightbyteint = &
66  nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
67  end if
68  end function nf90_put_var_2d_eightbyteint
69 
70 
71  function nf90_put_var_3d_eightbyteint(ncid, varid, values, start, count, stride, map)
72  integer, intent( in) :: ncid, varid
73  integer (kind = EightByteInt), dimension(:, :, :), &
74  intent( in) :: values
75  integer, dimension(:), optional, intent( in) :: start, count, stride, map
76  integer :: nf90_put_var_3d_eightbyteint
77 
78  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
79  integer :: numdims, counter
80 
81  ! Set local arguments to default values
82  numdims = size(shape(values))
83  localstart(: ) = 1
84  localcount(:numdims ) = shape(values)
85  localcount(numdims+1:) = 1
86  localstride(: ) = 1
87  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
88 
89  if(present(start)) localstart(:size(start) ) = start(:)
90  if(present(count)) localcount(:size(count) ) = count(:)
91  if(present(stride)) localstride(:size(stride)) = stride(:)
92  if(present(map)) then
93  localmap(:size(map)) = map(:)
94  nf90_put_var_3d_eightbyteint = &
95  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
96  else if(present(stride)) then
97  nf90_put_var_3d_eightbyteint = &
98  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
99  else
100  nf90_put_var_3d_eightbyteint = &
101  nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
102  end if
103  end function nf90_put_var_3d_eightbyteint
104 
105 
106  function nf90_put_var_4d_eightbyteint(ncid, varid, values, start, count, stride, map)
107  integer, intent( in) :: ncid, varid
108  integer (kind = EightByteInt), dimension(:, :, :, :), &
109  intent( in) :: values
110  integer, dimension(:), optional, intent( in) :: start, count, stride, map
111  integer :: nf90_put_var_4d_eightbyteint
112 
113  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
114  integer :: numdims, counter
115 
116  ! Set local arguments to default values
117  numdims = size(shape(values))
118  localstart(: ) = 1
119  localcount(:numdims ) = shape(values)
120  localcount(numdims+1:) = 1
121  localstride(: ) = 1
122  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
123 
124  if(present(start)) localstart(:size(start) ) = start(:)
125  if(present(count)) localcount(:size(count) ) = count(:)
126  if(present(stride)) localstride(:size(stride)) = stride(:)
127  if(present(map)) then
128  localmap(:size(map)) = map(:)
129  nf90_put_var_4d_eightbyteint = &
130  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
131  else if(present(stride)) then
132  nf90_put_var_4d_eightbyteint = &
133  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
134  else
135  nf90_put_var_4d_eightbyteint = &
136  nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
137  end if
138  end function nf90_put_var_4d_eightbyteint
139 
140 
141  function nf90_put_var_5d_eightbyteint(ncid, varid, values, start, count, stride, map)
142  integer, intent( in) :: ncid, varid
143  integer (kind = EightByteInt), dimension(:, :, :, :, :), &
144  intent( in) :: values
145  integer, dimension(:), optional, intent( in) :: start, count, stride, map
146  integer :: nf90_put_var_5d_eightbyteint
147 
148  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
149  integer :: numdims, counter
150 
151  ! Set local arguments to default values
152  numdims = size(shape(values))
153  localstart(: ) = 1
154  localcount(:numdims ) = shape(values)
155  localcount(numdims+1:) = 1
156  localstride(: ) = 1
157  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
158 
159  if(present(start)) localstart(:size(start) ) = start(:)
160  if(present(count)) localcount(:size(count) ) = count(:)
161  if(present(stride)) localstride(:size(stride)) = stride(:)
162  if(present(map)) then
163  localmap(:size(map)) = map(:)
164  nf90_put_var_5d_eightbyteint = &
165  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
166  else if(present(stride)) then
167  nf90_put_var_5d_eightbyteint = &
168  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
169  else
170  nf90_put_var_5d_eightbyteint = &
171  nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
172  end if
173  end function nf90_put_var_5d_eightbyteint
174 
175 
176  function nf90_put_var_6d_eightbyteint(ncid, varid, values, start, count, stride, map)
177  integer, intent( in) :: ncid, varid
178  integer (kind = EightByteInt), dimension(:, :, :, :, :, :), &
179  intent( in) :: values
180  integer, dimension(:), optional, intent( in) :: start, count, stride, map
181  integer :: nf90_put_var_6d_eightbyteint
182 
183  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
184  integer :: numdims, counter
185 
186  ! Set local arguments to default values
187  numdims = size(shape(values))
188  localstart(: ) = 1
189  localcount(:numdims ) = shape(values)
190  localcount(numdims+1:) = 1
191  localstride(: ) = 1
192  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
193 
194  if(present(start)) localstart(:size(start) ) = start(:)
195  if(present(count)) localcount(:size(count) ) = count(:)
196  if(present(stride)) localstride(:size(stride)) = stride(:)
197  if(present(map)) then
198  localmap(:size(map)) = map(:)
199  nf90_put_var_6d_eightbyteint = &
200  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
201  else if(present(stride)) then
202  nf90_put_var_6d_eightbyteint = &
203  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
204  else
205  nf90_put_var_6d_eightbyteint = &
206  nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
207  end if
208  end function nf90_put_var_6d_eightbyteint
209 
210 
211  function nf90_put_var_7d_eightbyteint(ncid, varid, values, start, count, stride, map)
212  integer, intent( in) :: ncid, varid
213  integer (kind = EightByteInt), dimension(:, :, :, :, :, :, :), &
214  intent( in) :: values
215  integer, dimension(:), optional, intent( in) :: start, count, stride, map
216  integer :: nf90_put_var_7d_eightbyteint
217 
218  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
219  integer :: numdims, counter
220 
221  ! Set local arguments to default values
222  numdims = size(shape(values))
223  localstart(: ) = 1
224  localcount(:numdims ) = shape(values)
225  localcount(numdims+1:) = 1
226  localstride(: ) = 1
227  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
228 
229  if(present(start)) localstart(:size(start) ) = start(:)
230  if(present(count)) localcount(:size(count) ) = count(:)
231  if(present(stride)) localstride(:size(stride)) = stride(:)
232  if(present(map)) then
233  localmap(:size(map)) = map(:)
234  nf90_put_var_7d_eightbyteint = &
235  nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
236  else if(present(stride)) then
237  nf90_put_var_7d_eightbyteint = &
238  nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
239  else
240  nf90_put_var_7d_eightbyteint = &
241  nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
242  end if
243  end function nf90_put_var_7d_eightbyteint
244 
245 
246  function nf90_get_var_1d_eightbyteint(ncid, varid, values, start, count, stride, map)
247  integer, intent( in) :: ncid, varid
248  integer (kind = EightByteInt), dimension(:), &
249  intent(out) :: values
250  integer, dimension(:), optional, intent( in) :: start, count, stride, map
251  integer :: nf90_get_var_1d_eightbyteint
252 
253  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
254  integer :: numdims, counter
255  integer, dimension(size(values)) :: defaultintarray
256 
257  ! Set local arguments to default values
258  numdims = size(shape(values))
259  localstart(: ) = 1
260  localcount(:numdims ) = shape(values)
261  localcount(numdims+1:) = 1
262  localstride(: ) = 1
263  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
264 
265  if(present(start)) localstart(:size(start) ) = start(:)
266  if(present(count)) localcount(:size(count) ) = count(:)
267  if(present(stride)) localstride(:size(stride)) = stride(:)
268  if(present(map)) then
269  localmap(:size(map)) = map(:)
270  nf90_get_var_1d_eightbyteint = &
271  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
272  else if(present(stride)) then
273  nf90_get_var_1d_eightbyteint = &
274  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
275  else
276  nf90_get_var_1d_eightbyteint = &
277  nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
278  end if
279  values(:) = reshape(defaultintarray(:), shape(values))
280  end function nf90_get_var_1d_eightbyteint
281 
282 
283  function nf90_get_var_2d_eightbyteint(ncid, varid, values, start, count, stride, map)
284  integer, intent( in) :: ncid, varid
285  integer (kind = EightByteInt), dimension(:, :), &
286  intent(out) :: values
287  integer, dimension(:), optional, intent( in) :: start, count, stride, map
288  integer :: nf90_get_var_2d_eightbyteint
289 
290  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
291  integer :: numdims, counter
292  integer, dimension(size(values)) :: defaultintarray
293 
294  ! Set local arguments to default values
295  numdims = size(shape(values))
296  localstart(: ) = 1
297  localcount(:numdims ) = shape(values)
298  localcount(numdims+1:) = 1
299  localstride(: ) = 1
300  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
301 
302  if(present(start)) localstart(:size(start) ) = start(:)
303  if(present(count)) localcount(:size(count) ) = count(:)
304  if(present(stride)) localstride(:size(stride)) = stride(:)
305  if(present(map)) then
306  localmap(:size(map)) = map(:)
307  nf90_get_var_2d_eightbyteint = &
308  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
309  else if(present(stride)) then
310  nf90_get_var_2d_eightbyteint = &
311  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
312  else
313  nf90_get_var_2d_eightbyteint = &
314  nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
315  end if
316  values(:, :) = reshape(defaultintarray(:), shape(values))
317  end function nf90_get_var_2d_eightbyteint
318 
319 
320  function nf90_get_var_3d_eightbyteint(ncid, varid, values, start, count, stride, map)
321  integer, intent( in) :: ncid, varid
322  integer (kind = EightByteInt), dimension(:, :, :), &
323  intent(out) :: values
324  integer, dimension(:), optional, intent( in) :: start, count, stride, map
325  integer :: nf90_get_var_3d_eightbyteint
326 
327  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
328  integer :: numdims, counter
329  integer, dimension(size(values)) :: defaultintarray
330 
331  ! Set local arguments to default values
332  numdims = size(shape(values))
333  localstart(: ) = 1
334  localcount(:numdims ) = shape(values)
335  localcount(numdims+1:) = 1
336  localstride(: ) = 1
337  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
338 
339  if(present(start)) localstart(:size(start) ) = start(:)
340  if(present(count)) localcount(:size(count) ) = count(:)
341  if(present(stride)) localstride(:size(stride)) = stride(:)
342  if(present(map)) then
343  localmap(:size(map)) = map(:)
344  nf90_get_var_3d_eightbyteint = &
345  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
346  else if(present(stride)) then
347  nf90_get_var_3d_eightbyteint = &
348  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
349  else
350  nf90_get_var_3d_eightbyteint = &
351  nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
352  end if
353  values(:, :, :) = reshape(defaultintarray(:), shape(values))
354  end function nf90_get_var_3d_eightbyteint
355 
356 
357  function nf90_get_var_4d_eightbyteint(ncid, varid, values, start, count, stride, map)
358  integer, intent( in) :: ncid, varid
359  integer (kind = EightByteInt), dimension(:, :, :, :), &
360  intent(out) :: values
361  integer, dimension(:), optional, intent( in) :: start, count, stride, map
362  integer :: nf90_get_var_4d_eightbyteint
363 
364  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
365  integer :: numdims, counter
366  integer, dimension(size(values)) :: defaultintarray
367 
368  ! Set local arguments to default values
369  numdims = size(shape(values))
370  localstart(: ) = 1
371  localcount(:numdims ) = shape(values)
372  localcount(numdims+1:) = 1
373  localstride(: ) = 1
374  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
375 
376  if(present(start)) localstart(:size(start) ) = start(:)
377  if(present(count)) localcount(:size(count) ) = count(:)
378  if(present(stride)) localstride(:size(stride)) = stride(:)
379  if(present(map)) then
380  localmap(:size(map)) = map(:)
381  nf90_get_var_4d_eightbyteint = &
382  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
383  else if(present(stride)) then
384  nf90_get_var_4d_eightbyteint = &
385  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
386  else
387  nf90_get_var_4d_eightbyteint = &
388  nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
389  end if
390  values(:, :, :, :) = reshape(defaultintarray(:), shape(values))
391  end function nf90_get_var_4d_eightbyteint
392 
393 
394  function nf90_get_var_5d_eightbyteint(ncid, varid, values, start, count, stride, map)
395  integer, intent( in) :: ncid, varid
396  integer (kind = EightByteInt), dimension(:, :, :, :, :), &
397  intent(out) :: values
398  integer, dimension(:), optional, intent( in) :: start, count, stride, map
399  integer :: nf90_get_var_5d_eightbyteint
400 
401  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
402  integer :: numdims, counter
403  integer, dimension(size(values)) :: defaultintarray
404 
405  ! Set local arguments to default values
406  numdims = size(shape(values))
407  localstart(: ) = 1
408  localcount(:numdims ) = shape(values)
409  localcount(numdims+1:) = 1
410  localstride(: ) = 1
411  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
412 
413  if(present(start)) localstart(:size(start) ) = start(:)
414  if(present(count)) localcount(:size(count) ) = count(:)
415  if(present(stride)) localstride(:size(stride)) = stride(:)
416  if(present(map)) then
417  localmap(:size(map)) = map(:)
418  nf90_get_var_5d_eightbyteint = &
419  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
420  else if(present(stride)) then
421  nf90_get_var_5d_eightbyteint = &
422  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
423  else
424  nf90_get_var_5d_eightbyteint = &
425  nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
426  end if
427  values(:, :, :, :, :) = reshape(defaultintarray(:), shape(values))
428  end function nf90_get_var_5d_eightbyteint
429 
430 
431  function nf90_get_var_6d_eightbyteint(ncid, varid, values, start, count, stride, map)
432  integer, intent( in) :: ncid, varid
433  integer (kind = EightByteInt), dimension(:, :, :, :, :, :), &
434  intent(out) :: values
435  integer, dimension(:), optional, intent( in) :: start, count, stride, map
436  integer :: nf90_get_var_6d_eightbyteint
437 
438  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
439  integer :: numdims, counter
440  integer, dimension(size(values)) :: defaultintarray
441 
442  ! Set local arguments to default values
443  numdims = size(shape(values))
444  localstart(: ) = 1
445  localcount(:numdims ) = shape(values)
446  localcount(numdims+1:) = 1
447  localstride(: ) = 1
448  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
449 
450  if(present(start)) localstart(:size(start) ) = start(:)
451  if(present(count)) localcount(:size(count) ) = count(:)
452  if(present(stride)) localstride(:size(stride)) = stride(:)
453  if(present(map)) then
454  localmap(:size(map)) = map(:)
455  nf90_get_var_6d_eightbyteint = &
456  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
457  else if(present(stride)) then
458  nf90_get_var_6d_eightbyteint = &
459  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
460  else
461  nf90_get_var_6d_eightbyteint = &
462  nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
463  end if
464  values(:, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
465  end function nf90_get_var_6d_eightbyteint
466 
467 
468  function nf90_get_var_7d_eightbyteint(ncid, varid, values, start, count, stride, map)
469  integer, intent( in) :: ncid, varid
470  integer (kind = EightByteInt), dimension(:, :, :, :, :, :, :), &
471  intent(out) :: values
472  integer, dimension(:), optional, intent( in) :: start, count, stride, map
473  integer :: nf90_get_var_7d_eightbyteint
474 
475  integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
476  integer :: numdims, counter
477  integer, dimension(size(values)) :: defaultintarray
478 
479  ! Set local arguments to default values
480  numdims = size(shape(values))
481  localstart(: ) = 1
482  localcount(:numdims ) = shape(values)
483  localcount(numdims+1:) = 1
484  localstride(: ) = 1
485  localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
486 
487  if(present(start)) localstart(:size(start) ) = start(:)
488  if(present(count)) localcount(:size(count) ) = count(:)
489  if(present(stride)) localstride(:size(stride)) = stride(:)
490  if(present(map)) then
491  localmap(:size(map)) = map(:)
492  nf90_get_var_7d_eightbyteint = &
493  nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
494  else if(present(stride)) then
495  nf90_get_var_7d_eightbyteint = &
496  nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
497  else
498  nf90_get_var_7d_eightbyteint = &
499  nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
500  end if
501  values(:, :, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
502  end function nf90_get_var_7d_eightbyteint
503 
504 
505  function nf90_put_var_eightbyteint(ncid, varid, values, start)
506  integer, intent( in) :: ncid, varid
507  integer (kind = EightByteInt), intent( in) :: values
508  integer, dimension(:), optional, intent( in) :: start
509  integer :: nf90_put_var_eightbyteint
510 
511  integer, dimension(nf90_max_var_dims) :: localindex
512  integer :: counter
513 
514  ! Set local arguments to default values
515  localindex(:) = 1
516  if(present(start)) localindex(:size(start)) = start(:)
517 
518  nf90_put_var_eightbyteint = nf_put_var1_int(ncid, varid, localindex, int(values))
519  end function nf90_put_var_eightbyteint
520 
521 
522  function nf90_get_var_eightbyteint(ncid, varid, values, start)
523  integer, intent( in) :: ncid, varid
524  integer (kind = EightByteInt), intent(out) :: values
525  integer, dimension(:), optional, intent( in) :: start
526  integer :: nf90_get_var_eightbyteint
527 
528  integer, dimension(nf90_max_var_dims) :: localindex
529  integer :: counter
530  integer :: defaultinteger
531 
532  ! Set local arguments to default values
533  localindex(:) = 1
534  if(present(start)) localindex(:size(start)) = start(:)
535 
536  nf90_get_var_eightbyteint = nf_get_var1_int(ncid, varid, localindex, defaultinteger)
537  values = defaultinteger
538  end function nf90_get_var_eightbyteint
539 
540 

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