libsim  Versione7.2.6

◆ 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 2727 del file dballe_class.F03.

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()
2759  call this%next()
2760 end do
2761 end subroutine displaydbametaanddatad
2762 

Generated with Doxygen.