program s2dw_wav2sky ! Uses use s2dw_types_mod use s2dw_error_mod use s2dw_fileio_mod use s2dw_core_mod use s2_sky_mod ! Calls call parse_options call s2_sky_free call s2_sky_write_map_file call s2dw_core_free_wavdyn call s2dw_error call s2dw_fileio_fits_wav_read call s2dw_fileio_matlab_wav_read ! Variables type (s2dw_wav_abg), allocatable, dimension (:) :: wavdyn complex (kind=dpc), allocatable, dimension (:,:) :: scoeff integer :: J integer :: B integer :: N integer :: bl_scoeff real (kind=dp) :: alpha character (len=STRING_LEN) :: filename_in character (len=STRING_LEN) :: filename_out type (s2_sky) :: sky integer :: jj integer :: gg integer :: bl_hi integer :: nside integer :: pix_scheme logical :: interp logical :: all logical :: use_default_nside integer :: S2DW_FITS_FILENAME_EXT_LEN = 4 character (len=*), parameter :: FILE_TYPE_FITS = 'fits' character (len=*), parameter :: FILE_TYPE_MAT = 'm' character (len=STRING_LEN) :: file_type = FILE_TYPE_FITS ! Subroutines and functions subroutine parse_options () end program s2dw_wav2skyConverts wavelet coefficients read from a S2DW formatted fits/matlab file (equi-angular pixelisation) to a sky Healpix fits file. Either the sky corresponding to a specified dilation and orientation index may be written only, or skies corresponding to all dilations and orientations may be written.
Usage: s2dw_wav2sky
Author: J. D. McEwen (mcewen@mrao.cam.ac.uk)
Version: 0.1 - November 2007
type (s2dw_wav_abg), allocatable, dimension (:) :: wavdyn
complex (kind=dpc), allocatable, dimension (:,:) :: scoeff
integer :: J
integer :: B
integer :: N
integer :: bl_scoeff
real (kind=dp) :: alpha
character (len=STRING_LEN) :: filename_in
character (len=STRING_LEN) :: filename_out
type (s2_sky) :: sky
integer :: jj
integer :: gg
integer :: bl_hi
integer :: nside
integer :: pix_scheme
logical :: interp
logical :: all
logical :: use_default_nside
integer :: S2DW_FITS_FILENAME_EXT_LEN = 4
character (len=*), parameter :: FILE_TYPE_FITS = 'fits'
character (len=*), parameter :: FILE_TYPE_MAT = 'm'
character (len=STRING_LEN) :: file_type = FILE_TYPE_FITS
subroutine parse_options () ! Calls: getArgument end subroutine parse_optionsParses the options passed when program called. ! @author J. D. McEwen (mcewen@mrao.cam.ac.uk)
Version: 0.1 - November 2007