3052 subroutine dbametaanddatab_extrude(metaanddatab,session)
3053 class(dbametaanddatab),
intent(in) :: metaanddatab
3054 type(dbasession),
intent(in) :: session
3056 call session%unsetall()
3058 call session%set(metadata=metaanddatab%metadata)
3060 call session%set(data=metaanddatab%dbadatab)
3062 if (metaanddatab%dbadatab%c_e())
then
3063 call session%prendilo()
3065 call session%dimenticami()
3068 end subroutine dbametaanddatab_extrude
3071 subroutine dbametaanddatad_extrude(metaanddatad,session)
3072 class(dbametaanddatad),
intent(in) :: metaanddatad
3073 type(dbasession),
intent(in) :: session
3075 call session%unsetall()
3077 call session%set(metadata=metaanddatad%metadata)