| H A D | petscaxpy.h | 32 #define PetscKernelAXPY(U, a1, p1, n) \ argument 36 PetscCallBLAS("BLASaxpy", BLASaxpy_(&nn, &a1, p1, &one, U, &one)); \ 38 #define PetscKernelAXPY2(U, a1, a2, p1, p2, n) \ argument 40 fortranmaxpy2_(U, &a1, &a2, p1, p2, &n); \ 42 #define PetscKernelAXPY3(U, a1, a2, a3, p1, p2, p3, n) \ argument 44 fortranmaxpy3_(U, &a1, &a2, &a3, p1, p2, p3, &n); \ 46 #define PetscKernelAXPY4(U, a1, a2, a3, a4, p1, p2, p3, p4, n) \ argument 48 fortranmaxpy4_(U, &a1, &a2, &a3, &a4, p1, p2, p3, p4, &n); \ 76 #define PetscKernelAXPY2(U, a1, a2, p1, p2, n) \ argument 80 *U++ += a1 * *p1++ + a2 * *p2++; \ [all …]
|