# 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 aavgr (a, npix, mean, sigma) real a[ARB] int npix real mean, sigma, lcut, hcut int junk, awvgr() data lcut /0./, hcut /0./ begin junk = awvgr (a, npix, mean, sigma, lcut, hcut) end