pro bcs_cpy_grpplan, modeids, grpplan, qs
;
;
;
n = n_elements(modeids)
if (n eq 0) then return
;
bcs_struct, bcs_qs_group=bcs_qs_group
;
qs = replicate(bcs_qs_group, n)
;
for i=0,n-1 do begin
    gp = grpplan(modeids(i))	;the mode id is the indicie to the groupper plan structure
    timarr = timstr2ex(string(gp.cre_date))
    ex2int, timarr, time, day
    ;
    qs(i).time		= time
    qs(i).day		= day
    qs(i).length	= gp.length
    qs(i).modeid	= gp.planid
    qs(i).ngrp		= gp.ngrp
    qs(i).groups	= gp.grps
end
;
end