program s2_skyorder
! Uses
use s2_types_mod
use s2_sky_mod
use s2_error_mod
! Calls
call parse_options
call s2_error
call s2_sky_free
call s2_sky_io_fits_write
call s2_sky_map_convert
call s2_sky_write_map_file
! Variables
character (len=*), parameter :: MAP_FILE = 'map'
character (len=*), parameter :: SKY_FILE = 'sky'
character (len=*), parameter :: RING_STR = 'ring'
character (len=*), parameter :: NEST_STR = 'nest'
integer :: file_type = S2_SKY_FILE_TYPE_MAP
integer :: ext = 1
character (len=S2_STRING_LEN) :: filename_in
character (len=S2_STRING_LEN) :: filename_out
character (len=S2_STRING_LEN) :: file_type_str = MAP_FILE
character (len=S2_STRING_LEN) :: order_str
integer :: order
type (s2_sky) :: sky
! Subroutines and functions
subroutine parse_options ()
end program s2_skyorder
Change the pixelisation ordering scheme of a sky.
Usage:
Author: J. D. McEwen (mcewen@mrao.cam.ac.uk)
Version: 0.1 - April 2006
character (len=*), parameter :: MAP_FILE = 'map'
character (len=*), parameter :: SKY_FILE = 'sky'
character (len=*), parameter :: RING_STR = 'ring'
character (len=*), parameter :: NEST_STR = 'nest'
integer :: file_type = S2_SKY_FILE_TYPE_MAP
integer :: ext = 1
character (len=S2_STRING_LEN) :: filename_in
character (len=S2_STRING_LEN) :: filename_out
character (len=S2_STRING_LEN) :: file_type_str = MAP_FILE
character (len=S2_STRING_LEN) :: order_str
integer :: order
type (s2_sky) :: sky
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