20 if (
associated(this%vol7d%anavar%/**/vol7d_poly_types_v))
then
21 nanavar/**/vol7d_poly_types_v=
size(this%vol7d%anavar%/**/vol7d_poly_types_v(:))
22 allocate (lanavar/**/vol7d_poly_types_v(nanavar/**/vol7d_poly_types_v))
23 lanavar/**/vol7d_poly_types_v(nanavar/**/vol7d_poly_types_v)=.false.
24 if (
present(anavar))
then
25 lanavar/**/vol7d_poly_types_v(:)=.false.
27 where (anavar(i) == this%vol7d%anavar%/**/vol7d_poly_types_v(:)%btable)
28 lanavar/**/vol7d_poly_types_v(:)=.true.
32 lanavar/**/vol7d_poly_types_v(:)=c_e(this%vol7d%anavar%/**/vol7d_poly_types_v(:)%btable)
35 allocate (lanavar/**/vol7d_poly_types_v(0))
38 if (
associated(this%vol7d%anavarattr%/**/vol7d_poly_types_v))
then
39 nanaattr/**/vol7d_poly_types_v=
size(this%vol7d%anaattr%/**/vol7d_poly_types_v(:))
40 allocate (lanaattr/**/vol7d_poly_types_v(nanaattr/**/vol7d_poly_types_v))
41 lanaattr/**/vol7d_poly_types_v(nanaattr/**/vol7d_poly_types_v)=.false.
42 if (
present(anaattr))
then
43 lanaattr/**/vol7d_poly_types_v(:)=.false.
45 where (anaattr(i) == this%vol7d%anaattr%/**/vol7d_poly_types_v(:)%btable)
46 lanaattr/**/vol7d_poly_types_v(:)=.true.
50 lanaattr/**/vol7d_poly_types_v(:)=c_e(this%vol7d%anaattr%/**/vol7d_poly_types_v(:)%btable)
53 allocate (lanaattr/**/vol7d_poly_types_v(0))