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