function AVG=rgram_avg(RGal);
%
%
% COPYRIGHT (c) 2008
% 
% Applied Research Laboratories, The University of Texas at Austin
% (ARL:UT)
% All rights reserved.
% 
% This material may be reproduced by or for the U.S. Government
% only. This notice must appear in all copies of this file and its
% derivatives. Further distribution outside the U.S. Government is
% prohibited without the explicit written authorization from the
% Director of the Environmental Sciences Laboratory, ARL:UT.
% 
% THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND,
% EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO THE
% IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
% PURPOSE, OR NONINFRINGEMENT.
% 
% IN NO EVENT WILL ARL:UT BE LIABLE FOR ANY DAMAGES WHATSOEVER ARISING
% OUT OF THE USE OR INABILITY TO USE THIS SOFTWARE, EVEN IF ARL:UT HAS
% BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
AVG=data_avg(RGal,[1,2],[],[3,1],0,0);
AVG.data=AVG.data - 44.1;
AVG.scales{3}=[ 117.0000
  111.5000
  106.0000
  100.5000
   95.0000
   89.5000
   84.0000
   78.5000
   73.0000
   67.5000
   62.0000
   56.5000
   51.0000
   45.5000
   40.0000
   34.5000
   29.0000
   23.5000
   18.0000
   12.5000
   14.7500
   20.2500
   25.7500
   31.2500
   36.7500
   42.2500
   47.7500
   53.2500
   58.7500
   64.2500
   69.7500]';
AVG.labels{3}='Depth - m';
view5(AVG)
