libsim  Versione 7.1.8

◆ dbametaanddata_extrude()

subroutine dballe_class::dbametaanddata_extrude ( class(dbametaanddata), intent(in)  metaanddata,
type(dbasession), intent(in)  session,
logical, intent(in), optional  noattr,
type(dbafilter), intent(in), optional  filter,
logical, intent(in), optional  attronly,
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
[in]attronlyset to .true. to export attr only (no data)

Definizione alla linea 2664 del file dballe_class.F03.

2665 end function toarray_dbametaanddatai
2666 
2667 
2669 subroutine displaydbametaanddatar(this)
2670 class(dbametaanddatarList),intent(inout) :: this
2671 type(dbametaanddatar) :: element
2672 
2673 call this%rewind()
2674 do while(this%element())
2675  print *,"index:",this%currentindex()," value:"
2676  element=this%current()
2677  call element%display()
2678  call this%next()
2679 end do
2680 end subroutine displaydbametaanddatar
2681 
2683 type(dbametaanddatar) function currentdbametaanddatar(this)
2684 class(dbametaanddatarList) :: this
2685 class(*), pointer :: v
2686 
2687 v => this%currentpoli()
2688 select type(v)
2689 type is (dbametaanddatar)
2690  currentdbametaanddatar = v
2691 end select
2692 end function currentdbametaanddatar
2693 
2694 
2696 subroutine dbasession_ingest_metaanddatarl(session,metaanddatal,filter)
2697 class(dbasession), intent(inout) :: session
2698 type(dbametaanddatarlist), intent(inout) :: metaanddatal
2699 type(dbafilter),intent(in),optional :: filter
2700 
2701 type(dbametaanddatar) :: element
2702 
2703 if (session%memdb .and. .not. session%loadfile)then
2704 
2705  do while (session%messages_read_next())
2706  call session%set(filter=filter)
2707  call session%ingest_metaanddatar()
2708  call session%ingest_metaanddatar(element)

Generated with Doxygen.