libsim  Versione7.2.1

◆ 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 818 del file vol7d_dballe_class.F03.

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.)
834 status = anavarattrl%delete()
835 allocate(anastarvars%dcv(nanavarattr))
836 
837 

Generated with Doxygen.