elliptic_nome_21 Interface

public interface elliptic_nome_21

Calculate the elliptic nome using the Horner's method and the following polynomial:

Calls

interface~~elliptic_nome_21~~CallsGraph interface~elliptic_nome_21 elliptic_nome_21 proc~elliptic_nome_21_real128 elliptic_nome_21_real128 interface~elliptic_nome_21->proc~elliptic_nome_21_real128 proc~elliptic_nome_21_real32 elliptic_nome_21_real32 interface~elliptic_nome_21->proc~elliptic_nome_21_real32 proc~elliptic_nome_21_real64 elliptic_nome_21_real64 interface~elliptic_nome_21->proc~elliptic_nome_21_real64 proc~calculate_pw04_epsilon~2 calculate_pw04_epsilon proc~elliptic_nome_21_real128->proc~calculate_pw04_epsilon~2 proc~elliptic_nome_by_epsilon_21~2 elliptic_nome_by_epsilon_21 proc~elliptic_nome_21_real128->proc~elliptic_nome_by_epsilon_21~2 proc~evaluate_modulus~2 evaluate_modulus proc~elliptic_nome_21_real128->proc~evaluate_modulus~2 proc~calculate_pw04_epsilon calculate_pw04_epsilon proc~elliptic_nome_21_real32->proc~calculate_pw04_epsilon proc~elliptic_nome_by_epsilon_21 elliptic_nome_by_epsilon_21 proc~elliptic_nome_21_real32->proc~elliptic_nome_by_epsilon_21 proc~evaluate_modulus evaluate_modulus proc~elliptic_nome_21_real32->proc~evaluate_modulus proc~calculate_pw04_epsilon~3 calculate_pw04_epsilon proc~elliptic_nome_21_real64->proc~calculate_pw04_epsilon~3 proc~elliptic_nome_by_epsilon_21~3 elliptic_nome_by_epsilon_21 proc~elliptic_nome_21_real64->proc~elliptic_nome_by_epsilon_21~3 proc~evaluate_modulus~3 evaluate_modulus proc~elliptic_nome_21_real64->proc~evaluate_modulus~3 proc~calculate_pw01_epsilon calculate_pw01_epsilon proc~calculate_pw04_epsilon->proc~calculate_pw01_epsilon proc~calculate_pw01_epsilon~2 calculate_pw01_epsilon proc~calculate_pw04_epsilon~2->proc~calculate_pw01_epsilon~2 proc~calculate_pw01_epsilon~3 calculate_pw01_epsilon proc~calculate_pw04_epsilon~3->proc~calculate_pw01_epsilon~3 proc~elliptic_nome_by_epsilon_21_horner elliptic_nome_by_epsilon_21_horner proc~elliptic_nome_by_epsilon_21->proc~elliptic_nome_by_epsilon_21_horner proc~elliptic_nome_by_epsilon_21_horner~2 elliptic_nome_by_epsilon_21_horner proc~elliptic_nome_by_epsilon_21~2->proc~elliptic_nome_by_epsilon_21_horner~2 proc~elliptic_nome_by_epsilon_21_horner~3 elliptic_nome_by_epsilon_21_horner proc~elliptic_nome_by_epsilon_21~3->proc~elliptic_nome_by_epsilon_21_horner~3 proc~elliptic_nome_by_epsilon_17_horner elliptic_nome_by_epsilon_17_horner proc~elliptic_nome_by_epsilon_21_horner->proc~elliptic_nome_by_epsilon_17_horner proc~elliptic_nome_by_epsilon_17_horner~2 elliptic_nome_by_epsilon_17_horner proc~elliptic_nome_by_epsilon_21_horner~2->proc~elliptic_nome_by_epsilon_17_horner~2 proc~elliptic_nome_by_epsilon_17_horner~3 elliptic_nome_by_epsilon_17_horner proc~elliptic_nome_by_epsilon_21_horner~3->proc~elliptic_nome_by_epsilon_17_horner~3 proc~elliptic_nome_by_epsilon_13_horner elliptic_nome_by_epsilon_13_horner proc~elliptic_nome_by_epsilon_17_horner->proc~elliptic_nome_by_epsilon_13_horner proc~elliptic_nome_by_epsilon_13_horner~2 elliptic_nome_by_epsilon_13_horner proc~elliptic_nome_by_epsilon_17_horner~2->proc~elliptic_nome_by_epsilon_13_horner~2 proc~elliptic_nome_by_epsilon_13_horner~3 elliptic_nome_by_epsilon_13_horner proc~elliptic_nome_by_epsilon_17_horner~3->proc~elliptic_nome_by_epsilon_13_horner~3 proc~elliptic_nome_by_epsilon_09_horner elliptic_nome_by_epsilon_09_horner proc~elliptic_nome_by_epsilon_13_horner->proc~elliptic_nome_by_epsilon_09_horner proc~elliptic_nome_by_epsilon_09_horner~2 elliptic_nome_by_epsilon_09_horner proc~elliptic_nome_by_epsilon_13_horner~2->proc~elliptic_nome_by_epsilon_09_horner~2 proc~elliptic_nome_by_epsilon_09_horner~3 elliptic_nome_by_epsilon_09_horner proc~elliptic_nome_by_epsilon_13_horner~3->proc~elliptic_nome_by_epsilon_09_horner~3 proc~elliptic_nome_by_epsilon_05_horner elliptic_nome_by_epsilon_05_horner proc~elliptic_nome_by_epsilon_09_horner->proc~elliptic_nome_by_epsilon_05_horner proc~elliptic_nome_by_epsilon_05_horner~2 elliptic_nome_by_epsilon_05_horner proc~elliptic_nome_by_epsilon_09_horner~2->proc~elliptic_nome_by_epsilon_05_horner~2 proc~elliptic_nome_by_epsilon_05_horner~3 elliptic_nome_by_epsilon_05_horner proc~elliptic_nome_by_epsilon_09_horner~3->proc~elliptic_nome_by_epsilon_05_horner~3

Module Procedures

public elemental function elliptic_nome_21_real32(k) result(q)

Calculate the elliptic nome using the Horner's method and the following polynomial:

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=real32), intent(in) :: k

elliptic modulus

Return Value real(kind=real32)

elliptic nome

public elemental function elliptic_nome_21_real64(k) result(q)

Calculate the elliptic nome using the Horner's method and the following polynomial:

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: k

elliptic modulus

Return Value real(kind=real64)

elliptic nome

public elemental function elliptic_nome_21_real128(k) result(q)

Calculate the elliptic nome using the Horner's method and the following polynomial:

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=real128), intent(in) :: k

elliptic modulus

Return Value real(kind=real128)

elliptic nome