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=real64), intent(in) :: k

elliptic modulus

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

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


Called by

proc~~evaluate_modulus~3~~CalledByGraph proc~evaluate_modulus~3 evaluate_modulus proc~elliptic_nome_01_real64 elliptic_nome_01_real64 proc~elliptic_nome_01_real64->proc~evaluate_modulus~3 proc~elliptic_nome_05_real64 elliptic_nome_05_real64 proc~elliptic_nome_05_real64->proc~evaluate_modulus~3 proc~elliptic_nome_09_real64 elliptic_nome_09_real64 proc~elliptic_nome_09_real64->proc~evaluate_modulus~3 proc~elliptic_nome_13_real64 elliptic_nome_13_real64 proc~elliptic_nome_13_real64->proc~evaluate_modulus~3 proc~elliptic_nome_17_real64 elliptic_nome_17_real64 proc~elliptic_nome_17_real64->proc~evaluate_modulus~3 proc~elliptic_nome_21_real64 elliptic_nome_21_real64 proc~elliptic_nome_21_real64->proc~evaluate_modulus~3 proc~elliptic_nome_25_real64 elliptic_nome_25_real64 proc~elliptic_nome_25_real64->proc~evaluate_modulus~3 proc~elliptic_nome_29_real64 elliptic_nome_29_real64 proc~elliptic_nome_29_real64->proc~evaluate_modulus~3 proc~elliptic_nome_33_real64 elliptic_nome_33_real64 proc~elliptic_nome_33_real64->proc~evaluate_modulus~3 proc~elliptic_nome_auto_real64 elliptic_nome_auto_real64 proc~elliptic_nome_auto_real64->proc~evaluate_modulus~3 interface~elliptic_nome_01 elliptic_nome_01 interface~elliptic_nome_01->proc~elliptic_nome_01_real64 interface~elliptic_nome_05 elliptic_nome_05 interface~elliptic_nome_05->proc~elliptic_nome_05_real64 interface~elliptic_nome_09 elliptic_nome_09 interface~elliptic_nome_09->proc~elliptic_nome_09_real64 interface~elliptic_nome_13 elliptic_nome_13 interface~elliptic_nome_13->proc~elliptic_nome_13_real64 interface~elliptic_nome_17 elliptic_nome_17 interface~elliptic_nome_17->proc~elliptic_nome_17_real64 interface~elliptic_nome_21 elliptic_nome_21 interface~elliptic_nome_21->proc~elliptic_nome_21_real64 interface~elliptic_nome_25 elliptic_nome_25 interface~elliptic_nome_25->proc~elliptic_nome_25_real64 interface~elliptic_nome_29 elliptic_nome_29 interface~elliptic_nome_29->proc~elliptic_nome_29_real64 interface~elliptic_nome_33 elliptic_nome_33 interface~elliptic_nome_33->proc~elliptic_nome_33_real64 interface~elliptic_nome_auto elliptic_nome_auto interface~elliptic_nome_auto->proc~elliptic_nome_auto_real64

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(real64), intent(in) :: k !! elliptic modulus \( k \)

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

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



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

    end subroutine evaluate_modulus