libsim  Versione6.3.0

◆ dbafilter_set()

subroutine dballe_class::dbafilter_set ( class(dbafilter), intent(in)  filter,
type(dbasession), intent(in)  session 
)
private

set parameters in dballe API

Definizione alla linea 2581 del file dballe_class.F03.

2581 character(len=*),intent(in),optional :: template
2582 
2583 call metaanddatal%rewind()
2584 do while(metaanddatal%element())
2585  !call session%extrude(metaanddatal%current(),noattr,filter)
2586  metaanddata=metaanddatal%current()
2587  call metaanddata%extrude(session,noattr,filter,attronly,template)
2588  call metaanddatal%next()
2589 end do
2590 
2591 end subroutine dbametaanddatal_extrude
2592 
2593 
2595 subroutine displaydbametaanddatai(this)
2596 class(dbametaanddataiList) :: this
2597 type(dbametaanddatai) :: element
2598 
2599 call this%rewind()
2600 do while(this%element())
2601  print *,"index:",this%currentindex()," value:"
2602  element=this%current()
2603  call element%display()
2604  call this%next()
2605 end do
2606 end subroutine displaydbametaanddatai
2607 
2609 type(dbametaanddatai) function currentdbametaanddatai(this)
2610 class(dbametaanddataiList) :: this
2611 class(*), pointer :: v
2612 
2613 v => this%currentpoli()
2614 select type(v)
2615 type is (dbametaanddatai)
2616  currentdbametaanddatai = v
2617 end select
2618 end function currentdbametaanddatai
2619 
2620 
2622 subroutine dbasession_ingest_metaanddatail(session,metaanddatal,filter)
2623 class(dbasession), intent(inout) :: session
2624 type(dbametaanddatailist), intent(inout) :: metaanddatal
2625 type(dbafilter),intent(in),optional :: filter
2626 
2627 type(dbametaanddatai) :: element
2628 
2629 
2630 if (session%memdb .and. .not. session%loadfile)then
2631 
2632  do while (session%messages_read_next())
2633  call session%set(filter=filter)
2634  call session%ingest_metaanddatai()
2635  call session%ingest_metaanddatai(element)
2636  call metaanddatal%append(element)
2637  call session%remove_all()
2638  end do
2639 
2640 else
2641 
2642  call session%set(filter=filter)
2643  call session%ingest_metaanddatai()
2644  do while (c_e(session%count) .and. session%count >0)
2645  call session%ingest_metaanddatai(element)
2646  call metaanddatal%append(element)
2647  if (session%file) call session%ingest()
2648  end do
2649 
2650 end if
2651 
2652 end subroutine dbasession_ingest_metaanddatail
2653 

Generated with Doxygen.