netcdf_expanded.f90
Go to the documentation of this file.
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
nf90_put_var_twobyteint
integer function nf90_put_var_twobyteint(ncid, varid, values, start)
Definition: netcdf_expanded.f90:20
nf90_get_var_5d_twobyteint
integer function nf90_get_var_5d_twobyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1786
nf90_get_var_3d_fourbyteint
integer function nf90_get_var_3d_fourbyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1965
nf_put_vars_double
function nf_put_vars_double(ncid, varid, start, counts, strides, dvals)
Definition: nf_varsio.F90:437
nf90_get_var_4d_eightbytereal
integer function nf90_get_var_4d_eightbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:2500
nf90_get_var_4d_twobyteint
integer function nf90_get_var_4d_twobyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1751
nf90_put_var_3d_eightbytereal
integer function nf90_put_var_3d_eightbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1226
nf90_get_var_7d_eightbytereal
integer function nf90_get_var_7d_eightbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:2605
nf_get_var1_double
integer function nf_get_var1_double(ncid, varid, ndex, dval)
Definition: nf_var1io.F90:686
nf90_get_var_fourbytereal
integer function nf90_get_var_fourbytereal(ncid, varid, values, start)
Definition: netcdf_expanded.f90:141
nf_get_vars_int1
function nf_get_vars_int1(ncid, varid, start, counts, strides, i1vals)
Definition: nf_varsio.F90:689
nf_put_varm_int2
integer function nf_put_varm_int2(ncid, varid, start, counts, strides, maps, i2vals)
Definition: nf_varmio.F90:260
nf90_get_var_7d_fourbytereal
integer function nf90_get_var_7d_fourbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:2360
nf90_put_var_6d_fourbyteint
integer function nf90_put_var_6d_fourbyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:841
nf90_get_var_6d_twobyteint
integer function nf90_get_var_6d_twobyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1821
nf90_get_var_2d_eightbytereal
integer function nf90_get_var_2d_eightbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:2430
nf90_put_var_3d_onebyteint
integer function nf90_put_var_3d_onebyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:246
nf90_put_var_5d_eightbytereal
integer function nf90_put_var_5d_eightbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1296
nf90_put_var_7d_fourbyteint
integer function nf90_put_var_7d_fourbyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:876
nf90_get_var_6d_eightbytereal
integer function nf90_get_var_6d_eightbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:2570
nf90_get_var_6d_fourbyteint
integer function nf90_get_var_6d_fourbyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:2076
nf_get_vars_real
function nf_get_vars_real(ncid, varid, start, counts, strides, rvals)
Definition: nf_varsio.F90:909
nf90_get_var_6d_onebyteint
integer function nf90_get_var_6d_onebyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1576
nf_get_varm_int1
integer function nf_get_varm_int1(ncid, varid, start, counts, strides, maps, i1vals)
Definition: nf_varmio.F90:692
nf_put_var1_int2
integer function nf_put_var1_int2(ncid, varid, ndex, ival)
Definition: nf_var1io.F90:145
nf90_get_var_onebyteint
integer function nf90_get_var_onebyteint(ncid, varid, values, start)
Definition: netcdf_expanded.f90:88
nf_put_var1_double
integer function nf_put_var1_double(ncid, varid, ndex, dval)
Definition: nf_var1io.F90:309
nf_put_vara_int2
integer function nf_put_vara_int2(ncid, varid, start, counts, i2vals)
Definition: nf_varaio.F90:209
nf90_put_var_2d_fourbytereal
integer function nf90_put_var_2d_fourbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:946
nf_get_varm_real
integer function nf_get_varm_real(ncid, varid, start, counts, strides, maps, rvals)
Definition: nf_varmio.F90:930
nf_put_vars_int
function nf_put_vars_int(ncid, varid, start, counts, strides, ivals)
Definition: nf_varsio.F90:303
nf90_put_var_4d_fourbyteint
integer function nf90_put_var_4d_fourbyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:771
nf90_get_var_4d_fourbytereal
integer function nf90_get_var_4d_fourbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:2255
nf_put_vars_real
function nf_put_vars_real(ncid, varid, start, counts, strides, rvals)
Definition: nf_varsio.F90:370
nf90_put_var_1d_twobyteint
integer function nf90_put_var_1d_twobyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:421
nf90_get_var_3d_fourbytereal
integer function nf90_get_var_3d_fourbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:2220
nf_put_varm_int1
integer function nf_put_varm_int1(ncid, varid, start, counts, strides, maps, i1vals)
Definition: nf_varmio.F90:176
nf90_put_var_7d_eightbytereal
integer function nf90_put_var_7d_eightbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1366
nf_get_vars_double
function nf_get_vars_double(ncid, varid, start, counts, strides, dvals)
Definition: nf_varsio.F90:976
nf90_get_var_7d_twobyteint
integer function nf90_get_var_7d_twobyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1856
nf90_put_var_fourbyteint
integer function nf90_put_var_fourbyteint(ncid, varid, values, start)
Definition: netcdf_expanded.f90:37
nf_put_vara_int
integer function nf_put_vara_int(ncid, varid, start, counts, ivals)
Definition: nf_varaio.F90:273
nf90_get_var_5d_eightbytereal
integer function nf90_get_var_5d_eightbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:2535
nf_put_var1_int1
integer function nf_put_var1_int1(ncid, varid, ndex, ival)
Definition: nf_var1io.F90:83
nf_put_vars_int2
function nf_put_vars_int2(ncid, varid, start, counts, strides, i2vals)
Definition: nf_varsio.F90:228
nf90_get_var_1d_fourbyteint
integer function nf90_get_var_1d_fourbyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1891
nf90_get_var_7d_onebyteint
integer function nf90_get_var_7d_onebyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1611
nf90_put_var_4d_eightbytereal
integer function nf90_put_var_4d_eightbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1261
nf90_get_var_2d_fourbytereal
integer function nf90_get_var_2d_fourbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:2185
nf90_put_var_onebyteint
integer function nf90_put_var_onebyteint(ncid, varid, values, start)
Definition: netcdf_expanded.f90:3
nf90_put_var_7d_twobyteint
integer function nf90_put_var_7d_twobyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:631
nf90_put_var_6d_eightbytereal
integer function nf90_put_var_6d_eightbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1331
nf90_get_var_3d_onebyteint
integer function nf90_get_var_3d_onebyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1471
nf90_put_var_1d_onebyteint
integer function nf90_put_var_1d_onebyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:176
nf90_get_var_1d_eightbytereal
integer function nf90_get_var_1d_eightbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:2395
nf90_put_var_3d_fourbytereal
integer function nf90_put_var_3d_fourbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:981
nf90_put_var_6d_onebyteint
integer function nf90_put_var_6d_onebyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:351
nf90_get_var_1d_fourbytereal
integer function nf90_get_var_1d_fourbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:2150
nf90_get_var_1d_twobyteint
integer function nf90_get_var_1d_twobyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1646
nf_put_vara_int1
integer function nf_put_vara_int1(ncid, varid, start, counts, i1vals)
Definition: nf_varaio.F90:143
nf90_put_var_6d_fourbytereal
integer function nf90_put_var_6d_fourbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1086
nf90_put_var_2d_eightbytereal
integer function nf90_put_var_2d_eightbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1191
nf90_get_var_twobyteint
integer function nf90_get_var_twobyteint(ncid, varid, values, start)
Definition: netcdf_expanded.f90:105
nf_get_var1_int
integer function nf_get_var1_int(ncid, varid, ndex, ival)
Definition: nf_var1io.F90:582
nf_get_vara_double
function nf_get_vara_double(ncid, varid, start, counts, dvals)
Definition: nf_varaio.F90:854
nf90_put_var_2d_onebyteint
integer function nf90_put_var_2d_onebyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:211
nf_put_var1_int
integer function nf_put_var1_int(ncid, varid, ndex, ival)
Definition: nf_var1io.F90:205
nf90_put_var_eightbytereal
integer function nf90_put_var_eightbytereal(ncid, varid, values, start)
Definition: netcdf_expanded.f90:71
nf_get_vara_int1
integer function nf_get_vara_int1(ncid, varid, start, counts, i1vals)
Definition: nf_varaio.F90:605
nf_get_vara_int2
integer function nf_get_vara_int2(ncid, varid, start, counts, i2vals)
Definition: nf_varaio.F90:671
nf90_put_var_2d_fourbyteint
integer function nf90_put_var_2d_fourbyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:701
nf90_put_var_4d_onebyteint
integer function nf90_put_var_4d_onebyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:281
nf90_get_var_5d_onebyteint
integer function nf90_get_var_5d_onebyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1541
nf90_put_var_1d_fourbytereal
integer function nf90_put_var_1d_fourbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:911
nf90_get_var_fourbyteint
integer function nf90_get_var_fourbyteint(ncid, varid, values, start)
Definition: netcdf_expanded.f90:122
nf90_put_var_5d_onebyteint
integer function nf90_put_var_5d_onebyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:316
nf_put_var1_real
integer function nf_put_var1_real(ncid, varid, ndex, rval)
Definition: nf_var1io.F90:258
nf_get_var1_int2
integer function nf_get_var1_int2(ncid, varid, ndex, ival)
Definition: nf_var1io.F90:522
nf90_get_var_5d_fourbytereal
integer function nf90_get_var_5d_fourbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:2290
nf90_get_var_1d_onebyteint
integer function nf90_get_var_1d_onebyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1401
nf90_get_var_5d_fourbyteint
integer function nf90_get_var_5d_fourbyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:2039
nf90_put_var_6d_twobyteint
integer function nf90_put_var_6d_twobyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:596
nf90_put_var_4d_twobyteint
integer function nf90_put_var_4d_twobyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:526
nf90_put_var_5d_fourbyteint
integer function nf90_put_var_5d_fourbyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:806
nf90_put_var_7d_onebyteint
integer function nf90_put_var_7d_onebyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:386
nf90_put_var_7d_fourbytereal
integer function nf90_put_var_7d_fourbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1121
nf90_get_var_2d_fourbyteint
integer function nf90_get_var_2d_fourbyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1928
nf_get_varm_int
integer function nf_get_varm_int(ncid, varid, start, counts, strides, maps, ivals)
Definition: nf_varmio.F90:857
nf90_get_var_eightbytereal
integer function nf90_get_var_eightbytereal(ncid, varid, values, start)
Definition: netcdf_expanded.f90:158
nf90_put_var_1d_fourbyteint
integer function nf90_put_var_1d_fourbyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:666
nf90_put_var_2d_twobyteint
integer function nf90_put_var_2d_twobyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:456
nf_get_vars_int
function nf_get_vars_int(ncid, varid, start, counts, strides, ivals)
Definition: nf_varsio.F90:842
nf_put_varm_double
integer function nf_put_varm_double(ncid, varid, start, counts, strides, maps, dvals)
Definition: nf_varmio.F90:487
nf_get_var1_int1
integer function nf_get_var1_int1(ncid, varid, ndex, ival)
Definition: nf_var1io.F90:460
nf_get_var1_real
integer function nf_get_var1_real(ncid, varid, ndex, rval)
Definition: nf_var1io.F90:635
nf90_get_var_4d_onebyteint
integer function nf90_get_var_4d_onebyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1506
nf90_get_var_3d_twobyteint
integer function nf90_get_var_3d_twobyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1716
nf90_get_var_6d_fourbytereal
integer function nf90_get_var_6d_fourbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:2325
nf90_put_var_5d_fourbytereal
integer function nf90_put_var_5d_fourbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1051
nf90_put_var_1d_eightbytereal
integer function nf90_put_var_1d_eightbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1156
nf_put_vara_double
function nf_put_vara_double(ncid, varid, start, counts, dvals)
Definition: nf_varaio.F90:392
nf90_get_var_7d_fourbyteint
integer function nf90_get_var_7d_fourbyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:2113
nf_get_vara_real
integer function nf_get_vara_real(ncid, varid, start, counts, rvals)
Definition: nf_varaio.F90:792
nf_put_vara_real
integer function nf_put_vara_real(ncid, varid, start, counts, rvals)
Definition: nf_varaio.F90:330
nf90_put_var_4d_fourbytereal
integer function nf90_put_var_4d_fourbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1016
nf_get_varm_int2
integer function nf_get_varm_int2(ncid, varid, start, counts, strides, maps, i2vals)
Definition: nf_varmio.F90:776
nf_put_varm_real
integer function nf_put_varm_real(ncid, varid, start, counts, strides, maps, rvals)
Definition: nf_varmio.F90:414
nf90_put_var_fourbytereal
integer function nf90_put_var_fourbytereal(ncid, varid, values, start)
Definition: netcdf_expanded.f90:54
nf90_get_var_2d_onebyteint
integer function nf90_get_var_2d_onebyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1436
nf90_put_var_3d_fourbyteint
integer function nf90_put_var_3d_fourbyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:736
nf90_put_var_3d_twobyteint
integer function nf90_put_var_3d_twobyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:491
nf90_put_var_5d_twobyteint
integer function nf90_put_var_5d_twobyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:561
nf90_get_var_3d_eightbytereal
integer function nf90_get_var_3d_eightbytereal(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:2465
nf90_get_var_4d_fourbyteint
integer function nf90_get_var_4d_fourbyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:2002
nf_get_vara_int
integer function nf_get_vara_int(ncid, varid, start, counts, ivals)
Definition: nf_varaio.F90:735
nf_get_vars_int2
function nf_get_vars_int2(ncid, varid, start, counts, strides, i2vals)
Definition: nf_varsio.F90:767
nf90_get_var_2d_twobyteint
integer function nf90_get_var_2d_twobyteint(ncid, varid, values, start, count, stride, map)
Definition: netcdf_expanded.f90:1681
nf_put_varm_int
integer function nf_put_varm_int(ncid, varid, start, counts, strides, maps, ivals)
Definition: nf_varmio.F90:341
nf_put_vars_int1
function nf_put_vars_int1(ncid, varid, start, counts, strides, i1vals)
Definition: nf_varsio.F90:150
nf_get_varm_double
integer function nf_get_varm_double(ncid, varid, start, counts, strides, maps, dvals)
Definition: nf_varmio.F90:1003

Return to the Main Unidata NetCDF page.