5 function nf90_copy_att(ncid_in, varid_in, name, ncid_out, varid_out)
6 integer,
intent( in) :: ncid_in, varid_in
7 character (len = *),
intent( in) :: name
8 integer,
intent( in) :: ncid_out, varid_out
9 integer :: nf90_copy_att
11 nf90_copy_att =
nf_copy_att(ncid_in, varid_in, name, ncid_out, varid_out)
15 integer,
intent( in) :: ncid, varid
16 character (len = *),
intent( in) :: curname, newname
17 integer :: nf90_rename_att
19 nf90_rename_att =
nf_rename_att(ncid, varid, curname, newname)
23 integer,
intent( in) :: ncid, varid
24 character (len = *),
intent( in) :: name
25 integer :: nf90_del_att
33 integer,
intent( in) :: ncid, varid, attnum
34 character (len = *),
intent(out) :: name
35 integer :: nf90_inq_attname
41 integer,
intent( in) :: ncid, varid
42 character (len = *),
intent( in) :: name
43 integer,
intent(out),
optional :: xtype, len, attnum
44 integer :: nf90_inquire_attribute
46 integer :: local_xtype, local_len
50 nf90_inquire_attribute =
nf_inq_attid(ncid, varid, name, attnum)
51 nf90_inquire_attribute =
nf_inq_att(ncid, varid, name, local_xtype, local_len)
52 if(
present(xtype)) xtype = local_xtype
53 if(
present(len )) len = local_len
61 integer,
intent( in) :: ncid, varid
62 character(len = *),
intent( in) :: name
63 character(len = *),
intent( in) :: values
64 integer :: nf90_put_att_text
66 nf90_put_att_text =
nf_put_att_text(ncid, varid, name, len_trim(values), trim(values))
70 integer,
intent( in) :: ncid, varid
71 character(len = *),
intent( in) :: name
72 character(len = *),
intent(out) :: values
73 integer :: nf90_get_att_text
82 integer,
intent( in) :: ncid, varid
83 character(len = *),
intent( in) :: name
84 integer (kind = OneByteInt),
dimension(:),
intent( in) :: values
85 integer :: nf90_put_att_OneByteInt
87 nf90_put_att_onebyteint =
nf_put_att_int1(ncid, varid, name, nf90_int1,
size(values), values)
91 integer,
intent( in) :: ncid, varid
92 character(len = *),
intent( in) :: name
93 integer (kind = OneByteInt),
intent( in) :: values
94 integer :: nf90_put_att_one_OneByteInt
96 integer (kind = OneByteInt),
dimension(1) :: valuesA
98 nf90_put_att_one_onebyteint =
nf_put_att_int1(ncid, varid, name, nf90_int1, 1, valuesa)
102 integer,
intent( in) :: ncid, varid
103 character(len = *),
intent( in) :: name
104 integer (kind = OneByteInt),
dimension(:),
intent(out) :: values
105 integer :: nf90_get_att_OneByteInt
111 integer,
intent( in) :: ncid, varid
112 character(len = *),
intent( in) :: name
113 integer (kind = OneByteInt),
intent(out) :: values
114 integer :: nf90_get_att_one_OneByteInt
116 integer (kind = OneByteInt),
dimension(1) :: valuesA
117 nf90_get_att_one_onebyteint =
nf_get_att_int1(ncid, varid, name, valuesa)
122 integer,
intent( in) :: ncid, varid
123 character(len = *),
intent( in) :: name
124 integer (kind = TwoByteInt),
dimension(:),
intent( in) :: values
125 integer :: nf90_put_att_TwoByteInt
127 nf90_put_att_twobyteint =
nf_put_att_int2(ncid, varid, name, nf90_int2,
size(values), values)
131 integer,
intent( in) :: ncid, varid
132 character(len = *),
intent( in) :: name
133 integer (kind = TwoByteInt),
intent( in) :: values
134 integer :: nf90_put_att_one_TwoByteInt
136 integer (kind = TwoByteInt),
dimension(1) :: valuesA
138 nf90_put_att_one_twobyteint =
nf_put_att_int2(ncid, varid, name, nf90_int2, 1, valuesa)
142 integer,
intent( in) :: ncid, varid
143 character(len = *),
intent( in) :: name
144 integer (kind = TwoByteInt),
dimension(:),
intent(out) :: values
145 integer :: nf90_get_att_TwoByteInt
151 integer,
intent( in) :: ncid, varid
152 character(len = *),
intent( in) :: name
153 integer (kind = TwoByteInt),
intent(out) :: values
154 integer :: nf90_get_att_one_TwoByteInt
156 integer (kind = TwoByteInt),
dimension(1) :: valuesA
157 nf90_get_att_one_twobyteint =
nf_get_att_int2(ncid, varid, name, valuesa)
162 integer,
intent( in) :: ncid, varid
163 character(len = *),
intent( in) :: name
164 integer (kind = FourByteInt),
dimension(:),
intent( in) :: values
165 integer :: nf90_put_att_FourByteInt
167 nf90_put_att_fourbyteint =
nf_put_att_int(ncid, varid, name, nf90_int,
size(values), int(values))
171 integer,
intent( in) :: ncid, varid
172 character(len = *),
intent( in) :: name
173 integer (kind = FourByteInt),
intent( in) :: values
174 integer :: nf90_put_att_one_FourByteInt
176 integer (kind = FourByteInt),
dimension(1) :: valuesA
177 valuesa(1) = int(values)
178 nf90_put_att_one_fourbyteint =
nf_put_att_int(ncid, varid, name, nf90_int, 1, int(valuesa))
182 integer,
intent( in) :: ncid, varid
183 character(len = *),
intent( in) :: name
184 integer (kind = FourByteInt),
dimension(:),
intent(out) :: values
185 integer :: nf90_get_att_FourByteInt
187 integer,
dimension(size(values)) :: defaultInteger
189 nf90_get_att_fourbyteint =
nf_get_att_int(ncid, varid, name, defaultinteger)
190 values(:) = defaultinteger(:)
194 integer,
intent( in) :: ncid, varid
195 character(len = *),
intent( in) :: name
196 integer (kind = FourByteInt),
intent(out) :: values
197 integer :: nf90_get_att_one_FourByteInt
199 integer,
dimension(1) :: defaultInteger
201 nf90_get_att_one_fourbyteint =
nf_get_att_int(ncid, varid, name, defaultinteger)
202 values = defaultinteger(1)
206 integer,
intent( in) :: ncid, varid
207 character(len = *),
intent( in) :: name
208 integer (kind = EightByteInt),
dimension(:),
intent( in) :: values
209 integer :: nf90_put_att_EightByteInt
211 nf90_put_att_eightbyteint =
nf_put_att_int(ncid, varid, name, nf90_int,
size(values), int(values))
215 integer,
intent( in) :: ncid, varid
216 character(len = *),
intent( in) :: name
217 integer (kind = EightByteInt),
intent( in) :: values
218 integer :: nf90_put_att_one_EightByteInt
220 integer,
dimension(1) :: valuesA
222 nf90_put_att_one_eightbyteint =
nf_put_att_int(ncid, varid, name, nf90_int, 1, valuesa)
226 integer,
intent( in) :: ncid, varid
227 character(len = *),
intent( in) :: name
228 integer (kind = EightByteInt),
dimension(:),
intent(out) :: values
229 integer :: nf90_get_att_EightByteInt
231 integer,
dimension(size(values)) :: defaultInteger
233 nf90_get_att_eightbyteint =
nf_get_att_int(ncid, varid, name, defaultinteger)
234 values(:) = defaultinteger(:)
238 integer,
intent( in) :: ncid, varid
239 character(len = *),
intent( in) :: name
240 integer (kind = EightByteInt),
intent(out) :: values
241 integer :: nf90_get_att_one_EightByteInt
243 integer,
dimension(1) :: defaultInteger
245 nf90_get_att_one_eightbyteint =
nf_get_att_int(ncid, varid, name, defaultinteger)
246 values = defaultinteger(1)
252 integer,
intent( in) :: ncid, varid
253 character(len = *),
intent( in) :: name
254 real (kind = FourByteReal),
dimension(:),
intent( in) :: values
255 integer :: nf90_put_att_FourByteReal
257 nf90_put_att_fourbytereal =
nf_put_att_real(ncid, varid, name, nf90_real4,
size(values), values)
261 integer,
intent( in) :: ncid, varid
262 character(len = *),
intent( in) :: name
263 real (kind = FourByteReal),
intent( in) :: values
264 integer :: nf90_put_att_one_FourByteReal
266 real (kind = FourByteReal),
dimension(1) :: valuesA
268 nf90_put_att_one_fourbytereal =
nf_put_att_real(ncid, varid, name, nf90_real4, 1, valuesa)
272 integer,
intent( in) :: ncid, varid
273 character(len = *),
intent( in) :: name
274 real (kind = FourByteReal),
dimension(:),
intent(out) :: values
275 integer :: nf90_get_att_FourByteReal
281 integer,
intent( in) :: ncid, varid
282 character(len = *),
intent( in) :: name
283 real (kind = FourByteReal),
intent(out) :: values
284 integer :: nf90_get_att_one_FourByteReal
286 real (kind = FourByteReal),
dimension(1) :: valuesA
287 nf90_get_att_one_fourbytereal =
nf_get_att_real(ncid, varid, name, valuesa)
292 integer,
intent( in) :: ncid, varid
293 character(len = *),
intent( in) :: name
294 real (kind = EightByteReal),
dimension(:),
intent( in) :: values
295 integer :: nf90_put_att_EightByteReal
297 nf90_put_att_eightbytereal =
nf_put_att_double(ncid, varid, name, nf90_real8,
size(values), values)
301 integer,
intent( in) :: ncid, varid
302 character(len = *),
intent( in) :: name
303 real (kind = EightByteReal),
intent( in) :: values
304 integer :: nf90_put_att_one_EightByteReal
306 real (kind = EightByteReal),
dimension(1) :: valuesA
308 nf90_put_att_one_eightbytereal =
nf_put_att_double(ncid, varid, name, nf90_real8, 1, valuesa)
312 integer,
intent( in) :: ncid, varid
313 character(len = *),
intent( in) :: name
314 real (kind = EightByteReal),
dimension(:),
intent(out) :: values
315 integer :: nf90_get_att_EightByteReal
321 integer,
intent( in) :: ncid, varid
322 character(len = *),
intent( in) :: name
323 real (kind = EightByteReal),
intent(out) :: values
324 integer :: nf90_get_att_one_EightByteReal
326 real (kind = EightByteReal),
dimension(1) :: valuesA
integer function nf_del_att(ncid, varid, name)
function nf_put_att_double(ncid, varid, name, xtype, nlen, dvals)
function nf_put_att_real(ncid, varid, name, xtype, nlen, rvals)
integer function nf90_rename_att(ncid, varid, curname, newname)
integer function nf90_put_att_one_fourbytereal(ncid, varid, name, values)
integer function nf_get_att_real(ncid, varid, name, rvals)
integer function nf90_put_att_one_eightbytereal(ncid, varid, name, values)
integer function nf90_put_att_one_fourbyteint(ncid, varid, name, values)
integer function nf_get_att_double(ncid, varid, name, dvals)
integer function nf_inq_attname(ncid, varid, attnum, name)
integer function nf90_put_att_fourbyteint(ncid, varid, name, values)
integer function nf_inq_attid(ncid, varid, name, attnum)
integer function nf90_get_att_one_eightbyteint(ncid, varid, name, values)
integer function nf90_copy_att(ncid_in, varid_in, name, ncid_out, varid_out)
integer function nf_rename_att(ncid, varid, name, newname)
integer function nf_get_att_int(ncid, varid, name, ivals)
integer function nf_get_att_text(ncid, varid, name, text)
integer function nf_get_att_int1(ncid, varid, name, i1vals)
function nf_put_att_int2(ncid, varid, name, xtype, nlen, i2vals)
integer function nf90_inquire_attribute(ncid, varid, name, xtype, len, attnum)
integer function nf_get_att_int2(ncid, varid, name, i2vals)
integer function nf_copy_att(ncid_in, varid_in, name, ncid_out, varid_out)
integer function nf90_put_att_eightbytereal(ncid, varid, name, values)
integer function nf90_get_att_one_fourbytereal(ncid, varid, name, values)
integer function nf_inq_att(ncid, varid, name, xtype, nlen)
integer function nf90_get_att_eightbyteint(ncid, varid, name, values)
integer function nf90_inq_attname(ncid, varid, attnum, name)
integer function nf90_put_att_fourbytereal(ncid, varid, name, values)
integer function nf90_get_att_fourbyteint(ncid, varid, name, values)
integer function nf90_get_att_one_twobyteint(ncid, varid, name, values)
integer function nf90_put_att_twobyteint(ncid, varid, name, values)
integer function nf90_get_att_one_eightbytereal(ncid, varid, name, values)
integer function nf90_put_att_one_twobyteint(ncid, varid, name, values)
integer function nf90_put_att_text(ncid, varid, name, values)
integer function nf90_put_att_one_onebyteint(ncid, varid, name, values)
integer function nf90_get_att_one_onebyteint(ncid, varid, name, values)
integer function nf90_put_att_onebyteint(ncid, varid, name, values)
integer function nf90_put_att_eightbyteint(ncid, varid, name, values)
integer function nf90_get_att_one_fourbyteint(ncid, varid, name, values)
integer function nf90_get_att_twobyteint(ncid, varid, name, values)
integer function nf90_get_att_onebyteint(ncid, varid, name, values)
integer function nf90_get_att_eightbytereal(ncid, varid, name, values)
integer function nf90_put_att_one_eightbyteint(ncid, varid, name, values)
integer function nf90_del_att(ncid, varid, name)
function nf_put_att_int(ncid, varid, name, xtype, nlen, ivals)
integer function nf90_get_att_text(ncid, varid, name, values)
function nf_put_att_int1(ncid, varid, name, xtype, nlen, i1vals)
integer function nf90_get_att_fourbytereal(ncid, varid, name, values)
integer function nf_put_att_text(ncid, varid, name, nlen, text)