libsim  Versione 7.2.6

◆ dbasession_ingest_metaanddatacl()

subroutine dballe_class::dbasession_ingest_metaanddatacl ( class(dbasession), intent(inout)  session,
type(dbametaanddataclist), intent(inout)  metaanddatal,
type(dbafilter), intent(in), optional  filter 
)
private

get data from DSN

Parametri
[in,out]metaanddatalingestd data
[in]filteruse this to filter wanted data

Definizione alla linea 3132 del file dballe_class.F03.

3133 
3134 if (.not. present(ana)) then
3135  ier = idba_quantesono(session%sehandle, session%count)
3136  !print *,"numero ana",session%count
3137 else
3138  ier = idba_elencamele(session%sehandle)
3139  call ana%dbaenq(session)
3140  session%count=session%count-1
3141 end if
3142 
3143 end subroutine dbasession_ingest_ana
3144 
3145 
3147 subroutine dbasession_ingest_anav(session,anav)
3148 class(dbasession), intent(inout) :: session
3149 type(dbaana), intent(out),allocatable :: anav(:)
3150 integer :: i
3151 
3152 call session%ingest_ana()
3153 
3154 if (c_e(session%count)) then
3155  allocate(anav(session%count))
3156  i=0
3157  do while (session%count >0)
3158  i=i+1
3159  call session%ingest_ana(anav(i))
3160  end do

Generated with Doxygen.