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)
3079 call session%set(data=metaanddatad%dbadatad)
3081 if (metaanddatad%dbadatad%c_e())
then