libsim Versione 7.2.4
|
◆ dbametaanddatav_extrude()
put data on DSN
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
|