vec_div_scal_int Function

private pure elemental function vec_div_scal_int(a, b)

Elementwise vec4 / Scalar. Scalar is an integer

Type Bound

vec4

Arguments

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

Input vec4
integer, intent(in) :: b

Scalar to divide by

Return Value type(vec4)


Source Code

        type(vec4) pure elemental function vec_div_scal_int(a, b)
            !! Elementwise vec4 / Scalar. Scalar is an integer

            !> Input vec4
            class(vec4),   intent(IN) :: a
            !> Scalar to divide by
            integer,     intent(IN) :: b

            vec_div_scal_int = vec4(a%x / real(b, kind=wp), a%y / real(b, kind=wp), a%z / real(b, kind=wp), a%p / real(b, kind=wp))

        end function vec_div_scal_int