gtvarinquire2.f90

Path: src/gtvarinquire2.f90
Last Update: Wed Jul 20 18:22:24 JST 2005

Methods

GTVarInquire2  

Included Modules

gtdata_types gtdata_generic dc_trace

Public Instance methods

GTVarInquire2(var, allcount)
var :type(GT_VARIABLE), intent(in)
allcount(:) :integer, intent(out)
: alldims ¸ÄɬÍ×

[Source]

subroutine GTVarInquire2(var, allcount)

    type(GT_VARIABLE), intent(in):: var
    ! alldims ¸ÄɬÍ×
    integer, intent(out):: allcount(:)
    integer:: i, n
    type(GT_VARIABLE):: v
    call beginsub('gtvarinquire2')
    call inquire(var, alldims=n)
    do, i = 1, n
        call Open(v, var, i, count_compact=.true.)
        call inquire(var, allcount=allcount(i))
        call Close(v)
    enddo
    call endsub('gtvarinquire2')
end subroutine

[Validate]