# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. # AAVG -- Compute the mean and standard deviation (sigma) of a sample. # All pixels are used. procedure aavgs (a, npix, mean, sigma) short a[ARB] int npix real mean, sigma, lcut, hcut int junk, awvgs() data lcut /0./, hcut /0./ begin junk = awvgs (a, npix, mean, sigma, lcut, hcut) end