3232 allocate(starvars%dcv(
size(filter%anastarvars%dcv)))
3233 do i =1,
size(filter%anastarvars%dcv)
3234 allocate(starvars%dcv(i)%dat,source=filter%anastarvars%dcv(i)%dat)
3240 if (
allocated(filter%vars%dcv))
then 3242 allocate(vars%dcv(
size(filter%vars%dcv)))
3243 do i =1,
size(filter%vars%dcv)
3244 allocate(vars%dcv(i)%dat,source=filter%vars%dcv(i)%dat)