|
◆ vol7d_dballe_delete()
subroutine vol7d_dballe_class::vol7d_dballe_delete |
( |
type(vol7d_dballe) |
this, |
|
|
logical, intent(in), optional |
preserveidbhandle |
|
) |
| |
|
private |
Cancella l'oggetto.
- Parametri
-
| this | oggetto da cancellare |
[in] | preserveidbhandle | do not close connection to dsn |
Definizione alla linea 827 del file vol7d_dballe_class.F03.
827 allocate(anastarvars%dcv(nanavarattr)) 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)
|