gtvarattrtrue.f90

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

gtvarattrtrue.f90 - 論理型属性の入力 Copyright (C) GFD Dennou Club, 2000. All rights reserved.

Methods

GTVarAttrTrue  

Included Modules

gtdata_types gt_map an_generic gt_mem dc_error

Public Instance methods

GTVarAttrTrue(var, name, default) result(result)
result :logical
var :type(GT_VARIABLE), intent(in)
name :character(len = *), intent(in)
default :logical, intent(in), optional

[Source]

logical function GTVarAttrTrue(var, name, default) result(result)

    implicit none
    type(GT_VARIABLE), intent(in):: var
    character(len = *), intent(in):: name
    logical, intent(in), optional:: default
    integer:: class, cid
    call var_class(var, class, cid)
    if (class == vtb_class_netcdf) then
        call Get_Attr(an_variable(cid), name, result, default)
    else if (class == vtb_class_memory) then
        result = Attr_True(memvar_t(cid), name, default)
    else
        call StoreError(GT_ENOTVAR, "GTVarAttrTrue(NO VARIABLE)")
        result = .FALSE.
    endif
end function

[Validate]