Lines Matching defs:AP
362 void F77_sspmv(int *order, char *uplow, int *n, float *alpha, float *ap,
364 float *A,*AP;
373 AP = ( float* )malloc( (((LDA+1)*LDA)/2)*sizeof( float ) );
377 A[ LDA*i+j ]=ap[ k ];
380 AP[ k ]=A[ LDA*i+j ];
385 A[ LDA*i+j ]=ap[ k ];
388 AP[ k ]=A[ LDA*i+j ];
390 cblas_sspmv( CblasRowMajor, uplo, *n, *alpha, AP, x, *incx, *beta, y,
392 free(A); free(AP);
395 cblas_sspmv( CblasColMajor, uplo, *n, *alpha, ap, x, *incx, *beta, y,
400 int *n, float *ap, float *x, int *incx) {
401 float *A, *AP;
414 AP = ( float* )malloc( (((LDA+1)*LDA)/2)*sizeof( float ) );
418 A[ LDA*i+j ]=ap[ k ];
421 AP[ k ]=A[ LDA*i+j ];
426 A[ LDA*i+j ]=ap[ k ];
429 AP[ k ]=A[ LDA*i+j ];
431 cblas_stpmv( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx );
432 free(A); free(AP);
435 cblas_stpmv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx );
439 int *n, float *ap, float *x, int *incx) {
440 float *A, *AP;
453 AP = ( float* )malloc( (((LDA+1)*LDA)/2)*sizeof( float ) );
457 A[ LDA*i+j ]=ap[ k ];
460 AP[ k ]=A[ LDA*i+j ];
466 A[ LDA*i+j ]=ap[ k ];
469 AP[ k ]=A[ LDA*i+j ];
471 cblas_stpsv( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx );
472 free(A); free(AP);
475 cblas_stpsv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx );
479 int *incx, float *ap ){
480 float *A, *AP;
489 AP = ( float* )malloc( (((LDA+1)*LDA)/2)*sizeof( float ) );
493 A[ LDA*i+j ]=ap[ k ];
496 AP[ k ]=A[ LDA*i+j ];
501 A[ LDA*i+j ]=ap[ k ];
504 AP[ k ]=A[ LDA*i+j ];
506 cblas_sspr( CblasRowMajor, uplo, *n, *alpha, x, *incx, AP );
510 A[ LDA*i+j ]=AP[ k ];
513 ap[ k ]=A[ LDA*i+j ];
518 A[ LDA*i+j ]=AP[ k ];
521 ap[ k ]=A[ LDA*i+j ];
523 free(A); free(AP);
526 cblas_sspr( CblasColMajor, uplo, *n, *alpha, x, *incx, ap );
530 int *incx, float *y, int *incy, float *ap ){
531 float *A, *AP;
540 AP = ( float* )malloc( (((LDA+1)*LDA)/2)*sizeof( float ) );
544 A[ LDA*i+j ]=ap[ k ];
547 AP[ k ]=A[ LDA*i+j ];
552 A[ LDA*i+j ]=ap[ k ];
555 AP[ k ]=A[ LDA*i+j ];
557 cblas_sspr2( CblasRowMajor, uplo, *n, *alpha, x, *incx, y, *incy, AP );
561 A[ LDA*i+j ]=AP[ k ];
564 ap[ k ]=A[ LDA*i+j ];
569 A[ LDA*i+j ]=AP[ k ];
572 ap[ k ]=A[ LDA*i+j ];
575 free(AP);
578 cblas_sspr2( CblasColMajor, uplo, *n, *alpha, x, *incx, y, *incy, ap );
