756 call anavarl%append(metaanddatav(i)%dataattrv%dataattr(j)%dat%btable)
762 ndativar = count_distinct(toarray_charl(dativarl) , back=.true.)
763 allocate(dativara(ndativar))
764 call pack_distinct_c (toarray_charl(dativarl) , dativara , back=.true.)
765 status = dativarl%delete()
766 allocate (vars%dcv(ndativar))
768 nanavar = count_distinct(toarray_charl(anavarl) , back=.true.)
769 allocate(anavara(nanavar))
770 call pack_distinct_c (toarray_charl(anavarl) , anavara , back=.true.)
771 status = anavarl%delete()
772 allocate (anavars%dcv(nanavar))
776 do i =1,
size(metaanddatav)
777 do j=1,
size(metaanddatav(i)%dataattrv%dataattr)
778 if (
c_e(metaanddatav(i)%metadata%datetime%datetime))
then 779 if (metaanddatav(i)%dataattrv%dataattr(j)%dat%btable == dativara(n))
then 780 allocate(vars%dcv(n)%dat,source=metaanddatav(i)%dataattrv%dataattr(j)%dat)
789 do i =1,
size(metaanddatav)
790 do j=1,
size(metaanddatav(i)%dataattrv%dataattr)
791 if (.not.
c_e(metaanddatav(i)%metadata%datetime%datetime))
then 792 if (metaanddatav(i)%dataattrv%dataattr(j)%dat%btable == anavara(n))
then 793 allocate(anavars%dcv(n)%dat,source=metaanddatav(i)%dataattrv%dataattr(j)%dat)
802 do i =1,
size(metaanddatav)
803 do j=1,
size(metaanddatav(i)%dataattrv%dataattr)
804 do k=1,
size(metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv)
805 if (
c_e(metaanddatav(i)%metadata%datetime%datetime))
then 807 call dativarattrl%append(metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv(k)%dat%btable)
810 call anavarattrl%append(metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv(k)%dat%btable)
817 ndativarattr = count_distinct(toarray_charl(dativarattrl), back=.true.)
818 allocate(dativarattra(ndativarattr))
819 call pack_distinct_c (toarray_charl(dativarattrl), dativarattra, back=.true.)