2838 do while(this%element())
2839 print *,
"index:",this%currentindex(),
" value:" 2840 element=this%current()
2841 call element%display()
2844 end subroutine displaydbametaanddatab
2847 type(dbametaanddatab) function currentdbametaanddatab(this)
2851 v => this%currentpoli()
2853 type is (dbametaanddatab)
2854 currentdbametaanddatab = v
2856 end function currentdbametaanddatab
2860 subroutine dbasession_ingest_metaanddatabl(session,metaanddatal,filter)
2862 type(dbametaanddatablist),
intent(inout) :: metaanddatal
2863 type(dbafilter),
intent(in),
optional :: filter