Program cswt_analysis

program cswt_analysis

        ! 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_free
    call cswt_tr_analysis
    call cswt_tr_free
    call cswt_tr_io_fits_write_wcoeff
    call parse_options
    call s2_sky_free

        ! 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_in
    character (len=S2_STRING_LEN) :: filename_out
    character (len=S2_STRING_LEN) :: filename_wavelet
    character (len=S2_STRING_LEN) :: filename_isotropic
    character (len=S2_STRING_LEN) :: wavelet_type
    integer :: i_param = 0
    integer :: n_param = 0
    integer :: n_gamma = 1
    integer :: lmax = 0
    integer :: mmax = 0
    integer :: nside
    integer :: fail
    integer :: file_extension = 1
    real (kind=s2_sp), allocatable, dimension (:) :: param
    integer :: method
    character (len=S2_STRING_LEN), parameter :: METHOD_FFT_REAL = 'fft_real'
    character (len=S2_STRING_LEN), parameter :: METHOD_FFT = 'fft'
    character (len=S2_STRING_LEN), parameter :: METHOD_DFT = 'dft'
    character (len=S2_STRING_LEN), parameter :: METHOD_ISOTROPIC = 'isotropic'
    character (len=S2_STRING_LEN), parameter :: METHOD_DIRECT = 'direct'
    character (len=S2_STRING_LEN) :: method_str = METHOD_FFT_REAL
    logical :: message = .true.
    type (s2_sky) :: data
    type (cswt_swav) :: swav_mother
    type (cswt_tr) :: tr
    logical :: time_it = .false.
    logical :: isotropic_out = .false.

        ! Subroutines and functions
    subroutine parse_options ()

end program cswt_analysis
Perform fast directional continuous spherical wavelet transform.

Usage: cswt_analysis

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_in

character (len=S2_STRING_LEN) :: filename_in

filename_out

character (len=S2_STRING_LEN) :: filename_out

filename_wavelet

character (len=S2_STRING_LEN) :: filename_wavelet

filename_isotropic

character (len=S2_STRING_LEN) :: filename_isotropic

wavelet_type

character (len=S2_STRING_LEN) :: wavelet_type

i_param

integer :: i_param = 0

n_param

integer :: n_param = 0

n_gamma

integer :: n_gamma = 1

lmax

integer :: lmax = 0

mmax

integer :: mmax = 0

nside

integer :: nside

fail

integer :: fail

file_extension

integer :: file_extension = 1

param

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

method

integer :: method

METHOD_FFT_REAL

character (len=S2_STRING_LEN), parameter :: METHOD_FFT_REAL = 'fft_real'

METHOD_FFT

character (len=S2_STRING_LEN), parameter :: METHOD_FFT = 'fft'

METHOD_DFT

character (len=S2_STRING_LEN), parameter :: METHOD_DFT = 'dft'

METHOD_ISOTROPIC

character (len=S2_STRING_LEN), parameter :: METHOD_ISOTROPIC = 'isotropic'

METHOD_DIRECT

character (len=S2_STRING_LEN), parameter :: METHOD_DIRECT = 'direct'

method_str

character (len=S2_STRING_LEN) :: method_str = METHOD_FFT_REAL

message

logical :: message = .true.

data

type (s2_sky) :: data

swav_mother

type (cswt_swav) :: swav_mother

tr

type (cswt_tr) :: tr

time_it

logical :: time_it = .false.

isotropic_out

logical :: isotropic_out = .false.

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