vis/read_array_m.m

   1 function a=read_array_m(f);\r
   2 b=load(f);\r
   3 l=length(b);\r
   4 m=b(1);\r
   5 n=b(2);\r
   6 o=b(3);\r
   7 s=m*n*o+3;\r
   8 fprintf(1,'matrix size %i %i %i from file %s length %i should be %i\n',...\r
   9     m,n,o,f,l,s)\r
  10 if l~=s,\r
  11     error('bad format')\r
  12 end\r
  13 a=reshape(b(4:s),[m,n,o]);\r
  14 end