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)