gtvarslicendims.f90

Path: gtvarslicendims.f90
Last Update: Wed Jul 20 18:22:24 +0900 2005

Required files

gtdata_types.f90   gtdata_generic.f90  

Methods

GTVarSliceNDims  

Included Modules

gtdata_types gtdata_generic

Public Instance methods

GTVarSliceNDims( var, ndims, [shape], [err] )
Subroutine :
var :type(GT_VARIABLE), intent(inout)
ndims :integer, intent(in)
shape(:) :integer, intent(in), optional
err :logical, intent(out), optional

[Source]

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

[Validate]