vec_mult_exp_scal_r8 Function

private pure elemental function vec_mult_exp_scal_r8(a, b)

Uses

vec3**scalar for 64-bit float scalar

Type Bound

vector

Arguments

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

Input Vector
real(kind=dp), intent(in) :: b

Input scalar

Return Value type(vector)


Source Code

        type(vector) pure elemental function vec_mult_exp_scal_r8(a, b)
            !! vec3**scalar for 64-bit float scalar

            use constants, only : dp
                
            !> Input Vector
            class(vector), intent(in) :: a
            !> Input scalar
            real(kind=dp), intent(in) :: b

            vec_mult_exp_scal_r8 = vector(a%x**b, a%y**b, a%z**b)

        end function vec_mult_exp_scal_r8