3649 subroutine dbasession_ingest_metaanddatadv(session,metaanddatav)
3650 class(dbasession),
intent(inout) :: session
3651 type(dbametaanddatad),
intent(inout),
allocatable :: metaanddatav(:)
3655 call session%ingest_metaanddatad()
3656 if (c_e(session%count))
then 3657 allocate(metaanddatav(session%count))
3659 do while (session%count >0)
3661 call session%ingest_metaanddatad(metaanddatav(i))
3664 allocate(metaanddatav(0))
3666 end subroutine dbasession_ingest_metaanddatadv
3670 subroutine dbasession_ingest_metaanddatar(session,metaanddata)
3671 class(dbasession),
intent(inout) :: session
3672 type(dbametaanddatar),
intent(inout),
optional :: metaanddata
3675 character(len=9) :: btable
3678 if (.not.
present(metaanddata))
then 3679 ier = idba_voglioquesto(session%sehandle, session%count)
3681 ier = idba_dammelo(session%sehandle, btable)
3682 ier = idba_enq(session%sehandle, btable,
value)
3683 metaanddata%dbadatar=dbadatar(btable,
value)
3684 call metaanddata%metadata%dbaenq(session)
3685 session%count=session%count-1
3687 end subroutine dbasession_ingest_metaanddatar