libsim Versione 7.1.11
|
◆ dbametaanddatai_extrude()
put data on DSN
Definizione alla linea 3227 del file dballe_class.F03. 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
3237
3238 else
3239
3240 if (allocated(filter%vars%dcv)) then
3241 lvars=.true.
3242 allocate(vars%dcv(size(filter%vars%dcv)))
|