libsim Versione 7.1.11
|
◆ dbasession_ingest_metaanddatarl()
get data from DSN
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
|