scal_mult_vec Function

private pure elemental function scal_mult_vec(a, b)

Elementwise Scalar * vec4

Type Bound

vec4

Arguments

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

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

Input vec4

Return Value type(vec4)


Source Code

        type(vec4) pure elemental function scal_mult_vec(a, b)
            !! Elementwise Scalar * vec4
            !> Input vec4
            class(vec4),   intent(IN) :: b
            !> Scalar to multiply by
            real(kind=wp), intent(IN) :: a

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

        end function scal_mult_vec