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