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
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
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