2973 allocate (toarray_dbametaanddatac(this%countelements()))
2977 do while(this%element())
2979 toarray_dbametaanddatac(i) =this%current()
2982 end function toarray_dbametaanddatac
2986 subroutine dbametaanddatai_display(data)
2987 class(dbametaanddatai),
intent(in) :: data
2989 call data%metadata%display()
2990 call data%dbadatai%display()
2992 end subroutine dbametaanddatai_display
2995 subroutine dbametaanddatab_display(data)
2996 class(dbametaanddatab),
intent(in) :: data
2998 call data%metadata%display()