vec_minus_scal Function

private pure elemental function vec_minus_scal(a, b)

vec3 - scalar

Type Bound

vector

Arguments

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

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

Scalar to subtract

Return Value type(vector)


Source Code

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

            vec_minus_scal = vector(a%x - b, a%y - b, a%z - b)

        end function vec_minus_scal