libsim  Versione7.2.6

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

2561 !to close message on file
2562 call session%close_message(template)
2563 
2564 end subroutine extrude
2565 end subroutine dbametaanddatav_extrude
2566 
2567 
2569 subroutine dbametaanddatal_extrude(metaanddatal,session,noattr,filter,attronly,template)
2570 class(dbametaanddatalist), intent(inout) :: metaanddatal !< ingestd data
2571 class(dbasession), intent(in) :: session
2572 logical, intent(in),optional :: noattr
2573 type(dbafilter),intent(in),optional :: filter
2574 type(dbametaanddata) :: metaanddata
2575 logical, intent(in),optional :: attronly
2576 character(len=*),intent(in),optional :: template
2577 
2578 call metaanddatal%rewind()
2579 do while(metaanddatal%element())
2580  !call session%extrude(metaanddatal%current(),noattr,filter)
2581  metaanddata=metaanddatal%current()
2582  call metaanddata%extrude(session,noattr,filter,attronly,template)
2583  call metaanddatal%next()
2584 end do
2585 
2586 end subroutine dbametaanddatal_extrude
2587 
2588 
2590 subroutine displaydbametaanddatai(this)
2591 class(dbametaanddataiList),intent(inout) :: this
2592 type(dbametaanddatai) :: element
2593 
2594 call this%rewind()
2595 do while(this%element())
2596  print *,"index:",this%currentindex()," value:"
2597  element=this%current()
2598  call element%display()
2599  call this%next()
2600 end do
2601 end subroutine displaydbametaanddatai
2602 
2604 type(dbametaanddatai) function currentdbametaanddatai(this)
2605 class(dbametaanddataiList) :: this
2606 class(*), pointer :: v
2607 
2608 v => this%currentpoli()
2609 select type(v)
2610 type is (dbametaanddatai)
2611  currentdbametaanddatai = v
2612 end select
2613 end function currentdbametaanddatai
2614 
2615 
2617 subroutine dbasession_ingest_metaanddatail(session,metaanddatal,filter)
2618 class(dbasession), intent(inout) :: session
2619 type(dbametaanddatailist), intent(inout) :: metaanddatal
2620 type(dbafilter),intent(in),optional :: filter
2621 
2622 type(dbametaanddatai) :: element
2623 
2624 
2625 if (session%memdb .and. .not. session%loadfile)then
2626 
2627  do while (session%messages_read_next())
2628  call session%set(filter=filter)
2629  call session%ingest_metaanddatai()
2630  call session%ingest_metaanddatai(element)
2631  call metaanddatal%append(element)
2632  call session%remove_all()
2633  end do
2634 

Generated with Doxygen.