2692 v => this%currentpoli()
2694 type is (dbametaanddatar)
2695 currentdbametaanddatar = v
2697 end function currentdbametaanddatar
2701 subroutine dbasession_ingest_metaanddatarl(session,metaanddatal,filter)
2703 type(dbametaanddatarlist),
intent(inout) :: metaanddatal
2704 type(dbafilter),
intent(in),
optional :: filter
2706 type(dbametaanddatar) :: element
2708 if (session%memdb .and. .not. session%loadfile)
then 2710 do while (session%messages_read_next())
2711 call session%set(filter=filter)
2712 call session%ingest_metaanddatar()
2713 call session%ingest_metaanddatar(element)
2714 call metaanddatal%append(element)
2715 call session%remove_all()
2720 call session%set(filter=filter)
2721 call session%ingest_metaanddatar()
2722 do while (
c_e(session%count) .and. session%count >0)
2723 call session%ingest_metaanddatar(element)
2724 call metaanddatal%append(element)
2725 if (session%file)
call session%ingest()
2731 end subroutine dbasession_ingest_metaanddatarl