2726 end subroutine dbasession_ingest_metaanddatarl
2730 function toarray_dbametaanddatar(this)
2731 type(dbametaanddatar),
allocatable :: toarray_dbametaanddatar(:)
2732 class(dbametaanddatarList) :: this
2735 i=this%countelements()
2737 allocate (toarray_dbametaanddatar(this%countelements()))
2741 do while(this%element())
2743 toarray_dbametaanddatar(i) =this%current()
2746 end function toarray_dbametaanddatar
2750 subroutine displaydbametaanddatad(this)
2751 class(dbametaanddatadList) :: this
2752 type(dbametaanddatad) :: element
2755 do while(this%element())
2756 print *,
"index:",this%currentindex(),
" value:"
2757 element=this%current()
2758 call element%display()