%function [dl,dr,ec] = cheapd(bw,az,blk)
function [dl,dr,ec] = cheapd(bw,az,blk)
  ec = 0;
  tdl = sqrt(real(az(:,2) ./ az(:,1)));
  tdr = sqrt(real(bw(:,2) ./ bw(:,1)));
  maxd = max(abs(tdl));
  if maxd < 1e7
    dl = tdl;
    dr = tdr;
  else
    ec = 1;
    dl = [];
    dr = [];
  end
%
% Copyright MUSYN INC 1991,  All Rights Reserved
