calculate_pw04_epsilon Subroutine

private elemental subroutine calculate_pw04_epsilon(pw02_k, comp_k, sqrt_comp_k, pw01_eps, pw04_eps)

calculate the auxiliary parameter and for the given elliptic modulus

Arguments

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

real(kind=real32), intent(in) :: comp_k

real(kind=real32), intent(out) :: sqrt_comp_k

real(kind=real32), intent(out) :: pw01_eps

auxiliary parameter

real(kind=real32), intent(out) :: pw04_eps


Calls

proc~~calculate_pw04_epsilon~~CallsGraph proc~calculate_pw04_epsilon calculate_pw04_epsilon proc~calculate_pw01_epsilon calculate_pw01_epsilon proc~calculate_pw04_epsilon->proc~calculate_pw01_epsilon

Called by

proc~~calculate_pw04_epsilon~~CalledByGraph proc~calculate_pw04_epsilon calculate_pw04_epsilon proc~elliptic_nome_05_real32 elliptic_nome_05_real32 proc~elliptic_nome_05_real32->proc~calculate_pw04_epsilon proc~elliptic_nome_09_real32 elliptic_nome_09_real32 proc~elliptic_nome_09_real32->proc~calculate_pw04_epsilon proc~elliptic_nome_13_real32 elliptic_nome_13_real32 proc~elliptic_nome_13_real32->proc~calculate_pw04_epsilon proc~elliptic_nome_17_real32 elliptic_nome_17_real32 proc~elliptic_nome_17_real32->proc~calculate_pw04_epsilon proc~elliptic_nome_21_real32 elliptic_nome_21_real32 proc~elliptic_nome_21_real32->proc~calculate_pw04_epsilon proc~elliptic_nome_25_real32 elliptic_nome_25_real32 proc~elliptic_nome_25_real32->proc~calculate_pw04_epsilon proc~elliptic_nome_29_real32 elliptic_nome_29_real32 proc~elliptic_nome_29_real32->proc~calculate_pw04_epsilon proc~elliptic_nome_33_real32 elliptic_nome_33_real32 proc~elliptic_nome_33_real32->proc~calculate_pw04_epsilon proc~elliptic_nome_auto_real32 elliptic_nome_auto_real32 proc~elliptic_nome_auto_real32->proc~calculate_pw04_epsilon interface~elliptic_nome_05 elliptic_nome_05 interface~elliptic_nome_05->proc~elliptic_nome_05_real32 interface~elliptic_nome_09 elliptic_nome_09 interface~elliptic_nome_09->proc~elliptic_nome_09_real32 interface~elliptic_nome_13 elliptic_nome_13 interface~elliptic_nome_13->proc~elliptic_nome_13_real32 interface~elliptic_nome_17 elliptic_nome_17 interface~elliptic_nome_17->proc~elliptic_nome_17_real32 interface~elliptic_nome_21 elliptic_nome_21 interface~elliptic_nome_21->proc~elliptic_nome_21_real32 interface~elliptic_nome_25 elliptic_nome_25 interface~elliptic_nome_25->proc~elliptic_nome_25_real32 interface~elliptic_nome_29 elliptic_nome_29 interface~elliptic_nome_29->proc~elliptic_nome_29_real32 interface~elliptic_nome_33 elliptic_nome_33 interface~elliptic_nome_33->proc~elliptic_nome_33_real32 interface~elliptic_nome_auto elliptic_nome_auto interface~elliptic_nome_auto->proc~elliptic_nome_auto_real32

Variables

Type Visibility Attributes Name Initial
real(kind=real32), private :: pw02_eps

Source Code

    elemental subroutine calculate_pw04_epsilon(pw02_k, comp_k, sqrt_comp_k, pw01_eps, pw04_eps)
        !! calculate the auxiliary parameter \( \varepsilon \) and \( { \varepsilon }^{ 4 } \)
        !! for the given elliptic modulus \( k \)

        real(real32), intent(in) :: pw02_k !! \( { k }^{ 2 } \)

        real(real32), intent(in) :: comp_k !! \( { k }^{ \prime } \)

        real(real32), intent(out) :: sqrt_comp_k !! \( \sqrt{ { k }^{ \prime } } \)

        real(real32), intent(out) :: pw01_eps !! auxiliary parameter \( \varepsilon \)

        real(real32), intent(out) :: pw04_eps !! \( { \varepsilon }^{ 4 } \)



        real(real32) :: pw02_eps



        call calculate_pw01_epsilon( &!
        &        pw02_k   = pw02_k      , &!
        &        comp_k   = comp_k      , &!
        &   sqrt_comp_k   = sqrt_comp_k , &!
        &        pw01_eps = pw01_eps      &!
        )

        pw02_eps = pw01_eps * pw01_eps
        pw04_eps = pw02_eps * pw02_eps

    end subroutine calculate_pw04_epsilon