| 2659 | //SPR |
| 2660 | |
| 2661 | void |
| 2662 | blasSspr( |
| 2663 | clblasOrder order, |
| 2664 | clblasUplo uplo, |
| 2665 | size_t N, |
| 2666 | float alpha, |
| 2667 | float* X, |
| 2668 | size_t offx, |
| 2669 | int incx, |
| 2670 | float* AP, |
| 2671 | size_t offa) |
| 2672 | { |
| 2673 | char fUplo; |
| 2674 | int fN, fIncx; |
| 2675 | float *fAP, fAlpha, *fX; |
| 2676 | |
| 2677 | fUplo = encodeUplo( uplo ); |
| 2678 | fN = (int) N; |
| 2679 | fIncx = (int) incx; |
| 2680 | fAP = (float*) AP; |
| 2681 | fX = (float*) X; |
| 2682 | |
| 2683 | fAlpha = alpha; |
| 2684 | |
| 2685 | if (order != clblasColumnMajor) |
| 2686 | { |
| 2687 | fprintf(stderr, "LAPACK routines require clblasColumnMajor order\n"); |
| 2688 | abort(); |
| 2689 | } |
| 2690 | sspr(fUplo, fN, fAlpha, (fX + offx), fIncx, (fAP + offa)); |
| 2691 | } |
| 2692 | |
| 2693 | |
| 2694 | void |
no test coverage detected