libsim Versione 7.1.11
|
◆ vol7d_dballe_delete()
Cancella l'oggetto.
Definizione alla linea 813 del file vol7d_dballe_class.F03. 814 !print *,"dativarattrl: ", metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv(k)%dat%btable
815 call dativarattrl%append(metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv(k)%dat%btable)
816 else
817 !print *,"anavarattrl: ", metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv(k)%dat%btable
818 call anavarattrl%append(metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv(k)%dat%btable)
819 end if
820 end do
821 end do
822end do
823
824
825ndativarattr = count_distinct(toarray_charl(dativarattrl), back=.true.)
826allocate(dativarattra(ndativarattr))
827call pack_distinct_c (toarray_charl(dativarattrl), dativarattra, back=.true.)
828status = dativarattrl%delete()
829allocate(starvars%dcv(ndativarattr))
830
831nanavarattr = count_distinct(toarray_charl(anavarattrl) , back=.true.)
832allocate(anavarattra(nanavarattr))
833call pack_distinct_c (toarray_charl(anavarattrl) , anavarattra , back=.true.)
|