libsim Versione 7.2.6
|
◆ dbasession_ingest_metaanddatabl()
get data from DSN
Definizione alla linea 3043 del file dballe_class.F03. 3044 call session%prendilo()
3045else
3046 call session%dimenticami()
3047endif
3048
3049end subroutine dbametaanddatai_extrude
3050
3051!> put data on DSN
3052subroutine dbametaanddatab_extrude(metaanddatab,session)
3053class(dbametaanddatab), intent(in) :: metaanddatab
3054type(dbasession), intent(in) :: session !< dballe session
3055
3056call session%unsetall()
3057!write metadata
3058call session%set(metadata=metaanddatab%metadata)
3059!write ana data and attribute
3060call session%set(data=metaanddatab%dbadatab)
3061
3062if (metaanddatab%dbadatab%c_e()) then
3063 call session%prendilo()
3064else
3065 call session%dimenticami()
3066endif
3067
3068end subroutine dbametaanddatab_extrude
3069
3070!> put data on DSN
3071subroutine dbametaanddatad_extrude(metaanddatad,session)
|