2779type(dbafilter),intent(in),optional :: filter
2780
2781type(dbametaanddatad) :: element
2782
2783if (session%memdb .and. .not. session%loadfile)then
2784
2785 do while (session%messages_read_next())
2786 call session%set(filter=filter)
2787 call session%ingest_metaanddatad()
2788 call session%ingest_metaanddatad(element)