Searched refs:lam_lm (Results 1 – 3 of 3) sorted by relevance
/dports/science/healpix/Healpix_3.50/src/f90/mod/ |
H A D | mpi_alm_tools.f90 | 1139 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 D | alm_tools.F90 | 671 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 D | alm_map_template.F90 | 262 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 …]
|