libsim Versione 7.1.11

◆ dbasession_ingest_metaanddatarl()

subroutine dbasession_ingest_metaanddatarl ( class(dbasession), intent(inout)  session,
type(dbametaanddatarlist), 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 2890 del file dballe_class.F03.

2891
2892integer :: i
2893
2894allocate (toarray_dbametaanddatab(this%countelements()))
2895
2896call this%rewind()
2897i=0
2898do while(this%element())
2899 i=i+1
2900 toarray_dbametaanddatab(i) =this%current()
2901 call this%next()
2902end do
2903end function toarray_dbametaanddatab
2904
2905
2907subroutine displaydbametaanddatac(this)
2908class(dbametaanddatacList),intent(inout) :: this
2909type(dbametaanddatac) :: element
2910
2911call this%rewind()
2912do while(this%element())
2913 print *,"index:",this%currentindex()," value:"
2914 element=this%current()
2915 call element%display()
2916 call this%next()
2917end do
2918end subroutine displaydbametaanddatac
2919

Generated with Doxygen.