#---------------------------------------------------------------------------
.help t_darkstats May92 hrs
.ih
NAME
t_darkstats -- Compute various statistics of GHRS dark observations.
.endhelp
#---------------------------------------------------------------------------

procedure t_darkstat()

# Declarations
include "darkstat_params.com"

# Function prototypes
double  clgetd()
int     clgeti()
bool    clgetb()

begin
        
        # Retrieve the parameters.
        call clgstr ("input", input, SZ_LINE)
        call clgstr ("group_stats", grp_stats, SZ_LINE)
        call clgstr ("obs_stats", obs_stats, SZ_LINE)
        call clgstr ("total_stats", total_stats, SZ_LINE)
        verbose = clgetb ("verbose")
        call clgstr ("events", events, SZ_LINE)
        pthresh = clgetd ("pthresh")
        pnsig = clgetd ("pnsig")
        call clgstr ("noisy", noisy, SZ_LINE)
        dthresh = clgetd ("dthresh")
        dnsig = clgetd ("dnsig")
        dnum = clgeti ("dnum")
        call clgstr ("dark", dark, SZ_LINE)
        
        # Compute the dark statistics.
        call dst_darkstats
        
end
#---------------------------------------------------------------------------
# End of t_darkstats
#---------------------------------------------------------------------------