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