2748 toarray_dbametaanddatar(i) =this%current()
2751 end function toarray_dbametaanddatar
2755 subroutine displaydbametaanddatad(this)
2756 class(dbametaanddatadList) :: this
2757 type(dbametaanddatad) :: element
2760 do while(this%element())
2761 print *,
"index:",this%currentindex(),
" value:" 2762 element=this%current()
2763 call element%display()
2766 end subroutine displaydbametaanddatad
2769 type(dbametaanddatad) function currentdbametaanddatad(this)
2770 class(dbametaanddatadList) :: this
2771 class(*),
pointer :: v
2773 v => this%currentpoli()
2775 type is (dbametaanddatad)
2776 currentdbametaanddatad = v
2778 end function currentdbametaanddatad
2781 subroutine dbasession_ingest_metaanddatadl(session,metaanddatal,filter)
2782 class(dbasession),
intent(inout) :: session