libsim  Versione6.3.0

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

2689 class(dbametaanddatarList) :: this
2690 class(*), pointer :: v
2691 
2692 v => this%currentpoli()
2693 select type(v)
2694 type is (dbametaanddatar)
2695  currentdbametaanddatar = v
2696 end select
2697 end function currentdbametaanddatar
2698 
2699 
2701 subroutine dbasession_ingest_metaanddatarl(session,metaanddatal,filter)
2702 class(dbasession), intent(inout) :: session
2703 type(dbametaanddatarlist), intent(inout) :: metaanddatal
2704 type(dbafilter),intent(in),optional :: filter
2705 
2706 type(dbametaanddatar) :: element
2707 
2708 if (session%memdb .and. .not. session%loadfile)then
2709 
2710  do while (session%messages_read_next())
2711  call session%set(filter=filter)
2712  call session%ingest_metaanddatar()
2713  call session%ingest_metaanddatar(element)
2714  call metaanddatal%append(element)
2715  call session%remove_all()
2716  end do
2717 
2718 else
2719 
2720  call session%set(filter=filter)
2721  call session%ingest_metaanddatar()
2722  do while (c_e(session%count) .and. session%count >0)
2723  call session%ingest_metaanddatar(element)
2724  call metaanddatal%append(element)
2725  if (session%file) call session%ingest()
2726  end do
2727 
2728 end if
2729 
2730 
2731 end subroutine dbasession_ingest_metaanddatarl
2732 

Generated with Doxygen.