Program s2_skythres

program s2_skythres

        ! 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_thres
    call s2_sky_thres_abs
    call s2_sky_write_map_file

        ! Variables
    character (len=*), parameter :: MAP_FILE = 'map'
    character (len=*), parameter :: SKY_FILE = 'sky'
    integer :: file_type = S2_SKY_FILE_TYPE_MAP
    integer :: ext = 1
    character (len=S2_STRING_LEN) :: filename
    character (len=S2_STRING_LEN) :: filename_out
    character (len=S2_STRING_LEN) :: file_type_str = MAP_FILE
    type (s2_sky) :: sky
    real (kind=s2_sp) :: thres_lower = 0e0
    real (kind=s2_sp) :: thres_upper = 5e0
    logical :: abs_thres = .false.

        ! Subroutines and functions
    subroutine parse_options ()

end program s2_skythres

Threshold sky.

Usage:

[-help]: Display usage information.
[-sky filename]: Name of file containing sky to threshold.
[-file_type file_type_str]: String specifying file types.
[-ext ext (optional)]: File extension for map files.
[-lower thres_lower]: Lower threshold value.
[-upper thres_upper]: Upper threshold value.
[-abs_thres abs_thres (logical)]: Logical to specify whether to threhold based on absolute values (in which case lower threshold is used only).

Author: J. D. McEwen (mcewen@mrao.cam.ac.uk)

Version: 0.1 - April 2007

Description of Variables

MAP_FILE

character (len=*), parameter :: MAP_FILE = 'map'

SKY_FILE

character (len=*), parameter :: SKY_FILE = 'sky'

file_type

integer :: file_type = S2_SKY_FILE_TYPE_MAP

ext

integer :: ext = 1

filename

character (len=S2_STRING_LEN) :: filename

filename_out

character (len=S2_STRING_LEN) :: filename_out

file_type_str

character (len=S2_STRING_LEN) :: file_type_str = MAP_FILE

sky

type (s2_sky) :: sky

thres_lower

real (kind=s2_sp) :: thres_lower = 0e0

thres_upper

real (kind=s2_sp) :: thres_upper = 5e0

abs_thres

logical :: abs_thres = .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 - November 2004