libsim Versione 7.1.11
|
◆ dbadatetime_enq()
query parameters from dballe API
Definizione alla linea 1970 del file dballe_class.F03. 1971!!$
1972!!$end function dbafilter_equal_dbadata
1973
1974
1977elemental logical function dbadcv_equal_dbadata(this,that)
1978
1979class(dbadcv), intent(in) :: this
1980class(dbadata), intent(in) :: that
1981
1982integer :: i
1983
1984!non compila:
1985!dbafilter_equal_dbadata = any(this%vars%dcv(:)%dat == that)
1986
1987if (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
|