| 377 | |
| 378 | |
| 379 | void N_VInv(N_Vector x, N_Vector z) |
| 380 | { |
| 381 | integer N; |
| 382 | real *xd, *zd; |
| 383 | |
| 384 | N = x->length; |
| 385 | xd = x->data; |
| 386 | zd = z->data; |
| 387 | |
| 388 | #ifndef _OPENMP |
| 389 | for (integer i=0; i < N; i++) |
| 390 | *zd++ = ONE / (*xd++); |
| 391 | #else |
| 392 | #pragma omp parallel for |
| 393 | for (integer i=0; i < N; i++) |
| 394 | zd[i] = ONE / xd[i]; |
| 395 | #endif |
| 396 | } |
| 397 | |
| 398 | |
| 399 | void N_VAddConst(N_Vector x, real b, N_Vector z) |
no outgoing calls
no test coverage detected