libsim Versione 7.1.11
|
◆ dbasession_ingest_metaanddatacl()
get data from DSN
Definizione alla linea 3128 del file dballe_class.F03. 3129class(dbasession), intent(inout) :: session
3130type(dbaana), intent(out),optional :: ana
3131
3132integer :: ier
3133
3134if (.not. present(ana)) then
3135 ier = idba_quantesono(session%sehandle, session%count)
3136 !print *,"numero ana",session%count
3137else
3138 ier = idba_elencamele(session%sehandle)
3139 call ana%dbaenq(session)
3140 session%count=session%count-1
3141end if
3142
3143end subroutine dbasession_ingest_ana
3144
3145
3147subroutine dbasession_ingest_anav(session,anav)
3148class(dbasession), intent(inout) :: session
3149type(dbaana), intent(out),allocatable :: anav(:)
3150integer :: i
3151
3152call session%ingest_ana()
3153
3154if (c_e(session%count)) then
3155 allocate(anav(session%count))
3156 i=0
|