Program cswt_plot_swav

program cswt_plot_swav

        ! Uses
    use s2_types_mod
    use s2_sky_mod
    use cswt_error_mod
    use cswt_tmpl_mod
    use cswt_swav_mod
    use cswt_tr_mod

        ! Calls
    call cswt_error
    call cswt_swav_dilate
    call cswt_swav_free
    call cswt_swav_rotate
    call cswt_swav_write_map_file
    call cswt_tr_io_txt_dilation_read
    call parse_options

        ! Variables
    character (len=S2_STRING_LEN), parameter :: WAV_TYPE_FILE = 'file'
    character (len=S2_STRING_LEN), parameter :: WAV_TYPE_MEXHAT = 'mexhat'
    character (len=S2_STRING_LEN), parameter :: WAV_TYPE_BUTTERFLY = 'butterfly'
    character (len=S2_STRING_LEN), parameter :: WAV_TYPE_MORLET = 'morlet'
    character (len=S2_STRING_LEN) :: filename_dilation
    character (len=S2_STRING_LEN) :: filename_out_prefix
    character (len=S2_STRING_LEN) :: filename_out
    character (len=S2_STRING_LEN) :: wavelet_type
    logical :: center_on_equator
    logical :: norm_preserve
    real (kind=s2_sp), parameter :: ALPHA_CENTER = 0.0e0
    real (kind=s2_sp), parameter :: BETA_CENTER = pi / 2.0e0
    real (kind=s2_sp), parameter :: GAMMA_CENTER = pi
    integer :: i_param = 0
    integer :: n_param = 0
    integer :: nside
    integer :: i_dil
    integer :: fail
    real (kind=s2_sp), allocatable, dimension (:) :: param
    real (kind=s2_sp), allocatable, dimension (:,:) :: dilation
    type (cswt_swav) :: swav_mother
    type (cswt_swav) :: swav

        ! Subroutines and functions
    subroutine parse_options ()

end program cswt_plot_swav

Plot spherical wavelet for a range of dilations.

Usage: cswt_analysis

[-help]: Display usage information.
[-dil filename_dilation]: Name of dilation file containing dilations to consider.
[-out filename_out_prefix]: Name prefix of output spherical wavelet fits file. (Actual output file is appended with '_id**.fits' where ** is the dilation index.)
[-wav wavelet_type]: String specifying wavelet type.
[-nside nside]: Healpix nside resolution parameter.
[-cen center_on_equator]: Logical to specify whether to rotate spherical wavelet to equator for visualisation purposes.
[-norm norm_preserve]: Logical specifying whether to perform a norm preserving dilation.
[-npar n_param]: Number of wavelet parameters specified.
[-par param(i) (repeat n_param times)]: Wavelet parameters. Parameters are read sequentially on order appear in command line.

Author: J. D. McEwen (mcewen@mrao.cam.ac.uk)

Version: 0.1 - November 2004

Description of Variables

WAV_TYPE_FILE

character (len=S2_STRING_LEN), parameter :: WAV_TYPE_FILE = 'file'

WAV_TYPE_MEXHAT

character (len=S2_STRING_LEN), parameter :: WAV_TYPE_MEXHAT = 'mexhat'

WAV_TYPE_BUTTERFLY

character (len=S2_STRING_LEN), parameter :: WAV_TYPE_BUTTERFLY = 'butterfly'

WAV_TYPE_MORLET

character (len=S2_STRING_LEN), parameter :: WAV_TYPE_MORLET = 'morlet'

filename_dilation

character (len=S2_STRING_LEN) :: filename_dilation

filename_out_prefix

character (len=S2_STRING_LEN) :: filename_out_prefix

filename_out

character (len=S2_STRING_LEN) :: filename_out

wavelet_type

character (len=S2_STRING_LEN) :: wavelet_type

center_on_equator

logical :: center_on_equator

norm_preserve

logical :: norm_preserve

ALPHA_CENTER

real (kind=s2_sp), parameter :: ALPHA_CENTER = 0.0e0

BETA_CENTER

real (kind=s2_sp), parameter :: BETA_CENTER = pi / 2.0e0

GAMMA_CENTER

real (kind=s2_sp), parameter :: GAMMA_CENTER = pi

i_param

integer :: i_param = 0

n_param

integer :: n_param = 0

nside

integer :: nside

i_dil

integer :: i_dil

fail

integer :: fail

param

real (kind=s2_sp), allocatable, dimension (:) :: param

dilation

real (kind=s2_sp), allocatable, dimension (:,:) :: dilation

swav_mother

type (cswt_swav) :: swav_mother

swav

type (cswt_swav) :: swav

Description of Subroutines and Functions

parse_options

subroutine parse_options ()
    ! Calls: cswt_error, getArgument
end subroutine parse_options

Parse the options passed when program called. ! @author J. D. McEwen (mcewen@mrao.cam.ac.uk)

Version: 0.1 - November 2004