libsim  Versione7.2.1

◆ dbadatetime_enq()

subroutine dballe_class::dbadatetime_enq ( class(dbadatetime), intent(out)  datetime,
type(dbasession), intent(in)  session 
)
private

query parameters from dballe API

Parametri
[in]sessiondballe session

Definizione alla linea 1975 del file dballe_class.F03.

1975 
1977 elemental logical function dbadcv_equal_dbadata(this,that)
1978 
1979 class(dbadcv), intent(in) :: this
1980 class(dbadata), intent(in) :: that
1981 
1982 integer :: i
1983 
1984 !non compila:
1985 !dbafilter_equal_dbadata = any(this%vars%dcv(:)%dat == that)
1986 
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
1992  end do
1993 else
1994  dbadcv_equal_dbadata=.true.
1995 end if

Generated with Doxygen.