| 572 | |
| 573 | |
| 574 | void N_VCompare(real c, N_Vector x, N_Vector z) |
| 575 | { |
| 576 | integer i, N; |
| 577 | real *xd, *zd; |
| 578 | |
| 579 | N = x->length; |
| 580 | xd = x->data; |
| 581 | zd = z->data; |
| 582 | |
| 583 | #pragma omp parallel for |
| 584 | for (i=0; i < N; i++) { |
| 585 | zd[i] = (ABS(xd[i]) >= c) ? ONE : ZERO; |
| 586 | } |
| 587 | } |
| 588 | |
| 589 | |
| 590 | boole N_VInvTest(N_Vector x, N_Vector z) |