2930 end function currentdbametaanddatac
2934 subroutine dbasession_ingest_metaanddatacl(session,metaanddatal,filter)
2935 class(dbasession),
intent(inout) :: session
2936 type(dbametaanddataclist),
intent(inout) :: metaanddatal
2937 type(dbafilter),
intent(in),
optional :: filter
2939 type(dbametaanddatac) :: element
2941 if (session%memdb .and. .not. session%loadfile)
then
2943 do while (session%messages_read_next())