| 357 | |
| 358 | |
| 359 | void N_VAbs(N_Vector x, N_Vector z) |
| 360 | { |
| 361 | integer N; |
| 362 | real *xd, *zd; |
| 363 | |
| 364 | N = x->length; |
| 365 | xd = x->data; |
| 366 | zd = z->data; |
| 367 | |
| 368 | #ifndef _OPENMP |
| 369 | for (integer i=0; i < N; i++, xd++, zd++) |
| 370 | *zd = ABS(*xd); |
| 371 | #else |
| 372 | #pragma omp parallel for |
| 373 | for (integer i=0; i < N; i++) |
| 374 | zd[i] = ABS(xd[i]); |
| 375 | #endif |
| 376 | } |
| 377 | |
| 378 | |
| 379 | void N_VInv(N_Vector x, N_Vector z) |
no outgoing calls
no test coverage detected