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_copy
Generate 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_options
Parse the options passed when program called.
Author: J. D. McEwen (mcewen@mrao.cam.ac.uk)
Version: 0.1 - November 2004