Searched refs:phas_n2 (Results 1 – 1 of 1) sorted by relevance
| /dports/science/healpix/Healpix_3.50/src/f90/mod/ |
| H A D | alm_map_template.F90 | 2678 complex(DPC), dimension(:,:), allocatable :: phas_n1, phas_s1,phas_n2, phas_s2 local
2728 allocate(phas_n2(0:nmmax,0:chunksize-1),stat = status)
2774 phas_n2 = 0_dpc
2800 call ring_analysis(nsmax, nlmax, nmmax, ring, nphl, phas_n2(0,ithl), kphi0(ithl))
2859 php2 = phas_n2(m,ithl) + phas_s2(m,ithl) ! sum (if (l+m) even)
2860 phm2 = phas_n2(m,ithl) - phas_s2(m,ithl) ! diff (if (l+m) odd)
2908 deallocate(phas_n1,phas_s1,phas_n2,phas_s2)
|