sin_vec Function

private pure elemental function sin_vec(p)

Sine of a vec4, elementwise

Arguments

Type	Intent	Optional	Attributes		Name
type(vec4),	intent(in)			::	p	Input vec4

Return Value type(vec4)

Source Code

        type(vec4) pure elemental function sin_vec(p)
            !! Sine of a vec4, elementwise
            !> Input vec4
            type(vec4), intent(IN) :: p

            sin_vec = vec4(sin(p%x), sin(p%y), sin(p%z), sin(p%p))

        end function sin_vec