power_of_p_exponent Function

public pure function power_of_p_exponent(N, p) result(exponent)

Arguments

Type IntentOptional Attributes Name
integer(kind=isp), intent(in) :: N
integer(kind=isp), intent(in) :: p

Return Value integer(kind=isp)


Source Code

    pure function power_of_p_exponent(N, p) result(exponent)
        integer(isp), intent(in) :: N, p
        integer(isp) :: exponent
        integer(isp) :: tmp

        exponent = 0
        tmp = N
        do while (tmp > 1)
            tmp = tmp / p
            exponent = exponent + 1
        end do
    end function power_of_p_exponent