| 397 | |
| 398 | |
| 399 | void N_VAddConst(N_Vector x, real b, N_Vector z) |
| 400 | { |
| 401 | integer N; |
| 402 | real *xd, *zd; |
| 403 | |
| 404 | N = x->length; |
| 405 | xd = x->data; |
| 406 | zd = z->data; |
| 407 | |
| 408 | #ifndef _OPENMP |
| 409 | for (integer i=0; i < N; i++) *zd++ = (*xd++) + b; |
| 410 | #else |
| 411 | #pragma omp parallel for |
| 412 | for (integer i=0; i < N; i++) |
| 413 | zd[i] = xd[i] + b; |
| 414 | #endif |
| 415 | } |
| 416 | |
| 417 | |
| 418 | real N_VDotProd(N_Vector x, N_Vector y) |
no outgoing calls
no test coverage detected