libsim Versione 7.2.1

◆ dbametaanddatav_extrude()

subroutine 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 2716 del file dballe_class.F03.

2717 do while (c_e(session%count) .and. session%count >0)
2718 call session%ingest_metaanddatar(element)
2719 call metaanddatal%append(element)
2720 if (session%file) call session%ingest()
2721 end do
2722
2723end if
2724
2725
2726end subroutine dbasession_ingest_metaanddatarl
2727
2728
2730function toarray_dbametaanddatar(this)
2731type(dbametaanddatar),allocatable :: toarray_dbametaanddatar(:)
2732class(dbametaanddatarList) :: this
2733
2734integer :: i
2735i=this%countelements()
2736!print *, "allocate:",i
2737allocate (toarray_dbametaanddatar(this%countelements()))
2738
2739call this%rewind()
2740i=0
2741do while(this%element())
2742 i=i+1
2743 toarray_dbametaanddatar(i) =this%current()
2744 call this%next()
2745end do
2746end function toarray_dbametaanddatar
2747
2748
2750subroutine displaydbametaanddatad(this)
2751class(dbametaanddatadList),intent(inout) :: this
2752type(dbametaanddatad) :: element

Generated with Doxygen.