2819 do while(this%element())
2821 toarray_dbametaanddatad(i) =this%current()
2824 end function toarray_dbametaanddatad
2828 subroutine displaydbametaanddatab(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
2842 type(dbametaanddatab) function currentdbametaanddatab(this)