function [eu, crd, cfl] = getprrdata(prrFile, cflFile);
% GETPRRDATA    - Read data from a prr binary file and convert it to Engineering units
%
% Use as: [eu, crd, cfl] = getprrdata(prrFile, cflFile);


% Brian Schlining
% 27 Jan 2000

%=======================
% Read the source files
%=======================
if ~nargin | isempty(prrFile)
   [infile inpath] = uigetfile('*.bin','Select binary prr data file',0,0);
   if infile == 0
      data = [];
      return                            	% Return if CANCEL is selected
   end
   prrFile = [inpath infile];
else
   inpath = [fileparts(prrFile) filesep];
   
end
warning off
fprintf(1, 'Reading voltages from %s with READPRR.M.', prrFile);
prr = readprr(prrFile);							% Read the prr data in volts (full scale is +/- 10V)
fprintf(1, '...completed\n');

[p f e] = fileparts(prrFile);
crdFile = [p filesep f '.crd'];
fprintf(1, 'Reading auxillary information from %s with READCRD.M.', crdFile);
crd = readcrd(crdFile);							% Read the card file
fprintf(1, '...completed\n');

if nargin < 2
   fprintf(1, '(Using configuration file specified in %s.)\nReading configuration information from %s with READCFL.M.', crdFile, crd.calibrationFile);
   cfl = readcfl(crd.calibrationFile);    % Get the config file name from the card file
   if isempty(cfl)
      warning(['Unable to read the configuration file, ' crd.calibrationFile ', specified in ' crdFile]);
      cfl = readcfl([inpath crd.calibrationFile]);
      if isempty(cfl)
         error(['Unable to read the configuration file, ' inpath crd.calibrationFile ', specified in ' crdFile]);
      end
      
   end
else
   fprintf(1, 'Reading configuration information from %s with READCFL.M.', cflFile);
   cfl  = readcfl(cflFile);
end
fprintf(1, '...completed\n');

fprintf(1, 'Converting voltages to enginerring units with CONVERTPRR.M.')
eu = convertprr(prr, cfl);			% Convert volts to EU
fprintf(1, '...completed\n');
warning on