libsim  Versione6.3.0

◆ dbametadata_equal()

elemental logical function dballe_class::dbametadata_equal ( class(dbametadata), intent(in)  this,
class(dbametadata), intent(in)  that 
)
private

equal operator for dbametadata

Parametri
[in]thisfirst element
[in]thatsecond element

Definizione alla linea 2220 del file dballe_class.F03.

2220  do i =1,size(vars%dcv)
2221  allocate(dbafilter_init%vars%dcv(i)%dat,source=vars%dcv(i)%dat)
2222  end do
2223 
2224  dbafilter_init%varlist=""
2225  do i=1,size(vars%dcv)
2226  dbafilter_init%varlist=trim(dbafilter_init%varlist)//vars%dcv(i)%dat%btable
2227  if (i /= size(vars%dcv)) dbafilter_init%varlist=trim(dbafilter_init%varlist)//","
2228  end do
2229  endif
2230 end if
2231 
2232 if (present(starvars)) then
2233  if (allocated(starvars%dcv)) then
2234  allocate(dbafilter_init%starvars%dcv(size(starvars%dcv)))
2235  do i =1,size(starvars%dcv)

Generated with Doxygen.