libsim Versione 7.2.4
|
◆ dbametaanddatab_extrude()
put data on DSN
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
|