| 273 | |
| 274 | |
| 275 | void N_VConst(real c, N_Vector z) |
| 276 | { |
| 277 | integer N; |
| 278 | real *zd; |
| 279 | |
| 280 | N = z->length; |
| 281 | zd = z->data; |
| 282 | |
| 283 | #ifndef _OPENMP |
| 284 | for (integer i=0; i < N; i++) |
| 285 | *zd++ = c; |
| 286 | #else |
| 287 | #pragma omp parallel for |
| 288 | for (integer i=0; i < N; i++) |
| 289 | zd[i] = c; |
| 290 | #endif |
| 291 | } |
| 292 | |
| 293 | |
| 294 | void N_VProd(N_Vector x, N_Vector y, N_Vector z) |
no outgoing calls
no test coverage detected