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

Return to the Main Unidata NetCDF page.
Generated on Tue Mar 1 2016 12:16:22 for NetCDF-Fortran. NetCDF is a Unidata library.