Program comb_objgen

program comb_objgen

        ! Uses
    use s2_types_mod, only: S2_STRING_LEN, s2_sp, pi
    use s2_error_mod
    use s2_pl_mod
    use comb_error_mod
    use comb_tmpl_mod
    use comb_obj_mod
    use comb_csky_mod
    use extension, only: getArgument, nArguments

        ! Calls
    call comb_csky_free
    call comb_csky_write_sky_obj
    call comb_obj_free
    call parse_options
    call s2_error
    call s2_pl_free

        ! Variables
    character, parameter :: COMMENT_CHAR = '#'
    character (len=S2_STRING_LEN) :: filename_inp
    character (len=S2_STRING_LEN) :: filename_out
    character (len=S2_STRING_LEN) :: line
    character (len=S2_STRING_LEN) :: line2
    integer :: nside = 64
    integer :: lmax = 128
    integer :: mmax = 128
    integer :: fail
    integer :: fileid = 32
    character (len=S2_STRING_LEN) :: comb_type
    integer, parameter :: COMB_TYPE_OPT_NUM = 6
    character (len=S2_STRING_LEN), parameter, dimension (COMB_TYPE_OPT_NUM) :: COMB_TYPE_OPT = (/ 'butterfly   ', 'gaussian    ', 'mexhat      ', 'morlet      ', 'point       ', 'cos_thetaon2' /)
    character (len=S2_STRING_LEN), parameter :: COMB_TYPE_DEFAULT = COMB_TYPE_OPT (1)
    logical, parameter :: BEAM_STATUS_DEFAULT = .false.
    logical :: beam_status = BEAM_STATUS_DEFAULT
    real (kind=s2_sp), parameter :: BEAM_FWHM_DEFAULT = 13.0e0
    real (kind=s2_sp) :: beam_fwhm = BEAM_FWHM_DEFAULT
    integer :: n_source
    integer :: i_source
    real (kind=s2_sp) :: dilation = 0.1
    real (kind=s2_sp), allocatable, dimension (:) :: dilation_array
    real (kind=s2_sp), allocatable, dimension (:) :: amplitude
    real (kind=s2_sp), allocatable, dimension (:) :: alpha
    real (kind=s2_sp), allocatable, dimension (:) :: beta
    real (kind=s2_sp), allocatable, dimension (:) :: gamma
    type (comb_csky) :: csky
    type (comb_obj) :: obj_mother
    type (s2_pl) :: beam

        ! Subroutines and functions
    subroutine parse_options ()

end program comb_objgen

Product a sky map containing a number of template objects with various parameters.

Author: J. D. McEwen (mcewen[AT]mrao.cam.ac.uk)

Version: 0.1 May 2006

Description of Variables

COMMENT_CHAR

character, parameter :: COMMENT_CHAR = '#'

filename_inp

character (len=S2_STRING_LEN) :: filename_inp

filename_out

character (len=S2_STRING_LEN) :: filename_out

line

character (len=S2_STRING_LEN) :: line

line2

character (len=S2_STRING_LEN) :: line2

nside

integer :: nside = 64

lmax

integer :: lmax = 128

mmax

integer :: mmax = 128

fail

integer :: fail

fileid

integer :: fileid = 32

comb_type

character (len=S2_STRING_LEN) :: comb_type

COMB_TYPE_OPT_NUM

integer, parameter :: COMB_TYPE_OPT_NUM = 6

COMB_TYPE_OPT

character (len=S2_STRING_LEN), parameter, dimension (COMB_TYPE_OPT_NUM) :: COMB_TYPE_OPT = (/ 'butterfly   ', 'gaussian    ', 'mexhat      ', 'morlet      ', 'point       ', 'cos_thetaon2' /)

COMB_TYPE_DEFAULT

character (len=S2_STRING_LEN), parameter :: COMB_TYPE_DEFAULT = COMB_TYPE_OPT (1)

BEAM_STATUS_DEFAULT

logical, parameter :: BEAM_STATUS_DEFAULT = .false.

beam_status

logical :: beam_status = BEAM_STATUS_DEFAULT

BEAM_FWHM_DEFAULT

real (kind=s2_sp), parameter :: BEAM_FWHM_DEFAULT = 13.0e0

beam_fwhm

real (kind=s2_sp) :: beam_fwhm = BEAM_FWHM_DEFAULT

n_source

integer :: n_source

i_source

integer :: i_source

dilation

real (kind=s2_sp) :: dilation = 0.1

dilation_array

real (kind=s2_sp), allocatable, dimension (:) :: dilation_array

amplitude

real (kind=s2_sp), allocatable, dimension (:) :: amplitude

alpha

real (kind=s2_sp), allocatable, dimension (:) :: alpha

beta

real (kind=s2_sp), allocatable, dimension (:) :: beta

gamma

real (kind=s2_sp), allocatable, dimension (:) :: gamma

csky

type (comb_csky) :: csky

obj_mother

type (comb_obj) :: obj_mother

beam

type (s2_pl) :: beam

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[AT]mrao.cam.ac.uk)

Version: 0.1 - November 2004