libsim Versione 7.2.4

◆ dbametaanddatai_extrude()

subroutine dbametaanddatai_extrude ( class(dbametaanddatai), intent(in) metaanddatai,
type(dbasession), intent(in) session )
private

put data on DSN

Parametri
[in]sessiondballe session

Definizione alla linea 3221 del file dballe_class.F03.

3222 if (allocated(filter%anavars%dcv)) then
3223 lvars=.true.
3224 allocate(vars%dcv(size(filter%anavars%dcv)))
3225 do i =1,size(filter%anavars%dcv)
3226 allocate(vars%dcv(i)%dat,source=filter%anavars%dcv(i)%dat)
3227 end do
3228 end if
3229
3230 if (allocated(filter%anastarvars%dcv)) then
3231 lstarvars=.true.
3232 allocate(starvars%dcv(size(filter%anastarvars%dcv)))
3233 do i =1,size(filter%anastarvars%dcv)
3234 allocate(starvars%dcv(i)%dat,source=filter%anastarvars%dcv(i)%dat)
3235 end do
3236 end if

Generated with Doxygen.