scal_add_vec Function

private pure elemental function scal_add_vec(a, b)

vec3 + scalar

Type Bound

vector

Arguments

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

Scalar to add
class(vector), intent(in) :: b

Input vector

Return Value type(vector)


Source Code

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

            scal_add_vec = vector(b%x + a, b%y + a, b%z + a)

        end function scal_add_vec