netcdf_text_variables.f90
function nf90_put_var_text(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
character (len = *), intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_text
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride
! Set local arguments to default values
localstart(:) = 1
localcount(1) = len(values); localcount(2:) = 1
localstride(:) = 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_text = nf_put_vars_text(ncid, varid, localstart, localcount, localstride, values)
end function nf90_put_var_text
function nf90_get_var_text(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
character (len = *), intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_text
integer, dimension(nf90_max_var_dims) :: localindex, textdimids
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride
integer :: counter, stringlength
! Set local arguments to default values
localstart(:) = 1
localcount(1) = len(values); localcount(2:) = 1
localstride(:) = 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_text = nf_get_vars_text(ncid, varid, localstart, localcount, localstride, values)
end function nf90_get_var_text
function nf90_put_var_1d_text(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
character (len = *), dimension(:), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_1d_text
integer, parameter :: numdims = 1
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: counter
! Set local arguments to default values
localstart(: ) = 1
localcount( :numdims+1) = (/ len(values(1)), shape(values) /)
localcount(numdims+2:) = 0
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_text = &
nf_put_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1))
else
nf90_put_var_1d_text = &
nf_put_vars_text(ncid, varid, localstart, localcount, localstride, values(1))
end if
end function nf90_put_var_1d_text
function nf90_put_var_2d_text(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
character (len = *), dimension(:, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_2d_text
integer, parameter :: numdims = 2
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: counter
! Set local arguments to default values
localstart(: ) = 1
localcount( :numdims+1) = (/ len(values(1, 1)), shape(values) /)
localcount(numdims+2:) = 0
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_text = &
nf_put_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1))
else
nf90_put_var_2d_text = &
nf_put_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1))
end if
end function nf90_put_var_2d_text
function nf90_put_var_3d_text(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
character (len = *), dimension(:, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_3d_text
integer, parameter :: numdims = 3
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: counter
! Set local arguments to default values
localstart(: ) = 1
localcount( :numdims+1) = (/ len(values(1, 1, 1)), shape(values) /)
localcount(numdims+2:) = 0
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_text = &
nf_put_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1,1))
else
nf90_put_var_3d_text = &
nf_put_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1,1))
end if
end function nf90_put_var_3d_text
function nf90_put_var_4d_text(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
character (len = *), dimension(:, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_4d_text
integer, parameter :: numdims = 4
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: counter
! Set local arguments to default values
localstart(: ) = 1
localcount( :numdims+1) = (/ len(values(1, 1, 1, 1)), shape(values) /)
localcount(numdims+2:) = 0
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_text = &
nf_put_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1,1,1))
else
nf90_put_var_4d_text = &
nf_put_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1,1,1))
end if
end function nf90_put_var_4d_text
function nf90_put_var_5d_text(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
character (len = *), dimension(:, :, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_5d_text
integer, parameter :: numdims = 5
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: counter
! Set local arguments to default values
localstart(: ) = 1
localcount( :numdims+1) = (/ len(values(1, 1, 1, 1, 1)), shape(values) /)
localcount(numdims+2:) = 0
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_text = &
nf_put_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1,1,1,1))
else
nf90_put_var_5d_text = &
nf_put_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1,1,1,1))
end if
end function nf90_put_var_5d_text
function nf90_put_var_6d_text(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
character (len = *), dimension(:, :, :, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_6d_text
integer, parameter :: numdims = 6
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: counter
! Set local arguments to default values
localstart(: ) = 1
localcount( :numdims+1) = (/ len(values(1, 1, 1, 1, 1, 1)), shape(values) /)
localcount(numdims+2:) = 0
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_text = &
nf_put_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1,1,1,1,1))
else
nf90_put_var_6d_text = &
nf_put_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1,1,1,1,1))
end if
end function nf90_put_var_6d_text
function nf90_put_var_7d_text(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
character (len = *), dimension(:, :, :, :, :, :, :), &
intent( in) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_put_var_7d_text
integer, parameter :: numdims = 7
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: counter
! Set local arguments to default values
localstart(: ) = 1
localcount( :numdims+1) = (/ len(values(1, 1, 1, 1, 1, 1, 1)), shape(values) /)
localcount(numdims+2:) = 0
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_text = &
nf_put_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1,1,1,1,1,1))
else
nf90_put_var_7d_text = &
nf_put_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1,1,1,1,1,1))
end if
end function nf90_put_var_7d_text
function nf90_get_var_1d_text(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
character (len = *), dimension(:), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_1d_text
integer, parameter :: numdims = 1
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: counter
! Set local arguments to default values
localstart(: ) = 1
localcount(:numdims+1) = (/ len(values(1)), shape(values) /)
localcount(numdims+2:) = 0
localstride(: ) = 1
localmap(: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_text = &
nf_get_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1))
else
nf90_get_var_1d_text = &
nf_get_vars_text(ncid, varid, localstart, localcount, localstride, values(1))
end if
end function nf90_get_var_1d_text
function nf90_get_var_2d_text(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
character (len = *), dimension(:, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_2d_text
integer, parameter :: numdims = 2
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: counter
! Set local arguments to default values
localstart(: ) = 1
localcount(:numdims+1) = (/ len(values(1, 1)), shape(values) /)
localcount(numdims+2:) = 0
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_text = &
nf_get_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1))
else
nf90_get_var_2d_text = &
nf_get_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1))
end if
end function nf90_get_var_2d_text
function nf90_get_var_3d_text(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
character (len = *), dimension(:, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_3d_text
integer, parameter :: numdims = 3
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: counter
! Set local arguments to default values
localstart(: ) = 1
localcount(:numdims+1) = (/ len(values(1, 1, 1)), shape(values) /)
localcount(numdims+2:) = 0
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_text = &
nf_get_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1,1))
else
nf90_get_var_3d_text = &
nf_get_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1,1))
end if
end function nf90_get_var_3d_text
function nf90_get_var_4d_text(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
character (len = *), dimension(:, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_4d_text
integer, parameter :: numdims = 4
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: counter
! Set local arguments to default values
localstart(: ) = 1
localcount(:numdims+1) = (/ len(values(1, 1, 1, 1)), shape(values) /)
localcount(numdims+2:) = 0
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_text = &
nf_get_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1,1,1))
else
nf90_get_var_4d_text = &
nf_get_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1,1,1))
end if
end function nf90_get_var_4d_text
function nf90_get_var_5d_text(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
character (len = *), dimension(:, :, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_5d_text
integer, parameter :: numdims = 5
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: counter
! Set local arguments to default values
localstart(: ) = 1
localcount(:numdims+1) = (/ len(values(1, 1, 1, 1, 1)), shape(values) /)
localcount(numdims+2:) = 0
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_text = &
nf_get_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1,1,1,1))
else
nf90_get_var_5d_text = &
nf_get_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1,1,1,1))
end if
end function nf90_get_var_5d_text
function nf90_get_var_6d_text(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
character (len = *), dimension(:, :, :, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_6d_text
integer, parameter :: numdims = 6
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: counter
! Set local arguments to default values
localstart(: ) = 1
localcount(:numdims+1) = (/ len(values(1, 1, 1, 1, 1, 1)), shape(values) /)
localcount(numdims+2:) = 0
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_text = &
nf_get_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1,1,1,1,1))
else
nf90_get_var_6d_text = &
nf_get_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1,1,1,1,1))
end if
end function nf90_get_var_6d_text
function nf90_get_var_7d_text(ncid, varid, values, start, count, stride, map)
integer, intent( in) :: ncid, varid
character (len = *), dimension(:, :, :, :, :, :, :), &
intent(out) :: values
integer, dimension(:), optional, intent( in) :: start, count, stride, map
integer :: nf90_get_var_7d_text
integer, parameter :: numdims = 7
integer, dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
integer :: counter
! Set local arguments to default values
localstart(: ) = 1
localcount(:numdims+1) = (/ len(values(1, 1, 1, 1, 1, 1, 1)), shape(values) /)
localcount(numdims+2:) = 0
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_text = &
nf_get_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1,1,1,1,1,1))
else
nf90_get_var_7d_text = &
nf_get_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1,1,1,1,1,1))
end if
end function nf90_get_var_7d_text

Return to the Main Unidata NetCDF page.