18 if (
associated(this%/**/vol7d_poly_name%/**/vol7d_poly_types_v))
then 19 do i =1,
size(this%/**/vol7d_poly_name%/**/vol7d_poly_types_v)
21 if (this%/**/vol7d_poly_name%/**/vol7d_poly_types_v(i)%btable(:1) ==
"*")
then 22 j=firsttrue(this%/**/vol7d_poly_name%/**/vol7d_poly_types_v(i)%btable(2:) == dballevar(:)%btable)
24 j=firsttrue(this%/**/vol7d_poly_name%/**/vol7d_poly_types_v(i)%btable == dballevar(:)%btable)
28 if(.not.c_e(this%/**/vol7d_poly_name%/**/vol7d_poly_types_v(i)%description))this%/**/vol7d_poly_name%/**/vol7d_poly_types_v(i)%description = dballevar(j)%description
29 if(.not.c_e(this%/**/vol7d_poly_name%/**/vol7d_poly_types_v(i)%unit))this%/**/vol7d_poly_name%/**/vol7d_poly_types_v(i)%unit = dballevar(j)%unit
30 if(.not.c_e(this%/**/vol7d_poly_name%/**/vol7d_poly_types_v(i)%scalefactor))this%/**/vol7d_poly_name%/**/vol7d_poly_types_v(i)%scalefactor = dballevar(j)%scalefactor