| 687 | |
| 688 | |
| 689 | static void VCopy(N_Vector x, N_Vector z) |
| 690 | { |
| 691 | integer N; |
| 692 | real *xd, *zd; |
| 693 | |
| 694 | N = x->length; |
| 695 | xd = x->data; |
| 696 | zd = z->data; |
| 697 | |
| 698 | #pragma omp parallel for |
| 699 | for (integer i=0; i < N; i++) |
| 700 | zd[i] = xd[i]; |
| 701 | } |
| 702 | |
| 703 | |
| 704 | static void VSum(N_Vector x, N_Vector y, N_Vector z) |