program cswt_mask_apply
! Uses
use s2_types_mod
use cswt_tr_mod
! Calls
call cswt_tr_free
call cswt_tr_io_fits_write_wcoeff
call cswt_tr_mask_apply
call parse_options
! Variables
character (len=S2_STRING_LEN) :: filename_wcoeff
character (len=S2_STRING_LEN) :: filename_mask
character (len=S2_STRING_LEN) :: filename_out
type (cswt_tr) :: tr
type (cswt_tr) :: tr_mask
logical, parameter :: DISPLAY_MASK_DEFAULT = .false.
logical :: display_mask = DISPLAY_MASK_DEFAULT
! Subroutines and functions
subroutine parse_options ()
end program cswt_mask_apply
Apply an extended coefficient exclusion mask to wavelet coefficients.
Notes:
Author: J. D. McEwen (mcewen@mrao.cam.ac.uk)
Version: 0.1 - November 2004
character (len=S2_STRING_LEN) :: filename_wcoeff
character (len=S2_STRING_LEN) :: filename_mask
character (len=S2_STRING_LEN) :: filename_out
type (cswt_tr) :: tr
type (cswt_tr) :: tr_mask
logical, parameter :: DISPLAY_MASK_DEFAULT = .false.
logical :: display_mask = DISPLAY_MASK_DEFAULT
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