757 do i =1,
size(metaanddatav)
758 do j=1,
size(metaanddatav(i)%dataattrv%dataattr)
759 if (c_e(metaanddatav(i)%metadata%datetime%datetime))
then 761 call dativarl%append(metaanddatav(i)%dataattrv%dataattr(j)%dat%btable)
764 call anavarl%append(metaanddatav(i)%dataattrv%dataattr(j)%dat%btable)
770 ndativar = count_distinct(toarray_charl(dativarl) , back=.true.)
771 allocate(dativara(ndativar))
772 call pack_distinct_c (toarray_charl(dativarl) , dativara , back=.true.)
773 status = dativarl%delete()
774 allocate (vars%dcv(ndativar))
776 nanavar = count_distinct(toarray_charl(anavarl) , back=.true.)
777 allocate(anavara(nanavar))
778 call pack_distinct_c (toarray_charl(anavarl) , anavara , back=.true.)
779 status = anavarl%delete()
780 allocate (anavars%dcv(nanavar))
784 do i =1,
size(metaanddatav)
785 do j=1,
size(metaanddatav(i)%dataattrv%dataattr)
786 if (c_e(metaanddatav(i)%metadata%datetime%datetime))
then 787 if (metaanddatav(i)%dataattrv%dataattr(j)%dat%btable == dativara(n))
then 788 allocate(vars%dcv(n)%dat,source=metaanddatav(i)%dataattrv%dataattr(j)%dat)
797 do i =1,
size(metaanddatav)
798 do j=1,
size(metaanddatav(i)%dataattrv%dataattr)
799 if (.not. c_e(metaanddatav(i)%metadata%datetime%datetime))
then 800 if (metaanddatav(i)%dataattrv%dataattr(j)%dat%btable == anavara(n))
then 801 allocate(anavars%dcv(n)%dat,source=metaanddatav(i)%dataattrv%dataattr(j)%dat)
810 do i =1,
size(metaanddatav)