equals_key_t Function

public function equals_key_t(this, k) result(r)

Arguments

Type IntentOptional Attributes Name
class(key_t), intent(in) :: this
type(key_t), intent(in) :: k

Return Value logical


Contents

Source Code

equals_key_t

Source Code

    function equals_key_t(this, k) result(r)
        class(key_t), intent(in) :: this
        type(key_t), intent(in) :: k
        logical :: r
        r = trim(adjustl(this%k)) == trim(adjustl(k%k))
    end function equals_key_t