dcbrt Function

private pure function dcbrt(x)

Cube root of a real number.

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: x

Return Value real(kind=wp)


Called by

proc~~dcbrt~~CalledByGraph proc~dcbrt polyroots_module::dcbrt proc~dcbcrt polyroots_module::dcbcrt proc~dcbcrt->proc~dcbrt proc~dqtcrt polyroots_module::dqtcrt proc~dqtcrt->proc~dcbcrt

Source Code

pure real(wp) function dcbrt(x)

    implicit none

    real(wp), intent(in) :: x

    real(wp), parameter :: third = 1.0_wp/3.0_wp

    dcbrt = sign(abs(x)**third, x)

end function dcbrt