YLM_INDEX Function

public function YLM_INDEX(L, M)

1D index for into the output arrays of every batch _ALL routine that needs the full range (SSH_ALL, GRAD_SSH_ALL, L_SSH_ALL, and every batch VSH routine).

Returns: Index , .

Arguments

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

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

Order, .

Return Value integer(kind=i4)


Called by

proc~~ylm_index~~CalledByGraph proc~ylm_index YLM_INDEX proc~batch_grad_ssh_cons BATCH_GRAD_SSH_CONS proc~batch_grad_ssh_cons->proc~ylm_index interface~grad_ssh_all GRAD_SSH_ALL proc~batch_grad_ssh_cons->interface~grad_ssh_all proc~batch_l_ssh_cons BATCH_L_SSH_CONS proc~batch_l_ssh_cons->proc~ylm_index interface~l_ssh_all L_SSH_ALL proc~batch_l_ssh_cons->interface~l_ssh_all proc~batch_pvsh_pol_cons BATCH_PVSH_POL_CONS proc~batch_pvsh_pol_cons->proc~ylm_index interface~pvsh_pol_all PVSH_POL_ALL proc~batch_pvsh_pol_cons->interface~pvsh_pol_all proc~batch_pvsh_rad_cons BATCH_PVSH_RAD_CONS proc~batch_pvsh_rad_cons->proc~ylm_index interface~pvsh_rad_all PVSH_RAD_ALL proc~batch_pvsh_rad_cons->interface~pvsh_rad_all proc~batch_pvsh_tor_cons BATCH_PVSH_TOR_CONS proc~batch_pvsh_tor_cons->proc~ylm_index interface~pvsh_tor_all PVSH_TOR_ALL proc~batch_pvsh_tor_cons->interface~pvsh_tor_all proc~batch_ssh_cons BATCH_SSH_CONS proc~batch_ssh_cons->proc~ylm_index interface~ssh_all SSH_ALL proc~batch_ssh_cons->interface~ssh_all proc~batch_vsh_pol_dn_cons BATCH_VSH_POL_DN_CONS proc~batch_vsh_pol_dn_cons->proc~ylm_index interface~vsh_pol_dn_all VSH_POL_DN_ALL proc~batch_vsh_pol_dn_cons->interface~vsh_pol_dn_all proc~batch_vsh_pol_up_cons BATCH_VSH_POL_UP_CONS proc~batch_vsh_pol_up_cons->proc~ylm_index interface~vsh_pol_up_all VSH_POL_UP_ALL proc~batch_vsh_pol_up_cons->interface~vsh_pol_up_all proc~batch_vsh_tor_cons BATCH_VSH_TOR_CONS proc~batch_vsh_tor_cons->proc~ylm_index interface~vsh_tor_all VSH_TOR_ALL proc~batch_vsh_tor_cons->interface~vsh_tor_all proc~pvsh_pol_all_dp PVSH_POL_ALL_DP proc~pvsh_pol_all_dp->proc~ylm_index interface~vsh_core VSH_CORE proc~pvsh_pol_all_dp->interface~vsh_core proc~pvsh_pol_tor_ortho PVSH_POL_TOR_ORTHO proc~pvsh_pol_tor_ortho->proc~ylm_index proc~pvsh_pol_tor_ortho->interface~pvsh_pol_all proc~pvsh_pol_tor_ortho->interface~pvsh_tor_all proc~pvsh_tor_all_dp PVSH_TOR_ALL_DP proc~pvsh_tor_all_dp->proc~ylm_index proc~pvsh_tor_all_dp->interface~vsh_core proc~run_part_a RUN_PART_A proc~run_part_a->proc~ylm_index proc~decompose DECOMPOSE proc~run_part_a->proc~decompose proc~run_part_a~2 RUN_PART_A proc~run_part_a~2->proc~ylm_index proc~decompose~2 DECOMPOSE proc~run_part_a~2->proc~decompose~2 proc~ssh_all_dp SSH_ALL_DP proc~ssh_all_dp->proc~ylm_index proc~vsh_core_dp VSH_CORE_DP proc~vsh_core_dp->proc~ylm_index proc~vsh_pol_dn_all_dp VSH_POL_DN_ALL_DP proc~vsh_pol_dn_all_dp->proc~ylm_index proc~vsh_pol_dn_all_dp->interface~vsh_core proc~vsh_pol_inversion VSH_POL_INVERSION proc~vsh_pol_inversion->proc~ylm_index proc~vsh_pol_inversion->interface~pvsh_pol_all proc~vsh_pol_inversion->interface~vsh_pol_dn_all proc~vsh_pol_inversion->interface~vsh_pol_up_all proc~vsh_pol_inversion->interface~pvsh_rad_all proc~vsh_pol_up_all_dp VSH_POL_UP_ALL_DP proc~vsh_pol_up_all_dp->proc~ylm_index proc~vsh_pol_up_all_dp->interface~vsh_core program~convergence_main CONVERGENCE_MAIN program~convergence_main->proc~ylm_index program~convergence_main->proc~batch_ssh_cons program~convergence_main->proc~batch_vsh_pol_dn_cons program~convergence_main->proc~batch_vsh_pol_up_cons program~convergence_main->proc~batch_vsh_tor_cons program~convergence_main->interface~ssh_all program~convergence_main->interface~vsh_pol_dn_all program~convergence_main->interface~vsh_pol_up_all program~convergence_main->interface~vsh_tor_all interface~pvsh_pol_all->proc~pvsh_pol_all_dp interface~pvsh_tor_all->proc~pvsh_tor_all_dp interface~ssh_all->proc~ssh_all_dp interface~vsh_core->proc~vsh_core_dp interface~vsh_pol_dn_all->proc~vsh_pol_dn_all_dp interface~vsh_pol_up_all->proc~vsh_pol_up_all_dp program~main MAIN program~main->proc~batch_grad_ssh_cons program~main->proc~batch_l_ssh_cons program~main->proc~batch_pvsh_pol_cons program~main->proc~batch_pvsh_rad_cons program~main->proc~batch_pvsh_tor_cons program~main->proc~batch_ssh_cons program~main->proc~batch_vsh_pol_dn_cons program~main->proc~batch_vsh_pol_up_cons program~main->proc~batch_vsh_tor_cons program~main->proc~pvsh_pol_tor_ortho program~main->proc~vsh_pol_inversion program~vsh_decomposition VSH_DECOMPOSITION program~vsh_decomposition->proc~run_part_a proc~run_part_b RUN_PART_B program~vsh_decomposition->proc~run_part_b program~vsh_decomposition_tor VSH_DECOMPOSITION_TOR program~vsh_decomposition_tor->proc~run_part_a~2 proc~run_part_b~2 RUN_PART_B program~vsh_decomposition_tor->proc~run_part_b~2 proc~bench_ssh BENCH_SSH proc~bench_ssh->interface~ssh_all proc~bench_vsh_pol_dn BENCH_VSH_POL_DN proc~bench_vsh_pol_dn->interface~vsh_pol_dn_all proc~bench_vsh_pol_up BENCH_VSH_POL_UP proc~bench_vsh_pol_up->interface~vsh_pol_up_all proc~decompose->interface~pvsh_pol_all proc~decompose->interface~pvsh_tor_all proc~decompose->interface~pvsh_rad_all proc~decompose~2->interface~pvsh_pol_all proc~decompose~2->interface~pvsh_tor_all proc~decompose~2->interface~pvsh_rad_all proc~grad_ssh_all_dp GRAD_SSH_ALL_DP proc~grad_ssh_all_dp->interface~vsh_core proc~l_ssh_all_dp L_SSH_ALL_DP proc~l_ssh_all_dp->interface~vsh_core proc~pvsh_rad_all_dp PVSH_RAD_ALL_DP proc~pvsh_rad_all_dp->interface~vsh_core proc~reconstruct RECONSTRUCT proc~reconstruct->interface~pvsh_pol_all proc~reconstruct->interface~pvsh_tor_all proc~reconstruct->interface~pvsh_rad_all proc~reconstruct~2 RECONSTRUCT proc~reconstruct~2->interface~pvsh_pol_all proc~reconstruct~2->interface~pvsh_tor_all proc~reconstruct~2->interface~pvsh_rad_all proc~vsh_tor_all_dp VSH_TOR_ALL_DP proc~vsh_tor_all_dp->interface~pvsh_tor_all interface~grad_ssh_all->proc~grad_ssh_all_dp interface~l_ssh_all->proc~l_ssh_all_dp interface~pvsh_rad_all->proc~pvsh_rad_all_dp interface~vsh_tor_all->proc~vsh_tor_all_dp proc~run_part_b->proc~decompose proc~run_part_b->proc~reconstruct proc~run_part_b~2->proc~decompose~2 proc~run_part_b~2->proc~reconstruct~2 program~bench_main BENCH_MAIN program~bench_main->proc~bench_ssh program~bench_main->proc~bench_vsh_pol_dn program~bench_main->proc~bench_vsh_pol_up proc~bench_vsh_tor BENCH_VSH_TOR program~bench_main->proc~bench_vsh_tor proc~bench_vsh_tor->interface~vsh_tor_all

Source Code

  FUNCTION YLM_INDEX(L, M)
  IMPLICIT NONE
  INTEGER(KIND=i4), INTENT(IN) :: L
  INTEGER(KIND=i4), INTENT(IN) :: M
  INTEGER(KIND=i4) :: YLM_INDEX
  YLM_INDEX = L**2 + L + M + 1
  END FUNCTION YLM_INDEX