2815 allocate (toarray_dbametaanddatad(this%countelements()))
2819 do while(this%element())
2821 toarray_dbametaanddatad(i) =this%current()
2824 end function toarray_dbametaanddatad
2828 subroutine displaydbametaanddatab(this)
2829 class(dbametaanddatabList),
intent(inout) :: this
2830 type(dbametaanddatab) :: element
2833 do while(this%element())
2834 print *,
"index:",this%currentindex(),
" value:"
2835 element=this%current()
2836 call element%display()
2839 end subroutine displaydbametaanddatab