Checks if a streams is associated
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(acc_stream_type), | intent(in) | :: | this |
true if associated, false otherwise
FUNCTION acc_stream_associated(this) RESULT(res)
!! Checks if a streams is associated
TYPE(acc_stream_type), INTENT(IN) :: this
LOGICAL :: res
!! true if associated, false otherwise
#if ! defined (__DBCSR_ACC)
MARK_USED(this)
res = .FALSE.
#else
res = C_ASSOCIATED(this%cptr)
#endif
END FUNCTION acc_stream_associated