vec_equal_vec Function

private pure elemental function vec_equal_vec(a, b)

vec3 == vec3

Type Bound

vector

Arguments

Type IntentOptional Attributes Name
class(vector), intent(in) :: a

Input vec3s
class(vector), intent(in) :: b

Input vec3s

Return Value logical


Source Code

        logical pure elemental function vec_equal_vec(a, b)
            !! vec3 == vec3
            !> Input vec3s
            class(vector), intent(in) :: a, b

            vec_equal_vec = .false.

            if(a%x == b%x)then
                if(a%y == b%y)then
                    if(a%z == b%z)then
                        vec_equal_vec = .true.
                    end if
                end if
            end if           

        end function vec_equal_vec