libsim Versione 7.2.6
|
◆ dbafilter_display()
print a summary of object content Definizione alla linea 2505 del file dballe_class.F03. 2506
2507!write data and attribute
2508!call session%extrude(metaanddata%dataattrv,noattr,filter)
2509call metaanddata%dataattrv%extrude(session,noattr,filter,attronly)
2510
2511!to close message on file
2512call session%close_message(template)
2513
2514end subroutine extrude
2515end subroutine dbametaanddata_extrude
2516
2517
2518!> print a summary of object content
2519subroutine dbametaanddatav_display(metaanddatav)
2520class(dbametaanddatav), intent(in) :: metaanddatav
2521
2522call metaanddatav%metadata%display()
2523call metaanddatav%datav%display()
2524
2525end subroutine dbametaanddatav_display
2526
2527!> put data on DSN
2528subroutine dbametaanddatav_extrude(metaanddatav,session,noattr,filter,template)
2529class(dbametaanddatav), intent(in) :: metaanddatav
2530type(dbasession), intent(in) :: session !< dballe session
2531logical, intent(in),optional :: noattr !< set to .true. to get data only (no attribute)
2532type(dbafilter),intent(in),optional :: filter !< use this to filter wanted data
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
|