view aim-mat/tools/ReadBytes.m @ 0:74dedb26614d

Initial checkin of AIM-MAT version 1.5 (6.4.2011).

% support file for 'aim-mat'
%
% This external file is included as part of the 'aim-mat' distribution package
% http://www.pdn.cam.ac.uk/cnbh/aim2006
% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $
% $Revision: 585 $

%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% File:			ReadBytes.m
% Purpose:		Reads a number of bytes from file.
% Comments:	
% Author:		L. P. O'Mard
% Revised by:
% Created:
% Updated:
% Copyright:	(c) 2000, University of Essex
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%

function bytes = ReadBytes(fid, n, swapBytes)

bytes=fread(fid, n, 'char');

if (swapBytes ~= 0)
	for i = 1:n/2
		temp = bytes(i);
		swapIndex = n - i + 1;
		bytes(i) = bytes(swapIndex);
		bytes(swapIndex) = temp;
	end;
end;