netcdf_expanded.f90
function nf90_put_var_onebyteint(ncid, varid, values, start)
integer, intent( in) :: ncid, varid
integer (kind = OneByteInt), intent( in) :: values
integer, dimension(:), optional, intent( in) :: start
integer :: nf90_put_var_onebyteint
integer, dimension(nf90_max_var_dims) :: localindex
integer :: counter
! Set local arguments to default values
localindex(:) = 1
if(present(start)) localindex(:size(start)) = start(:)
nf90_put_var_onebyteint = nf_put_var1_int1(ncid, varid, localindex, values)
end function nf90_put_var_onebyteint
function nf90_put_var_twobyteint(ncid, varid, values, start)
integer, intent( in) :: ncid, varid
integer (kind = TwoByteInt), intent( in) :: values
integer, dimension(:), optional, intent( in) :: start
integer :: nf90_put_var_twobyteint
integer, dimension(nf90_max_var_dims) :: localindex
integer :: counter
! Set local arguments to default values
localindex(:) = 1
if(present(start)) localindex(:size(start)) = start(:)
nf90_put_var_twobyteint = nf_put_var1_int2(ncid, varid, localindex, values)
end function nf90_put_var_twobyteint
function nf90_put_var_fourbyteint(ncid, varid, values, start)
integer, intent( in) :: ncid, varid
integer (kind = FourByteInt), intent( in) :: values
integer, dimension(:), optional, intent( in) :: start
integer :: nf90_put_var_fourbyteint
integer, dimension(nf90_max_var_dims) :: localindex
integer :: counter
! Set local arguments to default values
localindex(:) = 1
if(present(start)) localindex(:size(start)) = start(:)
nf90_put_var_fourbyteint = nf_put_var1_int(ncid, varid, localindex, int(values))
end function nf90_put_var_fourbyteint
function nf90_put_var_fourbytereal(ncid, varid, values, start)
integer, intent( in) :: ncid, varid
real (kind = FourByteReal), intent( in) :: values
integer, dimension(:), optional, intent( in) :: start
integer :: nf90_put_var_fourbytereal
integer, dimension(nf90_max_var_dims) :: localindex
integer :: counter
! Set local arguments to default values
localindex(:) = 1
if(present(start)) localindex(:size(start)) = start(:)
nf90_put_var_fourbytereal = nf_put_var1_real(ncid, varid, localindex, values)
end function nf90_put_var_fourbytereal
function nf90_put_var_eightbytereal(ncid, varid, values, start)
integer, intent( in) :: ncid, varid
real (kind = EightByteReal), intent( in) :: values
integer, dimension(:), optional, intent( in) :: start
integer :: nf90_put_var_eightbytereal
integer, dimension(nf90_max_var_dims) :: localindex
integer :: counter
! Set local arguments to default values
localindex(:) = 1
if(present(start)) localindex(:size(start)) = start(:)
nf90_put_var_eightbytereal = nf_put_var1_double(ncid, varid, localindex, values)
end function nf90_put_var_eightbytereal
function nf90_get_var_onebyteint(ncid, varid, values, start)
integer, intent( in) :: ncid, varid
integer (kind = OneByteInt), intent(out) :: values
integer, dimension(:), optional, intent( in) :: start
integer :: nf90_get_var_onebyteint
integer, dimension(nf90_max_var_dims) :: localindex
integer :: counter
! Set local arguments to default values
localindex(:) = 1
if(present(start)) localindex(:size(start)) = start(:)
nf90_get_var_onebyteint = nf_get_var1_int1(ncid, varid, localindex, values)
end function nf90_get_var_onebyteint
function nf90_get_var_twobyteint(ncid, varid, values, start)
integer, intent( in) :: ncid, varid
integer (kind = TwoByteInt), intent(out) :: values
integer, dimension(:), optional, intent( in) :: start
integer :: nf90_get_var_twobyteint
integer, dimension(nf90_max_var_dims) :: localindex
integer :: counter
! Set local arguments to default values
localindex(:) = 1
if(present(start)) localindex(:size(start)) = start(:)
nf90_get_var_twobyteint = nf_get_var1_int2(ncid, varid, localindex, values)
end function nf90_get_var_twobyteint
function nf90_get_var_fourbyteint(ncid, varid, values, start)
integer, intent( in) :: ncid, varid
integer (kind = FourByteInt), intent(out) :: values
integer, dimension(:), optional, intent( in) :: start
integer :: nf90_get_var_fourbyteint
integer, dimension(nf90_max_var_dims) :: localindex
integer :: counter
integer :: defaultinteger
! Set local arguments to default values
localindex(:) = 1
if(present(start)) localindex(:size(start)) = start(:)
nf90_get_var_fourbyteint = nf_get_var1_int(ncid, varid, localindex, defaultinteger)
values = defaultinteger
end function nf90_get_var_fourbyteint
function nf90_get_var_fourbytereal(ncid, varid, values, start)
integer, intent( in) :: ncid, varid
real (kind = FourByteReal), intent(out) :: values
integer, dimension(:), optional, intent( in) :: start
integer :: nf90_get_var_fourbytereal
integer, dimension(nf90_max_var_dims) :: localindex
integer :: counter
! Set local arguments to default values
localindex(:) = 1
if(present(start)) localindex(:size(start)) = start(:)
nf90_get_var_fourbytereal = nf_get_var1_real(ncid, varid, localindex, values)
end function nf90_get_var_fourbytereal
function nf90_get_var_eightbytereal(ncid, varid, values, start)
integer, intent( in) :: ncid, varid
real (kind = EightByteReal), intent(out) :: values
integer, dimension(:), optional, intent( in) :: start
integer :: nf90_get_var_eightbytereal
integer, dimension(nf90_max_var_dims) :: localindex
integer :: counter
! Set local arguments to default values
localindex(:) = 1
if(present(start)) localindex(:size(start)) = start(:)
nf90_get_var_eightbytereal = nf_get_var1_double(ncid, varid, localindex, values)
end function nf90_get_var_eightbytereal
function nf90_put_var_1d_onebyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = OneByteInt), dimension(:), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_1d_onebyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_1d_onebyteint = &
nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_1d_onebyteint = &
nf_put_vars_int1(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_1d_onebyteint = &
nf_put_vara_int1(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_1d_onebyteint
function nf90_put_var_2d_onebyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = OneByteInt), dimension(:, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_2d_onebyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_2d_onebyteint = &
nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_2d_onebyteint = &
nf_put_vars_int1(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_2d_onebyteint = &
nf_put_vara_int1(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_2d_onebyteint
function nf90_put_var_3d_onebyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = OneByteInt), dimension(:, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_3d_onebyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_3d_onebyteint = &
nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_3d_onebyteint = &
nf_put_vars_int1(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_3d_onebyteint = &
nf_put_vara_int1(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_3d_onebyteint
function nf90_put_var_4d_onebyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = OneByteInt), dimension(:, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_4d_onebyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_4d_onebyteint = &
nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_4d_onebyteint = &
nf_put_vars_int1(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_4d_onebyteint = &
nf_put_vara_int1(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_4d_onebyteint
function nf90_put_var_5d_onebyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = OneByteInt), dimension(:, :, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_5d_onebyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_5d_onebyteint = &
nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_5d_onebyteint = &
nf_put_vars_int1(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_5d_onebyteint = &
nf_put_vara_int1(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_5d_onebyteint
function nf90_put_var_6d_onebyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = OneByteInt), dimension(:, :, :, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_6d_onebyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_6d_onebyteint = &
nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_6d_onebyteint = &
nf_put_vars_int1(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_6d_onebyteint = &
nf_put_vara_int1(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_6d_onebyteint
function nf90_put_var_7d_onebyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = OneByteInt), dimension(:, :, :, :, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_7d_onebyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_7d_onebyteint = &
nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_7d_onebyteint = &
nf_put_vars_int1(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_7d_onebyteint = &
nf_put_vara_int1(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_7d_onebyteint
function nf90_put_var_1d_twobyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = TwoByteInt), dimension(:), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_1d_twobyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_1d_twobyteint = &
nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_1d_twobyteint = &
nf_put_vars_int2(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_1d_twobyteint = &
nf_put_vara_int2(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_1d_twobyteint
function nf90_put_var_2d_twobyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = TwoByteInt), dimension(:, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_2d_twobyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_2d_twobyteint = &
nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_2d_twobyteint = &
nf_put_vars_int2(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_2d_twobyteint = &
nf_put_vara_int2(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_2d_twobyteint
function nf90_put_var_3d_twobyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = TwoByteInt), dimension(:, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_3d_twobyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_3d_twobyteint = &
nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_3d_twobyteint = &
nf_put_vars_int2(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_3d_twobyteint = &
nf_put_vara_int2(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_3d_twobyteint
function nf90_put_var_4d_twobyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = TwoByteInt), dimension(:, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_4d_twobyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_4d_twobyteint = &
nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_4d_twobyteint = &
nf_put_vars_int2(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_4d_twobyteint = &
nf_put_vara_int2(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_4d_twobyteint
function nf90_put_var_5d_twobyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = TwoByteInt), dimension(:, :, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_5d_twobyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_5d_twobyteint = &
nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_5d_twobyteint = &
nf_put_vars_int2(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_5d_twobyteint = &
nf_put_vara_int2(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_5d_twobyteint
function nf90_put_var_6d_twobyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = TwoByteInt), dimension(:, :, :, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_6d_twobyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_6d_twobyteint = &
nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_6d_twobyteint = &
nf_put_vars_int2(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_6d_twobyteint = &
nf_put_vara_int2(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_6d_twobyteint
function nf90_put_var_7d_twobyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = TwoByteInt), dimension(:, :, :, :, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_7d_twobyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_7d_twobyteint = &
nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_7d_twobyteint = &
nf_put_vars_int2(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_7d_twobyteint = &
nf_put_vara_int2(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_7d_twobyteint
function nf90_put_var_1d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = FourByteInt), dimension(:), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_1d_fourbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_1d_fourbyteint = &
nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
else if(present(stride)) then
nf90_put_var_1d_fourbyteint = &
nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
else
nf90_put_var_1d_fourbyteint = &
nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
end if
end function nf90_put_var_1d_fourbyteint
function nf90_put_var_2d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = FourByteInt), dimension(:, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_2d_fourbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_2d_fourbyteint = &
nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
else if(present(stride)) then
nf90_put_var_2d_fourbyteint = &
nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
else
nf90_put_var_2d_fourbyteint = &
nf_put_vara_int(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_2d_fourbyteint
function nf90_put_var_3d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = FourByteInt), dimension(:, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_3d_fourbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_3d_fourbyteint = &
nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
else if(present(stride)) then
nf90_put_var_3d_fourbyteint = &
nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
else
nf90_put_var_3d_fourbyteint = &
nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
end if
end function nf90_put_var_3d_fourbyteint
function nf90_put_var_4d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = FourByteInt), dimension(:, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_4d_fourbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_4d_fourbyteint = &
nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
else if(present(stride)) then
nf90_put_var_4d_fourbyteint = &
nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
else
nf90_put_var_4d_fourbyteint = &
nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
end if
end function nf90_put_var_4d_fourbyteint
function nf90_put_var_5d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = FourByteInt), dimension(:, :, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_5d_fourbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_5d_fourbyteint = &
nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
else if(present(stride)) then
nf90_put_var_5d_fourbyteint = &
nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
else
nf90_put_var_5d_fourbyteint = &
nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
end if
end function nf90_put_var_5d_fourbyteint
function nf90_put_var_6d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = FourByteInt), dimension(:, :, :, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_6d_fourbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_6d_fourbyteint = &
nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
else if(present(stride)) then
nf90_put_var_6d_fourbyteint = &
nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
else
nf90_put_var_6d_fourbyteint = &
nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
end if
end function nf90_put_var_6d_fourbyteint
function nf90_put_var_7d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = FourByteInt), dimension(:, :, :, :, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_7d_fourbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_7d_fourbyteint = &
nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
else if(present(stride)) then
nf90_put_var_7d_fourbyteint = &
nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
else
nf90_put_var_7d_fourbyteint = &
nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
end if
end function nf90_put_var_7d_fourbyteint
function nf90_put_var_1d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = FourByteReal), dimension(:), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_1d_fourbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_1d_fourbytereal = &
nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_1d_fourbytereal = &
nf_put_vars_real(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_1d_fourbytereal = &
nf_put_vara_real(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_1d_fourbytereal
function nf90_put_var_2d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = FourByteReal), dimension(:, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_2d_fourbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_2d_fourbytereal = &
nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_2d_fourbytereal = &
nf_put_vars_real(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_2d_fourbytereal = &
nf_put_vara_real(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_2d_fourbytereal
function nf90_put_var_3d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = FourByteReal), dimension(:, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_3d_fourbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_3d_fourbytereal = &
nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_3d_fourbytereal = &
nf_put_vars_real(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_3d_fourbytereal = &
nf_put_vara_real(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_3d_fourbytereal
function nf90_put_var_4d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = FourByteReal), dimension(:, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_4d_fourbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_4d_fourbytereal = &
nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_4d_fourbytereal = &
nf_put_vars_real(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_4d_fourbytereal = &
nf_put_vara_real(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_4d_fourbytereal
function nf90_put_var_5d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = FourByteReal), dimension(:, :, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_5d_fourbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_5d_fourbytereal = &
nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_5d_fourbytereal = &
nf_put_vars_real(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_5d_fourbytereal = &
nf_put_vara_real(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_5d_fourbytereal
function nf90_put_var_6d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = FourByteReal), dimension(:, :, :, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_6d_fourbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_6d_fourbytereal = &
nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_6d_fourbytereal = &
nf_put_vars_real(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_6d_fourbytereal = &
nf_put_vara_real(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_6d_fourbytereal
function nf90_put_var_7d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = FourByteReal), dimension(:, :, :, :, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_7d_fourbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_7d_fourbytereal = &
nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_7d_fourbytereal = &
nf_put_vars_real(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_7d_fourbytereal = &
nf_put_vara_real(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_7d_fourbytereal
function nf90_put_var_1d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = EightByteReal), dimension(:), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_1d_eightbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_1d_eightbytereal = &
nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_1d_eightbytereal = &
nf_put_vars_double(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_1d_eightbytereal = &
nf_put_vara_double(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_1d_eightbytereal
function nf90_put_var_2d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = EightByteReal), dimension(:, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_2d_eightbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_2d_eightbytereal = &
nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_2d_eightbytereal = &
nf_put_vars_double(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_2d_eightbytereal = &
nf_put_vara_double(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_2d_eightbytereal
function nf90_put_var_3d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = EightByteReal), dimension(:, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_3d_eightbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_3d_eightbytereal = &
nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_3d_eightbytereal = &
nf_put_vars_double(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_3d_eightbytereal = &
nf_put_vara_double(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_3d_eightbytereal
function nf90_put_var_4d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = EightByteReal), dimension(:, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_4d_eightbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_4d_eightbytereal = &
nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_4d_eightbytereal = &
nf_put_vars_double(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_4d_eightbytereal = &
nf_put_vara_double(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_4d_eightbytereal
function nf90_put_var_5d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = EightByteReal), dimension(:, :, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_5d_eightbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_5d_eightbytereal = &
nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_5d_eightbytereal = &
nf_put_vars_double(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_5d_eightbytereal = &
nf_put_vara_double(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_5d_eightbytereal
function nf90_put_var_6d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = EightByteReal), dimension(:, :, :, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_6d_eightbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_6d_eightbytereal = &
nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_6d_eightbytereal = &
nf_put_vars_double(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_6d_eightbytereal = &
nf_put_vara_double(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_6d_eightbytereal
function nf90_put_var_7d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = EightByteReal), dimension(:, :, :, :, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_7d_eightbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_7d_eightbytereal = &
nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_7d_eightbytereal = &
nf_put_vars_double(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_7d_eightbytereal = &
nf_put_vara_double(ncid, varid, localstart, localcount, values)
end if
end function nf90_put_var_7d_eightbytereal
function nf90_get_var_1d_onebyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = OneByteInt), dimension(:), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_1d_onebyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_1d_onebyteint = &
nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_1d_onebyteint = &
nf_get_vars_int1(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_1d_onebyteint = &
nf_get_vara_int1(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_1d_onebyteint
function nf90_get_var_2d_onebyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = OneByteInt), dimension(:, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_2d_onebyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_2d_onebyteint = &
nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_2d_onebyteint = &
nf_get_vars_int1(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_2d_onebyteint = &
nf_get_vara_int1(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_2d_onebyteint
function nf90_get_var_3d_onebyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = OneByteInt), dimension(:, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_3d_onebyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_3d_onebyteint = &
nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_3d_onebyteint = &
nf_get_vars_int1(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_3d_onebyteint = &
nf_get_vara_int1(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_3d_onebyteint
function nf90_get_var_4d_onebyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = OneByteInt), dimension(:, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_4d_onebyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_4d_onebyteint = &
nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_4d_onebyteint = &
nf_get_vars_int1(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_4d_onebyteint = &
nf_get_vara_int1(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_4d_onebyteint
function nf90_get_var_5d_onebyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = OneByteInt), dimension(:, :, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_5d_onebyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_5d_onebyteint = &
nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_5d_onebyteint = &
nf_get_vars_int1(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_5d_onebyteint = &
nf_get_vara_int1(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_5d_onebyteint
function nf90_get_var_6d_onebyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = OneByteInt), dimension(:, :, :, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_6d_onebyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_6d_onebyteint = &
nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_6d_onebyteint = &
nf_get_vars_int1(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_6d_onebyteint = &
nf_get_vara_int1(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_6d_onebyteint
function nf90_get_var_7d_onebyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = OneByteInt), dimension(:, :, :, :, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_7d_onebyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_7d_onebyteint = &
nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_7d_onebyteint = &
nf_get_vars_int1(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_7d_onebyteint = &
nf_get_vara_int1(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_7d_onebyteint
function nf90_get_var_1d_twobyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = TwoByteInt), dimension(:), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_1d_twobyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_1d_twobyteint = &
nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_1d_twobyteint = &
nf_get_vars_int2(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_1d_twobyteint = &
nf_get_vara_int2(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_1d_twobyteint
function nf90_get_var_2d_twobyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = TwoByteInt), dimension(:, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_2d_twobyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_2d_twobyteint = &
nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_2d_twobyteint = &
nf_get_vars_int2(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_2d_twobyteint = &
nf_get_vara_int2(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_2d_twobyteint
function nf90_get_var_3d_twobyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = TwoByteInt), dimension(:, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_3d_twobyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_3d_twobyteint = &
nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_3d_twobyteint = &
nf_get_vars_int2(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_3d_twobyteint = &
nf_get_vara_int2(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_3d_twobyteint
function nf90_get_var_4d_twobyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = TwoByteInt), dimension(:, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_4d_twobyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_4d_twobyteint = &
nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_4d_twobyteint = &
nf_get_vars_int2(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_4d_twobyteint = &
nf_get_vara_int2(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_4d_twobyteint
function nf90_get_var_5d_twobyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = TwoByteInt), dimension(:, :, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_5d_twobyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_5d_twobyteint = &
nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_5d_twobyteint = &
nf_get_vars_int2(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_5d_twobyteint = &
nf_get_vara_int2(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_5d_twobyteint
function nf90_get_var_6d_twobyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = TwoByteInt), dimension(:, :, :, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_6d_twobyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_6d_twobyteint = &
nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_6d_twobyteint = &
nf_get_vars_int2(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_6d_twobyteint = &
nf_get_vara_int2(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_6d_twobyteint
function nf90_get_var_7d_twobyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = TwoByteInt), dimension(:, :, :, :, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_7d_twobyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_7d_twobyteint = &
nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_7d_twobyteint = &
nf_get_vars_int2(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_7d_twobyteint = &
nf_get_vara_int2(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_7d_twobyteint
function nf90_get_var_1d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = FourByteInt), dimension(:), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_1d_fourbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
integer, dimension(size(values)) :: defaultintarray
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_1d_fourbyteint = &
nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
else if(present(stride)) then
nf90_get_var_1d_fourbyteint = &
nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
else
nf90_get_var_1d_fourbyteint = &
nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
end if
values(:) = reshape(defaultintarray(:), shape(values))
end function nf90_get_var_1d_fourbyteint
function nf90_get_var_2d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = FourByteInt), dimension(:, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_2d_fourbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
integer, dimension(size(values)) :: defaultintarray
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_2d_fourbyteint = &
nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
else if(present(stride)) then
nf90_get_var_2d_fourbyteint = &
nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
else
nf90_get_var_2d_fourbyteint = &
nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
end if
values(:, :) = reshape(defaultintarray(:), shape(values))
end function nf90_get_var_2d_fourbyteint
function nf90_get_var_3d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = FourByteInt), dimension(:, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_3d_fourbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
integer, dimension(size(values)) :: defaultintarray
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_3d_fourbyteint = &
nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
else if(present(stride)) then
nf90_get_var_3d_fourbyteint = &
nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
else
nf90_get_var_3d_fourbyteint = &
nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
end if
values(:, :, :) = reshape(defaultintarray(:), shape(values))
end function nf90_get_var_3d_fourbyteint
function nf90_get_var_4d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = FourByteInt), dimension(:, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_4d_fourbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
integer, dimension(size(values)) :: defaultintarray
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_4d_fourbyteint = &
nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
else if(present(stride)) then
nf90_get_var_4d_fourbyteint = &
nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
else
nf90_get_var_4d_fourbyteint = &
nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
end if
values(:, :, :, :) = reshape(defaultintarray(:), shape(values))
end function nf90_get_var_4d_fourbyteint
function nf90_get_var_5d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = FourByteInt), dimension(:, :, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_5d_fourbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
integer, dimension(size(values)) :: defaultintarray
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_5d_fourbyteint = &
nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
else if(present(stride)) then
nf90_get_var_5d_fourbyteint = &
nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
else
nf90_get_var_5d_fourbyteint = &
nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
end if
values(:, :, :, :, :) = reshape(defaultintarray(:), shape(values))
end function nf90_get_var_5d_fourbyteint
function nf90_get_var_6d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = FourByteInt), dimension(:, :, :, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_6d_fourbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
integer, dimension(size(values)) :: defaultintarray
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_6d_fourbyteint = &
nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
else if(present(stride)) then
nf90_get_var_6d_fourbyteint = &
nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
else
nf90_get_var_6d_fourbyteint = &
nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
end if
values(:, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
end function nf90_get_var_6d_fourbyteint
function nf90_get_var_7d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = FourByteInt), dimension(:, :, :, :, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_7d_fourbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
integer, dimension(size(values)) :: defaultintarray
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_7d_fourbyteint = &
nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
else if(present(stride)) then
nf90_get_var_7d_fourbyteint = &
nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
else
nf90_get_var_7d_fourbyteint = &
nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
end if
values(:, :, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
end function nf90_get_var_7d_fourbyteint
function nf90_get_var_1d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = FourByteReal), dimension(:), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_1d_fourbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_1d_fourbytereal = &
nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_1d_fourbytereal = &
nf_get_vars_real(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_1d_fourbytereal = &
nf_get_vara_real(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_1d_fourbytereal
function nf90_get_var_2d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = FourByteReal), dimension(:, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_2d_fourbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_2d_fourbytereal = &
nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_2d_fourbytereal = &
nf_get_vars_real(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_2d_fourbytereal = &
nf_get_vara_real(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_2d_fourbytereal
function nf90_get_var_3d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = FourByteReal), dimension(:, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_3d_fourbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_3d_fourbytereal = &
nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_3d_fourbytereal = &
nf_get_vars_real(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_3d_fourbytereal = &
nf_get_vara_real(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_3d_fourbytereal
function nf90_get_var_4d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = FourByteReal), dimension(:, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_4d_fourbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_4d_fourbytereal = &
nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_4d_fourbytereal = &
nf_get_vars_real(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_4d_fourbytereal = &
nf_get_vara_real(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_4d_fourbytereal
function nf90_get_var_5d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = FourByteReal), dimension(:, :, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_5d_fourbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_5d_fourbytereal = &
nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_5d_fourbytereal = &
nf_get_vars_real(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_5d_fourbytereal = &
nf_get_vara_real(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_5d_fourbytereal
function nf90_get_var_6d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = FourByteReal), dimension(:, :, :, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_6d_fourbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_6d_fourbytereal = &
nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_6d_fourbytereal = &
nf_get_vars_real(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_6d_fourbytereal = &
nf_get_vara_real(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_6d_fourbytereal
function nf90_get_var_7d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = FourByteReal), dimension(:, :, :, :, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_7d_fourbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_7d_fourbytereal = &
nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_7d_fourbytereal = &
nf_get_vars_real(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_7d_fourbytereal = &
nf_get_vara_real(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_7d_fourbytereal
function nf90_get_var_1d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = EightByteReal), dimension(:), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_1d_eightbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_1d_eightbytereal = &
nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_1d_eightbytereal = &
nf_get_vars_double(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_1d_eightbytereal = &
nf_get_vara_double(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_1d_eightbytereal
function nf90_get_var_2d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = EightByteReal), dimension(:, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_2d_eightbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_2d_eightbytereal = &
nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_2d_eightbytereal = &
nf_get_vars_double(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_2d_eightbytereal = &
nf_get_vara_double(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_2d_eightbytereal
function nf90_get_var_3d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = EightByteReal), dimension(:, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_3d_eightbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_3d_eightbytereal = &
nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_3d_eightbytereal = &
nf_get_vars_double(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_3d_eightbytereal = &
nf_get_vara_double(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_3d_eightbytereal
function nf90_get_var_4d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = EightByteReal), dimension(:, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_4d_eightbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_4d_eightbytereal = &
nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_4d_eightbytereal = &
nf_get_vars_double(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_4d_eightbytereal = &
nf_get_vara_double(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_4d_eightbytereal
function nf90_get_var_5d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = EightByteReal), dimension(:, :, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_5d_eightbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_5d_eightbytereal = &
nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_5d_eightbytereal = &
nf_get_vars_double(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_5d_eightbytereal = &
nf_get_vara_double(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_5d_eightbytereal
function nf90_get_var_6d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = EightByteReal), dimension(:, :, :, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_6d_eightbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_6d_eightbytereal = &
nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_6d_eightbytereal = &
nf_get_vars_double(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_6d_eightbytereal = &
nf_get_vara_double(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_6d_eightbytereal
function nf90_get_var_7d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
real (kind = EightByteReal), dimension(:, :, :, :, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_7d_eightbytereal
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter
! Set local arguments to default values
numdims = size(shape(values))
localstart(: ) = 1
localcount(:numdims ) = shape(values)
localcount(numdims+1:) = 1
localstride(: ) = 1
localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
if(present(start)) localstart(:size(start) ) = start(:)
if(present(count)) localcount(:size(count) ) = count(:)
if(present(stride)) localstride(:size(stride)) = stride(:)
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_7d_eightbytereal = &
nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_get_var_7d_eightbytereal = &
nf_get_vars_double(ncid, varid, localstart, localcount, localstride, values)
else
nf90_get_var_7d_eightbytereal = &
nf_get_vara_double(ncid, varid, localstart, localcount, values)
end if
end function nf90_get_var_7d_eightbytereal

Return to the Main Unidata NetCDF page.