shutfile.m

来自「该代码为图像融合的vc源程序,对学习图像融合有很重要的价值」· M 代码 · 共 19 行

function shutfile(file_ID)
%$Id: shutfile.m,v 1.1.1.1 2000/10/16 09:30:40 mattb Exp $
%===========================================================================
%                   Matt Bowers - University of Bath
%
%                        Copyright (c) 1996
%===========================================================================
%
% Close file 'file_ID' with error checking
%
%===========================================================================

[filename, permission]=fopen(file_ID);        % Get filename

if (fclose(file_ID)==-1)
  error (['Error closing file: ' filename])   % Report error
else
%  disp (['File: ' filename ' closed.'])
end