2898 do while(this%element())
2900 toarray_dbametaanddatab(i) =this%current()
2903 end function toarray_dbametaanddatab
2907 subroutine displaydbametaanddatac(this)
2909 type(dbametaanddatac) :: element
2912 do while(this%element())
2913 print *,
"index:",this%currentindex(),
" value:"
2914 element=this%current()
2915 call element%display()
2918 end subroutine displaydbametaanddatac
2921 type(dbametaanddatac) function currentdbametaanddatac(this)