read_flo.m

来自「ABAQUS is a general purpose finite eleme」· M 代码 · 共 16 行

function [vector,status]=read_float(fid);
   status=0;
   [numbers,len]=fscanf(fid,'D%e');
   j=0;
   if (len/2-round(len/2)~=0)
      status=-1;
      'uneven numbers in read_float, can not process'
       vector=0;
   else			
      while j~=len
         j=j+2;
	 vector(j/2)=numbers(j-1)*10^numbers(j);
      end,
   end,