acc_stream_equal Function

public function acc_stream_equal(this, other) result(res)

Checks if two streams are equal

Arguments

Type IntentOptional Attributes Name
type(acc_stream_type), intent(in) :: this
type(acc_stream_type), intent(in) :: other

Return Value logical

true if equal, false otherwise


Contents

Source Code

acc_stream_equal

Source Code

   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