Checks if two streams are equal
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(acc_stream_type), | intent(in) | :: | this | |||
type(acc_stream_type), | intent(in) | :: | other |
true if equal, false otherwise
FUNCTION acc_stream_equal(this, other) RESULT(res)
!! Checks if two streams are equal
TYPE(acc_stream_type), INTENT(IN) :: this, other
LOGICAL :: res
!! true if equal, false otherwise
#if ! defined (__DBCSR_ACC)
MARK_USED(this)
MARK_USED(other)
res = .TRUE.
#else
res = C_ASSOCIATED(this%cptr, other%cptr)
#endif
END FUNCTION acc_stream_equal