2917 do while(this%element())
2918 print *,
"index:",this%currentindex(),
" value:" 2919 element=this%current()
2920 call element%display()
2923 end subroutine displaydbametaanddatac
2926 type(dbametaanddatac) function currentdbametaanddatac(this)
2930 v => this%currentpoli()
2932 type is (dbametaanddatac)
2933 currentdbametaanddatac = v
2935 end function currentdbametaanddatac
2939 subroutine dbasession_ingest_metaanddatacl(session,metaanddatal,filter)
2941 type(dbametaanddataclist),
intent(inout) :: metaanddatal
2942 type(dbafilter),
intent(in),
optional :: filter