2669 subroutine displaydbametaanddatar(this)
2670 class(dbametaanddatarList),
intent(inout) :: this
2671 type(dbametaanddatar) :: element
2674 do while(this%element())
2675 print *,
"index:",this%currentindex(),
" value:" 2676 element=this%current()
2677 call element%display()
2680 end subroutine displaydbametaanddatar
2683 type(dbametaanddatar) function currentdbametaanddatar(this)
2684 class(dbametaanddatarList) :: this
2685 class(*),
pointer :: v
2687 v => this%currentpoli()
2689 type is (dbametaanddatar)
2690 currentdbametaanddatar = v
2692 end function currentdbametaanddatar
2696 subroutine dbasession_ingest_metaanddatarl(session,metaanddatal,filter)
2697 class(dbasession),
intent(inout) :: session
2698 type(dbametaanddatarlist),
intent(inout) :: metaanddatal
2699 type(dbafilter),
intent(in),
optional :: filter
2701 type(dbametaanddatar) :: element
2703 if (session%memdb .and. .not. session%loadfile)
then 2705 do while (session%messages_read_next())
2706 call session%set(filter=filter)
2707 call session%ingest_metaanddatar()
2708 call session%ingest_metaanddatar(element)
2709 call metaanddatal%append(element)
2710 call session%remove_all()