libsim  Versione 7.2.1

◆ dbametaanddatai_extrude()

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

put data on DSN

Parametri
[in]sessiondballe session

Definizione alla linea 3231 del file dballe_class.F03.

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)))
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

Generated with Doxygen.