3130 type(dbaana),
intent(out),
optional :: ana
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)
3149 type(dbaana),
intent(out),
allocatable :: anav(:)
3154 if (c_e(session%count))
then
3155 allocate(anav(session%count))