program s2fil_field_construct ! Uses use s2_types_mod use s2_sky_mod use s2fil_error_mod use s2fil_field_mod ! Calls call parse_options call s2fil_error call s2fil_field_compute call s2fil_field_free call s2fil_field_io_fits_write ! Variables character (len=S2_STRING_LEN) :: filename_filter character (len=S2_STRING_LEN) :: filename_sky character (len=S2_STRING_LEN) :: filename_field character (len=S2_STRING_LEN) :: sky_file_type_str character (len=S2_STRING_LEN), parameter :: FILE_TYPE_MAP = 'map' character (len=S2_STRING_LEN), parameter :: FILE_TYPE_SKY = 'sky' integer :: sky_file_type = S2_SKY_FILE_TYPE_MAP integer :: n_gamma = 1 type (s2fil_field) :: field logical :: write_filter = .false. ! Subroutines and functions subroutine parse_options () end program s2fil_field_constructConstruct filtered field from optimal filter and data sky.
Usage: s2fil_field_construct
Author: J. D. McEwen (mcewen@mrao.cam.ac.uk)
Version: 0.1 - April 2005
character (len=S2_STRING_LEN) :: filename_filter
character (len=S2_STRING_LEN) :: filename_sky
character (len=S2_STRING_LEN) :: filename_field
character (len=S2_STRING_LEN) :: sky_file_type_str
character (len=S2_STRING_LEN), parameter :: FILE_TYPE_MAP = 'map'
character (len=S2_STRING_LEN), parameter :: FILE_TYPE_SKY = 'sky'
integer :: sky_file_type = S2_SKY_FILE_TYPE_MAP
integer :: n_gamma = 1
type (s2fil_field) :: field
logical :: write_filter = .false.
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 - February 2005