gtvarattrsearch.f90

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

Copyright (C) GFD Dennou Club, 2000. All rights reserved.

Methods

GTVarAttrNext   GTVarAttrRewind  

Included Modules

gtdata_types gt_map an_generic gt_mem

Public Instance methods

GTVarAttrNext(var, name, end)
var :type(GT_VARIABLE), intent(inout), target
name :character(len = *), intent(out)
end :logical, intent(out), optional

[Source]



subroutine GTVarAttrNext(var, name, end)

    implicit none
    type(GT_VARIABLE), intent(inout), target:: var
    character(len = *), intent(out):: name
    logical, intent(out), optional:: end
    integer:: class, cid
    call var_class(var, class, cid)
    select case(class)
    case(vtb_class_netcdf)
        call attr_next(an_variable(cid), name, end)
    case(vtb_class_memory)
        call attr_next(mem_variable(cid), name, end)
    end select
end subroutine
GTVarAttrRewind(var)
var :type(GT_VARIABLE), intent(inout), target

[Source]


subroutine GTVarAttrRewind(var)

    implicit none
    type(GT_VARIABLE), intent(inout), target:: var
    integer:: class, cid
    call var_class(var, class, cid)
    select case(class)
    case(vtb_class_netcdf)
        call attr_rewind(an_variable(cid))
    case(vtb_class_memory)
        call attr_rewind(mem_variable(cid))
    end select
end subroutine

[Validate]