%flag 'D'-diskqueue, 'R'-readyqueue
% ONLY for QDisk
%move a p into the DiskQueue

function [Q,pos]=InQueue4Disk(p,ServeEnd,rmTime,newStartFlag,Q,Qlen,flag)
%disp('=========in InQueue4================');

i=1;
while i<=Qlen
   if Q(i,1)==0
      Q(i,1)=p;
      Q(i,2)=ServeEnd;
      Q(i,3)=rmTime;                  %remaining time
      Q(i,4)=newStartFlag;
      
      pos=i;
      
      
%       if flag=='D'
%          fprintf('In the p%d to QDisk\n',p);
%       elseif flag=='R'
%          fprintf('In the p%d to QReady\n',p);
%       end
      break;
   end
   i=i+1;
end

if i>Qlen
    fprintf('The Queue(%c) is Full!\n',flag);
    pos=-1;
    return;
end

%-----------------------------------