3076 subroutine dbametaanddatad_extrude(metaanddatad,session)
3077 class(dbametaanddatad),
intent(in) :: metaanddatad
3078 type(dbasession),
intent(in) :: session
3080 call session%unsetall()
3082 call session%set(metadata=metaanddatad%metadata)
3084 call session%set(data=metaanddatad%dbadatad)
3086 if (metaanddatad%dbadatad%c_e())
then 3087 call session%prendilo()
3089 call session%dimenticami()
3092 end subroutine dbametaanddatad_extrude
3095 subroutine dbametaanddatar_extrude(metaanddatar,session)
3096 class(dbametaanddatar),
intent(in) :: metaanddatar
3097 type(dbasession),
intent(in) :: session
3099 call session%unsetall()
3101 call session%set(metadata=metaanddatar%metadata)