read_flo.m

ABAQUS is a general purpose finite element analysis program which is widely used to analyses mechani

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,