| 307 | |
| 308 | |
| 309 | void N_VDiv(N_Vector x, N_Vector y, N_Vector z) |
| 310 | { |
| 311 | integer N; |
| 312 | real *xd, *yd, *zd; |
| 313 | |
| 314 | N = x->length; |
| 315 | xd = x->data; |
| 316 | yd = y->data; |
| 317 | zd = z->data; |
| 318 | |
| 319 | #ifndef _OPENMP |
| 320 | for (integer i=0; i < N; i++) |
| 321 | *zd++ = (*xd++) / (*yd++); |
| 322 | #else |
| 323 | #pragma omp parallel for |
| 324 | for (integer i=0; i < N; i++) |
| 325 | zd[i] = xd[i] / yd[i]; |
| 326 | #endif |
| 327 | } |
| 328 | |
| 329 | |
| 330 | void N_VScale(real c, N_Vector x, N_Vector z) |
no outgoing calls
no test coverage detected