elliptic_nome_01 Interface

public interface elliptic_nome_01

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

Calls

interface~~elliptic_nome_01~~CallsGraph interface~elliptic_nome_01 elliptic_nome_01 proc~elliptic_nome_01_real128 elliptic_nome_01_real128 interface~elliptic_nome_01->proc~elliptic_nome_01_real128 proc~elliptic_nome_01_real32 elliptic_nome_01_real32 interface~elliptic_nome_01->proc~elliptic_nome_01_real32 proc~elliptic_nome_01_real64 elliptic_nome_01_real64 interface~elliptic_nome_01->proc~elliptic_nome_01_real64 proc~calculate_pw01_epsilon~2 calculate_pw01_epsilon proc~elliptic_nome_01_real128->proc~calculate_pw01_epsilon~2 proc~evaluate_modulus~2 evaluate_modulus proc~elliptic_nome_01_real128->proc~evaluate_modulus~2 proc~calculate_pw01_epsilon calculate_pw01_epsilon proc~elliptic_nome_01_real32->proc~calculate_pw01_epsilon proc~evaluate_modulus evaluate_modulus proc~elliptic_nome_01_real32->proc~evaluate_modulus proc~calculate_pw01_epsilon~3 calculate_pw01_epsilon proc~elliptic_nome_01_real64->proc~calculate_pw01_epsilon~3 proc~evaluate_modulus~3 evaluate_modulus proc~elliptic_nome_01_real64->proc~evaluate_modulus~3

Module Procedures

public elemental function elliptic_nome_01_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_01_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_01_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