libsim  Versione 7.1.8

◆ vol7d_dballe_delete()

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

Cancella l'oggetto.

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

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
822 end do
823 
824 
825 ndativarattr = count_distinct(toarray_charl(dativarattrl), back=.true.)
826 allocate(dativarattra(ndativarattr))
827 call pack_distinct_c (toarray_charl(dativarattrl), dativarattra, back=.true.)
828 status = dativarattrl%delete()
829 allocate(starvars%dcv(ndativarattr))
830 
831 nanavarattr = count_distinct(toarray_charl(anavarattrl) , back=.true.)
832 allocate(anavarattra(nanavarattr))
833 call pack_distinct_c (toarray_charl(anavarattrl) , anavarattra , back=.true.)

Generated with Doxygen.