libsim Versione 7.2.6

◆ vol7d_dballe_delete()

subroutine vol7d_dballe_delete ( type(vol7d_dballe) this,
logical, intent(in), optional preserveidbhandle )

Cancella l'oggetto.

Parametri
thisoggetto da cancellare
[in]preserveidbhandledo not close connection to dsn

Definizione alla linea 807 del file vol7d_dballe_class.F03.

808
809 ! attributes
810do i =1, size(metaanddatav)
811 do j=1, size(metaanddatav(i)%dataattrv%dataattr)
812 do k=1, size(metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv)
813 if (c_e(metaanddatav(i)%metadata%datetime%datetime)) then
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.)

Generated with Doxygen.