read_int.m

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

function[i,status]=read_integer(fid);
status=0;
[nchar,len]=fscanf(fid,'I%1d',1);
	if len~=1
	'read_integer len~=1'
	status=-1;
	end
[i,len]=fscanf(fid,'%d');