matlab_class/gcmfaces_IO/read2memory.m

function [fldOut]=read2memory(fileIn,varargin);
%purpose:       load binary file to memory
%
%inputs:        fileIn is the file name
%(optional)     sizeOut is the output array size (or [] if not known)
%               prec is the file precision (32, by default, or 64)
%
%output:        fldOut is the binary vector (default) or array (if sizeOut is spec.)

if nargin>1; sizeOut=varargin{1}; else; sizeOut=[]; end;
if nargin>2; prec=varargin{2}; else; prec=32; end;

if ~strcmp(fileIn(end-2:end),'txt');
    nn=dir(fileIn); nn=nn.bytes/(prec/8); fid=fopen(fileIn,'r','b'); fldOut=fread(fid,nn,['float' num2str(prec)]); fclose(fid);
else;
    error('text read is not implemented\n');
    %     fid=fopen(fileIn,'rt'); fread(fid,fldOut); fclose(fid);
end;

if ~isempty(sizeOut); fldOut=reshape(fldOut,sizeOut); end; 


1	function [fldOut]=read2memory(fileIn,varargin);
2	%purpose: load binary file to memory
3	%
4	%inputs: fileIn is the file name
5	%(optional) sizeOut is the output array size (or [] if not known)
6	% prec is the file precision (32, by default, or 64)
7	%
8	%output: fldOut is the binary vector (default) or array (if sizeOut is spec.)
9
10	if nargin>1; sizeOut=varargin{1}; else; sizeOut=[]; end;
11	if nargin>2; prec=varargin{2}; else; prec=32; end;
12
13	if ~strcmp(fileIn(end-2:end),'txt');
14	nn=dir(fileIn); nn=nn.bytes/(prec/8); fid=fopen(fileIn,'r','b'); fldOut=fread(fid,nn,['float' num2str(prec)]); fclose(fid);
15	else;
16	error('text read is not implemented\n');
17	% fid=fopen(fileIn,'rt'); fread(fid,fldOut); fclose(fid);
18	end;
19
20	if ~isempty(sizeOut); fldOut=reshape(fldOut,sizeOut); end;
21
22
23
24