libsim Versione 7.2.4
|
◆ dbafilter_set()
set parameters in dballe API Definizione alla linea 2550 del file dballe_class.F03. 2551
2552if (.not. filter == metaanddatav%metadata)return
2553!write metadata
2554call session%set(metadata=metaanddatav%metadata)
2555
2556!write ana data and attribute
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
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
|