Lines Matching refs:beamw
4400 real(DP), dimension(:,:), allocatable :: beamw local
4426 allocate(beamw(0:nlmax,1:nda), stat = status)
4428 call generate_beam(real(fwhm_arcmin,kind=dp), nlmax, beamw, beam_file)
4431 alm(i, m:nlmax, m) = alm(i, m:nlmax, m) * beamw(m:nlmax, i)
4434 deallocate(beamw)
4543 REAL(DP), DIMENSION(:,:), ALLOCATABLE :: pixlw, beamw local
4682 allocate(beamw(0:l_max,1:3), stat = status)
4684 call generate_beam(real(fwhm_arcmin,kind=dp), l_max, beamw, beam_file)
4696 beamw(0:l_max,1:3) = beamw(0:l_max,1:3) * pixlw(0:l_max,1:3)
4698 cls_tt(0:l_max) = cls_tt(0:l_max) * beamw(0:l_max,1)**2
4699 cls_tg(0:l_max) = cls_tg(0:l_max) * beamw(0:l_max,1)*beamw(0:l_max,2)
4700 cls_gg(0:l_max) = cls_gg(0:l_max) * beamw(0:l_max,2)**2
4701 cls_cc(0:l_max) = cls_cc(0:l_max) * beamw(0:l_max,3)**2
4703 deallocate(beamw)
4859 REAL(DP), DIMENSION(:,:), ALLOCATABLE :: pixlw, beamw local
5037 allocate(beamw(0:l_max,1:3), stat = status)
5039 call generate_beam(real(fwhm_arcmin,kind=dp), l_max, beamw, beam_file)
5051 beamw(0:l_max,1:3) = beamw(0:l_max,1:3) * pixlw(0:l_max,1:3)
5053 cls_tt(0:l_max) = cls_tt(0:l_max) * beamw(0:l_max,1)**2
5054 cls_gg(0:l_max) = cls_gg(0:l_max) * beamw(0:l_max,2)**2
5055 cls_cc(0:l_max) = cls_cc(0:l_max) * beamw(0:l_max,3)**2
5056 cls_tg(0:l_max) = cls_tg(0:l_max) * beamw(0:l_max,1)*beamw(0:l_max,2)
5057 cls_tc(0:l_max) = cls_tc(0:l_max) * beamw(0:l_max,1)*beamw(0:l_max,3)
5058 cls_gc(0:l_max) = cls_gc(0:l_max) * beamw(0:l_max,2)*beamw(0:l_max,3)
5060 deallocate(beamw)