Program s2fil_field_construct

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


Description of Variables

filename_filter

character (len=S2_STRING_LEN) :: filename_filter

filename_sky

character (len=S2_STRING_LEN) :: filename_sky

filename_field

character (len=S2_STRING_LEN) :: filename_field

sky_file_type_str

character (len=S2_STRING_LEN) :: sky_file_type_str

FILE_TYPE_MAP

character (len=S2_STRING_LEN), parameter :: FILE_TYPE_MAP = 'map'

FILE_TYPE_SKY

character (len=S2_STRING_LEN), parameter :: FILE_TYPE_SKY = 'sky'

sky_file_type

integer :: sky_file_type = S2_SKY_FILE_TYPE_MAP

n_gamma

integer :: n_gamma = 1

field

type (s2fil_field) :: field

write_filter

logical :: write_filter = .false.

Description of Subroutines and Functions

parse_options

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