libsim Versione 7.1.11
|
◆ dbadatetime_set()
set parameters in dballe API
Definizione alla linea 1947 del file dballe_class.F03. 1948end function dbafilter_equal_dbametadata
1949
1950
1951!!$!> equal operator for dbafilter and dbadata
1952!!$! todo qui vuene utilizzata vars ma potrebbe essere attrs: bisogna distinguere
1953!!$elemental logical function dbafilter_equal_dbadata(this,that)
1954!!$
1955!!$class(dbafilter), intent(in) :: this !< first element
1956!!$class(dbadata), intent(in) :: that !< second element
1957!!$
1958!!$integer :: i
1959!!$
1960!!$!non compila:
1961!!$!dbafilter_equal_dbadata = any(this%vars%dcv(:)%dat == that)
1962!!$
1963!!$if (allocated(this%vars%dcv)) then
1964!!$ do i=1, size(this%vars%dcv(:))
1965!!$ dbafilter_equal_dbadata = this%vars%dcv(i)%dat == that
1966!!$ if (dbafilter_equal_dbadata) continue
|