program s2_sky2map
! Uses
use s2_types_mod
use s2_sky_mod
! Calls
call parse_options
call s2_sky_compute_map
call s2_sky_dilate
call s2_sky_free
call s2_sky_rotate
call s2_sky_write_map_file
! Variables
character (len=S2_STRING_LEN) :: filename_sky
character (len=S2_STRING_LEN) :: filename_map
type (s2_sky) :: sky
integer :: nside
logical :: new_nside = .false.
logical :: beta_center = .false.
logical :: norm_pres = .false.
logical :: dil1_status = .false.
logical :: dil2_status = .false.
real (kind=s2_sp) :: dil1
real (kind=s2_sp) :: dil2
! Subroutines and functions
subroutine parse_options ()
end program s2_sky2map
Read a full s2_sky file and write the map to a HEALPix fits file.
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_map
type (s2_sky) :: sky
integer :: nside
logical :: new_nside = .false.
logical :: beta_center = .false.
logical :: norm_pres = .false.
logical :: dil1_status = .false.
logical :: dil2_status = .false.
real (kind=s2_sp) :: dil1
real (kind=s2_sp) :: dil2
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