GWI Interface

public interface GWI

Calls

interface~~gwi~~CallsGraph interface~gwi GWI proc~gwi_dp GWI_DP interface~gwi->proc~gwi_dp interface~cgcoeff CGCOEFF proc~gwi_dp->interface~cgcoeff proc~cgcoeff_dp CGCOEFF_DP interface~cgcoeff->proc~cgcoeff_dp interface~log_fact LOG_FACT proc~cgcoeff_dp->interface~log_fact proc~log_fact_dp LOG_FACT_DP interface~log_fact->proc~log_fact_dp

Called by

interface~~gwi~~CalledByGraph interface~gwi GWI proc~run_gwi_sweep RUN_GWI_SWEEP proc~run_gwi_sweep->interface~gwi proc~test1_gw TEST1_GW proc~test1_gw->interface~gwi proc~test2_gw TEST2_GW proc~test2_gw->interface~gwi program~gwi_gwj_sweep GWI_GWJ_SWEEP program~gwi_gwj_sweep->proc~run_gwi_sweep program~main MAIN program~main->proc~test1_gw program~main->proc~test2_gw

Module Procedures

private function GWI_DP(J1, M1, J2, M2, L, M) result(GWI)

Geppert-Wiebicke axisymmetric coupling coefficient (Geppert & Wiebicke, 1991), a compact shorthand for the generation/amplification amplitude of a two-mode interaction in the Hall-MHD induction equation: This is algebraically the standard Gaunt coefficient -- the closed form for -- written in terms of two CGCOEFF evaluations. Built entirely from CGCOEFF, which guards all selection rules, so GWI is safe to call with any integer sextuple and returns 0 for invalid combinations (unlike GWJ, see its own selection-rule note).

Read more…

Arguments

Type IntentOptional Attributes Name
integer(kind=i4), intent(in) :: J1

First coupled degree, .
integer(kind=i4), intent(in) :: M1

First coupled order, .
integer(kind=i4), intent(in) :: J2

Second coupled degree, .
integer(kind=i4), intent(in) :: M2

Second coupled order, .
integer(kind=i4), intent(in) :: L

Resulting degree, .
integer(kind=i4), intent(in) :: M

Resulting order, .

Return Value complex(kind=dp)