gtvarequivalent.f90

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

Methods

gtvarequivalent  

Included Modules

gtdata_types gt_map

Public Instance methods

gtvarequivalent(var1, var2) result(result)
result :logical
var1 :type(gt_variable), intent(in)
var2 :type(gt_variable), intent(in)

[Source]

logical function gtvarequivalent(var1, var2) result(result)

    type(gt_variable), intent(in):: var1, var2
    integer:: class1, class2, cid1, cid2
    call var_class(var1, class1, cid1)
    call var_class(var2, class2, cid2)
    result = (class1 == class2) .and. (cid1 == cid2)
end function

[Validate]