2200 if (
present(anavarlist))
then 2201 dbafilter_init%anavarlist=anavarlist
2202 else if (nopreserve)
then 2203 dbafilter_init%anavarlist=cmiss
2206 if (
present(anastarvarlist))
then 2207 dbafilter_init%anastarvarlist=anastarvarlist
2208 else if (nopreserve)
then 2209 dbafilter_init%anastarvarlist=cmiss
2212 if (
present(vars))
then 2213 if (
allocated(vars%dcv))
then 2214 allocate(dbafilter_init%vars%dcv(
size(vars%dcv)))
2215 do i =1,
size(vars%dcv)