Program cswt_swav_azbandlim

program cswt_swav_azbandlim

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

        ! Calls
    call cswt_error
    call cswt_swav_compute_alm
    call cswt_swav_dilate
    call cswt_swav_free
    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) :: wavelet_type
    logical :: norm_preserve
    integer :: i_param = 0
    integer :: n_param = 0
    integer :: nside
    integer :: lmax
    integer :: mmax
    integer :: fail
    integer :: mmax_min
    real (kind=s2_sp), allocatable, dimension (:) :: param
    real (kind=s2_sp), dimension (1,2) :: dilation = 1.0e0
    real (kind=s2_sp) :: dil1 = 1.0e0
    real (kind=s2_sp) :: dil2 = 1.0e0
    real (kind=s2_sp) :: cutoff_prop
    type (cswt_swav) :: swav

        ! Subroutines and functions
    subroutine parse_options ()

end program cswt_swav_azbandlim
Determine azimuthal band limit of wavelet.

Usage: cswt_swav_azbandlim

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

Version: 0.1 - May 2005


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'

wavelet_type

character (len=S2_STRING_LEN) :: wavelet_type

norm_preserve

logical :: norm_preserve

i_param

integer :: i_param = 0

n_param

integer :: n_param = 0

nside

integer :: nside

lmax

integer :: lmax

mmax

integer :: mmax

fail

integer :: fail

mmax_min

integer :: mmax_min

param

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

dilation

real (kind=s2_sp), dimension (1,2) :: dilation = 1.0e0

dil1

real (kind=s2_sp) :: dil1 = 1.0e0

dil2

real (kind=s2_sp) :: dil2 = 1.0e0

cutoff_prop

real (kind=s2_sp) :: cutoff_prop

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