libsim  Versione7.2.3

◆ dbadatetime_set()

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

set parameters in dballe API

Parametri
[in]sessiondballe session

Definizione alla linea 1952 del file dballe_class.F03.

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
1967 !!$ end do
1968 !!$else
1969 !!$ dbafilter_equal_dbadata=.false.
1970 !!$end if

Generated with Doxygen.