| 10 | #include "GB.h" |
| 11 | |
| 12 | GrB_Info GxB_Matrix_iso // return iso status of a matrix |
| 13 | ( |
| 14 | bool *iso, // true if the matrix is iso-valued |
| 15 | const GrB_Matrix A // matrix to query |
| 16 | ) |
| 17 | { |
| 18 | |
| 19 | //-------------------------------------------------------------------------- |
| 20 | // check inputs |
| 21 | //-------------------------------------------------------------------------- |
| 22 | |
| 23 | GB_WHERE1 ("GxB_Matrix_iso (&iso, A)") ; |
| 24 | GB_RETURN_IF_NULL (iso) ; |
| 25 | GB_RETURN_IF_NULL_OR_FAULTY (A) ; |
| 26 | |
| 27 | //-------------------------------------------------------------------------- |
| 28 | // return the iso status of a matrix |
| 29 | //-------------------------------------------------------------------------- |
| 30 | |
| 31 | (*iso) = A->iso ; |
| 32 | #pragma omp flush |
| 33 | return (GrB_SUCCESS) ; |
| 34 | } |
| 35 | |