◆ vol7d_dballe_delete()

subroutine 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 807 del file vol7d_dballe_class.F03.

          cycle bn
        end if
      end if
    end do
  end do
end do bn
 
                                ! attributes
do i =1, size(metaanddatav)
  do j=1, size(metaanddatav(i)%dataattrv%dataattr)
    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