program s2_sky2plplot ! Uses use s2_types_mod use s2_pl_mod use s2_sky_mod ! Calls call parse_options call s2_pl_free call s2_pl_plot call s2_sky_compute_alm call s2_sky_dilate call s2_sky_free ! Variables character (len=S2_STRING_LEN) :: filename_sky character (len=S2_STRING_LEN) :: filename_out logical :: scale = .true. character (len=S2_STRING_LEN) :: title = '' type (s2_sky) :: sky type (s2_pl) :: cl integer :: lmax = 0 integer :: mmax = 0 logical :: new_lmax = .false. logical :: new_mmax = .false. logical :: dil1_status = .false. logical :: dil2_status = .false. logical :: norm_pres = .false. real (kind=s2_sp) :: dil1 real (kind=s2_sp) :: dil2 ! Subroutines and functions subroutine parse_options () end program s2_sky2plplotRead a full fits s2_sky file and compute and plot the cl spectrum (dilate sky also if required, see notes below).
Notes:
Author: J. D. McEwen (mcewen@mrao.cam.ac.uk)
Version: 0.1 - April 2005
character (len=S2_STRING_LEN) :: filename_sky
character (len=S2_STRING_LEN) :: filename_out
logical :: scale = .true.
character (len=S2_STRING_LEN) :: title = ''
type (s2_sky) :: sky
type (s2_pl) :: cl
integer :: lmax = 0
integer :: mmax = 0
logical :: new_lmax = .false.
logical :: new_mmax = .false.
logical :: dil1_status = .false.
logical :: dil2_status = .false.
logical :: norm_pres = .false.
real (kind=s2_sp) :: dil1
real (kind=s2_sp) :: dil2
subroutine parse_options () ! Calls: 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