Searched refs:phas_s2 (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 2731 allocate(phas_s2(0:nmmax,0:chunksize-1),stat = status) 2775 phas_s2 = 0_dpc 2809 call ring_analysis(nsmax, nlmax, nmmax, ring, nphl, phas_s2(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)
|