Searched refs:class_eq (Results 1 – 1 of 1) sorted by relevance
48 module procedure class_eq81 elemental logical function class_eq(x,y) function83 class_eq = x%which == y%which84 end function class_eq