libsim Versione 7.2.6
|
◆ dbasession_ingest_metaanddatacl()
get data from DSN
Definizione alla linea 3122 del file dballe_class.F03. 3123endif
3124
3125end subroutine dbametaanddatac_extrude
3126
3127!> get data from DSN
3128subroutine dbasession_ingest_ana(session,ana)
3129class(dbasession), intent(inout) :: session
3130type(dbaana), intent(out),optional :: ana !< 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
3146!> get data from DSN
3147subroutine dbasession_ingest_anav(session,anav)
3148class(dbasession), intent(inout) :: session
3149type(dbaana), intent(out),allocatable :: anav(:) !< array of ana
3150integer :: i
|