3669 allocate(metaanddatav(0))
3671 end subroutine dbasession_ingest_metaanddatadv
3675 subroutine dbasession_ingest_metaanddatar(session,metaanddata)
3676 class(dbasession),
intent(inout) :: session
3677 type(dbametaanddatar),
intent(inout),
optional :: metaanddata
3680 character(len=9) :: btable
3683 if (.not.
present(metaanddata))
then 3684 ier = idba_voglioquesto(session%sehandle, session%count)
3686 ier = idba_dammelo(session%sehandle, btable)
3687 ier = idba_enq(session%sehandle, btable,
value)
3688 metaanddata%dbadatar=dbadatar(btable,
value)
3689 call metaanddata%metadata%dbaenq(session)
3690 session%count=session%count-1
3692 end subroutine dbasession_ingest_metaanddatar
3696 subroutine dbasession_ingest_metaanddatarv(session,metaanddatav)
3697 class(dbasession),
intent(inout) :: session
3698 type(dbametaanddatar),
intent(inout),
allocatable :: metaanddatav(:)
3702 call session%ingest_metaanddatar()
3703 if (
c_e(session%count))
then 3704 allocate(metaanddatav(session%count))
3706 do while (session%count >0)
3708 call session%ingest_metaanddatar(metaanddatav(i))