;+
;-

FUNCTION brtsum, imgbuf, xloc, yloc, nloc

   b = 0.0

   FOR i = 0, nloc - 1 DO	$
      BEGIN
	 b = b + imgbuf (xloc (i), yloc (i))
      END

   RETURN, b

END