function au_qmr_ilu_s_d(p)
%
%  Deletes the global data that has been generated by 'au_qmr_ilu_s_i'
%  or 'au_qmr_ilu_s'.
%
%  Calling sequence:
%
%    au_qmr_ilu_s_d
%
%  Input:
%
%    p         vector containing the ADI shift parameters.
%
%
%  LYAPACK 1.0 (Thilo Penzl, August 1999)

l = length(p);

                     % Delete them regardless if they have been
                     % created at all.
for i = 1:l

  eval(lp_e( 'global LP_L',i,' LP_U',i ));

  eval(lp_e( 'clear global LP_L',i,' LP_U',i ));

end

global LP_P
clear global LP_P

