Home
last modified time | relevance | path

Searched refs:lam_lm (Results 1 – 3 of 3) sorted by relevance

/dports/science/healpix/Healpix_3.50/src/f90/mod/
H A Dmpi_alm_tools.f901139 real(DP) :: lam_lm, cth_ring local
1278 lam_lm = plm(i_mm,1)
1307 lam_lm = plm(i_mm+l-m,1)
1330 lam_lm = plm(i_mm+l-m,1)
1672 lam_lm = corfac * lam_mm
1673 b_ns( 1) = cmplx(lam_lm * dalm(0,m), lam_lm * dalm(1,m), kind=DP)
1690 … & + cmplx(lam_lm * dalm(0,l), lam_lm * dalm(1,l), kind=DP) ! increment even or odd
2286 lam_lm = plm(i_mm,1)
2346 lam_lm = plm(i_mm+l-m,1)
2698 plm_sub(1, m, ithl) = lam_lm
[all …]
H A Dalm_tools.F90671 lam_lm(0:lmax) = 0.0_dp
673 lam_lm(m) = lam_mm * corfac
682 lam_lm(l) = lam_2 * corfac * lam_mm
867 lam_lm(1:3,m:lmax) = 0.0_dp
872 lam_lm(2,m) = (normal_m * lam_lm(1,m)) * ( 0.5_dp - one_on_s2 )
873 lam_lm(3,m) = (normal_m * lam_lm(1,m)) * c_on_s2
884 lam_lm(1,l) = lam_2 * corfac * lam_mm
890 lam_lm(2,l) = b_w * lam_lm1m - a_w * lam_lm(1,l)
891 lam_lm(3,l) = fm_on_s2 * ( lam_lm1m - a_x * lam_lm(1,l))
1304 plm_sub(1, m, ithl) = lam_lm
[all …]
H A Dalm_map_template.F90262 deallocate (recfac,dalm,lam_lm)
309 deallocate (ring,recfac,lam_lm,dalm)
1155 lam_lm = plm(i_mm)
1669 lam_lm = corfac * lam_mm
2071 f2 = m * lam_lm(2,l)
2089 derY = a0 * lam_lm(1,l) - at * lam_lm(1,l-1)
2096 derW = a0 * lam_lm(2,l) - aq * lam_lm(2,l-1) + xp * lam_lm(3,l)
2097 derX = a0 * lam_lm(3,l) - aq * lam_lm(3,l-1) + xp * lam_lm(2,l)
2120 der2W = b0p * lam_lm(2,l) + bx * lam_lm(3,l) - cotanth * derW
2121 der2X = b0p * lam_lm(3,l) + bx * lam_lm(2,l) - cotanth * derX
[all …]