libsim Versione 7.2.0

◆ dbasession_ingest_metaanddatav()

subroutine dbasession_ingest_metaanddatav ( class(dbasession), intent(inout)  session,
type(dbametaanddata), dimension(:), intent(inout), allocatable  metaanddatav,
logical, intent(in), optional  noattr,
type(dbafilter), intent(in), optional  filter 
)
private

get data from DSN

Parametri
[in,out]metaanddatavingestd data
[in]noattrset to .true. to get data only (no attribute)
[in]filteruse this to filter wanted data

Definizione alla linea 3636 del file dballe_class.F03.

3637 ier = idba_voglioquesto(session%sehandle, session%count)
3638else
3639 ier = idba_dammelo(session%sehandle, btable)
3640 ier = idba_enq(session%sehandle, btable,value)
3641 metaanddata%dbadatad=dbadatad(btable,value)
3642 call metaanddata%metadata%dbaenq(session)
3643 session%count=session%count-1
3644end if
3645end subroutine dbasession_ingest_metaanddatad
3646
3647
3649subroutine dbasession_ingest_metaanddatadv(session,metaanddatav)
3650class(dbasession), intent(inout) :: session
3651type(dbametaanddatad), intent(inout),allocatable :: metaanddatav(:)
3652
3653integer :: i
3654
3655call session%ingest_metaanddatad()
3656if (c_e(session%count)) then
3657 allocate(metaanddatav(session%count))
3658 i=0
3659 do while (session%count >0)
3660 i=i+1
3661 call session%ingest_metaanddatad(metaanddatav(i))
3662 end do
3663else
3664 allocate(metaanddatav(0))
3665end if
3666end subroutine dbasession_ingest_metaanddatadv
3667
3668
3670subroutine dbasession_ingest_metaanddatar(session,metaanddata)
3671class(dbasession), intent(inout) :: session
3672type(dbametaanddatar), intent(inout),optional :: metaanddata
3673
3674integer :: ier
3675character(len=9) :: btable
3676real :: value
3677
3678if (.not. present(metaanddata)) then
3679 ier = idba_voglioquesto(session%sehandle, session%count)

Generated with Doxygen.