elliptic_nome_fortran_real128 – DSCF-1224/elliptic_nome

Type	Visibility	Attributes		Name		Initial
real(kind=real128),	private,	parameter	::	c_01	=	1.0_real128
real(kind=real128),	private,	parameter	::	c_05	=	2.0_real128
real(kind=real128),	private,	parameter	::	c_09	=	15.0_real128
real(kind=real128),	private,	parameter	::	c_13	=	150.0_real128
real(kind=real128),	private,	parameter	::	c_17	=	1707.0_real128
real(kind=real128),	private,	parameter	::	c_21	=	20910.0_real128
real(kind=real128),	private,	parameter	::	c_25	=	268616.0_real128
real(kind=real128),	private,	parameter	::	c_29	=	3567400.0_real128
real(kind=real128),	private,	parameter	::	c_33	=	48555069.0_real128
real(kind=real128),	private,	parameter	::	q_err	=	tiny(0.0_real128)

public elemental function elliptic_nome_01_real128(k) result(q)

Calculate the elliptic nome $q$ using the Horner's method and the following polynomial: $\begin{align*} \varepsilon &:= \frac{ 1 }{ 2 } \frac{ 1 - \sqrt{ { k }^{ \prime } } }{ 1 + \sqrt{ { k }^{ \prime } } } \\ q(\varepsilon) &:= \varepsilon \end{align*}$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real128),	intent(in)			::	k	elliptic modulus $k$

Return Value real(kind=real128)

elliptic nome $q$

public elemental function elliptic_nome_05_real128(k) result(q)

Calculate the elliptic nome $q$ using the Horner's method and the following polynomial: $\begin{align*} \varepsilon &:= \frac{ 1 }{ 2 } \frac{ 1 - \sqrt{ { k }^{ \prime } } }{ 1 + \sqrt{ { k }^{ \prime } } } \\ q(\varepsilon) &:= \varepsilon \\ & + 2 { \varepsilon }^{ 5 } \end{align*}$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real128),	intent(in)			::	k	elliptic modulus $k$

Return Value real(kind=real128)

elliptic nome $q$

public elemental function elliptic_nome_09_real128(k) result(q)

Calculate the elliptic nome $q$ using the Horner's method and the following polynomial: $\begin{align*} \varepsilon &:= \frac{ 1 }{ 2 } \frac{ 1 - \sqrt{ { k }^{ \prime } } }{ 1 + \sqrt{ { k }^{ \prime } } } \\ q(\varepsilon) &:= \varepsilon \\ & + 2 { \varepsilon }^{ 5 } \\ & + 15 { \varepsilon }^{ 9 } \end{align*}$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real128),	intent(in)			::	k	elliptic modulus $k$

Return Value real(kind=real128)

elliptic nome $q$

public elemental function elliptic_nome_13_real128(k) result(q)

Calculate the elliptic nome $q$ using the Horner's method and the following polynomial: $\begin{align*} \varepsilon &:= \frac{ 1 }{ 2 } \frac{ 1 - \sqrt{ { k }^{ \prime } } }{ 1 + \sqrt{ { k }^{ \prime } } } \\ q(\varepsilon) &:= \varepsilon \\ & + 2 { \varepsilon }^{ 5 } \\ & + 15 { \varepsilon }^{ 9 } \\ & + 150 { \varepsilon }^{ 13 } \end{align*}$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real128),	intent(in)			::	k	elliptic modulus $k$

Return Value real(kind=real128)

elliptic nome $q$

public elemental function elliptic_nome_17_real128(k) result(q)

Calculate the elliptic nome $q$ using the Horner's method and the following polynomial: $\begin{align*} \varepsilon &:= \frac{ 1 }{ 2 } \frac{ 1 - \sqrt{ { k }^{ \prime } } }{ 1 + \sqrt{ { k }^{ \prime } } } \\ q(\varepsilon) &:= \varepsilon \\ & + 2 { \varepsilon }^{ 5 } \\ & + 15 { \varepsilon }^{ 9 } \\ & + 150 { \varepsilon }^{ 13 } \\ & + 1707 { \varepsilon }^{ 17 } \end{align*}$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real128),	intent(in)			::	k	elliptic modulus $k$

Return Value real(kind=real128)

elliptic nome $q$

public elemental function elliptic_nome_21_real128(k) result(q)

Calculate the elliptic nome $q$ using the Horner's method and the following polynomial: $\begin{align*} \varepsilon &:= \frac{ 1 }{ 2 } \frac{ 1 - \sqrt{ { k }^{ \prime } } }{ 1 + \sqrt{ { k }^{ \prime } } } \\ q(\varepsilon) &:= \varepsilon \\ & + 2 { \varepsilon }^{ 5 } \\ & + 15 { \varepsilon }^{ 9 } \\ & + 150 { \varepsilon }^{ 13 } \\ & + 1707 { \varepsilon }^{ 17 } \\ & + 20910 { \varepsilon }^{ 21 } \end{align*}$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real128),	intent(in)			::	k	elliptic modulus $k$

Return Value real(kind=real128)

elliptic nome $q$

public elemental function elliptic_nome_25_real128(k) result(q)

Calculate the elliptic nome $q$ using the Horner's method and the following polynomial: $\begin{align*} \varepsilon &:= \frac{ 1 }{ 2 } \frac{ 1 - \sqrt{ { k }^{ \prime } } }{ 1 + \sqrt{ { k }^{ \prime } } } \\ q(\varepsilon) &:= \varepsilon \\ & + 2 { \varepsilon }^{ 5 } \\ & + 15 { \varepsilon }^{ 9 } \\ & + 150 { \varepsilon }^{ 13 } \\ & + 1707 { \varepsilon }^{ 17 } \\ & + 20910 { \varepsilon }^{ 21 } \\ & + 268616 { \varepsilon }^{ 25 } \end{align*}$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real128),	intent(in)			::	k	elliptic modulus $k$

Return Value real(kind=real128)

elliptic nome $q$

public elemental function elliptic_nome_29_real128(k) result(q)

Calculate the elliptic nome $q$ using the Horner's method and the following polynomial: $\begin{align*} \varepsilon &:= \frac{ 1 }{ 2 } \frac{ 1 - \sqrt{ { k }^{ \prime } } }{ 1 + \sqrt{ { k }^{ \prime } } } \\ q(\varepsilon) &:= \varepsilon \\ & + 2 { \varepsilon }^{ 5 } \\ & + 15 { \varepsilon }^{ 9 } \\ & + 150 { \varepsilon }^{ 13 } \\ & + 1707 { \varepsilon }^{ 17 } \\ & + 20910 { \varepsilon }^{ 21 } \\ & + 268616 { \varepsilon }^{ 25 } \\ & + 3567400 { \varepsilon }^{ 29 } \end{align*}$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real128),	intent(in)			::	k	elliptic modulus $k$

Return Value real(kind=real128)

elliptic nome $q$

public elemental function elliptic_nome_33_real128(k) result(q)

Calculate the elliptic nome $q$ using the Horner's method and the following polynomial: $\begin{align*} \varepsilon &:= \frac{ 1 }{ 2 } \frac{ 1 - \sqrt{ { k }^{ \prime } } }{ 1 + \sqrt{ { k }^{ \prime } } } \\ q(\varepsilon) &:= \varepsilon \\ & + 2 { \varepsilon }^{ 5 } \\ & + 15 { \varepsilon }^{ 9 } \\ & + 150 { \varepsilon }^{ 13 } \\ & + 1707 { \varepsilon }^{ 17 } \\ & + 20910 { \varepsilon }^{ 21 } \\ & + 268616 { \varepsilon }^{ 25 } \\ & + 3567400 { \varepsilon }^{ 29 } \\ & + 48555069 { \varepsilon }^{ 33 } \end{align*}$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real128),	intent(in)			::	k	elliptic modulus $k$

Return Value real(kind=real128)

elliptic nome $q$

public elemental function elliptic_nome_auto_real128(k) result(q)

Calculate the elliptic nome $q$ for the given elliptic modulus $k$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real128),	intent(in)			::	k	elliptic modulus $k$

Return Value real(kind=real128)

elliptic nome $q$

private elemental function elliptic_nome_by_epsilon_05(pw01_eps, pw04_eps) result(q)

Calculate the elliptic nome $q$ using the Horner's method and the following polynomial: $\begin{align*} q(\varepsilon) &:= \varepsilon \\ & + 2 { \varepsilon }^{ 5 } \end{align*}$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real128),	intent(in)			::	pw01_eps	auxiliary parameter $\varepsilon$
real(kind=real128),	intent(in)			::	pw04_eps	${ \varepsilon }^{ 4 }$

Return Value real(kind=real128)

elliptic nome $q$

private elemental function elliptic_nome_by_epsilon_05_horner(pw01_eps, pw04_eps, pre_step) result(q)

Calculate the following for the given $\varepsilon$ and ${ \varepsilon }^{ 4 }$ : $\varepsilon ( 1 + { \varepsilon }^{ 4 } \cdot \texttt{pre_step} )$

Arguments

Type	Intent		Name
real(kind=real128),	intent(in)	::	pw01_eps	auxiliary parameter $\varepsilon$
real(kind=real128),	intent(in)	::	pw04_eps	${ \varepsilon }^{ 4 }$
real(kind=real128),	intent(in)	::	pre_step

Return Value real(kind=real128)

elliptic nome $q$

private elemental function elliptic_nome_by_epsilon_09(pw01_eps, pw04_eps) result(q)

Calculate the elliptic nome $q$ using the Horner's method and the following polynomial: $\begin{align*} q(\varepsilon) &:= \varepsilon \\ & + 2 { \varepsilon }^{ 5 } \\ & + 15 { \varepsilon }^{ 9 } \end{align*}$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real128),	intent(in)			::	pw01_eps	auxiliary parameter $\varepsilon$
real(kind=real128),	intent(in)			::	pw04_eps	${ \varepsilon }^{ 4 }$

Return Value real(kind=real128)

elliptic nome $q$

private elemental function elliptic_nome_by_epsilon_09_horner(pw01_eps, pw04_eps, pre_step) result(q)

Calculate the following for the given $\varepsilon$ and ${ \varepsilon }^{ 4 }$ : $\begin{aligned} \varepsilon \cdot {} & ( 1 + { \varepsilon }^{ 4 } \cdot \\ & ( 2 + { \varepsilon }^{ 4 } \cdot \texttt{pre_step} ) \\ & ) \\ \end{aligned}$

Arguments

Type	Intent		Name
real(kind=real128),	intent(in)	::	pw01_eps	auxiliary parameter $\varepsilon$
real(kind=real128),	intent(in)	::	pw04_eps	${ \varepsilon }^{ 4 }$
real(kind=real128),	intent(in)	::	pre_step

Return Value real(kind=real128)

elliptic nome $q$

private elemental function elliptic_nome_by_epsilon_13(pw01_eps, pw04_eps) result(q)

Calculate the elliptic nome $q$ using the Horner's method and the following polynomial: $\begin{align*} q(\varepsilon) &:= \varepsilon \\ & + 2 { \varepsilon }^{ 5 } \\ & + 15 { \varepsilon }^{ 9 } \\ & + 150 { \varepsilon }^{ 13 } \end{align*}$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real128),	intent(in)			::	pw01_eps	auxiliary parameter $\varepsilon$
real(kind=real128),	intent(in)			::	pw04_eps	${ \varepsilon }^{ 4 }$

Return Value real(kind=real128)

elliptic nome $q$

private elemental function elliptic_nome_by_epsilon_13_horner(pw01_eps, pw04_eps, pre_step) result(q)

Calculate the following for the given $\varepsilon$ and ${ \varepsilon }^{ 4 }$ : $\begin{aligned} \varepsilon \cdot {} & ( 1 + { \varepsilon }^{ 4 } \cdot \\ & ( 2 + { \varepsilon }^{ 4 } \cdot \\ & ( 15 + { \varepsilon }^{ 4 } \cdot \texttt{pre_step} ) \\ & ) \\ & ) \\ \end{aligned}$

Arguments

Type	Intent		Name
real(kind=real128),	intent(in)	::	pw01_eps	auxiliary parameter $\varepsilon$
real(kind=real128),	intent(in)	::	pw04_eps	${ \varepsilon }^{ 4 }$
real(kind=real128),	intent(in)	::	pre_step

Return Value real(kind=real128)

elliptic nome $q$

private elemental function elliptic_nome_by_epsilon_17(pw01_eps, pw04_eps) result(q)

Calculate the elliptic nome $q$ using the Horner's method and the following polynomial: $\begin{align*} q(\varepsilon) &:= \varepsilon \\ & + 2 { \varepsilon }^{ 5 } \\ & + 15 { \varepsilon }^{ 9 } \\ & + 150 { \varepsilon }^{ 13 } \\ & + 1707 { \varepsilon }^{ 17 } \end{align*}$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real128),	intent(in)			::	pw01_eps	auxiliary parameter $\varepsilon$
real(kind=real128),	intent(in)			::	pw04_eps	${ \varepsilon }^{ 4 }$

Return Value real(kind=real128)

elliptic nome $q$

private elemental function elliptic_nome_by_epsilon_17_horner(pw01_eps, pw04_eps, pre_step) result(q)

Calculate the following for the given $\varepsilon$ and ${ \varepsilon }^{ 4 }$ : $\begin{aligned} \varepsilon \cdot {} & ( 1 + { \varepsilon }^{ 4 } \cdot \\ & ( 2 + { \varepsilon }^{ 4 } \cdot \\ & ( 15 + { \varepsilon }^{ 4 } \cdot \\ & ( 150 + { \varepsilon }^{ 4 } \cdot \texttt{pre_step} ) \\ & ) \\ & ) \\ & ) \\ \end{aligned}$

Arguments

Type	Intent		Name
real(kind=real128),	intent(in)	::	pw01_eps	auxiliary parameter $\varepsilon$
real(kind=real128),	intent(in)	::	pw04_eps	${ \varepsilon }^{ 4 }$
real(kind=real128),	intent(in)	::	pre_step

Return Value real(kind=real128)

elliptic nome $q$

private elemental function elliptic_nome_by_epsilon_21(pw01_eps, pw04_eps) result(q)

Calculate the elliptic nome $q$ using the Horner's method and the following polynomial: $\begin{align*} q(\varepsilon) &:= \varepsilon \\ & + 2 { \varepsilon }^{ 5 } \\ & + 15 { \varepsilon }^{ 9 } \\ & + 150 { \varepsilon }^{ 13 } \\ & + 1707 { \varepsilon }^{ 17 } \\ & + 20910 { \varepsilon }^{ 21 } \end{align*}$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real128),	intent(in)			::	pw01_eps	auxiliary parameter $\varepsilon$
real(kind=real128),	intent(in)			::	pw04_eps	${ \varepsilon }^{ 4 }$

Return Value real(kind=real128)

elliptic nome $q$

private elemental function elliptic_nome_by_epsilon_21_horner(pw01_eps, pw04_eps, pre_step) result(q)

Calculate the following for the given $\varepsilon$ and ${ \varepsilon }^{ 4 }$ : $\begin{aligned} \varepsilon \cdot {} & ( 1 + { \varepsilon }^{ 4 } \cdot \\ & ( 2 + { \varepsilon }^{ 4 } \cdot \\ & ( 15 + { \varepsilon }^{ 4 } \cdot \\ & ( 150 + { \varepsilon }^{ 4 } \cdot \\ & ( 1707 + { \varepsilon }^{ 4 } \cdot \texttt{pre_step} ) \\ & ) \\ & ) \\ & ) \\ & ) \\ \end{aligned}$

Arguments

Type	Intent		Name
real(kind=real128),	intent(in)	::	pw01_eps	auxiliary parameter $\varepsilon$
real(kind=real128),	intent(in)	::	pw04_eps	${ \varepsilon }^{ 4 }$
real(kind=real128),	intent(in)	::	pre_step

Return Value real(kind=real128)

elliptic nome $q$

private elemental function elliptic_nome_by_epsilon_25(pw01_eps, pw04_eps) result(q)

Calculate the elliptic nome $q$ using the Horner's method and the following polynomial: $\begin{align*} q(\varepsilon) &:= \varepsilon \\ & + 2 { \varepsilon }^{ 5 } \\ & + 15 { \varepsilon }^{ 9 } \\ & + 150 { \varepsilon }^{ 13 } \\ & + 1707 { \varepsilon }^{ 17 } \\ & + 20910 { \varepsilon }^{ 21 } \\ & + 268616 { \varepsilon }^{ 25 } \end{align*}$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real128),	intent(in)			::	pw01_eps	auxiliary parameter $\varepsilon$
real(kind=real128),	intent(in)			::	pw04_eps	${ \varepsilon }^{ 4 }$

Return Value real(kind=real128)

elliptic nome $q$

private elemental function elliptic_nome_by_epsilon_25_horner(pw01_eps, pw04_eps, pre_step) result(q)

Calculate the following for the given $\varepsilon$ and ${ \varepsilon }^{ 4 }$ : $\begin{aligned} \varepsilon \cdot {} & ( 1 + { \varepsilon }^{ 4 } \cdot \\ & ( 2 + { \varepsilon }^{ 4 } \cdot \\ & ( 15 + { \varepsilon }^{ 4 } \cdot \\ & ( 150 + { \varepsilon }^{ 4 } \cdot \\ & ( 1707 + { \varepsilon }^{ 4 } \cdot \\ & ( 20910 + { \varepsilon }^{ 4 } \cdot \texttt{pre_step} ) \\ & ) \\ & ) \\ & ) \\ & ) \\ & ) \\ \end{aligned}$

Arguments

Type	Intent		Name
real(kind=real128),	intent(in)	::	pw01_eps	auxiliary parameter $\varepsilon$
real(kind=real128),	intent(in)	::	pw04_eps	${ \varepsilon }^{ 4 }$
real(kind=real128),	intent(in)	::	pre_step

Return Value real(kind=real128)

elliptic nome $q$

private elemental function elliptic_nome_by_epsilon_29(pw01_eps, pw04_eps) result(q)

Calculate the elliptic nome $q$ using the Horner's method and the following polynomial: $\begin{align*} q(\varepsilon) &:= \varepsilon \\ & + 2 { \varepsilon }^{ 5 } \\ & + 15 { \varepsilon }^{ 9 } \\ & + 150 { \varepsilon }^{ 13 } \\ & + 1707 { \varepsilon }^{ 17 } \\ & + 20910 { \varepsilon }^{ 21 } \\ & + 268616 { \varepsilon }^{ 25 } \\ & + 3567400 { \varepsilon }^{ 29 } \end{align*}$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real128),	intent(in)			::	pw01_eps	auxiliary parameter $\varepsilon$
real(kind=real128),	intent(in)			::	pw04_eps	${ \varepsilon }^{ 4 }$

Return Value real(kind=real128)

elliptic nome $q$

private elemental function elliptic_nome_by_epsilon_29_horner(pw01_eps, pw04_eps, pre_step) result(q)

Calculate the following for the given $\varepsilon$ and ${ \varepsilon }^{ 4 }$ : $\begin{aligned} \varepsilon \cdot {} & ( 1 + { \varepsilon }^{ 4 } \cdot \\ & ( 2 + { \varepsilon }^{ 4 } \cdot \\ & ( 15 + { \varepsilon }^{ 4 } \cdot \\ & ( 150 + { \varepsilon }^{ 4 } \cdot \\ & ( 1707 + { \varepsilon }^{ 4 } \cdot \\ & ( 20910 + { \varepsilon }^{ 4 } \cdot \\ & ( 268616 + { \varepsilon }^{ 4 } \cdot \texttt{pre_step} ) \\ & ) \\ & ) \\ & ) \\ & ) \\ & ) \\ & ) \\ \end{aligned}$

Arguments

Type	Intent		Name
real(kind=real128),	intent(in)	::	pw01_eps	auxiliary parameter $\varepsilon$
real(kind=real128),	intent(in)	::	pw04_eps	${ \varepsilon }^{ 4 }$
real(kind=real128),	intent(in)	::	pre_step

Return Value real(kind=real128)

elliptic nome $q$

private elemental function elliptic_nome_by_epsilon_33(pw01_eps, pw04_eps) result(q)

Calculate the elliptic nome $q$ using the Horner's method and the following polynomial: $\begin{align*} q(\varepsilon) &:= \varepsilon \\ & + 2 { \varepsilon }^{ 5 } \\ & + 15 { \varepsilon }^{ 9 } \\ & + 150 { \varepsilon }^{ 13 } \\ & + 1707 { \varepsilon }^{ 17 } \\ & + 20910 { \varepsilon }^{ 21 } \\ & + 268616 { \varepsilon }^{ 25 } \\ & + 3567400 { \varepsilon }^{ 29 } \\ & + 48555069 { \varepsilon }^{ 33 } \end{align*}$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real128),	intent(in)			::	pw01_eps	auxiliary parameter $\varepsilon$
real(kind=real128),	intent(in)			::	pw04_eps	${ \varepsilon }^{ 4 }$

Return Value real(kind=real128)

elliptic nome $q$

private elemental function elliptic_nome_by_epsilon_33_horner(pw01_eps, pw04_eps, pre_step) result(q)

Calculate the following for the given $\varepsilon$ and ${ \varepsilon }^{ 4 }$ : $\begin{aligned} \varepsilon \cdot {} & ( 1 + { \varepsilon }^{ 4 } \cdot \\ & ( 2 + { \varepsilon }^{ 4 } \cdot \\ & ( 15 + { \varepsilon }^{ 4 } \cdot \\ & ( 150 + { \varepsilon }^{ 4 } \cdot \\ & ( 1707 + { \varepsilon }^{ 4 } \cdot \\ & ( 20910 + { \varepsilon }^{ 4 } \cdot \\ & ( 268616 + { \varepsilon }^{ 4 } \cdot \\ & ( 3567400 + { \varepsilon }^{ 4 } \cdot \texttt{pre_step} ) \\ & ) \\ & ) \\ & ) \\ & ) \\ & ) \\ & ) \\ & ) \\ \end{aligned}$

Arguments

Type	Intent		Name
real(kind=real128),	intent(in)	::	pw01_eps	auxiliary parameter $\varepsilon$
real(kind=real128),	intent(in)	::	pw04_eps	${ \varepsilon }^{ 4 }$
real(kind=real128),	intent(in)	::	pre_step

Return Value real(kind=real128)

elliptic nome $q$

Type	Intent		Name
real(kind=real128),	intent(in)	::	pw02_k	${ k }^{ 2 }$
real(kind=real128),	intent(in)	::	comp_k	${ k }^{ \prime }$
real(kind=real128),	intent(out)	::	sqrt_comp_k	$\sqrt{ { k }^{ \prime } }$
real(kind=real128),	intent(out)	::	pw01_eps	auxiliary parameter $\varepsilon$

elliptic_nome_fortran_real128 Module

Contents

Variables

Functions

Subroutines

Uses

Used by

Variables

Functions

public elemental function elliptic_nome_01_real128(k) result(q)

Arguments

Return Value real(kind=real128)

public elemental function elliptic_nome_05_real128(k) result(q)

Arguments

Return Value real(kind=real128)

public elemental function elliptic_nome_09_real128(k) result(q)

Arguments

Return Value real(kind=real128)

public elemental function elliptic_nome_13_real128(k) result(q)

Arguments

Return Value real(kind=real128)

public elemental function elliptic_nome_17_real128(k) result(q)

Arguments

Return Value real(kind=real128)

public elemental function elliptic_nome_21_real128(k) result(q)

Arguments

Return Value real(kind=real128)

public elemental function elliptic_nome_25_real128(k) result(q)

Arguments

Return Value real(kind=real128)

public elemental function elliptic_nome_29_real128(k) result(q)

Arguments

Return Value real(kind=real128)

public elemental function elliptic_nome_33_real128(k) result(q)

Arguments

Return Value real(kind=real128)

public elemental function elliptic_nome_auto_real128(k) result(q)

Arguments

Return Value real(kind=real128)

private elemental function elliptic_nome_by_epsilon_05(pw01_eps, pw04_eps) result(q)

Arguments

Return Value real(kind=real128)

private elemental function elliptic_nome_by_epsilon_05_horner(pw01_eps, pw04_eps, pre_step) result(q)

Arguments

Return Value real(kind=real128)

private elemental function elliptic_nome_by_epsilon_09(pw01_eps, pw04_eps) result(q)

Arguments

Return Value real(kind=real128)

private elemental function elliptic_nome_by_epsilon_09_horner(pw01_eps, pw04_eps, pre_step) result(q)

Arguments

Return Value real(kind=real128)

private elemental function elliptic_nome_by_epsilon_13(pw01_eps, pw04_eps) result(q)

Arguments

Return Value real(kind=real128)

private elemental function elliptic_nome_by_epsilon_13_horner(pw01_eps, pw04_eps, pre_step) result(q)

Arguments

Return Value real(kind=real128)

private elemental function elliptic_nome_by_epsilon_17(pw01_eps, pw04_eps) result(q)

Arguments

Return Value real(kind=real128)

private elemental function elliptic_nome_by_epsilon_17_horner(pw01_eps, pw04_eps, pre_step) result(q)

Arguments

Return Value real(kind=real128)

private elemental function elliptic_nome_by_epsilon_21(pw01_eps, pw04_eps) result(q)

Arguments

Return Value real(kind=real128)

private elemental function elliptic_nome_by_epsilon_21_horner(pw01_eps, pw04_eps, pre_step) result(q)

Arguments

Return Value real(kind=real128)

private elemental function elliptic_nome_by_epsilon_25(pw01_eps, pw04_eps) result(q)

Arguments

Return Value real(kind=real128)

private elemental function elliptic_nome_by_epsilon_25_horner(pw01_eps, pw04_eps, pre_step) result(q)

Arguments

Return Value real(kind=real128)

private elemental function elliptic_nome_by_epsilon_29(pw01_eps, pw04_eps) result(q)

Arguments

Return Value real(kind=real128)

private elemental function elliptic_nome_by_epsilon_29_horner(pw01_eps, pw04_eps, pre_step) result(q)

Arguments