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

elliptic modulus

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

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


Called by

proc~~evaluate_modulus~~CalledByGraph proc~evaluate_modulus evaluate_modulus proc~elliptic_nome_01_real32 elliptic_nome_01_real32 proc~elliptic_nome_01_real32->proc~evaluate_modulus proc~elliptic_nome_05_real32 elliptic_nome_05_real32 proc~elliptic_nome_05_real32->proc~evaluate_modulus proc~elliptic_nome_09_real32 elliptic_nome_09_real32 proc~elliptic_nome_09_real32->proc~evaluate_modulus proc~elliptic_nome_13_real32 elliptic_nome_13_real32 proc~elliptic_nome_13_real32->proc~evaluate_modulus proc~elliptic_nome_17_real32 elliptic_nome_17_real32 proc~elliptic_nome_17_real32->proc~evaluate_modulus proc~elliptic_nome_21_real32 elliptic_nome_21_real32 proc~elliptic_nome_21_real32->proc~evaluate_modulus proc~elliptic_nome_25_real32 elliptic_nome_25_real32 proc~elliptic_nome_25_real32->proc~evaluate_modulus proc~elliptic_nome_29_real32 elliptic_nome_29_real32 proc~elliptic_nome_29_real32->proc~evaluate_modulus proc~elliptic_nome_33_real32 elliptic_nome_33_real32 proc~elliptic_nome_33_real32->proc~evaluate_modulus proc~elliptic_nome_auto_real32 elliptic_nome_auto_real32 proc~elliptic_nome_auto_real32->proc~evaluate_modulus interface~elliptic_nome_01 elliptic_nome_01 interface~elliptic_nome_01->proc~elliptic_nome_01_real32 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

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

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

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



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

    end subroutine evaluate_modulus