libsim  Versione 7.1.9

◆ dbametaanddatav_extrude()

subroutine dballe_class::dbametaanddatav_extrude ( class(dbametaanddatav), intent(in)  metaanddatav,
type(dbasession), intent(in)  session,
logical, intent(in), optional  noattr,
type(dbafilter), intent(in), optional  filter,
character(len=*), intent(in), optional  template 
)
private

put data on DSN

Parametri
[in]sessiondballe session
[in]noattrset to .true. to get data only (no attribute)
[in]filteruse this to filter wanted data

Definizione alla linea 2722 del file dballe_class.F03.

2723 end if
2724 
2725 
2726 end subroutine dbasession_ingest_metaanddatarl
2727 
2728 
2730 function toarray_dbametaanddatar(this)
2731 type(dbametaanddatar),allocatable :: toarray_dbametaanddatar(:)
2732 class(dbametaanddatarList) :: this
2733 
2734 integer :: i
2735 i=this%countelements()
2736 !print *, "allocate:",i
2737 allocate (toarray_dbametaanddatar(this%countelements()))
2738 
2739 call this%rewind()
2740 i=0
2741 do while(this%element())
2742  i=i+1
2743  toarray_dbametaanddatar(i) =this%current()
2744  call this%next()
2745 end do
2746 end function toarray_dbametaanddatar
2747 
2748 
2750 subroutine displaydbametaanddatad(this)
2751 class(dbametaanddatadList),intent(inout) :: this
2752 type(dbametaanddatad) :: element
2753 
2754 call this%rewind()
2755 do while(this%element())
2756  print *,"index:",this%currentindex()," value:"
2757  element=this%current()
2758  call element%display()

Generated with Doxygen.