libsim  Versione 7.1.9

◆ dbasession_ingest_metaanddatarl()

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

Generated with Doxygen.