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_wavplot
Computes 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_options
Parses the options passed when program called.
! @author J. D. McEwen (mcewen@mrao.cam.ac.uk)
Version: 0.1 - November 2007