2519 subroutine dbametaanddatav_display(metaanddatav)
2520 class(dbametaanddatav),
intent(in) :: metaanddatav
2522 call metaanddatav%metadata%display()
2523 call metaanddatav%datav%display()
2525 end subroutine dbametaanddatav_display
2528 subroutine dbametaanddatav_extrude(metaanddatav,session,noattr,filter,template)
2529 class(dbametaanddatav),
intent(in) :: metaanddatav
2530 type(dbasession),
intent(in) :: session
2531 logical,
intent(in),
optional :: noattr
2532 type(dbafilter),
intent(in),
optional :: filter
2533 character(len=*),
intent(in),
optional :: template
2535 type(dbafilter) :: myfilter
2537 myfilter=dbafilter(filter=filter,contextana=.false.)
2538 call extrude(metaanddatav,session,noattr,myfilter,template)
2540 myfilter=dbafilter(filter=filter,contextana=.true.)
2541 call extrude(metaanddatav,session,noattr,myfilter,template)
2545 subroutine extrude(metaanddatav,session,noattr,filter,template)
2546 class(dbametaanddatav),
intent(in) :: metaanddatav
2547 type(dbasession),
intent(in) :: session
2548 logical,
intent(in),
optional :: noattr
2549 type(dbafilter),
intent(in) :: filter
2550 character(len=*),
intent(in),
optional :: template
2552 if (.not. filter == metaanddatav%metadata)
return 2554 call session%set(metadata=metaanddatav%metadata)