skip_to_.m

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

function [status] =skip_to_end(fid);
   char=0;
   status=1;
      while char~='*'
         [char,len]=fscanf(fid,'%1s',1);
            if len~=1
	       status=-1;
	       'len is not 1 in skip_to end'
	    end   
      end