[ipage]=sclosm(ipage);

function [ipage]=sclosm(ipage);
persistent ios ipagef xern1 ; 

if isempty(ios), ios=0; end;
if isempty(ipagef), ipagef=0; end;
%***BEGIN PROLOGUE  SCLOSM
%***SUBSIDIARY
%***PURPOSE  Subsidiary to SPLP
%***LIBRARY   SLATEC
%***TYPE      ALL (SCLOSM-A)
%***AUTHOR  (UNKNOWN)
%***DESCRIPTION
%
%     1. UNLOAD, RELEASE, OR CLOSE UNIT NUMBER IPAGEF.
%
%***SEE ALSO  SPLP
%***ROUTINES CALLED  XERMSG
%***REVISION HISTORY  (YYMMDD)
%   811215  DATE WRITTEN
%   890605  Corrected references to XERRWV.  (WRB)
%   891214  Prologue converted to Version 4.0 format.  (BAB)
%   900402  Added TYPE section.  (WRB)
%   900510  Convert XERRWV calls to XERMSG calls.  (RWC)
%***end PROLOGUE  SCLOSM
if isempty(xern1), xern1=repmat(' ',1,8); end;
%
%***FIRST EXECUTABLE STATEMENT  SCLOSM
ipagef = fix(ipage);
fclose(ipagef);
return;
%
xern1=sprintf(['%8i'], ios);
xermsg('SLATEC','SCLOSM',['IN SPLP, CLOSE HAS ERROR FLAG = ',xern1],100,1);
end
%DECK SCNRM2