| 2692 | |
| 2693 | |
| 2694 | void |
| 2695 | blasDspr( |
| 2696 | clblasOrder order, |
| 2697 | clblasUplo uplo, |
| 2698 | size_t N, |
| 2699 | double alpha, |
| 2700 | double* X, |
| 2701 | size_t offx, |
| 2702 | int incx, |
| 2703 | double* AP, |
| 2704 | size_t offa) |
| 2705 | { |
| 2706 | char fUplo; |
| 2707 | int fN, fIncx; |
| 2708 | double *fAP, fAlpha, *fX; |
| 2709 | |
| 2710 | fUplo = encodeUplo( uplo ); |
| 2711 | |
| 2712 | fN = (int) N; |
| 2713 | fIncx = (int) incx; |
| 2714 | fAP = (double*) AP; |
| 2715 | fX = (double*) X; |
| 2716 | fAlpha = alpha; |
| 2717 | |
| 2718 | if (order != clblasColumnMajor) |
| 2719 | { |
| 2720 | fprintf(stderr, "LAPACK routines require clblasColumnMajor order\n"); |
| 2721 | abort(); |
| 2722 | } |
| 2723 | dspr(fUplo, fN, fAlpha, (fX + offx), fIncx, (fAP + offa)); |
| 2724 | |
| 2725 | |
| 2726 | } |
| 2727 | |
| 2728 | |
| 2729 | void |
no test coverage detected