libsim Versione 7.1.11
|
◆ dbafilter_set()
set parameters in dballe API Definizione alla linea 2556 del file dballe_class.F03. 2557!!$call session%set(datav=metaanddatav%datav)
2558call metaanddatav%datav%extrude(session,noattr,filter,template)
2559
2560print*,"dbaana_metaanddatav"
2561!to close message on file
2562call session%close_message(template)
2563
2564end subroutine extrude
2565end subroutine dbametaanddatav_extrude
2566
2567
2569subroutine dbametaanddatal_extrude(metaanddatal,session,noattr,filter,attronly,template)
2570class(dbametaanddatalist), intent(inout) :: metaanddatal !< ingestd data
2571class(dbasession), intent(in) :: session
2572logical, intent(in),optional :: noattr
2573type(dbafilter),intent(in),optional :: filter
2574type(dbametaanddata) :: metaanddata
2575logical, intent(in),optional :: attronly
2576character(len=*),intent(in),optional :: template
2577
2578call metaanddatal%rewind()
2579do 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()
2584end do
2585
2586end subroutine dbametaanddatal_extrude
2587
2588
2590subroutine displaydbametaanddatai(this)
2591class(dbametaanddataiList),intent(inout) :: this
2592type(dbametaanddatai) :: element
2593
2594call this%rewind()
2595do while(this%element())
2596 print *,"index:",this%currentindex()," value:"
2597 element=this%current()
2598 call element%display()
2599 call this%next()
2600end do
2601end subroutine displaydbametaanddatai
2602
2604type(dbametaanddatai) function currentdbametaanddatai(this)
2605class(dbametaanddataiList) :: this
2606class(*), pointer :: v
2607
2608v => this%currentpoli()
2609select type(v)
2610type is (dbametaanddatai)
2611 currentdbametaanddatai = v
2612end select
2613end function currentdbametaanddatai
2614
2615
2617subroutine dbasession_ingest_metaanddatail(session,metaanddatal,filter)
2618class(dbasession), intent(inout) :: session
2619type(dbametaanddatailist), intent(inout) :: metaanddatal
2620type(dbafilter),intent(in),optional :: filter
2621
2622type(dbametaanddatai) :: element
2623
2624
2625if (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)
|