vec_div_scal_r8 Function

private pure elemental function vec_div_scal_r8(a, b)

Uses

vec3 / scalar elementwise. Scalar is a 64-bit float

Type Bound

vector

Arguments

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

input vec3
real(kind=dp), intent(in) :: b

Scalar to divide by

Return Value type(vector)


Source Code

        type(vector) pure elemental function vec_div_scal_r8(a, b)
            !! vec3 / scalar elementwise. Scalar is a 64-bit float
            use constants, only : dp
            !> input vec3
            class(vector), intent(IN) :: a
            !> Scalar to divide by
            real(kind=dp), intent(IN) :: b

            vec_div_scal_r8 = vector(a%x / b, a%y / b, a%z / b)

        end function vec_div_scal_r8