Searched refs:phas_n1 (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
2722 allocate(phas_n1(0:nmmax,0:chunksize-1),stat = status)
2772 phas_n1 = 0_dpc
2797 call ring_analysis(nsmax, nlmax, nmmax, ring, nphl, phas_n1(0,ithl), kphi0(ithl))
2857 php1 = phas_n1(m,ithl) + phas_s1(m,ithl) ! sum (if (l+m) even)
2858 phm1 = phas_n1(m,ithl) - phas_s1(m,ithl) ! diff (if (l+m) odd)
2908 deallocate(phas_n1,phas_s1,phas_n2,phas_s2)
|