libsim Versione 7.2.6

◆ dbametaanddatac_extrude()

subroutine dbametaanddatac_extrude ( class(dbametaanddatac), intent(in) metaanddatac,
type(dbasession), intent(in) session )
private

put data on DSN

Parametri
[in]sessiondballe session

Definizione alla linea 3297 del file dballe_class.F03.

3298 if (lstarvars) then
3299
3300 allocate (metaanddata%dataattrv%dataattr(i)%attrv%dcv(size(starvars%dcv)))
3301 do j = 1, size(starvars%dcv)
3302 allocate (metaanddata%dataattrv%dataattr(i)%attrv%dcv(j)%dat,source=starvars%dcv(j)%dat)
3303 end do
3304
3305 if (c_e(session%count) .and. session%count > 0) then
3306
3307 ier = idba_voglioancora(session%sehandle, acount)
3308 do k =1,acount
3309 ier = idba_ancora(session%sehandle, btable)
3310 ier = idba_enq(session%sehandle, btable,value)
3311
3312 do j=1,size(metaanddata%dataattrv%dataattr(i)%attrv%dcv)

Generated with Doxygen.