Program cswt_mask_nonzero_weight

program cswt_mask_nonzero_weight

        ! Uses
    use s2_types_mod
    use cswt_error_mod
    use cswt_tr_mod

        ! Calls
    call cswt_error
    call cswt_tr_free
    call cswt_tr_mask_nonzero_weight
    call parse_options

        ! Variables
    character (len=*), parameter :: SCREEN = 'screen'
    character (len=S2_STRING_LEN) :: filename_mask
    character (len=S2_STRING_LEN) :: filename_out
    type (cswt_tr) :: tr_mask
    real (kind=s2_sp), allocatable, dimension (:,:) :: prop
    integer :: i_dil
    integer :: i_gamma
    integer :: fail
    integer :: fileid

        ! Subroutines and functions
    subroutine parse_options ()

end program cswt_mask_nonzero_weight

Compute the weighted number of effecitve coefficients in the extended coefficient mask. Weights for each pixel are given by the size of the pixel on the sky for the ECP wavelet coefficient domain. The proportion is computed from . \sum_{all i s.t. mask_i > thres} w_i . ------------------------------------ . \sum_{all j} w_j for the map corresponding to each dilation and orientation.

Usage: cswt_mask_nonzero_weight

[-help]: Display usage information.
[-inp filename_mask]: Name of file containing extended coefficient
[-out filename_out]: Name of file to write results to. If not specified then results are written to the screen.

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

Version: 0.1 - December 2004

Description of Variables

SCREEN

character (len=*), parameter :: SCREEN = 'screen'

filename_mask

character (len=S2_STRING_LEN) :: filename_mask

filename_out

character (len=S2_STRING_LEN) :: filename_out

tr_mask

type (cswt_tr) :: tr_mask

prop

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

i_dil

integer :: i_dil

i_gamma

integer :: i_gamma

fail

integer :: fail

fileid

integer :: fileid

Description of Subroutines and Functions

parse_options

subroutine parse_options ()
    ! Calls: 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