vec_mult_vec Function

private pure elemental function vec_mult_vec(a, b)

vec3 * vec3 elementwise

Type Bound

vector

Arguments

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

input vec3
type(vector), intent(in) :: b

vec3 to multiply by

Return Value type(vector)


Source Code

        type(vector) pure elemental function vec_mult_vec(a, b)
            !! vec3 * vec3 elementwise
            !> input vec3
            class(vector), intent(IN) :: a
            !> vec3 to multiply by
            type(vector),  intent(IN) :: b

            vec_mult_vec = vector(a%x * b%x, a%y * b%y, a%z * b%z)

        end function vec_mult_vec