2220 do i =1,
size(vars%dcv)
2221 allocate(dbafilter_init%vars%dcv(i)%dat,source=vars%dcv(i)%dat)
2224 dbafilter_init%varlist=
"" 2225 do i=1,
size(vars%dcv)
2226 dbafilter_init%varlist=trim(dbafilter_init%varlist)//vars%dcv(i)%dat%btable
2227 if (i /=
size(vars%dcv)) dbafilter_init%varlist=trim(dbafilter_init%varlist)//
"," 2232 if (
present(starvars))
then 2233 if (
allocated(starvars%dcv))
then 2234 allocate(dbafilter_init%starvars%dcv(
size(starvars%dcv)))
2235 do i =1,
size(starvars%dcv)