Searched refs:mfac_spin (Results 1 – 2 of 2) sorted by relevance
| /dports/science/healpix/Healpix_3.50/src/f90/mod/ |
| H A D | alm_tools.F90 | 704 subroutine do_lam_lm_spin(lmax, m, spin, cth, sth, mfac, mfac_spin, recfac_spin, lam_lm_spin) argument
716 real(DP), intent(in) :: cth, sth, mfac, mfac_spin local
752 log2val(1:2) = mfac_spin + ((m-aspin)*log(sth) + log10sss(1:2)) * ALN2_INV ! log_2(lam_mms)
762 log2val(1) = mfac_spin + ( (m-aspin)*log(ttho2) + log10sss(1)) * ALN2_INV ! log_2(lam_mms)
763 log2val(2) = mfac_spin + (-(m-aspin)*log(ttho2) + log10sss(2)) * ALN2_INV ! log_2(lam_mms)
|
| H A D | alm_map_template.F90 | 336 real(DP), dimension(:), allocatable :: mfac, mfac_spin local
384 allocate(mfac_spin(0:nmmax),stat = status)
414 call gen_mfac_spin(nmmax, spin, mfac_spin)
477 …call do_lam_lm_spin(nlmax, m, spin, cth(ithl), sth(ithl), mfac(m), mfac_spin(m), recfac_spin, lam_…
571 deallocate(mfac, mfac_spin)
2673 real(DP), dimension(:), allocatable :: mfac, mfac_spin local
2719 allocate(mfac_spin(0:nmmax),stat = status)
2750 call gen_mfac_spin(nmmax, spin, mfac_spin)
2855 …call do_lam_lm_spin(nlmax, m, spin, cth(ithl), sth(ithl), mfac(m), mfac_spin(m), recfac_spin, lam_…
2909 deallocate(mfac,mfac_spin)
|