libsim Versione 7.2.4

◆ dbametaanddatab_extrude()

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

put data on DSN

Parametri
[in]sessiondballe session

Definizione alla linea 3240 del file dballe_class.F03.

3241 lvars=.true.
3242 allocate(vars%dcv(size(filter%vars%dcv)))
3243 do i =1,size(filter%vars%dcv)
3244 allocate(vars%dcv(i)%dat,source=filter%vars%dcv(i)%dat)
3245 end do
3246 end if
3247
3248 if (allocated(filter%starvars%dcv)) then
3249 lstarvars=.true.
3250 allocate(starvars%dcv(size(filter%starvars%dcv)))
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

Generated with Doxygen.