Parent Directory | Revision Log | Revision Graph
accidentally removed ; put them back.
1 | function h = mit_readfield(fname,dims,accuracy) |
2 | %function h = mit_readfield(fname,dims,accuracy) |
3 | |
4 | % $Header: $ |
5 | % $Name: $ |
6 | |
7 | ieee='ieee-be'; |
8 | |
9 | [fid message] = fopen(fname,'r',ieee); |
10 | if fid <= 0 |
11 | error([message ', filename: ', [fname]]) |
12 | end |
13 | |
14 | v = fread(fid,accuracy); |
15 | if length(v) == prod(dims) |
16 | h = reshape(v,dims); |
17 | elseif length(v) == prod(dims(1:end-1)) |
18 | h = reshape(v,dims(1:end-1)); |
19 | else |
20 | error('dimensions do not match') |
21 | end |
22 | fclose(fid); |
23 | |
24 | return |
ViewVC Help | |
Powered by ViewVC 1.1.22 |