| 615 | |
| 616 | |
| 617 | boole N_VConstrProdPos(N_Vector c, N_Vector x) |
| 618 | { |
| 619 | integer i, N; |
| 620 | boole test; |
| 621 | real *xd, *cd; |
| 622 | machEnvType machenv; |
| 623 | |
| 624 | N = x->length; |
| 625 | xd = x->data; |
| 626 | cd = c->data; |
| 627 | machenv = x->machEnv; |
| 628 | |
| 629 | test = TRUE; |
| 630 | for (i=0; i < N; i++, xd++,cd++) { |
| 631 | if (*cd !=ZERO){ |
| 632 | if(*xd * *cd <= ZERO) { |
| 633 | test = FALSE; |
| 634 | break; |
| 635 | } |
| 636 | } |
| 637 | } |
| 638 | return((boole)PVecAllReduce((int)test,3,machenv)); |
| 639 | } |
| 640 | |
| 641 | |
| 642 | void N_VPrint(N_Vector x) |
nothing calls this directly
no test coverage detected