libsim Versione 7.1.11

◆ dbasession_ingest_metaanddatail()

subroutine dbasession_ingest_metaanddatail ( class(dbasession), intent(inout)  session,
type(dbametaanddatailist), 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 2811 del file dballe_class.F03.

2812
2813integer :: i
2814
2815allocate (toarray_dbametaanddatad(this%countelements()))
2816
2817call this%rewind()
2818i=0
2819do while(this%element())
2820 i=i+1
2821 toarray_dbametaanddatad(i) =this%current()
2822 call this%next()
2823end do
2824end function toarray_dbametaanddatad
2825
2826
2828subroutine displaydbametaanddatab(this)
2829class(dbametaanddatabList),intent(inout) :: this
2830type(dbametaanddatab) :: element
2831
2832call this%rewind()
2833do while(this%element())
2834 print *,"index:",this%currentindex()," value:"
2835 element=this%current()
2836 call element%display()
2837 call this%next()
2838end do
2839end subroutine displaydbametaanddatab
2840

Generated with Doxygen.