program s2dw_wavplot ! Uses use s2dw_types_mod use s2dw_error_mod use s2dw_core_mod use s2_sky_mod ! Calls call parse_options call s2_sky_compute_map call s2_sky_free call s2_sky_rotate call s2_sky_write_map_file call s2dw_core_init_directionality call s2dw_core_init_kernels call s2dw_error ! Variables complex (kind=dpc), allocatable, dimension (:,:) :: flm complex (kind=spc), allocatable, dimension (:,:) :: flm_temp real (kind=dp), allocatable, dimension (:,:) :: K_gamma real (kind=dp), allocatable, dimension (:) :: Phi2 complex (kind=dpc), allocatable, dimension (:,:) :: Slm real (kind=dp), allocatable, dimension (:) :: admiss integer :: J integer :: J_max integer :: B integer :: N integer :: bl_scoeff real (kind=dp) :: alpha integer :: nside type (s2_sky) :: sky integer :: fail = 0 integer :: el integer :: m integer :: jj character (len=STRING_LEN) :: filename_out real (kind=sp), parameter :: ALPHA_CENTER = 0.0e0 real (kind=sp), parameter :: BETA_CENTER = pi / 2.0e0 real (kind=sp), parameter :: GAMMA_CENTER = pi logical :: rotate logical :: admiss_pass ! Subroutines and functions subroutine parse_options () end program s2dw_wavplotComputes a Healpix sky map of wavelet for a given j for subsequent plotting.
Usage: s2dw_wavplot
Author: J. D. McEwen (mcewen@mrao.cam.ac.uk)
Version: 0.1 - November 2007
complex (kind=dpc), allocatable, dimension (:,:) :: flm
complex (kind=spc), allocatable, dimension (:,:) :: flm_temp
real (kind=dp), allocatable, dimension (:,:) :: K_gamma
real (kind=dp), allocatable, dimension (:) :: Phi2
complex (kind=dpc), allocatable, dimension (:,:) :: Slm
real (kind=dp), allocatable, dimension (:) :: admiss
integer :: J
integer :: J_max
integer :: B
integer :: N
integer :: bl_scoeff
real (kind=dp) :: alpha
integer :: nside
type (s2_sky) :: sky
integer :: fail = 0
integer :: el
integer :: m
integer :: jj
character (len=STRING_LEN) :: filename_out
real (kind=sp), parameter :: ALPHA_CENTER = 0.0e0
real (kind=sp), parameter :: BETA_CENTER = pi / 2.0e0
real (kind=sp), parameter :: GAMMA_CENTER = pi
logical :: rotate
logical :: admiss_pass
subroutine parse_options () ! Calls: getArgument end subroutine parse_optionsParses the options passed when program called. ! @author J. D. McEwen (mcewen@mrao.cam.ac.uk)
Version: 0.1 - November 2007