vec_add_scal Function

private pure elemental function vec_add_scal(a, b)

Elementwise vec4 + scalar

Type Bound

vec4

Arguments

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

Input vec4
real(kind=wp), intent(in) :: b

Scalar to add

Return Value type(vec4)


Source Code

        type(vec4) pure elemental function vec_add_scal(a, b)
            !! Elementwise vec4 + scalar
            !> Input vec4
            class(vec4),     intent(IN) :: a
            !> Scalar to add
            real(kind=wp),   intent(IN) :: b

            vec_add_scal = vec4(a%x + b, a%y + b, a%z + b, a%p + b)

        end function vec_add_scal