libsim  Versione6.3.0

◆ dbafilter_display()

subroutine dballe_class::dbafilter_display ( class(dbafilter), intent(in)  filter)
private

print a summary of object content

Definizione alla linea 2536 del file dballe_class.F03.

2536 logical, intent(in),optional :: noattr
2537 type(dbafilter),intent(in),optional :: filter
2538 character(len=*),intent(in),optional :: template
2539 
2540 type(dbafilter) :: myfilter
2541 
2542 myfilter=dbafilter(filter=filter,contextana=.false.)
2543 call extrude(metaanddatav,session,noattr,myfilter,template)
2544 
2545 myfilter=dbafilter(filter=filter,contextana=.true.)
2546 call extrude(metaanddatav,session,noattr,myfilter,template)
2547 
2548 contains
2549 
2550 subroutine extrude(metaanddatav,session,noattr,filter,template)
2551 class(dbametaanddatav), intent(in) :: metaanddatav
2552 type(dbasession), intent(in) :: session
2553 logical, intent(in),optional :: noattr
2554 type(dbafilter),intent(in) :: filter
2555 character(len=*),intent(in),optional :: template
2556 
2557 if (.not. filter == metaanddatav%metadata)return
2558 !write metadata
2559 call session%set(metadata=metaanddatav%metadata)
2560 
2561 !write ana data and attribute
2562 !!$call session%set(datav=metaanddatav%datav)
2563 call metaanddatav%datav%extrude(session,noattr,filter,template)
2564 
2565 print*,"dbaana_metaanddatav"
2566 !to close message on file
2567 call session%close_message(template)
2568 
2569 end subroutine extrude
2570 end subroutine dbametaanddatav_extrude
2571 
2572 
2574 subroutine dbametaanddatal_extrude(metaanddatal,session,noattr,filter,attronly,template)
2575 class(dbametaanddatalist), intent(inout) :: metaanddatal
2576 class(dbasession), intent(in) :: session

Generated with Doxygen.