20 if (
associated(this%vol7d%dativar%/**/vol7d_poly_types_v))
then
21 ndativar/**/vol7d_poly_types_v=
size(this%vol7d%dativar%/**/vol7d_poly_types_v(:))
22 allocate (lvar/**/vol7d_poly_types_v(ndativar/**/vol7d_poly_types_v))
25 call l4f_category_log(this%category,l4f_debug,
"ndativar*: "//&
26 to_char(ndativar/**/vol7d_poly_types_v ))
29 lvar/**/vol7d_poly_types_v(ndativar/**/vol7d_poly_types_v)=.false.
31 lvar/**/vol7d_poly_types_v(:)=.false.
33 where (var(i) == this%vol7d%dativar%/**/vol7d_poly_types_v(:)%btable)
34 lvar/**/vol7d_poly_types_v(:)=.true.
38 lvar/**/vol7d_poly_types_v(:)=c_e(this%vol7d%dativar%/**/vol7d_poly_types_v(:)%btable)
41 allocate (lvar/**/vol7d_poly_types_v(0))
44 if (
associated(this%vol7d%dativarattr%/**/vol7d_poly_types_v))
then
45 ndatiattr/**/vol7d_poly_types_v=
size(this%vol7d%datiattr%/**/vol7d_poly_types_v(:))
46 allocate (lattr/**/vol7d_poly_types_v(ndatiattr/**/vol7d_poly_types_v))
49 call l4f_category_log(this%category,l4f_debug,
"ndatiattr*: "//&
50 to_char(ndatiattr/**/vol7d_poly_types_v ))
53 lattr/**/vol7d_poly_types_v(ndatiattr/**/vol7d_poly_types_v)=.false.
54 if (
present(attr))
then
55 lattr/**/vol7d_poly_types_v(:)=.false.
57 where (attr(i) == this%vol7d%datiattr%/**/vol7d_poly_types_v(:)%btable)
58 lattr/**/vol7d_poly_types_v(:)=.true.
62 lattr/**/vol7d_poly_types_v(:)=c_e(this%vol7d%datiattr%/**/vol7d_poly_types_v(:)%btable)
65 allocate (lattr/**/vol7d_poly_types_v(0))