libsim Versione 7.2.4
|
◆ dbasession_ingest_metaanddatarl()
get data from DSN
Definizione alla linea 2884 del file dballe_class.F03. 2885
2886
2888function toarray_dbametaanddatab(this)
2889type(dbametaanddatab),allocatable :: toarray_dbametaanddatab(:)
2890class(dbametaanddatabList) :: this
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:"
|