evaluate_modulus Subroutine

private elemental subroutine evaluate_modulus(k, pw02_k, comp_k)

Calculate and for the given elliptic modulus

Arguments

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

elliptic modulus

real(kind=real128), intent(out) :: pw02_k

real(kind=real128), intent(out) :: comp_k


Called by

proc~~evaluate_modulus~2~~CalledByGraph proc~evaluate_modulus~2 evaluate_modulus proc~elliptic_nome_01_real128 elliptic_nome_01_real128 proc~elliptic_nome_01_real128->proc~evaluate_modulus~2 proc~elliptic_nome_05_real128 elliptic_nome_05_real128 proc~elliptic_nome_05_real128->proc~evaluate_modulus~2 proc~elliptic_nome_09_real128 elliptic_nome_09_real128 proc~elliptic_nome_09_real128->proc~evaluate_modulus~2 proc~elliptic_nome_13_real128 elliptic_nome_13_real128 proc~elliptic_nome_13_real128->proc~evaluate_modulus~2 proc~elliptic_nome_17_real128 elliptic_nome_17_real128 proc~elliptic_nome_17_real128->proc~evaluate_modulus~2 proc~elliptic_nome_21_real128 elliptic_nome_21_real128 proc~elliptic_nome_21_real128->proc~evaluate_modulus~2 proc~elliptic_nome_25_real128 elliptic_nome_25_real128 proc~elliptic_nome_25_real128->proc~evaluate_modulus~2 proc~elliptic_nome_29_real128 elliptic_nome_29_real128 proc~elliptic_nome_29_real128->proc~evaluate_modulus~2 proc~elliptic_nome_33_real128 elliptic_nome_33_real128 proc~elliptic_nome_33_real128->proc~evaluate_modulus~2 proc~elliptic_nome_auto_real128 elliptic_nome_auto_real128 proc~elliptic_nome_auto_real128->proc~evaluate_modulus~2 interface~elliptic_nome_01 elliptic_nome_01 interface~elliptic_nome_01->proc~elliptic_nome_01_real128 interface~elliptic_nome_05 elliptic_nome_05 interface~elliptic_nome_05->proc~elliptic_nome_05_real128 interface~elliptic_nome_09 elliptic_nome_09 interface~elliptic_nome_09->proc~elliptic_nome_09_real128 interface~elliptic_nome_13 elliptic_nome_13 interface~elliptic_nome_13->proc~elliptic_nome_13_real128 interface~elliptic_nome_17 elliptic_nome_17 interface~elliptic_nome_17->proc~elliptic_nome_17_real128 interface~elliptic_nome_21 elliptic_nome_21 interface~elliptic_nome_21->proc~elliptic_nome_21_real128 interface~elliptic_nome_25 elliptic_nome_25 interface~elliptic_nome_25->proc~elliptic_nome_25_real128 interface~elliptic_nome_29 elliptic_nome_29 interface~elliptic_nome_29->proc~elliptic_nome_29_real128 interface~elliptic_nome_33 elliptic_nome_33 interface~elliptic_nome_33->proc~elliptic_nome_33_real128 interface~elliptic_nome_auto elliptic_nome_auto interface~elliptic_nome_auto->proc~elliptic_nome_auto_real128

Source Code

    elemental subroutine evaluate_modulus(k, pw02_k, comp_k)
        !! Calculate \( { k }^{ 2 } \) 
        !! and \( { k }^{ \prime } := \sqrt{ 1 - { k }^{ 2 } } \) 
        !! for the given elliptic modulus \( k \)

        real(real128), intent(in) :: k !! elliptic modulus \( k \)

        real(real128), intent(out) :: pw02_k !! \( { k }^{ 2 } \)

        real(real128), intent(out) :: comp_k !! \( { k }^{ \prime } \)



        pw02_k = k * k
        comp_k = sqrt(1.0_real128 - pw02_k)

    end subroutine evaluate_modulus