libsim  Versione 7.2.1

◆ dbametaanddatab_extrude()

subroutine dballe_class::dbametaanddatab_extrude ( class(dbametaanddatab), intent(in)  metaanddatab,
type(dbasession), intent(in)  session 
)
private

put data on DSN

Parametri
[in]sessiondballe session

Definizione alla linea 3250 del file dballe_class.F03.

3251  do i =1,size(filter%starvars%dcv)
3252  allocate(starvars%dcv(i)%dat,source=filter%starvars%dcv(i)%dat)
3253  end do
3254  end if
3255 
3256  end if
3257 
3258  end if
3259 
3260  if (lvars) then
3261 
3262  ! create an empty vector for data
3263  allocate (metaanddata%dataattrv%dataattr(size(vars%dcv)))
3264  do i = 1, size(vars%dcv)
3265  allocate (metaanddata%dataattrv%dataattr(i)%dat,source=vars%dcv(i)%dat)

Generated with Doxygen.