VSH_TOR_DP Function

private function VSH_TOR_DP(L, K, THETA, PHI) result(VSH_TOR)

Toroidal member of the "standard" (total-angular-momentum-coupled) vector spherical harmonic basis, . Identical to PVSH_TOR -- the toroidal member is common to both the polar and standard bases, since already carries total angular momentum with no admixture.

Warning

Identical to PVSH_TOR -- inherits the unnormalized ASSOC_LEGENDRE_AND_DERIV's stability limit (safe for at any ), not VSH_TOR_ALL's . See STABILITY_FINDINGS.md at the repo root, Part 2.

Returns: , complex 3-vector (identical to PVSH_TOR).

Arguments

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

Degree, .
integer(kind=i4), intent(in) :: K

Order, .
real(kind=dp), intent(in) :: THETA

Colatitude in radians, .
real(kind=dp), intent(in) :: PHI

Longitude in radians, .

Return Value complex(kind=dp), DIMENSION(3)


Calls

proc~~vsh_tor_dp~~CallsGraph proc~vsh_tor_dp VSH_TOR_DP interface~pvsh_tor PVSH_TOR proc~vsh_tor_dp->interface~pvsh_tor proc~pvsh_tor_dp PVSH_TOR_DP interface~pvsh_tor->proc~pvsh_tor_dp dcos dcos proc~pvsh_tor_dp->dcos dsin dsin proc~pvsh_tor_dp->dsin interface~assoc_legendre_and_deriv ASSOC_LEGENDRE_AND_DERIV proc~pvsh_tor_dp->interface~assoc_legendre_and_deriv interface~log_fact LOG_FACT proc~pvsh_tor_dp->interface~log_fact proc~assoc_legendre_and_deriv_dp ASSOC_LEGENDRE_AND_DERIV_DP interface~assoc_legendre_and_deriv->proc~assoc_legendre_and_deriv_dp proc~log_fact_dp LOG_FACT_DP interface~log_fact->proc~log_fact_dp proc~assoc_legendre_and_deriv_dp->interface~log_fact

Called by

proc~~vsh_tor_dp~~CalledByGraph proc~vsh_tor_dp VSH_TOR_DP interface~vsh_tor VSH_TOR interface~vsh_tor->proc~vsh_tor_dp proc~batch_vsh_tor_cons BATCH_VSH_TOR_CONS proc~batch_vsh_tor_cons->interface~vsh_tor proc~bench_vsh_tor BENCH_VSH_TOR proc~bench_vsh_tor->interface~vsh_tor proc~test1_vsh TEST1_VSH proc~test1_vsh->interface~vsh_tor program~convergence_main CONVERGENCE_MAIN program~convergence_main->interface~vsh_tor program~convergence_main->proc~batch_vsh_tor_cons program~bench_main BENCH_MAIN program~bench_main->proc~bench_vsh_tor program~main MAIN program~main->proc~batch_vsh_tor_cons program~main->proc~test1_vsh

Source Code

  FUNCTION VSH_TOR_DP(L,K,THETA,PHI) RESULT(VSH_TOR)
  IMPLICIT NONE
  INTEGER(KIND=i4), INTENT(IN) :: L
  INTEGER(KIND=i4), INTENT(IN) :: K
  REAL(KIND=dp), INTENT(IN) :: THETA
  REAL(KIND=dp), INTENT(IN) :: PHI
  COMPLEX(KIND=dp) :: YLM
  COMPLEX(KIND=dp), DIMENSION(3) :: VSH_TOR
  VSH_TOR = PVSH_TOR(L,K,THETA,PHI)
  RETURN
  END FUNCTION VSH_TOR_DP