function close_comport(port)

global comport;

%comport = instrfind('Name',port);
fclose(comport);
delete(comport);
% status = comport.Status;

end %END
