Merge branch 'fixf'

[wrf-fire-matlab.git] / util1_jan / read_array_m2.m

function a=read_array_m2(f);\r
b=load(f);\r
l=length(b);\r
m=b(1);\r
n=b(2);\r
s=m*n+2;\r
fprintf(1,'matrix size %i %i from file %s length %i should be %i\n',m,n,f,l,s)\r
if l~=s,\r
    error('bad format')\r
end\r
a=reshape(b(3:m*n+2),[m,n]);\r
end