3087 end subroutine dbametaanddatad_extrude
3090 subroutine dbametaanddatar_extrude(metaanddatar,session)
3091 class(dbametaanddatar),
intent(in) :: metaanddatar
3092 type(dbasession),
intent(in) :: session
3094 call session%unsetall()
3096 call session%set(metadata=metaanddatar%metadata)
3098 call session%set(data=metaanddatar%dbadatar)
3100 if (metaanddatar%dbadatar%c_e())
then