program cswt_mask_copy ! Uses use s2_types_mod use s2_sky_mod use cswt_error_mod use cswt_tr_mod ! Calls call cswt_error call cswt_tr_free call cswt_tr_io_fits_write_wcoeff call cswt_tr_mask_copy call parse_options call s2_sky_free ! Variables character (len=S2_STRING_LEN) :: filename_wcoeff character (len=S2_STRING_LEN) :: filename_out character (len=S2_STRING_LEN), allocatable, dimension (:) :: filename_sky integer :: file_extension_sky = 1 integer :: i_dil = 0 integer :: n_dilation integer :: fail type (s2_sky), allocatable, dimension (:) :: sky_mask type (cswt_tr) :: tr_mask ! Subroutines and functions subroutine parse_options () end program cswt_mask_copyGenerate a coefficient exclusion mask defined in the ecp wavelet coefficient domain by simply converting a list of Healpix sky mask to the wavelet domain.
Notes:
Author: J. D. McEwen (mcewen@mrao.cam.ac.uk)
Version: 0.1 - December 2004
character (len=S2_STRING_LEN) :: filename_wcoeff
character (len=S2_STRING_LEN) :: filename_out
character (len=S2_STRING_LEN), allocatable, dimension (:) :: filename_sky
integer :: file_extension_sky = 1
integer :: i_dil = 0
integer :: n_dilation
integer :: fail
type (s2_sky), allocatable, dimension (:) :: sky_mask
type (cswt_tr) :: tr_mask
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