cube_root Function

public pure elemental function cube_root(x) result(y)

Uses

  • proc~~cube_root~~UsesGraph proc~cube_root math_module::cube_root module~numbers_module numbers_module proc~cube_root->module~numbers_module module~kind_module kind_module module~numbers_module->module~kind_module iso_fortran_env iso_fortran_env module~kind_module->iso_fortran_env

Cube root of a number (real solution only).

Arguments

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

Return Value real(kind=wp)


Called by

proc~~cube_root~~CalledByGraph proc~cube_root math_module::cube_root proc~compute_libration_points crtbp_module::compute_libration_points proc~compute_libration_points->proc~cube_root proc~compute_libration_points_v2 crtbp_module::compute_libration_points_v2 proc~compute_libration_points_v2->proc~cube_root proc~compute_libration_points_v2->proc~compute_libration_points proc~crtbp_test crtbp_module::crtbp_test proc~crtbp_test->proc~compute_libration_points proc~crtbp_test->proc~compute_libration_points_v2 proc~halo_to_rv halo_orbit_module::halo_to_rv proc~halo_to_rv->proc~compute_libration_points proc~halo_orbit_test halo_orbit_module::halo_orbit_test proc~halo_orbit_test->proc~halo_to_rv proc~halo_to_rv_diffcorr halo_orbit_module::halo_to_rv_diffcorr proc~halo_to_rv_diffcorr->proc~halo_to_rv

Source Code

    pure elemental function cube_root(x) result(y)

    use numbers_module, only: one,three

    implicit none

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

    real(wp),parameter :: one_third = one/three

    y = sign( abs(x) ** one_third , x )

    end function cube_root