◆ vol7d_dballe_delete()

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

Cancella l'oggetto.

Parametri

	this	oggetto da cancellare
[in]	preserveidbhandle	do not close connection to dsn

Definizione alla linea 818 del file vol7d_dballe_class.F03.

     do k=1, size(metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv)
       if (c_e(metaanddatav(i)%metadata%datetime%datetime)) then
                                 !print *,"dativarattrl: ", metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv(k)%dat%btable
         call dativarattrl%append(metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv(k)%dat%btable)
       else
                                 !print *,"anavarattrl: ", metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv(k)%dat%btable
         call anavarattrl%append(metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv(k)%dat%btable)
       end if
     end do
   end do
 end do
 
 
 ndativarattr = count_distinct(toarray_charl(dativarattrl), back=.true.)
 allocate(dativarattra(ndativarattr))
 call pack_distinct_c (toarray_charl(dativarattrl), dativarattra, back=.true.)
 status = dativarattrl%delete()
 allocate(starvars%dcv(ndativarattr))
 
 nanavarattr  = count_distinct(toarray_charl(anavarattrl) , back=.true.)