libsim  Versione6.3.0

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

827 allocate(anastarvars%dcv(nanavarattr))
828 
829 
830 cn: do n=1,ndativarattr
831  do i =1, size(metaanddatav)
832  do j=1, size(metaanddatav(i)%dataattrv%dataattr)
833  do k=1, size(metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv)
834  if (c_e(metaanddatav(i)%metadata%datetime%datetime)) then
835  if (metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv(k)%dat%btable == dativarattra(n))then
836  allocate(starvars%dcv(n)%dat,source=metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv(k)%dat)
837  cycle cn
838  end if
839  end if
840  end do
841  end do
842  end do
843 end do cn
844 

Generated with Doxygen.