22 if (
associated(this%datiattr%/**/vol7d_poly_types))
then 23 inddatiattrinv = firsttrue(attrvars%vars(1) == this%datiattr%/**/vol7d_poly_types)
24 inddatiattrcli = firsttrue(attrvars%vars(2) == this%datiattr%/**/vol7d_poly_types)
25 inddatiattrtem = firsttrue(attrvars%vars(3) == this%datiattr%/**/vol7d_poly_types)
26 inddatiattrspa = firsttrue(attrvars%vars(4) == this%datiattr%/**/vol7d_poly_types)
28 if (inddatiattrinv > 0 .or. inddatiattrcli > 0 .or. inddatiattrtem > 0 .or. inddatiattrspa > 0 )
then 30 if (
associated(this%dativarattr%/**/vol7d_poly_types))
then 36 if (
associated(this%dativar%/**/vol7d_poly_subtypes))
then 42 do inddativar=1,
size(this%dativar%/**/vol7d_poly_subtypes)
44 inddativarattr = this%dativar%/**/vol7d_poly_subtypes(inddativar)%/**/vol7d_poly_types
48 if (inddativarattr > 0)
then 49 nullify(invb/**/vol7d_poly_types)
50 nullify(clib/**/vol7d_poly_types)
51 nullify(temb/**/vol7d_poly_types)
52 nullify(spab/**/vol7d_poly_types)
54 if (inddatiattrinv > 0) invb/**/vol7d_poly_types => this%voldatiattr/**/vol7d_poly_types(:,:,:,:,inddativarattr,:,inddatiattrinv)
55 if (inddatiattrcli > 0) clib/**/vol7d_poly_types => this%voldatiattr/**/vol7d_poly_types(:,:,:,:,inddativarattr,:,inddatiattrcli)
56 if (inddatiattrtem > 0) temb/**/vol7d_poly_types => this%voldatiattr/**/vol7d_poly_types(:,:,:,:,inddativarattr,:,inddatiattrtem)
57 if (inddatiattrspa > 0) spab/**/vol7d_poly_types => this%voldatiattr/**/vol7d_poly_types(:,:,:,:,inddativarattr,:,inddatiattrspa)
59 this%voldati/**/vol7d_poly_subtypes(:,:,:,:,inddativar,:) = peeled(this%voldati/**/vol7d_poly_subtypes(:,:,:,:,inddativar,:), &
60 invb/**/vol7d_poly_types,clib/**/vol7d_poly_types,temb/**/vol7d_poly_types,spab/**/vol7d_poly_types)