libsim Versione 7.1.11
|
◆ dbafilter_display()
print a summary of object content Definizione alla linea 2511 del file dballe_class.F03. 2512call session%close_message(template)
2513
2514end subroutine extrude
2515end subroutine dbametaanddata_extrude
2516
2517
2519subroutine dbametaanddatav_display(metaanddatav)
2520class(dbametaanddatav), intent(in) :: metaanddatav
2521
2522call metaanddatav%metadata%display()
2523call metaanddatav%datav%display()
2524
2525end subroutine dbametaanddatav_display
2526
2528subroutine dbametaanddatav_extrude(metaanddatav,session,noattr,filter,template)
2529class(dbametaanddatav), intent(in) :: metaanddatav
2530type(dbasession), intent(in) :: session
2531logical, intent(in),optional :: noattr
2532type(dbafilter),intent(in),optional :: filter
2533character(len=*),intent(in),optional :: template
2534
2535type(dbafilter) :: myfilter
2536
2537myfilter=dbafilter(filter=filter,contextana=.false.)
2538call extrude(metaanddatav,session,noattr,myfilter,template)
2539
2540myfilter=dbafilter(filter=filter,contextana=.true.)
2541call extrude(metaanddatav,session,noattr,myfilter,template)
2542
2543contains
2544
2545subroutine extrude(metaanddatav,session,noattr,filter,template)
2546class(dbametaanddatav), intent(in) :: metaanddatav
2547type(dbasession), intent(in) :: session
2548logical, intent(in),optional :: noattr
2549type(dbafilter),intent(in) :: filter
2550character(len=*),intent(in),optional :: template
2551
2552if (.not. filter == metaanddatav%metadata)return
|