Program s2_ylm

program s2_ylm

        ! Uses
    use s2_types_mod
    use s2_error_mod
    use s2_sky_mod
    use s2_ylm_mod

        ! Calls
    call parse_options
    call s2_error
    call s2_sky_free
    call s2_sky_io_fits_write
    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
    character (len=S2_STRING_LEN) :: file_type_str = MAP_FILE
    character (len=*), parameter :: METHOD_LEG = 'leg'
    character (len=*), parameter :: METHOD_WIG = 'wig'
    character (len=S2_STRING_LEN) :: method_str = METHOD_LEG
    integer :: method = S2_YLM_EVAL_METHOD_LEG
    character (len=S2_STRING_LEN) :: filename_in
    character (len=S2_STRING_LEN) :: filename_out
    character (len=*), parameter :: REALITY_REAL = 'real'
    character (len=*), parameter :: REALITY_IMAG = 'imag'
    character (len=*), parameter :: REALITY_ABS = 'abs'
    character (len=S2_STRING_LEN) :: reality_str = REALITY_ABS
    integer :: reality = S2_YLM_REALITY_ABS
    integer :: nside
    integer :: el
    integer :: m
    type (s2_sky) :: ylm

        ! Subroutines and functions
    subroutine parse_options ()

end program s2_ylm
Compute spherical harmonic function on full sky.

Usage:

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

Version: 0.1 - February 2008


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

file_type_str

character (len=S2_STRING_LEN) :: file_type_str = MAP_FILE

METHOD_LEG

character (len=*), parameter :: METHOD_LEG = 'leg'

METHOD_WIG

character (len=*), parameter :: METHOD_WIG = 'wig'

method_str

character (len=S2_STRING_LEN) :: method_str = METHOD_LEG

method

integer :: method = S2_YLM_EVAL_METHOD_LEG

filename_in

character (len=S2_STRING_LEN) :: filename_in

filename_out

character (len=S2_STRING_LEN) :: filename_out

REALITY_REAL

character (len=*), parameter :: REALITY_REAL = 'real'

REALITY_IMAG

character (len=*), parameter :: REALITY_IMAG = 'imag'

REALITY_ABS

character (len=*), parameter :: REALITY_ABS = 'abs'

reality_str

character (len=S2_STRING_LEN) :: reality_str = REALITY_ABS

reality

integer :: reality = S2_YLM_REALITY_ABS

nside

integer :: nside

el

integer :: el

m

integer :: m

ylm

type (s2_sky) :: ylm

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