libsim  Versione6.3.0

◆ dbasession_ingest_metaanddatav()

subroutine dballe_class::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 3667 del file dballe_class.F03.

3667  end do
3668 else
3669  allocate(metaanddatav(0))
3670 end if
3671 end subroutine dbasession_ingest_metaanddatadv
3672 
3673 
3675 subroutine dbasession_ingest_metaanddatar(session,metaanddata)
3676 class(dbasession), intent(inout) :: session
3677 type(dbametaanddatar), intent(inout),optional :: metaanddata
3678 
3679 integer :: ier
3680 character(len=9) :: btable
3681 real :: value
3682 
3683 if (.not. present(metaanddata)) then
3684  ier = idba_voglioquesto(session%sehandle, session%count)
3685 else
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
3691 end if
3692 end subroutine dbasession_ingest_metaanddatar
3693 
3694 
3696 subroutine dbasession_ingest_metaanddatarv(session,metaanddatav)
3697 class(dbasession), intent(inout) :: session
3698 type(dbametaanddatar), intent(inout),allocatable :: metaanddatav(:)
3699 
3700 integer :: i
3701 
3702 call session%ingest_metaanddatar()
3703 if (c_e(session%count)) then
3704  allocate(metaanddatav(session%count))
3705  i=0
3706  do while (session%count >0)
3707  i=i+1
3708  call session%ingest_metaanddatar(metaanddatav(i))
3709  end do

Generated with Doxygen.