load_array.m

Revision 495 (checked in by cbc, 12 years ago)	Initial import of Stark code.

Line
1	function [dataname]=load_array(filename)
2	load([filename]);
3	size(filename);
4	nchar=ans(2);
5	for i=1:nchar
6	if filename(i) == '.'
7	iend=i-1;
8	break;
9	elseif i==nchar
10	iend=i;
11	fprintf(1,'Could not find the end of the filename: %c\n',filename);
12	end
13	end
14	dataname=eval([filename(1:iend)]);

Note: See TracBrowser for help on using the browser.