1977 elemental logical function dbadcv_equal_dbadata(this,that)
1979 class(dbadcv),
intent(in) :: this
1980 class(dbadata),
intent(in) :: that
1987 if (
allocated(this%dcv))
then 1988 dbadcv_equal_dbadata=.false.
1989 do i=1,
size(this%dcv)
1990 dbadcv_equal_dbadata = this%dcv(i)%dat == that
1991 if (dbadcv_equal_dbadata)
exit 1994 dbadcv_equal_dbadata=.true.