libsim  Versione 7.1.8

◆ dbasession_ingest_metaanddatail()

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

Generated with Doxygen.