libsim  Versione7.2.6

◆ 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 3647 del file dballe_class.F03.

3647 
3649 subroutine dbasession_ingest_metaanddatadv(session,metaanddatav)
3650 class(dbasession), intent(inout) :: session
3651 type(dbametaanddatad), intent(inout),allocatable :: metaanddatav(:)
3652 
3653 integer :: i
3654 
3655 call session%ingest_metaanddatad()
3656 if (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
3663 else
3664  allocate(metaanddatav(0))
3665 end if
3666 end subroutine dbasession_ingest_metaanddatadv
3667 
3668 
3670 subroutine dbasession_ingest_metaanddatar(session,metaanddata)
3671 class(dbasession), intent(inout) :: session
3672 type(dbametaanddatar), intent(inout),optional :: metaanddata
3673 
3674 integer :: ier
3675 character(len=9) :: btable
3676 real :: value
3677 
3678 if (.not. present(metaanddata)) then
3679  ier = idba_voglioquesto(session%sehandle, session%count)
3680 else
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
3686 end if
3687 end subroutine dbasession_ingest_metaanddatar
3688 
3689 

Generated with Doxygen.