libsim  Versione 7.2.4

◆ dbametaanddatar_extrude()

subroutine dballe_class::dbametaanddatar_extrude ( class(dbametaanddatar), intent(in)  metaanddatar,
type(dbasession), intent(in)  session 
)
private

put data on DSN

Parametri
[in]sessiondballe session

Definizione alla linea 3288 del file dballe_class.F03.

3289  ier = idba_enq(session%sehandle, btable,dat%value)
3290  end select
3291 
3292  if (optio_log(noattr))then
3293  ! initialize to (0) the attribute vector
3294  allocate (metaanddata%dataattrv%dataattr(i)%attrv%dcv(0))
3295 
3296  else
3297 
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

Generated with Doxygen.