summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.sci
blob: da7c3850b746eee48515978b3dc7998ce8085245 (plain)
1
2
3
4
5
6
7
8
9
10
// s : 2014.06.22

function Closeobj()
  global Wfile FID;
  if Wfile~='default' then
    mclose(FID);
    FID=[]; 
  end;
  Wfile='default';
endfunction