;	(24-feb-92)
function total_100,A
;+
;  Name:
;    total_100
;
;  Purpose:
;    Compute the total of the vector A.  Very similar to the IDL TOTAL
;    function, except that total_100 first rounds all the elements in the
;    array off to 100ths's first.  This routine is specifically designed to
;    total up vectors of $ amounts, rounding off appropriately to the nearest
;    penny.
;
;  Modification History:
;  Written, J. R. Lemen,  24-feb-92
;-

B = A * 100 
ii = where(B ge 0, n_pos)			; Are there + values?
jj = where(B lt 0, n_neg)			; Are there - values?
if n_pos gt 0 then B(ii) = long(B(ii)+.5)	; Round off to nearest 1/100
if n_neg gt 0 then B(jj) = long(B(jj)-.5)	; Round off to nearest 1/100
return,total(B)/100.
end