| 3272 | } |
| 3273 | |
| 3274 | void |
| 3275 | blasChpmv( |
| 3276 | clblasOrder order, |
| 3277 | clblasUplo uplo, |
| 3278 | size_t N, |
| 3279 | FloatComplex alpha, |
| 3280 | FloatComplex* A, |
| 3281 | size_t offa, |
| 3282 | FloatComplex* X, |
| 3283 | size_t offx, |
| 3284 | int incx, |
| 3285 | FloatComplex beta, |
| 3286 | FloatComplex* Y, |
| 3287 | size_t offy, |
| 3288 | int incy) |
| 3289 | { |
| 3290 | char fUplo; |
| 3291 | int fN, fIncx, fIncy; |
| 3292 | complex *fA, fAlpha, fBeta, *fX, *fY; |
| 3293 | |
| 3294 | fUplo = encodeUplo( uplo ); |
| 3295 | |
| 3296 | fN = (int) N; |
| 3297 | fIncx = (int) incx; |
| 3298 | fIncy = (int) incy; |
| 3299 | |
| 3300 | fA = (complex*) A; |
| 3301 | fX = (complex*) X; |
| 3302 | fY = (complex*) Y; |
| 3303 | |
| 3304 | fAlpha = compose_complex(CREAL(alpha), CIMAG(alpha)); |
| 3305 | fBeta = compose_complex(CREAL(beta), CIMAG(beta)); |
| 3306 | if (order != clblasColumnMajor) |
| 3307 | { |
| 3308 | fprintf(stderr, "LAPACK routines require clblasColumnMajor order\n"); |
| 3309 | abort(); |
| 3310 | } |
| 3311 | chpmv(fUplo, fN, &fAlpha, (fA + offa), (fX + offx), fIncx, &fBeta, (fY + offy), fIncy); |
| 3312 | } |
| 3313 | |
| 3314 | void |
| 3315 | blasZhpmv( |
no test coverage detected