|
libsim Versione 8.0.0
|
◆ vol7d_dballe_delete()
Cancella l'oggetto.
Definizione alla linea 807 del file vol7d_dballe_class.F03. 808 cycle bn
809 end if
810 end if
811 end do
812 end do
813end do bn
814
815 ! attributes
816do i =1, size(metaanddatav)
817 do j=1, size(metaanddatav(i)%dataattrv%dataattr)
818 do k=1, size(metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv)
819 if (c_e(metaanddatav(i)%metadata%datetime%datetime)) then
820 !print *,"dativarattrl: ", metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv(k)%dat%btable
821 call dativarattrl%append(metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv(k)%dat%btable)
822 else
823 !print *,"anavarattrl: ", metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv(k)%dat%btable
824 call anavarattrl%append(metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv(k)%dat%btable)
825 end if
826 end do
827 end do
|