netcdf_text_variables.f90
Go to the documentation of this file.
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
nf90_get_var_4d_text
integer function nf90_get_var_4d_text(ncid, varid, values, start, count, stride, map)
Definition: netcdf_text_variables.f90:365
nf_put_vars_text
function nf_put_vars_text(ncid, varid, start, counts, strides, text)
Definition: nf_varsio.F90:44
nf_put_varm_text
integer function nf_put_varm_text(ncid, varid, start, counts, strides, maps, text)
Definition: nf_varmio.F90:40
nf90_get_var_6d_text
integer function nf90_get_var_6d_text(ncid, varid, values, start, count, stride, map)
Definition: netcdf_text_variables.f90:429
nf90_put_var_7d_text
integer function nf90_put_var_7d_text(ncid, varid, values, start, count, stride, map)
Definition: netcdf_text_variables.f90:237
nf90_get_var_text
integer function nf90_get_var_text(ncid, varid, values, start, count, stride, map)
Definition: netcdf_text_variables.f90:22
nf_get_varm_text
integer function nf_get_varm_text(ncid, varid, start, counts, strides, maps, text)
Definition: nf_varmio.F90:555
nf90_put_var_text
integer function nf90_put_var_text(ncid, varid, values, start, count, stride, map)
Definition: netcdf_text_variables.f90:2
nf_get_vars_text
function nf_get_vars_text(ncid, varid, start, counts, strides, text)
Definition: nf_varsio.F90:564
nf90_put_var_4d_text
integer function nf90_put_var_4d_text(ncid, varid, values, start, count, stride, map)
Definition: netcdf_text_variables.f90:141
nf90_get_var_1d_text
integer function nf90_get_var_1d_text(ncid, varid, values, start, count, stride, map)
Definition: netcdf_text_variables.f90:269
nf90_put_var_1d_text
integer function nf90_put_var_1d_text(ncid, varid, values, start, count, stride, map)
Definition: netcdf_text_variables.f90:45
nf90_get_var_5d_text
integer function nf90_get_var_5d_text(ncid, varid, values, start, count, stride, map)
Definition: netcdf_text_variables.f90:397
nf90_put_var_5d_text
integer function nf90_put_var_5d_text(ncid, varid, values, start, count, stride, map)
Definition: netcdf_text_variables.f90:173
nf90_get_var_3d_text
integer function nf90_get_var_3d_text(ncid, varid, values, start, count, stride, map)
Definition: netcdf_text_variables.f90:333
nf90_put_var_3d_text
integer function nf90_put_var_3d_text(ncid, varid, values, start, count, stride, map)
Definition: netcdf_text_variables.f90:109
nf90_get_var_7d_text
integer function nf90_get_var_7d_text(ncid, varid, values, start, count, stride, map)
Definition: netcdf_text_variables.f90:461
nf90_put_var_6d_text
integer function nf90_put_var_6d_text(ncid, varid, values, start, count, stride, map)
Definition: netcdf_text_variables.f90:205
nf90_get_var_2d_text
integer function nf90_get_var_2d_text(ncid, varid, values, start, count, stride, map)
Definition: netcdf_text_variables.f90:301
nf90_put_var_2d_text
integer function nf90_put_var_2d_text(ncid, varid, values, start, count, stride, map)
Definition: netcdf_text_variables.f90:77

Return to the Main Unidata NetCDF page.