netcdf4_eightbyte.f90
function nf90_put_var_1d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = EightByteInt), dimension(:), intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_1d_eightbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter, format_num
! 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(:)
nf90_put_var_1d_eightbyteint = nf_inq_format(ncid, format_num)
if (nf90_put_var_1d_eightbyteint .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_1d_eightbyteint = &
nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_1d_eightbyteint = &
nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_1d_eightbyteint = &
nf_put_vara_int64(ncid, varid, localstart, localcount, values)
end if
else
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_1d_eightbyteint = &
nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
else if(present(stride)) then
nf90_put_var_1d_eightbyteint = &
nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
else
nf90_put_var_1d_eightbyteint = &
nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
end if
endif
endif
end function nf90_put_var_1d_eightbyteint
function nf90_put_var_2d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = EightByteInt), dimension(:, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_2d_eightbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter, format_num
! 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(:)
nf90_put_var_2d_eightbyteint = nf_inq_format(ncid, format_num)
if (nf90_put_var_2d_eightbyteint .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_2d_eightbyteint = &
nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_2d_eightbyteint = &
nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_2d_eightbyteint = &
nf_put_vara_int64(ncid, varid, localstart, localcount, values)
end if
else
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_2d_eightbyteint = &
nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
else if(present(stride)) then
nf90_put_var_2d_eightbyteint = &
nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
else
nf90_put_var_2d_eightbyteint = &
nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
end if
endif
endif
end function nf90_put_var_2d_eightbyteint
function nf90_put_var_3d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = EightByteInt), dimension(:, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_3d_eightbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter, format_num
! 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(:)
nf90_put_var_3d_eightbyteint = nf_inq_format(ncid, format_num)
if (nf90_put_var_3d_eightbyteint .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_3d_eightbyteint = &
nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_3d_eightbyteint = &
nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_3d_eightbyteint = &
nf_put_vara_int64(ncid, varid, localstart, localcount, values)
end if
else
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_3d_eightbyteint = &
nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
else if(present(stride)) then
nf90_put_var_3d_eightbyteint = &
nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
else
nf90_put_var_3d_eightbyteint = &
nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
end if
endif
endif
end function nf90_put_var_3d_eightbyteint
function nf90_put_var_4d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = EightByteInt), dimension(:, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_4d_eightbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter, format_num
! 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(:)
nf90_put_var_4d_eightbyteint = nf_inq_format(ncid, format_num)
if (nf90_put_var_4d_eightbyteint .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_4d_eightbyteint = &
nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_4d_eightbyteint = &
nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_4d_eightbyteint = &
nf_put_vara_int64(ncid, varid, localstart, localcount, values)
end if
else
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_4d_eightbyteint = &
nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
else if(present(stride)) then
nf90_put_var_4d_eightbyteint = &
nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
else
nf90_put_var_4d_eightbyteint = &
nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
end if
end if
end if
end function nf90_put_var_4d_eightbyteint
function nf90_put_var_5d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = EightByteInt), dimension(:, :, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_5d_eightbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter, format_num
! 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(:)
nf90_put_var_5d_eightbyteint = nf_inq_format(ncid, format_num)
if (nf90_put_var_5d_eightbyteint .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_5d_eightbyteint = &
nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_5d_eightbyteint = &
nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_5d_eightbyteint = &
nf_put_vara_int64(ncid, varid, localstart, localcount, values)
end if
else
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_5d_eightbyteint = &
nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
else if(present(stride)) then
nf90_put_var_5d_eightbyteint = &
nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
else
nf90_put_var_5d_eightbyteint = &
nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
end if
end if
end if
end function nf90_put_var_5d_eightbyteint
function nf90_put_var_6d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = EightByteInt), dimension(:, :, :, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_6d_eightbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter, format_num
! 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(:)
nf90_put_var_6d_eightbyteint = nf_inq_format(ncid, format_num)
if (nf90_put_var_6d_eightbyteint .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_6d_eightbyteint = &
nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_6d_eightbyteint = &
nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_6d_eightbyteint = &
nf_put_vara_int64(ncid, varid, localstart, localcount, values)
end if
else
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_6d_eightbyteint = &
nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
else if(present(stride)) then
nf90_put_var_6d_eightbyteint = &
nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
else
nf90_put_var_6d_eightbyteint = &
nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
end if
end if
end if
end function nf90_put_var_6d_eightbyteint
function nf90_put_var_7d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = EightByteInt), dimension(:, :, :, :, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_7d_eightbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter, format_num
! 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(:)
nf90_put_var_7d_eightbyteint = nf_inq_format(ncid, format_num)
if (nf90_put_var_7d_eightbyteint .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_7d_eightbyteint = &
nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
else if(present(stride)) then
nf90_put_var_7d_eightbyteint = &
nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
else
nf90_put_var_7d_eightbyteint = &
nf_put_vara_int64(ncid, varid, localstart, localcount, values)
end if
else
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_put_var_7d_eightbyteint = &
nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
else if(present(stride)) then
nf90_put_var_7d_eightbyteint = &
nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
else
nf90_put_var_7d_eightbyteint = &
nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
end if
end if
end if
end function nf90_put_var_7d_eightbyteint
function nf90_get_var_1d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = EightByteInt), dimension(:), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_1d_eightbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter, format_num
integer, dimension(size(values)) :: defaultintarray
integer (kind = EightByteInt), dimension(size(values)) :: defaultint8array
! 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(:)
nf90_get_var_1d_eightbyteint = nf_inq_format(ncid, format_num)
if (nf90_get_var_1d_eightbyteint .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_1d_eightbyteint = &
nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
else if(present(stride)) then
nf90_get_var_1d_eightbyteint = &
nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
else
nf90_get_var_1d_eightbyteint = &
nf_get_vara_int64(ncid, varid, localstart, localcount, defaultint8array)
end if
values(:) = reshape(defaultint8array(:), shape(values))
else
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_1d_eightbyteint = &
nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
else if(present(stride)) then
nf90_get_var_1d_eightbyteint = &
nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
else
nf90_get_var_1d_eightbyteint = &
nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
end if
values(:) = reshape(defaultintarray(:), shape(values))
endif
endif
end function nf90_get_var_1d_eightbyteint
function nf90_get_var_2d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = EightByteInt), dimension(:, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_2d_eightbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter, format_num
integer, dimension(size(values)) :: defaultintarray
integer (kind = EightByteInt), dimension(size(values)) :: defaultint8array
! 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(:)
nf90_get_var_2d_eightbyteint = nf_inq_format(ncid, format_num)
if (nf90_get_var_2d_eightbyteint .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_2d_eightbyteint = &
nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
else if(present(stride)) then
nf90_get_var_2d_eightbyteint = &
nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
else
nf90_get_var_2d_eightbyteint = &
nf_get_vara_int64(ncid, varid, localstart, localcount, defaultint8array)
end if
values(:, :) = reshape(defaultint8array(:), shape(values))
else
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_2d_eightbyteint = &
nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
else if(present(stride)) then
nf90_get_var_2d_eightbyteint = &
nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
else
nf90_get_var_2d_eightbyteint = &
nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
end if
values(:, :) = reshape(defaultintarray(:), shape(values))
end if
end if
end function nf90_get_var_2d_eightbyteint
function nf90_get_var_3d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = EightByteInt), dimension(:, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_3d_eightbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter, format_num
integer, dimension(size(values)) :: defaultintarray
integer (kind = EightByteInt), dimension(size(values)) :: defaultint8array
! 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(:)
nf90_get_var_3d_eightbyteint = nf_inq_format(ncid, format_num)
if (nf90_get_var_3d_eightbyteint .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_3d_eightbyteint = &
nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
else if(present(stride)) then
nf90_get_var_3d_eightbyteint = &
nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
else
nf90_get_var_3d_eightbyteint = &
nf_get_vara_int64(ncid, varid, localstart, localcount, defaultint8array)
end if
values(:, :, :) = reshape(defaultint8array(:), shape(values))
else
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_3d_eightbyteint = &
nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
else if(present(stride)) then
nf90_get_var_3d_eightbyteint = &
nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
else
nf90_get_var_3d_eightbyteint = &
nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
end if
values(:, :, :) = reshape(defaultintarray(:), shape(values))
end if
end if
end function nf90_get_var_3d_eightbyteint
function nf90_get_var_4d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = EightByteInt), dimension(:, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_4d_eightbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter, format_num
integer, dimension(size(values)) :: defaultintarray
integer (kind = EightByteInt), dimension(size(values)) :: defaultint8array
! 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(:)
nf90_get_var_4d_eightbyteint = nf_inq_format(ncid, format_num)
if (nf90_get_var_4d_eightbyteint .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_4d_eightbyteint = &
nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
else if(present(stride)) then
nf90_get_var_4d_eightbyteint = &
nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
else
nf90_get_var_4d_eightbyteint = &
nf_get_vara_int64(ncid, varid, localstart, localcount, defaultint8array)
end if
values(:, :, :, :) = reshape(defaultint8array(:), shape(values))
else
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_4d_eightbyteint = &
nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
else if(present(stride)) then
nf90_get_var_4d_eightbyteint = &
nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
else
nf90_get_var_4d_eightbyteint = &
nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
end if
values(:, :, :, :) = reshape(defaultintarray(:), shape(values))
end if
end if
end function nf90_get_var_4d_eightbyteint
function nf90_get_var_5d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = EightByteInt), dimension(:, :, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_5d_eightbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter, format_num
integer, dimension(size(values)) :: defaultintarray
integer (kind = EightByteInt), dimension(size(values)) :: defaultint8array
! 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(:)
nf90_get_var_5d_eightbyteint = nf_inq_format(ncid, format_num)
if (nf90_get_var_5d_eightbyteint .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_5d_eightbyteint = &
nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
else if(present(stride)) then
nf90_get_var_5d_eightbyteint = &
nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
else
nf90_get_var_5d_eightbyteint = &
nf_get_vara_int64(ncid, varid, localstart, localcount, defaultint8array)
end if
values(:, :, :, :, :) = reshape(defaultint8array(:), shape(values))
else
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_5d_eightbyteint = &
nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
else if(present(stride)) then
nf90_get_var_5d_eightbyteint = &
nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
else
nf90_get_var_5d_eightbyteint = &
nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
end if
values(:, :, :, :, :) = reshape(defaultintarray(:), shape(values))
end if
end if
end function nf90_get_var_5d_eightbyteint
function nf90_get_var_6d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = EightByteInt), dimension(:, :, :, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_6d_eightbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter, format_num
integer, dimension(size(values)) :: defaultintarray
integer (kind = EightByteInt), dimension(size(values)) :: defaultint8array
! 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(:)
nf90_get_var_6d_eightbyteint = nf_inq_format(ncid, format_num)
if (nf90_get_var_6d_eightbyteint .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_6d_eightbyteint = &
nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
else if(present(stride)) then
nf90_get_var_6d_eightbyteint = &
nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
else
nf90_get_var_6d_eightbyteint = &
nf_get_vara_int64(ncid, varid, localstart, localcount, defaultint8array)
end if
values(:, :, :, :, :, :) = reshape(defaultint8array(:), shape(values))
else
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_6d_eightbyteint = &
nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
else if(present(stride)) then
nf90_get_var_6d_eightbyteint = &
nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
else
nf90_get_var_6d_eightbyteint = &
nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
end if
values(:, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
end if
end if
end function nf90_get_var_6d_eightbyteint
function nf90_get_var_7d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
integer (kind = EightByteInt), dimension(:, :, :, :, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_7d_eightbyteint
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: numdims, counter, format_num
integer, dimension(size(values)) :: defaultintarray
integer (kind = EightByteInt), dimension(size(values)) :: defaultint8array
! 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(:)
nf90_get_var_7d_eightbyteint = nf_inq_format(ncid, format_num)
if (nf90_get_var_7d_eightbyteint .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_7d_eightbyteint = &
nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
else if(present(stride)) then
nf90_get_var_7d_eightbyteint = &
nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
else
nf90_get_var_7d_eightbyteint = &
nf_get_vara_int64(ncid, varid, localstart, localcount, defaultint8array)
end if
values(:, :, :, :, :, :, :) = reshape(defaultint8array(:), shape(values))
else
if(present(map)) then
localmap(:size(map)) = map(:)
nf90_get_var_7d_eightbyteint = &
nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
else if(present(stride)) then
nf90_get_var_7d_eightbyteint = &
nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
else
nf90_get_var_7d_eightbyteint = &
nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
end if
values(:, :, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
end if
end if
end function nf90_get_var_7d_eightbyteint
function nf90_put_var_eightbyteint(ncid, varid, values, start)
integer, intent( in) :: ncid, varid
integer (kind = EightByteInt), intent( in) :: values
integer, dimension(:), optional, intent( in) :: start
integer :: nf90_put_var_eightbyteint
integer, dimension(nf90_max_var_dims) :: localindex
integer :: counter, format_num
! Set local arguments to default values
localindex(:) = 1
if(present(start)) localindex(:size(start)) = start(:)
nf90_put_var_eightbyteint = nf_inq_format(ncid, format_num)
if (nf90_put_var_eightbyteint .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then
nf90_put_var_eightbyteint = nf_put_var1_int64(ncid, varid, localindex, values)
else
nf90_put_var_eightbyteint = nf_put_var1_int(ncid, varid, localindex, int(values))
endif
endif
end function nf90_put_var_eightbyteint
function nf90_get_var_eightbyteint(ncid, varid, values, start)
integer, intent( in) :: ncid, varid
integer (kind = EightByteInt), intent(out) :: values
integer, dimension(:), optional, intent( in) :: start
integer :: nf90_get_var_eightbyteint
integer, dimension(nf90_max_var_dims) :: localindex
integer :: counter, format_num
integer :: defaultinteger
integer (kind = EightByteInt) :: defaultinteger8
! Set local arguments to default values
localindex(:) = 1
if(present(start)) localindex(:size(start)) = start(:)
nf90_get_var_eightbyteint = nf_inq_format(ncid, format_num)
if (nf90_get_var_eightbyteint .eq. nf90_noerr) then
if (format_num .eq. nf90_format_netcdf4) then
nf90_get_var_eightbyteint = nf_get_var1_int64(ncid, varid, localindex, defaultinteger8)
values = defaultinteger8
else
nf90_get_var_eightbyteint = nf_get_var1_int(ncid, varid, localindex, defaultinteger)
values = defaultinteger
endif
endif
end function nf90_get_var_eightbyteint

Return to the Main Unidata NetCDF page.