scal_mult_vec Function

private pure elemental function scal_mult_vec(a, b)

Scalar * vec3 elementwise

Type Bound

vector

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: a

Scalar to multiply by
class(vector), intent(in) :: b

input vec3

Return Value type(vector)


Source Code

        type(vector) pure elemental function scal_mult_vec(a, b)
            !! Scalar * vec3 elementwise
            !> input vec3
            class(vector), intent(IN) :: b
            !> Scalar to multiply by
            real(kind=wp), intent(IN) :: a

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

        end function scal_mult_vec