3134 if (.not.
present(ana))
then
3135 ier = idba_quantesono(session%sehandle, session%count)
3138 ier = idba_elencamele(session%sehandle)
3139 call ana%dbaenq(session)
3140 session%count=session%count-1
3143 end subroutine dbasession_ingest_ana
3147 subroutine dbasession_ingest_anav(session,anav)
3148 class(dbasession),
intent(inout) :: session
3149 type(dbaana),
intent(out),
allocatable :: anav(:)
3152 call session%ingest_ana()
3154 if (c_e(session%count))
then
3155 allocate(anav(session%count))
3157 do while (session%count >0)
3159 call session%ingest_ana(anav(i))