skip_to_.m

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

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