program s2_skyrms ! Uses use s2_types_mod use s2_sky_mod use s2_error_mod ! Calls call parse_options call s2_error call s2_sky_free ! 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) :: file_type_str = MAP_FILE type (s2_sky) :: sky real (kind=s2_sp) :: rms ! Subroutines and functions subroutine parse_options () end program s2_skyrmsCompute RMS value of sky map.
Usage:
Author: J. D. McEwen (mcewen@mrao.cam.ac.uk)
Version: 0.1 - April 2007
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) :: file_type_str = MAP_FILE
type (s2_sky) :: sky
real (kind=s2_sp) :: rms
subroutine parse_options () ! Calls: getArgument end subroutine parse_optionsParse the options passed when program called.
Author: J. D. McEwen (mcewen@mrao.cam.ac.uk)
Version: 0.1 - November 2004