gtvarslicendims.f90

Go to the documentation of this file.

subroutine gtvarslicendims(var, ndims, shape, err)
    use gtdata_types, only: gt_variable
    use gtdata_generic, only: inquire, get_slice
    implicit none
    type(gt_variable), intent(inout):: var
    integer, intent(in):: ndims
    integer, intent(in), optional:: shape(:)
    logical, intent(out), optional:: err
    integer:: nd
    integer, allocatable:: vcount(:)
    call inquire(var, alldims=nd)
    allocate(vcount(nd))
    call get_slice(var, count=vcount(:))
    if (present(err)) err = .true.
    stop 'gtvarslicendims: not implemented'
end subroutine