| 552 | |
| 553 | |
| 554 | real N_VL1Norm(N_Vector x) |
| 555 | { |
| 556 | integer N; |
| 557 | real sum = ZERO, gsum, *xd; |
| 558 | machEnvType machenv; |
| 559 | |
| 560 | |
| 561 | N = x->length; |
| 562 | xd = x->data; |
| 563 | machenv = x->machEnv; |
| 564 | |
| 565 | #pragma omp parallel for reduction(+: sum) |
| 566 | for (integer i=0; i<N; i++) sum += ABS(xd[i]); |
| 567 | |
| 568 | gsum = PVecAllReduce(sum, 1, machenv); |
| 569 | |
| 570 | return(gsum); |
| 571 | } |
| 572 | |
| 573 | |
| 574 | void N_VCompare(real c, N_Vector x, N_Vector z) |
nothing calls this directly
no test coverage detected