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_construct
Construct 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_options
Parse the options passed when program called.
Author: J. D. McEwen (mcewen@mrao.cam.ac.uk)
Version: 0.1 - February 2005